Commit 6f05512f authored by Leigh Stoller's avatar Leigh Stoller

Date Stuff

parent d1e8dfac
#!/usr/bin/perl -w
require 'ctime.pl';
# This has the common functionality for tbprerun/tbrun/tbend.
......@@ -40,8 +41,11 @@ sub tbs_prefix {
sub tbs_out {
my($s) = $_[0];
my $t = ctime(time);
print $t;
print $s;
if ($logging) {
print LOGFILE $t;
print LOGFILE $s;
}
};
......
#!/usr/bin/perl -wT
use English;
require 'ctime.pl';
#
# TODO: Delta stuff.
......@@ -299,8 +300,14 @@ foreach my $node ( keys %nodeos ) {
if ($?) {
die("Reboot of node $pc failed!");
}
my $t = ctime(time);
print STDOUT "$t";
print STDOUT "$pc rebooting ...\n"
}
my $t = ctime(time);
print STDOUT "$t";
print STDOUT "Waiting for testbed nodes to finish rebooting ...\n";
my $waitstart = time;
......@@ -322,6 +329,9 @@ foreach my $node ( keys %nodeos ) {
}
if (WaitTillAlive($pc) == 0) {
my $t = ctime(time);
print STDOUT "$t";
print STDOUT "$pc is alive and well\n";
next;
}
......@@ -414,6 +424,9 @@ sub WaitTillAlive {
sub RebootNode {
local($pc) = @_;
my $t = ctime(time);
print STDOUT "$t";
print STDOUT "Rebooting $pc ...\n";
$mypid = fork();
......
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