Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
c87361f1
Commit
c87361f1
authored
Sep 01, 2006
by
Mike Hibler
Browse files
Bah, turn off some extraneous printfs
parent
af9b9235
Changes
1
Hide whitespace changes
Inline
Side-by-side
pelab/init-elabnodes.pl
View file @
c87361f1
...
...
@@ -128,7 +128,8 @@ libxmlrpc::Config({"server" => $RPCSERVER,
#
my
@nodelist
=
split
('
\s+
',
`
$NLIST
-m -e
$pid
,
$eid
`);
chomp
(
@nodelist
);
print
"
NODELIST:
\n
@nodelist
\n
";
print
"
NODELIST:
\n
@nodelist
\n
"
if
(
!
$outfile
);
my
$nnodes
=
grep
(
/^${pprefix}/
,
@nodelist
);
if
(
$nnodes
==
0
)
{
print
STDERR
"
No planetlab nodes in
$pid
/
$eid
?!
\n
";
...
...
@@ -162,7 +163,8 @@ foreach my $mapping (@nodelist) {
}
my
(
$site_index
)
=
$query_result
->
fetchrow_array
();
print
"
Mapping
$vnode
to
$pnode
\n
";
print
"
Mapping
$vnode
to
$pnode
\n
"
if
(
!
$outfile
);
$node_mapping
{
$vnode
}
=
$pnode
;
$site_mapping
{
$pnode
}
=
$site_index
;
...
...
@@ -392,7 +394,8 @@ sub get_plabinfo($)
=cut
print
"
elab-
$srcix
-> elab-
$dstix
:
"
.
"
real=
$dst
, bw=
$bw
, del=
$del
, plr=
$plr
\n
";
"
real=
$dst
, bw=
$bw
, del=
$del
, plr=
$plr
\n
"
if
(
!
$outfile
);
# XXX need to lookup "elab-$dstix"
$dst
=
"
10.0.0.
$dstix
";
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment