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

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

Modified Files:
	mod_entry.cgi 
Log Message:
moved help text, allow custom field width


Index: mod_entry.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/mod_entry.cgi,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- mod_entry.cgi	10 May 2005 07:35:53 -0000	1.4
+++ mod_entry.cgi	10 May 2005 11:16:07 -0000	1.5
@@ -73,7 +73,7 @@
 lfooter();
 
 sub alternative {
-    my ($desc, $short, $explain)=@_;
+    my ($desc, $short, $explain, $len)=@_;
 
     my $per;
     my %hash;
@@ -84,7 +84,7 @@
     }
 
     print "<tr><td class=\"desc\">$desc:</td><td>";
-    
+
     my $found;
     if(scalar(keys %hash)) {
         print "<select name=\"pre-$short\">\n";
@@ -104,13 +104,16 @@
         print "</select>\n";
     }
 
-    print "<input type=text size=30 name=\"$short\" value=\"";
+    if(!$len) {
+        $len=20;
+    }
+    print "<input type=text size=\"$len\" name=\"$short\" value=\"";
     if(!$found) {
         print CGI::escapeHTML($$ref{$short});
     }
-    print "\"></td>\n";
+    print "\"> $explain</td>\n";
 
-    print "<td>$explain</td></tr>\n";
+    print "</tr>\n";
 }
 
 sub my_show_form()
@@ -153,8 +156,7 @@
     alternative("Package Format", "pack",
                 "RPM / deb / tar / tar+gz / OTHER");
 
-    alternative("File/URL", "file",
-                "file name / URL");
+    alternative("File/URL", "file", "file name / URL", 50);
 
     alternative("curl version", "curl",
                 "7.10.3 or similar");
@@ -169,7 +171,7 @@
                 "Full name");
 
     alternative("Packager Email/URL", "email",
-                "name\@somwhere.come or URL");
+                "name\@somwhere.com or URL");
 
     alternative("Regex-name", "re",
                 "name of the package regex, see latest.cgi");
@@ -181,10 +183,10 @@
                 "'Yes' makes this entry not appear in the HTML output");
 
     alternative("Autocheck this URL", "churl",
-                "\$version gets replaced");
+                "\$version gets replaced", 50);
 
     alternative("Match this regex in the autocheck URL", "chregex",
-                "make sure a () group extracts the version number");
+                "make sure the first () group extracts the version number, unless \$version is part of check URL", 40);
 
 ###slut
     print "</table>\n";

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