Commit 44a9ba4c authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor output tweaks so that user is less confused about what has happened.

parent e4a38b1d
......@@ -299,7 +299,7 @@ else {
my $eventargs = $2;
if (($eventtype eq $STOPEVENT) ||
($eventtype eq $COMPLETEEVENT)) {
print "Linktest completed normally.\n"
print "Linktest completed.\n"
if($verbose);
last;
}
......@@ -342,6 +342,12 @@ sub analyze {
unlink($logfile)
if (defined($logfile));
return 0
if (! @dir_contents);
print "***************************************************************\n";
print "***************** Linktest Error Reports **********************\n";
foreach my $file (@dir_contents) {
# Hmm, need to taint check the filenames. Ick.
if ($file =~ /^([-\w\.\/]+)$/) {
......@@ -366,6 +372,7 @@ sub analyze {
system("/bin/cat $linktest_path/$file");
}
}
print "***************************************************************\n";
return scalar(@dir_contents);
}
......
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