|
|
@@ -1,19 +1,30 @@
|
|
|
#!/usr/bin/perl
|
|
|
-# Copyright (C) 2003, Rene Rivera. Permission to copy, use, modify, sell and
|
|
|
-# distribute this software is granted provided this copyright notice appears in
|
|
|
-# all copies. This software is provided "as is" without express or implied
|
|
|
-# warranty, and with no claim as to its suitability for any purpose.
|
|
|
|
|
|
-# This the cgi script that generates the live summary page for the regression
|
|
|
-# logs located at http://boost.sourceforge.net/regression-logs
|
|
|
-#
|
|
|
-# Per SourceForge requirements this script needs to be located in the cgi-bin
|
|
|
-# directory (/home/groups/b/bo/boost/cgi-bin) for it to be recognized as a script.
|
|
|
-#
|
|
|
-# This script only generates the summary table of the test. It doesn not generate
|
|
|
-# the entire HTML page. For the complete page this script is called, with SSI, from
|
|
|
-# the "index.shtml" page which contains the wrapping page. This makes it easier to
|
|
|
-# mainting the table independently of the rest of the page.
|
|
|
+#~ Copyright (C) 2003, Rene Rivera.
|
|
|
+#~
|
|
|
+#~ Boost Software License - Version 1.0 - August 17th, 2003
|
|
|
+#~
|
|
|
+#~ Permission is hereby granted, free of charge, to any person or organization
|
|
|
+#~ obtaining a copy of the software and accompanying documentation covered by
|
|
|
+#~ this license (the "Software") to use, reproduce, display, distribute,
|
|
|
+#~ execute, and transmit the Software, and to prepare derivative works of the
|
|
|
+#~ Software, and to permit third-parties to whom the Software is furnished to
|
|
|
+#~ do so, all subject to the following:
|
|
|
+#~
|
|
|
+#~ The copyright notices in the Software and this entire statement, including
|
|
|
+#~ the above license grant, this restriction and the following disclaimer,
|
|
|
+#~ must be included in all copies of the Software, in whole or in part, and
|
|
|
+#~ all derivative works of the Software, unless such copies or derivative
|
|
|
+#~ works are solely in the form of machine-executable object code generated by
|
|
|
+#~ a source language processor.
|
|
|
+#~
|
|
|
+#~ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
|
+#~ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
|
+#~ FITNESS FOR A PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT
|
|
|
+#~ SHALL THE COPYRIGHT HOLDERS OR ANYONE DISTRIBUTING THE SOFTWARE BE LIABLE
|
|
|
+#~ FOR ANY DAMAGES OR OTHER LIABILITY, WHETHER IN CONTRACT, TORT OR OTHERWISE,
|
|
|
+#~ ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
|
|
|
+#~ DEALINGS IN THE SOFTWARE.
|
|
|
|
|
|
use FileHandle;
|
|
|
use Time::Local;
|
|
|
@@ -91,7 +102,11 @@ sub age_info
|
|
|
return $age."</font>";
|
|
|
}
|
|
|
|
|
|
-opendir LOGS, "/home/groups/b/bo/boost/htdocs/regression-logs";
|
|
|
+#~ foreach my $k (sort keys %ENV)
|
|
|
+#~ {
|
|
|
+ #~ print "<!-- $k = $ENV{$k} -->\n";
|
|
|
+#~ }
|
|
|
+opendir LOGS, "$ENV{PWD}";
|
|
|
my @logs = grep /.*links[^.]*\.html$/, readdir LOGS;
|
|
|
closedir LOGS;
|
|
|
my @bgcolor = ( "bgcolor=\"#EEEEFF\"", "" );
|
|
|
@@ -111,7 +126,7 @@ foreach $l (sort { lc($a) cmp lc($b) } @logs)
|
|
|
$log =~ s/-links//s;
|
|
|
my ($spec) = ($log =~ /cs-([^\.]+)/);
|
|
|
my $fh = new FileHandle;
|
|
|
- if ($fh->open("</home/groups/b/bo/boost/htdocs/regression-logs/$log"))
|
|
|
+ if ($fh->open("<$ENV{PWD}/$log"))
|
|
|
{
|
|
|
my $content = join('',$fh->getlines());
|
|
|
$fh->close;
|
|
|
@@ -149,7 +164,7 @@ foreach $l (sort { lc($a) cmp lc($b) } @logs)
|
|
|
}
|
|
|
print
|
|
|
"<tr>\n",
|
|
|
- "<td rowspan=\"$count\" valign=\"top\"><font size=\"+1\">$platform</font><br>(<a href=\"../regression-logs/$log\">$spec</a>)</td>\n",
|
|
|
+ "<td rowspan=\"$count\" valign=\"top\"><font size=\"+1\">$platform</font><br>(<a href=\"./$log\">$spec</a>)</td>\n",
|
|
|
"<td rowspan=\"$count\" valign=\"top\">",$run_date,"</td>\n",
|
|
|
"<td rowspan=\"$count\" valign=\"top\">",age_info($run_date),"</td>\n",
|
|
|
"<td valign=\"top\" ",$bgcolor[$row],">",$compiler[0],"</td>\n",
|
Rene Rivera