4 # CVS page of 'My::Project::captive'
5 # Copyright (C) 2003 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
7 # This program is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; exactly version 2 of June 1991 is required
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with this program; if not, write to the Free Software
18 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 package project::captive::CVS;
22 require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway
23 our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
28 BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
31 Wuse 'project::captive::ListItem';
34 my $W=My::Project->init_project(
35 "__PACKAGE__"=>__PACKAGE__,
36 "ListItem"=>\@project::captive::ListItem::ListItem,
37 "before_project_data"=>
38 '<h2 align="center">'.a_href('./','Captive Main Page').'</h2>'."\n",
43 <h2>CVS Checkout Instructions</h2>
45 cvs -d :pserver:pserver@{[ '@' ]}cvs.jankratochvil.net:/cvs login
46 Just hit ENTER (empty password)
47 cvs -d :pserver:pserver@{[ '@' ]}cvs.jankratochvil.net:/cvs -z3 checkout captive
49 cvs -d :pserver:pserver@{[ '@' ]}cvs.jankratochvil.net:/cvs -z3 checkout -r captive -kk reactos
52 ./src/client/cmdline/captive-cmdline --load-module=/var/lib/captive/ntoskrnl.exe --filesystem=/var/lib/captive/ntfs.sys --disk --blind /dev/hda1
59 <table border="1" align="center" style="text-align: center;" width="100%"><tr><th>Distribution</th>
60 <th>Installation Case #1<br />Filesystem and installer<br />(recommended)</th>
61 <th>Installation Case #2<br />Manual installation<br />(filesystem, expert user)</th>
62 <th>Installation Case #3<br />Command-line client<br />(no filesystem access)</th></tr>
65 1=>[qw(captive captive-lufs captive-install lufs gnome-vfs-httpcaptive ntfsprogs ntfsprogs-gnomevfs)],
66 2=>[qw(captive captive-lufs lufs)],
70 map(($_=>["1.1.5","0"]),qw(captive captive-lufs captive-install)),
71 "lufs"=>["0.9.7","1captive8"],
72 "gnome-vfs-httpcaptive"=>["2.3.8captive2","0"],
73 "ntfsprogs"=>["200309071734","1captive1"],
74 "ntfsprogs-gnomevfs"=>["1.0.2","0"],
75 "build-captive-static"=>"2003-12-14-00",
77 my %has_devel=(map(($_=>1),qw(
80 my %pkg_nosrc=(map(($_=>1),qw(
88 my $a_href_arch=sub ($$%)
90 my($file_base,$text,%args)=@_;
92 $text=~s/[._]\D.*$// if $case!=1 && $text!~/^[.]/;
93 return a_href $file_base,$text,"size"=>($case==1),%args;
96 my $ntfsprogs_after=sub ($) {
98 return () if $case!=1;
99 return '<hr width="80%" />requirement: '
100 .a_href('http://linux-ntfs.sourceforge.net/downloads.html#downloads','ntfsprogs')
101 .' '.$format.' ≥ 1.8.0';
106 "name"=>"Sources (.tar.gz)",
109 my($pkg,$version_base,$version_ext)=@_;
110 return () if $pkg_nosrc{$pkg};
111 $version_ext=~s/^\d+//;
112 my $file="$pkg-$version_base".($version_ext=~/^\d+$/ ? "" : $version_ext).".tar.gz";
115 "after"=>sub { return &{$ntfsprogs_after}(".tar.gz"); },
119 for my $dist (@dist) {
120 print "<a name=".$dist->{"id"}."><tr>";
121 print "<td>".$dist->{"name"}."</td>";
122 for my $casel (1,2,3) {
125 print join("<br />",map({ my $pkg=$_;
126 my($file,$text)=&{$dist->{"out"}}($pkg,@{$version{$pkg}});
127 (!defined $text ? ($file) || () : (&$a_href_arch("dist/$file",$text)));
128 } @{$pkg{$case}}),map({ (!$_ ? () : (&{$_}())); } $dist->{"after"}));
135 <td>'captive-static' build<br />system patches for Red Hat 9 Shrike<br />(never needed for a regular build)</td>
138 my $build_static_basename=(map("$_-".$version{$_}.".tar.gz","build-captive-static"))[0];
139 print a_href "dist/$build_static_basename",$build_static_basename;
148 <h2>Pending Integrations</h2>
151 <dt>@{[ a_href $W->{"project_viewcvs"}.'/lufs/','lufs-captive' ]}
152 [@{[ a_href $W->{"project_viewcvs"}.'/*checkout*/lufs/NEWS.captive?rev=1.1.2.11','NEWS' ]}]
154 <p>@{[ a_href 'http://lufs.sourceforge.net/lufs/','LUFS' ]} still has not yet integrated
155 the Captive-developed patches. No integration schedule is currently known.</p>
157 <li>Linux kernel module has implemented support for statfs(2)/df(1)</li>
158 <li>Many fixes of the userland lufsd(8) daemon</li>
159 <li>Scripts for unattended Linux kernel module prebuilds/compilation/installation</li>
161 <p>The recommended way is to port Captive project to maintained
162 @{[ a_href 'http://fuse.sourceforge.net/','FUSE' ]}.</p>
167 <h1>@{[ a_href './','Back to Captive Main Page' ]}</h1>