-@{[ vskip "1ex" ]}
-
-
-<table border="1" align="center" style="text-align: center;" width="100%"><tr><th>Distribution</th>
- <th>Installation Case #1<br />Filesystem and installer<br />(recommended)</th>
- <th>Installation Case #2<br />Manual installation<br />(filesystem, expert user)</th>
- <th>Installation Case #3<br />Command-line client<br />(no filesystem access)</th></tr>
-HERE
-my %pkg=(
- 1=>[qw(captive captive-lufs captive-install lufs gnome-vfs-httpcaptive ntfsprogs ntfsprogs-gnomevfs)],
- 2=>[qw(captive captive-lufs lufs)],
- 3=>[qw(captive)],
- );
-my %reqpkg=(
- 1 =>[qw(glib2 gnome-vfs2 ORBit2 libxml2 openssl popt readline libgnomeui)],
- 23=>[qw(glib2 gnome-vfs2 ORBit2 libxml2 openssl popt readline)],
- );
-my %version=(
- map(($_=>["1.0.1","0"]),qw(captive captive-lufs captive-install)),
- "lufs"=>["0.9.6","1captive6"],
- "gnome-vfs-httpcaptive"=>["2.3.8captive2","0"],
- "ntfsprogs"=>["200309071734","1captive1"],
- "ntfsprogs-gnomevfs"=>["1.0.2","0"],
- );
-my %has_rh8=(map(($_=>1),qw(
- gnome-vfs-httpcaptive
- captive
- captive-lufs
- captive-install
- )));
-my %has_mdk91=(map(($_=>1),qw(
- gnome-vfs-httpcaptive
- lufs
- captive
- captive-lufs
- captive-install
- )));
-my %has_devel=(map(($_=>1),qw(
- ntfsprogs
- )));
-my %pkg_nosrc=(map(($_=>1),qw(
- captive-lufs
- captive-install
- )));
-
-my $case;
-my $a_href_arch=sub ($$%)
-{
-my($file_base,$text,%args)=@_;
-
- $text=~s/[._]\D.*$// if $case!=1 && $text!~/^[.]/;
- return a_href $file_base,$text,"size"=>($case==1),%args;
-};
-
-my @libxml2_rh8_pkgs=qw(libxml2-2.5.4-1.i386.rpm libxml2-python-2.5.4-1.i386.rpm libxml2-devel-2.5.4-1.i386.rpm);
-
-my $ntfsprogs_after=sub ($) {
- my($format)=@_;
- return () if $case!=1;
- return '<hr width="80%" />requirement: '
- .a_href('http://linux-ntfs.sourceforge.net/downloads.html#downloads','ntfsprogs')
- .' '.$format.' ≥ 1.8.0';
- };
-
-my @dist=(
- {
- "name"=>"Red Hat 9<br />Shrike i386",
- "out"=>sub {
- my($pkg,$version_base,$version_ext)=@_;
- return () if $pkg eq "ntfsprogs";
- my $file="$pkg-$version_base-$version_ext.i386.rpm";
- my $r=&$a_href_arch("dist/$file",$file);
- (my $filedev=$file)=~s/^\Q$pkg\E-/${pkg}-devel-/;
- $r.="<br />".&$a_href_arch("dist/$filedev",$filedev) if $has_devel{$pkg};
- return $r;
- },
- "after"=>sub { return &{$ntfsprogs_after}(".i386.rpm"); },
- },
- {
- "name"=>"Red Hat 8<br />Psyche i386<br />"
- ."(".a_href("#libxml2_rh8","libxml2 upgrade note").")",
- "out"=>sub {
- my($pkg,$version_base,$version_ext)=@_;
- return () if $pkg eq "ntfsprogs";
- my $file="$pkg-$version_base-$version_ext".(!$has_rh8{$pkg} ? "" : "rh8").".i386.rpm";
- my $r=&$a_href_arch("dist/$file",$file);
- (my $filedev=$file)=~s/^\Q$pkg\E-/${pkg}-devel-/;
- $r.="<br />".&$a_href_arch("dist/$filedev",$filedev) if $has_devel{$pkg};
- if ($pkg eq "captive-install") {
- for (@libxml2_rh8_pkgs) {
- $r.="<br />".&$a_href_arch('ftp://ftp.redhat.com/pub/redhat/linux/9/en/os/i386/RedHat/RPMS/'.$_,$_)." of Red Hat 9";
- }
- }
- return $r;
- },
- "after"=>sub { return &{$ntfsprogs_after}(".i386.rpm"); },
- },
- {
- "name"=>"Mandrake 9.1<br />Bamboo i586",
- "out"=>sub {
- my($pkg,$version_base,$version_ext)=@_;
- return () if $pkg eq "ntfsprogs";
- my $file="$pkg-$version_base-$version_ext".(!$has_mdk91{$pkg} ? ".i386.rpm" : "mdk91.i586.rpm");
- my $r=&$a_href_arch("dist/$file",$file);
- (my $filedev=$file)=~s/^\Q$pkg\E-/${pkg}-devel-/;
- $r.="<br />".&$a_href_arch("dist/$filedev",$filedev) if $has_devel{$pkg};
- return $r;
- },
- "after"=>sub { return &{$ntfsprogs_after}(".i386.rpm"); },
- },
- {
- "name"=>"Debian GNU/Linux<br />'unstable' i386",
- "out"=>sub {
- my($pkg,$version_base,$version_ext)=@_;
- $version_ext=~s/^\d+//;
- my $file="${pkg}_$version_base".($version_ext=~/^\d+$/ ? "" : $version_ext)."_i386.deb";
- my $r=&$a_href_arch("dist/$file",$file);
- (my $filedev=$file)=~s/^\Q$pkg\E_/${pkg}-dev_/;
- $r.="<br />".&$a_href_arch("dist/$filedev",$filedev) if $has_devel{$pkg};
- return $r;
- },
- },
- {
- "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).".tar.gz";
- return $file,$file;
- },
- "after"=>sub { return &{$ntfsprogs_after}(".tar.gz"); },
- },
- {
- "name"=>"Sources (.src.rpm)<br />(Red Hat 9 - Shrike)",
- "out"=>sub {
- my($pkg,$version_base,$version_ext)=@_;
- return () if $pkg eq "ntfsprogs";
- return () if $pkg_nosrc{$pkg};
- my $file="$pkg-$version_base-$version_ext.src.rpm";
- return $file,$file;
- },
- "after"=>sub { return &{$ntfsprogs_after}(".i386.rpm (incl. -devel)"); },
- },
- );
-
-for my $dist (@dist) {
- print "<tr>";
- print "<td>".$dist->{"name"}."</td>";
- for my $casel (1,2,3) {
- $case=$casel;
- print "<td>";
- print join("<br />",map({ my $pkg=$_;
- my($file,$text)=&{$dist->{"out"}}($pkg,@{$version{$pkg}});
- (!defined $text ? ($file) || () : (&$a_href_arch("dist/$file",$text)));
- } @{$pkg{$case}}),map({ (!$_ ? () : (&{$_}())); } $dist->{"after"}));
- print "</td>";
- }
- print "</tr>\n";
- }
-print "<tr style=\"height: 2ex;\"></tr>\n";
-print "<tr>";
- print "<td>Package Requirements</td>";
- for my $case (1,23) {
- print "<td".($case==23 ? ' colspan="2"' : '').">";
- print join(", ",map("<span class=\"reqpkg\">$_</span>",@{$reqpkg{$case}}));
- print "</td>";
- }
-print "</tr>\n";
-print <<"HERE";
-</table>