Debian sources are just .tar.gz.
authorshort <>
Fri, 3 Oct 2003 13:19:25 +0000 (13:19 +0000)
committershort <>
Fri, 3 Oct 2003 13:19:25 +0000 (13:19 +0000)
project/captive/Index.html.pl

index 5005040..5d81acf 100755 (executable)
@@ -171,15 +171,6 @@ my @dist=(
                                },
                        },
                {
-                       "name"=>"Red Hat .src.rpm<br />(of 9 - Shrike)",
-                       "out"=>sub {
-                               my($pkg,$version_base,$version_ext)=@_;
-                                       return () if $pkg_nosrc{$pkg};
-                                       my $file="$pkg-$version_base-$version_ext.src.rpm";
-                                       return $file,$file;
-                               },
-                       },
-               {
                        "name"=>"Debian GNU/Linux<br />'unstable' i386",
                        "out"=>sub {
                                my($pkg,$version_base,$version_ext)=@_;
@@ -192,24 +183,21 @@ my @dist=(
                                },
                        },
                {
-                       "name"=>"Debian GNU/Linux<br />sources",
+                       "name"=>"Sources (.tar.gz)",
                        "out"=>sub {
                                my($pkg,$version_base,$version_ext)=@_;
                                        return () if $pkg_nosrc{$pkg};
                                        $version_ext=~s/^\d+//;
-                                       my $file="${pkg}_$version_base".($version_ext=~/^\d+$/ ? "" : $version_ext);
-                                       return CGI::escapeHTML($file).":"
-                                                       .' '     .&$a_href_arch("dist/$file.dsc",".dsc","size"=>0)
-                                                       .'&nbsp;'.&$a_href_arch("dist/$file.tar.gz",".tar.gz");
+                                       my $file="$pkg-$version_base".($version_ext=~/^\d+$/ ? "" : $version_ext).".tar.gz";
+                                       return $file,$file;
                                },
                        },
                {
-                       "name"=>"Sources (.tar.gz)",
+                       "name"=>"Sources (.src.rpm)<br />(Red Hat 9 - Shrike)",
                        "out"=>sub {
                                my($pkg,$version_base,$version_ext)=@_;
                                        return () if $pkg_nosrc{$pkg};
-                                       $version_ext=~s/^\d+//;
-                                       my $file="$pkg-$version_base".($version_ext=~/^\d+$/ ? "" : $version_ext).".tar.gz";
+                                       my $file="$pkg-$version_base-$version_ext.src.rpm";
                                        return $file,$file;
                                },
                        },