bagder: curl-www/dl mod_entry.cgi,1.6,1.7

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

Modified Files:
	mod_entry.cgi 
Log Message:
present URLs as links for conveniance


Index: mod_entry.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/mod_entry.cgi,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- mod_entry.cgi	10 May 2005 22:10:11 -0000	1.6
+++ mod_entry.cgi	11 May 2005 21:29:02 -0000	1.7
@@ -96,7 +96,7 @@
             }
             if($_ eq $$ref{$short}) {
                 $s= " selected";
-                $found=1;
+                $found=$_;
             }
             my $val = $_;#CGI::escapeHTML($_);
 
@@ -122,7 +122,8 @@
     if(!$found) {
         print CGI::escapeHTML($$ref{$short});
     }
-    print "\"> $explain</td>\n";
+    printf "\">%s $explain</td>\n",
+    $found =~ /^(http|ftp|https):/?"<a href=\"$found\">URL</a>":"";
 
     print "</tr>\n";
 }

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