danf: curl-www/dl mktable.pl,1.11,1.12

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

Modified Files:
	mktable.pl 
Log Message:
Added Metalinks to the individual file entries.


Index: mktable.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/mktable.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- mktable.pl	30 Jan 2007 14:07:21 -0000	1.11
+++ mktable.pl	8 Mar 2007 20:57:39 -0000	1.12
@@ -211,8 +211,11 @@
     print "<tr class=\"$cl\">\n";
 
     my $mirror;
+    my $metalink;
     if($$per{'re'} ne "-") {
         $mirror="<a href=\"http://curl.haxx.se/latest.cgi?curl=$$per{'re'}\">";
+        $metalink="<a href=\"http://curl.haxx.se/metalink.cgi?curl=$$per{'re'}\">" .
+                  "<img src=\"/pix/metalink.png\" border=\"0\" alt=\"metalink\" title=\"metalink\"></a>";
     }
     my $p;
     if($numpack>1) {
@@ -223,12 +226,13 @@
     if($flav eq "-") {
         $flav = "$s";
     }
-    printf("<td class=\"col1\">%s%s %s %s $p%s</td>\n",
+    printf("<td class=\"col1\">%s%s %s %s $p%s%s</td>\n",
            $mirror?$mirror:"",
            $numflav>1?$flav:$s,
            show($$per{'osver'}),
            $numcpu>1?show($$per{'cpu'}):"",
-           $mirror?"</a>":"");
+           $mirror?"</a> ":"",
+           $metalink);
 
     my $fi = $$per{'file'};
     if($fi !~ /^(http|ftp|javascript):/) {