bagder: curl-www/dl mktable.pl,1.10,1.11

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

Modified Files:
	mktable.pl 
Log Message:
only HTML encode the URLs if they seem to not be that already, since otherwise
we risk doing it a second time since the database contains them encoded now


Index: mktable.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/mktable.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- mktable.pl	30 Jun 2006 00:32:25 -0000	1.10
+++ mktable.pl	30 Jan 2007 14:07:21 -0000	1.11
@@ -235,7 +235,9 @@
         $fi = "/download/$fi";
     }
     else {
-        $fi =~ s/\&/\&/g;
+        if(($fi =~ /&/) && ($fi !~ /&(lt|gt|amp|quot)\;/)) {
+            $fi = CGI::escapeHTML($fi);
+        }
     }
     printf("<td class=\"col2\"><a href=\"%s\">%s</a></td>\n",
            $fi, $$per{'curl'});