bagder: curl-www/auto summarize.pl,1.41,1.42

Update of /cvsroot/curl/curl-www/auto
In directory labb:/tmp/cvs-serv18767/auto

Modified Files:
	summarize.pl 
Log Message:
an attempt to display failing servers in the report table(s)


Index: summarize.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/auto/summarize.pl,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- summarize.pl	9 Jun 2006 21:50:56 -0000	1.41
+++ summarize.pl	27 Oct 2006 21:19:49 -0000	1.42
@@ -8,6 +8,7 @@
 my @logs = grep { /^inbox/ } readdir(DIR);
 closedir(DIR);
 
+my $prefix ="table";
 
 my %combo;
 my $buildnum;
@@ -17,7 +18,7 @@
 my $tablesperpage = 4;
 
 for ( 0 .. 3 ) {
-    open(CLEAR, ">table$_.t");
+    open(CLEAR, ">$prefix$_.t");
     
     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =
         gmtime(time);
@@ -34,7 +35,7 @@
 
     $tablecount++;
     $tablenum = int($tablecount/$tablesperpage);
-    my $file = "table${tablenum}.t";
+    my $file = "$prefix${tablenum}.t";
 
     open(TABLE, ">>$file");
 
@@ -293,6 +294,11 @@
         $res .= "</td>\n";
     }
 
+    my $sfail="";
+    if(keys %serverfail) {
+        $sfail = sprintf("<span class='buildserverprob'>%s</a>",
+                         join(", ", keys %serverfail));
+    }
     $totalwarn += $warning;
     if($warning>0) {
         $res .= "<td class=\"buildfail\">$warning</td>";
@@ -301,6 +307,7 @@
         $warnfree++;
         $res .= "<td>0</td>\n";
     }
+    undef %serverfail;
 
     $memory=($debug)?"D":"-";
     $https=($openssl)?"S":($gnutls?"T":"-");
@@ -313,7 +320,7 @@
         $desc = $os;
     }
 
-    $res .= "<td class=\"mini\">$o</td>\n<td>$desc</td>\n<td>$name</td></tr>\n";
+    $res .= "<td class=\"mini\">$o</td>\n<td>$desc $sfail</td>\n<td>$name</td></tr>\n";
 
     $combo{$o}++;
     $desc{$desc}++;
@@ -446,6 +453,9 @@
             elsif($_ =~ /\) (libcurl\/.*)/) {
                 $libcurl = $1;
             }
+            elsif($_ =~ /SKIPPED: failed starting (.*) server/) {
+                $serverfail{$1}++;
+            }
             elsif(checkwarn($_)) {
                 $warning++;
             }