CVS dupe

[www.jankratochvil.net.git] / project / captive / Index.html.pl

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index 5005040..56b3372 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -42,7 +42,7 @@ my $W=My::Project->init_project(
                );
 
 
-print vskip("10ex")."<h1 align=\"center\">!!! DO NOT DISCLOSE - **************** !!!</h1>\n".vskip("10ex");
+print vskip("10ex")."<h1 align=\"center\">!!! DO NOT DISCLOSE !!!</h1>\n".vskip("10ex");
 
 print <<"HERE";
 <h1>The First Read/Write NTFS for Free Operating Systems</h1>
@@ -95,7 +95,7 @@ my %reqpkg=(
                3=>[qw(glib2 gnome-vfs2 ORBit2 libxml2 openssl popt readline)],
                );
 my %version=(
-               map(($_=>["0.9.1","0"]),qw(captive captive-lufs captive-install)),
+               map(($_=>["0.9.2","0"]),qw(captive captive-lufs captive-install)),
                "lufs"=>["0.9.6","1captive2"],
                "gnome-vfs-httpcaptive"=>["2.3.8captive2","0"],
                "ntfsprogs"=>["200309071734","1captive1"],
@@ -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;
                                },
                        },
@@ -311,10 +299,6 @@ class="quote">/usr/share/lufs/prepmod</span>.</p>
        <li>@{[ a_href 'Preview.html.pl','Technology Preview' ]}</li>
        <li>@{[ a_href 'doc/','Developer Documentation' ]}</li>
        <li>@{[ a_href 'apiref/','API Reference Manual' ]} (fragment)</li>
-       <li>
-               @{[ a_href 'http://cvs.jankratochvil.net/viewcvs/priv/captive/','CVS Repository ViewCVS' ]}
-               (@{[ a_href 'http://cvs.jankratochvil.net/viewcvs/priv/reactos/?only_with_tag=captive','ReactOS Branch Part' ]})
-               </li>
        <li>@{[ a_href 'http://cvs.jankratochvil.net/viewcvs/*checkout*/priv/captive/TODO?rev=HEAD','Known Bugs' ]}</li>
        <li>@{[ a_href 'Resources.html.pl','Related Pages' ]}</li>
        <li>@{[ a_href 'Thanks.html.pl','Thanks' ]}</li>