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
475cc112
Commit
475cc112
authored
Apr 21, 2006
by
Mike Hibler
Browse files
compensate for early fubar
parent
de676b89
Changes
1
Hide whitespace changes
Inline
Side-by-side
pelab/start-experiment
View file @
475cc112
...
...
@@ -67,13 +67,18 @@ if (defined($options{"m"})) {
}
}
if
(
defined
(
$options
{"
C
"}))
{
my
$cmdline
=
$stub_cmd
.
"
"
.
((
$stub_cmdargs
eq
$UNKNOWN
)
?
""
:
$stub_cmdargs
);
my
$cmdline
=
$stub_cmd
;
if
(
$stub_cmdargs
ne
$UNKNOWN
)
{
$cmdline
.=
"
$stub_cmdargs
";
}
print
"
Current stub command line: '
$cmdline
'
\n
";
$cmdline
=
$mon_cmd
.
"
"
.
((
$mon_cmdargs
eq
$UNKNOWN
)
?
""
:
$mon_cmdargs
);
$cmdline
=
$mon_cmd
;
if
(
$mon_cmdargs
ne
$UNKNOWN
)
{
$cmdline
.=
"
$mon_cmdargs
";
}
print
"
Current monitor command line: '
$cmdline
'
\n
";
exit
(
0
);
}
if
(
defined
(
$options
{"
p
"}))
{
$realplab
=
1
;
...
...
@@ -217,7 +222,14 @@ sub get_cmdargs($$)
if
(
/^COMMAND=(.*)/
)
{
if
(
$
1
ne
$cmd
)
{
$cmdargs
=
$
1
;
$cmdargs
=~
s/$cmd(.*)/$1/
;
# XXX filter out broken cmdlines (old bug in program_agent)
$cmdargs
=~
s/\s*}\s*$//
;
$cmdargs
=~
s/^$cmd//
;
if
(
$cmdargs
eq
"")
{
$cmdargs
=
$UNKNOWN
;
}
}
last
;
}
...
...
Write
Preview
Supports
Markdown
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