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"=>"Debian GNU/Linux<br />'unstable' i386",
109 my($pkg,$version_base,$version_ext)=@_;
110 $version_ext=~s/^\d+//;
111 my $file="${pkg}_$version_base".($version_ext=~/^\d+$/ ? "" : $version_ext)."_i386.deb";
112 my $r=&$a_href_arch("dist/$file",$file);
113 (my $filedev=$file)=~s/^\Q$pkg\E_/${pkg}-dev_/;
114 $r.="<br />".&$a_href_arch("dist/$filedev",$filedev) if $has_devel{$pkg};
119 "name"=>"Sources (.tar.gz)",
122 my($pkg,$version_base,$version_ext)=@_;
123 return () if $pkg_nosrc{$pkg};
124 $version_ext=~s/^\d+//;
125 my $file="$pkg-$version_base".($version_ext=~/^\d+$/ ? "" : $version_ext).".tar.gz";
128 "after"=>sub { return &{$ntfsprogs_after}(".tar.gz"); },
132 for my $dist (@dist) {
133 print "<a name=".$dist->{"id"}."><tr>";
134 print "<td>".$dist->{"name"}."</td>";
135 for my $casel (1,2,3) {
138 print join("<br />",map({ my $pkg=$_;
139 my($file,$text)=&{$dist->{"out"}}($pkg,@{$version{$pkg}});
140 (!defined $text ? ($file) || () : (&$a_href_arch("dist/$file",$text)));
141 } @{$pkg{$case}}),map({ (!$_ ? () : (&{$_}())); } $dist->{"after"}));
148 <td>'captive-static' build<br />system patches for Red Hat 9 Shrike<br />(never needed for a regular build)</td>
151 my $build_static_basename=(map("$_-".$version{$_}.".tar.gz","build-captive-static"))[0];
152 print a_href "dist/$build_static_basename",$build_static_basename;
161 <h2>Pending Integrations</h2>
164 <dt>@{[ a_href $W->{"project_viewcvs"}.'/lufs/','lufs-captive' ]}
165 [@{[ a_href $W->{"project_viewcvs"}.'/*checkout*/lufs/NEWS.captive?rev=1.1.2.11','NEWS' ]}]
167 <p>@{[ a_href 'http://lufs.sourceforge.net/lufs/','LUFS' ]} still has not yet integrated
168 the Captive-developed patches. No integration schedule is currently known.</p>
170 <li>Linux kernel module has implemented support for statfs(2)/df(1)</li>
171 <li>Many fixes of the userland lufsd(8) daemon</li>
172 <li>Scripts for unattended Linux kernel module prebuilds/compilation/installation</li>
175 <dt>@{[ a_href $W->{"project_viewcvs"}.'/gnome-vfs-httpcaptive/?only_with_tag=captive','gnome-vfs-httpcaptive' ]}</dt>
177 <p>seek() function support for http:// handler was submitted as Gnome BugZilla
178 @{[ a_href 'http://bugzilla.gnome.org/show_bug.cgi?id=121194','Bug # 121194' ]}.
179 Bug is currently pending.</p>
184 <h1>@{[ a_href './','Back to Captive Main Page' ]}</h1>