bagder: curl-www/dl list_entry.cgi, 1.9, 1.10 mod_entry.cgi, 1.7, 1.8 remcheck.pl, 1.8, 1.9 stuff.pm, 1.4, 1.5

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

Modified Files:
        list_entry.cgi mod_entry.cgi remcheck.pl stuff.pm 
Log Message:
random updates


Index: stuff.pm
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/stuff.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- stuff.pm    10 May 2005 22:11:15 -0000      1.4
+++ stuff.pm    11 May 2005 22:02:46 -0000      1.5
@@ -34,9 +34,10 @@
 <td>
 MOO
 ;
-    print "<a href=\"list_entry.cgi\">list entries</a>\n",
-    "<a href=\"mod_entry.cgi\">add entry</a>\n",
-    "<a href=\"/download.html\">download page</a>",
+    print "<a href=\"list_entry.cgi\">[List Entries]</a>\n",
+    "<a href=\"mod_entry.cgi\">[New Entry]</a>\n",
+    "<a href=\"/download.html\">[Download Page]</a>\n",
+    "<a href=\"log/\">[Remcheck Logs]</a>",
     "<div class=\"pagetitle\">$title</div>";
 }
 

Index: remcheck.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/remcheck.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- remcheck.pl 10 May 2005 22:11:44 -0000      1.8
+++ remcheck.pl 11 May 2005 22:02:46 -0000      1.9
@@ -25,6 +25,13 @@
     print @_;
 }
 
+sub timestamp {
+    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
+        gmtime(time);
+    return  sprintf("%04d%02d%02d-%02d%02d%02d",
+                    $year+1900, $mon+1, $mday, $hour, $min, $sec);
+}
+
 &latest::scanstatus();
 
 @all = $db->find_all("typ"=>"^entry\$");
@@ -140,6 +147,8 @@
 
         logmsg " Check URL: \"$churl\"\n";
 
+        $$ref{'remcheck'} = timestamp();
+
         # expand $version!
         if($churl =~ s/\$version/$version/g) {
             # 'fixedver' means that we have the version number in the URL
@@ -189,6 +198,7 @@
                         # TODO: actually store the new version here
                         $update++;
                         logmsg " NEWER version found!\n";
+                        $$ref{'remdate'} = timestamp();
                         $$ref{'curl'}=$r;
                         if($versionembedded) {
                             # the version string is embedded in the test URL
@@ -252,6 +262,7 @@
                 # TODO: actually store the new version here
                 $update++;
                 logmsg " NEWER version found!\n";
+                $$ref{'remdate'} = timestamp();
                 $$ref{'curl'} = $ver;
                 if($versionembedded) {
                     # the version string is embedded in the test URL
@@ -280,9 +291,9 @@
     logmsg "$missing listed packages lacked autocheck URL\n";
 }
 
-if($update) {
-    # one or more updated entries, save!
-    $db->save();
-}
+# one or more updated entries, save!
+# we have updated time stamps after each run, always save!
+$db->save();
+
 logmsg "$update packages updated\n";
 

Index: list_entry.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/list_entry.cgi,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- list_entry.cgi      10 May 2005 11:15:48 -0000      1.9
+++ list_entry.cgi      11 May 2005 22:02:46 -0000      1.10
@@ -41,8 +41,7 @@
 for $h (('edit',
          'Package',
          'Version',
-         'Hidden',
-         'Autocheck',
+         'Details',
          'Type',
          'SSL',
  #        'Date',
@@ -92,17 +91,18 @@
     }
     printf("<td><a href=\"%s\">%s</a></td>",
            $fi, $$per{'curl'});
-    printf("<td>%s</th>", $$per{'hide'} eq "Yes"?"Hide":"");
+    printf("<td>%s", $$per{'hide'} eq "Yes"?"Hide ":"");
+
+    printf("%s</td>", $here?"Local":($$per{'churl'}?"Auto":""));
 
-    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'}));
+           "bin":show($$per{'type'}));
     printf("<td>%s</td>",
-           $$per{'ssl'}eq"Yes"?"<b>SSL</b>":
+           $$per{'ssl'}eq"Yes"?"SSL":
            $$per{'ssl'}eq"No"?"&nbsp;":$$per{'ssl'});
   #  printf("<td>%s</td>", show($$per{'date'}));
 

Index: mod_entry.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/mod_entry.cgi,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- mod_entry.cgi       11 May 2005 21:29:02 -0000      1.7
+++ mod_entry.cgi       11 May 2005 22:02:46 -0000      1.8
@@ -72,6 +72,13 @@
 # Skriv ut sidfoten
 lfooter();
 
+# show a read-only (for this form) variable
+sub information {
+    my ($desc, $short)=@_;
+    print "<tr><td class=\"desc\">$desc:</td><td>";
+    print CGI::escapeHTML($$ref{$short})."</td></tr>\n";
+}
+
 sub alternative {
     my ($desc, $short, $explain, $len)=@_;
 
@@ -200,6 +207,9 @@
     alternative("Match this regex in the autocheck URL", "chregex",
                 "make sure the first () group extracts the version number, 
unless \$version is part of check URL", 40);
 
+    information("Latest remcheck", "remcheck");
+    information("Latest remcheck update", "remdate");
+
 ###slut
     print "</table>\n";
 }

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