User: knarf Date: 2010/06/14 08:46 AM
Modified: /release-info/ parse_testsuite_results.cgi, parse_testsuite_results.php
Log: use web site layout
File Changes:
Directory: /release-info/ =========================
File [modified]: parse_testsuite_results.cgi Delta lines: +2 -7 =================================================================== --- release-info/parse_testsuite_results.cgi 2010-06-14 03:41:52 UTC (rev 200) +++ release-info/parse_testsuite_results.cgi 2010-06-14 13:46:12 UTC (rev 201) @@ -1,12 +1,7 @@ #!/usr/bin/perl -w use strict; -use CGI; -use CGI::Carp qw ( fatalsToBrowser ); use Data::Dumper;
-my $query = new CGI; -print $query->header(); - my @filenames = (); opendir(DIR, ".") || die "cannot open dir: $!"; foreach (sort readdir(DIR)) { @@ -104,7 +99,7 @@ if (defined($results{$thorn}{$test}{$host}) and defined($results{$thorn}{$test}{$host}{$nprocs})) { if ($results{$thorn}{$test}{$host}{$nprocs}{"result"} =~ /Success/) { - $table_entries .= "<td align='center'>.</td>"; + $table_entries .= "<td align='center'>â</td>"; } else { my $details = $results{$thorn}{$test}{$host}{$nprocs}{"details"}; my $entry = "<b>$details</b>"; @@ -125,4 +120,4 @@ } }
-print "<html><body><table border='1'>$table_entries</table></body></html>\n"; +print "<table border='1'>$table_entries</table>\n";
File [modified]: parse_testsuite_results.php Delta lines: +6 -1 =================================================================== --- release-info/parse_testsuite_results.php 2010-06-14 03:41:52 UTC (rev 200) +++ release-info/parse_testsuite_results.php 2010-06-14 13:46:12 UTC (rev 201) @@ -1,7 +1,12 @@ -<?php +<?php $title='Testsuite status of einsteintoolkit.th'; +$hide_path=1; +include_once($_SERVER['DOCUMENT_ROOT'].'/global/header.php'); + exec('./parse_testsuite_results.cgi', $output = array());
foreach ($output as $line) { echo $line."\n"; } + +include_once($_SERVER['DOCUMENT_ROOT'].'/global/footer.php'); ?>