bagder: curl-www/dl mod_entry.cgi,1.3,1.4

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

Modified Files:
	mod_entry.cgi 
Log Message:
htmlescape input before save, two added fields


Index: mod_entry.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/mod_entry.cgi,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- mod_entry.cgi	8 Oct 2004 16:53:52 -0000	1.3
+++ mod_entry.cgi	10 May 2005 07:35:53 -0000	1.4
@@ -21,6 +21,8 @@
        "resp"=>CGI::param("resp"),
        "img"=>CGI::param("img"),
        "hide"=>CGI::param("hide"),
+       "churl"=>CGI::param("churl"),
+       "chregex"=>CGI::param("chregex"),
        );
 
 $id=CGI::param("__id");
@@ -50,6 +52,9 @@
         if(($d ne "new") && ($data{$_} eq "")) {
             $data{$_}=$d;
         }
+        else {
+            $data{$_} = CGI::escapeHTML($data{$_});
+        }
     }
     &inputstuff::save_input(%data);
 }
@@ -93,7 +98,8 @@
                 $s= " selected";
                 $found=1;
             }
-            print "<option$s>$_</option>\n";
+            my $val = $_;#CGI::escapeHTML($_);
+            print "<option$s>$val</option>\n";
         }
         print "</select>\n";
     }
@@ -174,6 +180,12 @@
     alternative("Hide from download page", "hide",
                 "'Yes' makes this entry not appear in the HTML output");
 
+    alternative("Autocheck this URL", "churl",
+                "\$version gets replaced");
+
+    alternative("Match this regex in the autocheck URL", "chregex",
+                "make sure a () group extracts the version number");
+
 ###slut
     print "</table>\n";
 }

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