bagder: curl-www/dl list_entry.cgi,1.8,1.9

Update of /cvsroot/curl/curl-www/dl
In directory labb:/tmp/cvs-serv29181

Modified Files:
        list_entry.cgi 
Log Message:
show locals, and count autos


Index: list_entry.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/list_entry.cgi,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- list_entry.cgi      10 May 2005 07:36:13 -0000      1.8
+++ list_entry.cgi      10 May 2005 11:15:48 -0000      1.9
@@ -63,6 +63,7 @@
 
 my $i=0;
 my $utd=0; # up to date
+my $auto=0; # auto or local
 for $per (@sall) {
     my $cl;
     if($stable eq $$per{'curl'}) {
@@ -84,14 +85,19 @@
            show($$per{'pack'}));
 
     my $fi = $$per{'file'};
+    my $here;
     if($fi !~ /^(http|ftp):/) {
         $fi = "/download/$fi";
+        $here=1; # a local file, no need to auto
     }
     printf("<td><a href=\"%s\">%s</a></td>",
            $fi, $$per{'curl'});
     printf("<td>%s</th>", $$per{'hide'} eq "Yes"?"Hide":"");
 
-    printf("<td>%s</th>", $$per{'churl'}?"Yes":"");
+    printf("<td>%s</th>", $here?"Local":($$per{'churl'}?"Auto":""));
+    if($here || $$per{'churl'}) {
+        $auto++;
+    }
 
     printf("<td>%s</td>", $$per{'type'}eq"bin"?
            "<b>bin</b>":show($$per{'type'}));
@@ -110,7 +116,7 @@
     $i++;
 }
 print "</table>",
-    "<p> $i entries, $utd is up-to-date\n";
+    "<p> $i entries, $utd is up-to-date, $auto is auto or local\n";
 
 # Skriv ut sidfoten
 lfooter();

_______________________________________________
http://cool.haxx.se/mailman/listinfo/curl-www-commits