Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emulab
emulab-devel
Commits
b5febc6d
Commit
b5febc6d
authored
Feb 16, 2005
by
Mike Hibler
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
More taint hacking,
Differentiate RHL9 and use a different build of ns.
parent
9556535e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
23 additions
and
4 deletions
+23
-4
event/linktest/linktest.pl.in
event/linktest/linktest.pl.in
+23
-4
No files found.
event/linktest/linktest.pl.in
View file @
b5febc6d
#!/usr/bin/perl -w -T
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-200
4
University of Utah and the Flux Group.
# Copyright (c) 2000-200
5
University of Utah and the Flux Group.
# All rights reserved.
#
...
...
@@ -194,6 +194,14 @@ my @results = &read_file($fname);
chomp
$hostname
;
chomp
$exp_id
;
chomp
$proj_id
;
# taint check pid/eid
if
(
$proj_id
=~
/([-\w]*)/
)
{
$proj_id
=
$
1
;
}
if
(
$exp_id
=~
/([-\w]*)/
)
{
$exp_id
=
$
1
;
}
$gid
=
$proj_id
;
#
...
...
@@ -216,9 +224,9 @@ if(-e "$expt_path/$exp_id-modify.ns") {
#
(
$platform
)
=
POSIX::
uname
();
if
(
$platform
eq
BSD
)
{
$ns_cmd
=
LINKTEST_NSPATH
.
"
/fbsd/ns
";
$ns_cmd
=
LINKTEST_NSPATH
.
"
/fbsd/ns
";
}
elsif
(
$platform
eq
LINUX
)
{
$ns_cmd
=
LINKTEST_NSPATH
.
"
/linux/ns
";
$ns_cmd
=
LINKTEST_NSPATH
.
"
/
"
.
linux
_version
()
.
"
/ns
";
}
else
{
die
("
Platform
$platform
is not currently supported.
\n
");
}
...
...
@@ -1091,7 +1099,7 @@ sub wait_all {
# that all exited properly.
#
sub
post_event
{
my
(
$event
,
$args
)
=
@_
;
my
(
$event
,
$args
)
=
map
{
$
1
if
(
/(.*)/
)
}
@_
;
if
(
$hostname
eq
$synserv
)
{
system
(
PATH_LTEVENT
,
"
-s
",
...
...
@@ -1262,3 +1270,14 @@ sub is_special_node {
return
FALSE
;
}
}
sub
linux_version
{
my
$vers
=
"
linux
";
if
(
-
e
"
/etc/redhat-release
")
{
my
$foo
=
`
cat /etc/redhat-release
`;
if
(
$foo
=~
/Red Hat Linux release 9/
)
{
$vers
=
"
linux9
";
}
}
return
$vers
;
}
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