Commit 5efd1047 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor usuability tweaks.

parent 41c430f1
......@@ -212,7 +212,7 @@ if ($?) {
" Error running '$args'\n");
}
print "Linktest in progress...\n";
print "Starting linktest at " . &TBTimeStamp() . "\n";
print "Quick termination requested.\n"
if (defined($options{"q"}));
print "Debug mode requested.\n"
......@@ -299,7 +299,7 @@ else {
my $eventargs = $2;
if (($eventtype eq $STOPEVENT) ||
($eventtype eq $COMPLETEEVENT)) {
print "Linktest completed.\n"
print "Linktest completed at " . &TBTimeStamp() . "\n"
if($verbose);
last;
}
......@@ -405,3 +405,7 @@ sub kill_linktest_run {
" Error running '$args'\n");
}
}
sub TBTimeStamp {
return POSIX::strftime("%H:%M:%S", localtime());
}
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