Commit 5d1c858e authored by Leigh Stoller's avatar Leigh Stoller

20040713:

	For new distributed routing support, must first run this script as
        root to generate a data file for each existing experiment.

		sudo sql/gentopmaps.pl
parent c8054229
......@@ -6,6 +6,12 @@ This file is in the same format at the FreeBSD UPDATING file, whis is
to say, in reverse chronological order, with the date of the change
in YYYYMMDD format.
20040713:
For new distributed routing support, must first run this script as
root to generate a data file for each existing experiment.
sudo sql/gentopmaps.pl
20040625:
After updating to revision 1.257 of sql/database-create.txt,
run sql/devlnodes.pl to clear out all of the non reserved
......
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2004 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
use lib "/usr/testbed/lib";
use libdb;
use libtestbed;
#
# Turn off line buffering on output
#
$| = 1;
my $gentopofile = "/usr/testbed/libexec/gentopofile";
#
# Untaint the path
#
$ENV{'PATH'} = '/bin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin';
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
$query_result =
DBQueryFatal("select pid,eid,expt_head_uid from experiments ");
while (($pid,$eid,$creator) = $query_result->fetchrow_array()) {
my $workdir = TBExptWorkDir($pid, $eid);
my $userdir = TBExptUserDir($pid, $eid);
if (! -d $workdir) {
print "Skipping $pid/$eid cause workdir does not exist!\n";
next;
}
if (! -e "$workdir/topomap") {
print "Generating topomap for $pid/$eid\n";
if (system("cd $workdir; ".
"sudo -u $creator $gentopofile $pid $eid")) {
print "Failed to generate topomap for $pid/$eid!\n";
next;
}
}
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment