pan/cgi/browse.cgi

#!/usr/bin/perl

use CGI qw(:standard);

# keep a copy of each 'uname -a' string so we don't have to search for it every time.
%uname_cache = {};

# When something goes wrong before we start output, use this
# function so there is still output
sub failure {
	print header("text/html"),start_html;
	print "$_[0]\n";
	print end_html;
	exit;
}
# get the UNAME line for a host, date, suite
sub get_result_uname {
	my($inhost, $indate, $insuite, $filename);
	my(@possible_files, $pf, $line);
	my($host, $datestr, $suite, $type, $gz);
	# build a filename
	$inhost = $_[0];
	$indate = $_[1];
	if ($#_ >= 2) {
		$insuite = $_[2];
	} else {
		$insuite = "*";
	}
	# check to see if we've done this already
	if (exists($uname_cache{"$inhost.$indate"})) {
		return $uname_cache{"$inhost.$indate"};
	}
	$filename = "$inhost.$indate.$insuite.*";
	@possible_files = <${filename}>;
	if ($#possible_files < 1) {
		return "";
	}
	foreach $pf (@possible_files) {
		($host, $datestr, $suite, $type, $gz) = split(/\./, $pf);
		if ($type eq "summary") {
			next;
		} elsif ($type eq "scanner") {
			open (UF, $pf) || next;
			while ($line = <UF>) {
				if ($line =~ /^UNAME/) {
					close(UF);
					$line =~ s/UNAME *//;
					$line =~ s/$inhost//;
					$uname_cache{"$inhost.$indate"} = $line;
					return $line;
				}
			}
		} elsif ($type eq "driver") {
			if ($gz) {
				open (UF, "gunzip -c $pf|") || next;
			} else {
				open (UF, "$pf") || next;
			}
			while ($line = <UF>) {
				if ($line =~ /^UNAME/) {
					close(UF);
					$line =~ s/UNAME="(.*)"/\1/;
					$line =~ s/$inhost//;
					$uname_cache{"$inhost.$indate"} = $line;
					return $line;
				}
			}
		} else {
			next;
		}
	}
	return "";
}

# Create the headers row, adding links for sorting options
sub print_headers {

	print "\n<tr>";

	for($i = 0; $i <= $#rso; $i++) {
		print "<th><a href=\"browse.cgi?sort=";
		for ($j = 0; $j <= $#rso; $j++) {
			if ($j == $i) { $rsd[$j] = $rsd[$j] * -1; }
			if ($rsd[$j] == -1) { print "-"; }
			if ($j == $i) { $rsd[$j] = $rsd[$j] * -1; }
			print $rso[$j];
			if ($j < $#rso) { print ","; }
		}
		print "\">$rso[$i]</a>\n";
	}

	print "</tr>\n";
}

############
# main()   #
############

# Most of the work is done in this directory
unless (chdir("/usr/tests/ltp/results")) {
	failure("Could not get to the results directory\n");
}

@extra_path = split(/\//, $ENV{PATH_INFO});

# rso = Result Sort Order
# rsd = Result Sort Direction
#@rso = (HOST,SUITE, DATE, UNAME);
@rso = (SUITE, HOST, DATE, UNAME);
@rsd = (1, 1, -1, 1);

# allow the user to specify the sort order
if ($sort_order = param("sort")) {
	@so = split(/,/, $sort_order);
	print $so;
	@rso = ();
	for($i = 0; $i <= $#so; $i++) {
		# parse the field
		if ($so[$i] =~ /host/i) { push(@rso, HOST); }
		elsif ($so[$i] =~ /date/i) { push(@rso, DATE); }
		elsif ($so[$i] =~ /suite/i) { push(@rso, SUITE); }
		elsif ($so[$i] =~ /uname/i) { push(@rso, UNAME); }
		# parse the direction
		if ($so[$i] =~ /-/) { $rsd[$i] = -1; }
		else { $rsd[$i] = 1; }
	}
}

if ($#extra_path > 0) {

} else {

	%results = ();

	# run through the files in the results directory
	@driver_files = <*driver*>;
	foreach $df (@driver_files) {

		($host, $datestr, $suite, $type, $gz) = split(/\./, $df);

		$a_rec = ();
		$a_rec->{HOST} = $host;
		$a_rec->{DATE} = $datestr;
		$a_rec->{SUITE} = $suite;
		$a_rec->{DRIVER_FILE} = $df;
		$a_rec->{UNAME} = get_result_uname($host, $datestr);

		$results{ $a_rec->{DRIVER_FILE} } = $a_rec;
	}

	# write the HTML file
	print header("text/html"),start_html;
	print "This is a demo page for browsing the Linux LTP results.  Select the results you want to compare and click the \"Compare\" button.", p, h2("Warning"), "The results are placed in a large table which may take a long time to render on some browsers", p;
	@ri = values %results;
	@ri = sort { ($a->{$rso[0]} cmp $b->{$rso[0]})*$rsd[0]
			|| ($a->{$rso[1]} cmp $b->{$rso[1]})*$rsd[1]
			|| ($a->{$rso[2]} cmp $b->{$rso[2]})*$rsd[2]
			|| ($a->{$rso[3]} cmp $b->{$rso[3]})*$rsd[3] } @ri;

	$last = ();
	$last->{$rso[0]} = "";
	$last->{$rso[1]} = "";
	$last->{$rso[2]} = "";
	$lasthost = "";
	$lastdate = "";
	$lastsuite = "";
	#$lastindent = 0;
	$thisindent = 0;
	print "<form method=get action=\"reconsile.cgi\">";
	print "<table border=1>\n";
	#print "<tr><th>Hostname<th>Date<th>Suite</tr>\n";
	print_headers();
	foreach $rp ( @ri ) {

		$this = ();
		$this->{$rso[0]} = $rp->{$rso[0]};
		$this->{$rso[1]} = $rp->{$rso[1]};
		$this->{$rso[2]} = $rp->{$rso[2]};
		$this->{$rso[3]} = $rp->{$rso[3]};

		# figure out the first column that is different
		for ($i = 0; $i <= $#rso; $i++) {
			if ($last->{$rso[$i]} ne $this->{$rso[$i]}) {
				$thisindent = $i;
				last;
			}
		}

		print "<tr>\n";
		for ($i = 0; $i < $thisindent; $i++) {
			print "<td>";

		}
		for ($i = $thisindent; $i <= $#rso; $i++) {
			print "<td>";
			if ($i == $#rso) {
				print "<a href=\"results.cgi?get_df=$this->{HOST}.$this->{DATE}.$this->{SUITE}.scanner\">";
			}
			print "$this->{$rso[$i]}";
			if ($i == $#rso) {
				print "</a>";
			}
			if ($i == $#rso) {
				# last column
				print " <input type=checkbox name=results value=\"$this->{HOST}.$this->{DATE}.$this->{SUITE}\">";

			}


		}
		print "</tr>\n";

		# make sure we update the $last... variables
		$last->{$rso[0]} = $this->{$rso[0]};
		$last->{$rso[1]} = $this->{$rso[1]};
		$last->{$rso[2]} = $this->{$rso[2]};
	}
	print "</table>\n";
	print "<input type=submit name=compare value=\"Compare\">\n";
	print "<input type=reset>\n";
	print "</form>";
	print end_html;

}