danf: curl-www/dl remcheck.pl,1.19,1.20

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

Modified Files:
	remcheck.pl 
Log Message:
Colour-code summary. HTML escape the printed URLs.


Index: remcheck.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/remcheck.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- remcheck.pl	7 Dec 2005 07:25:12 -0000	1.19
+++ remcheck.pl	19 May 2006 20:55:05 -0000	1.20
@@ -154,7 +154,8 @@
         logmsg " URL contents CACHED, no need to fetch again\n";
         return @{$urlhash{$url}};
     }
-    logmsg " \$ $curlcmd \"$url\"\n";
+    logmsg " \$ $curlcmd \"<a href=\"" . CGI::escapeHTML($url) . "\">" .
+           CGI::escapeHTML($url) . "</a>\"\n";
     my @content = `$curlcmd \"$url\"`;
     if(@content) {
         # store the content in the hash
@@ -395,10 +396,10 @@
 
 logmsg "<h1>Summary</h1>\n";
 logmsg "$uptodate remote packages found up-to-date with database versions\n";
-logmsg "$failedcheck packages failed to get checked\n";
+logmsg "<div class=\"buildfail\">$failedcheck packages failed to get checked</div>\n";
 logmsg "$localpackage packages are local and taken care of differently\n";
 logmsg "$oldies checks were skipped due to old release number\n";
-logmsg "$regexmisses regexes didn't match on successful URL fetches\n";
+logmsg "<div class=\"buildfail\">$regexmisses regexes didn't match on successful URL fetches</div>\n";
 logmsg "$hidden packages were skipped since they are 'hidden'\n";
 
 if($missing) {
@@ -409,5 +410,5 @@
 # we have updated time stamps after each run, always save!
 $db->save();
 
-logmsg "$update package versions updated\n";
+logmsg "<div class=\"latest2\">$update package versions updated</div>\n";