danf: curl-www metalink.cgi,1.2,1.3

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

Modified Files:
	metalink.cgi 
Log Message:
Simplify the description and add a publisher name.


Index: metalink.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/metalink.cgi,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- metalink.cgi	1 Mar 2007 00:01:35 -0000	1.2
+++ metalink.cgi	1 Mar 2007 04:57:13 -0000	1.3
@@ -26,9 +26,8 @@
 
 my $req = new CGI;
 
-# CGI::escapeHTML here should effectively be a no-op, but improves security
+# CGI::escapeHTML here should effectively be a no-op, but improves security when output
 my $what=CGI::escapeHTML($req->param('curl'));
-my $showall=CGI::escapeHTML($req->param('all')); # override geographic checks
 
 my ($mytld, $mycontinent, $mycountry);
 
@@ -44,6 +43,7 @@
 <metalink version="3.0" generator="curl Metalink Generator" xmlns="http://www.metalinker.org/"
 type="dynamic" refreshdate="$now_string">
 <publisher>
+<name>curl</name>
 <url>http://curl.haxx.se/</url>
 </publisher>
 EOF
@@ -172,7 +172,7 @@
     my $sha1full=`$sha1sum "download/$archive"`;
     my ($sha1, $dummy)=split(" ", $sha1full);
 
-    print "<description>$archive $desc</description>\n",
+    print "<description>curl $desc</description>\n",
     	  "<files><file name=\"$archive\">\n",
     	  "<version>".$latest::version{$what}."</version>\n",
     	  "<size>".$latest::size{$what}."</size>\n",