project/captive/Index.html.pl

   1 #! /usr/bin/perl
   2 #
   3 # $Id$
   4 # Main page of 'My::Project::captive'
   5 # Copyright (C) 2003 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
   6 #
   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
  10 #
  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.
  15 #
  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
  19
  20
  21 package project::captive::Index;
  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; };
  24 our $CVS_ID=q$Id$;
  25 use strict;
  26 use warnings;
  27
  28 BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
  29 use My::Web;
  30 Wuse 'My::Project';
  31 Wuse 'project::captive::ListItem';
  32
  33
  34 my $W=My::Project->init_project(
  35                 "__PACKAGE__"=>__PACKAGE__,
  36                 "ListItem"=>\@project::captive::ListItem::ListItem,
  37                 "no_project_data"=>1,
  38                 "head_css"=>"
  39 .reqpkg { font-style: italic; }
  40 .stuff  { font-style: italic; font-size: larger; margin-left: 20%; margin-right: 10%; }
  41 .re     { font-style: italic; }
  42 table.mailman > * /* FIXME: What is it? */ > tr > th,
  43 table.mailman > * /* FIXME: What is it? */ > tr > td { padding: 1ex; text-align: center; }
  44 table.download { border-style: none; margin: 8px; }
  45 table.download td { padding: 8px; }
  46 ",
  47                 );
  48
  49
  50 print <<"HERE";
  51 <h1>The First free Read/Write NTFS for Free Operating Systems</h1>
  52 <h1>The First Open Source MS-Windows Kernel API for Free OS</h1>
  53 HERE
  54
  55 my @stuff=(
  56                 "A lot of people claim to be Windows Programmers.\n"
  57                                 ." Now, I can join them at last - I have also written my own Microsoft Windows.",
  58                 "Why do they need ".a_href('http://www.winsupersite.com/reviews/winserver2k3_gold2.asp','5,000 developers')
  59                                 ." to write Microsoft Windows when it can be just a One Man Show?",
  60                 "My first Microsoft Windows program ever written? Some 'helloworld'?"
  61                                 ." <span class=\"quote\">hal.dll</span>.",
  62                 );
  63
  64 print rightimg((map("<p class=\"stuff\">$_</p>\n",($stuff[int rand @stuff])))[0],
  65                 'captive-install-acquire-small','[ Captive Microsoft Windows Drivers Acquire Illustration ]',
  66                                 "a_href_img"=>'captive-install-acquire');
  67
  68
  69 print <<"HERE" if !$WebConfig::WebConfig{"no_job"};
  70 @{[ vskip "3ex" ]}
  71
  72 <table border="0" width="100%"><tr><td align="center">
  73         <table border="0" style="margin: 4ex; padding: 2ex; background: #552222;">
  74                 <tr><td style="font-size: larger;">
  75                         Why did I install Microsoft Windows and write such a disgusting piece of code?<br />
  76                         Expecting @{[ a_href $W->{"resume_url"},"yet another challenging task" ]}!
  77                 </td></tr>
  78         </table>
  79 </table>
  80 HERE
  81
  82
  83 print <<"HERE";
  84 @{[ vskip "3ex" ]}
  85
  86
  87 <h2>NEWS</h2>
  88
  89 <dl>
  90         <dt>captive-1.1 (2003-11-27) [@{[ a_href $W->{"project_viewcvs"}.'/*checkout*/captive/NEWS?rev=HEAD','archive' ]}]</dt>
  91         <dd>
  92                 <ul>
  93                         <li>Distributed as 'captive-static' fully independent single package</li>
  94                         <li>Allow concurrent file access by multiple handles - fixes scp(1) copying</li>
  95                         <li>Installer now features MS-Windows drivers download retries from microsoft.com</li>
  96                         <li>Installer compatibility and user interface lockup fixes</li>
  97                         <li>Fixed SUSE-9.0 package installation compatibility (Christian Kristukat)</li>
  98                 </ul>
  99         </dd>
 100         <dt>lufs-0.9.7captive7 (2003-11-27) [@{[ a_href $W->{"project_viewcvs"}.'/*checkout*/lufs/NEWS.captive?rev=1.1.2.9','archive' ]}]</dt>
 101         <dd>
 102                 <ul>
 103                         <li>Branch update for 0.9.7 (no changes apply to 'captive' branch)</li>
 104                         <li>'prepmod'-wrap 'lufsd' instead of 'lufsmnt' as 'prepmod' fail is safe this way</li>
 105                         <li>Fixed kernel module compilation if invoked by mount(8)</li>
 106                         <li>Drop lufsumount(1) in the favor of compatibility with generic umount(8)</li>
 107                         <li>Kernel module prebuilding compatibility with TurboLinux and SuSE kernels</li>
 108                 </ul>
 109         </dd>
 110 </dl>
 111 HERE
 112
 113 print vskip "1ex";
 114
 115 my %version=(
 116                 map(($_=>["1.1","0"]),qw(captive captive-lufs captive-install)),
 117                 "lufs"=>["0.9.7","1captive7"],
 118                 );
 119
 120 print <<"HERE";
 121 <h2>Download</h2>
 122
 123 <h3>Choose one preferred installation format:</h3>
 124
 125 <table border="0" align="center" width="100%"><tr><td align="center">
 126 <table border="1" align="center" style="text-align: center;" class="download">
 127         <tr>
 128                 <td>
 129                         RPM i386 binary<br />
 130                         tested for distributions:
 131                                         <table border="0"><tr><td align="left"><ul>
 132                                                 <li>Red&nbsp;Hat&nbsp;9&nbsp;Shrike</li>
 133                                                 <li>Red&nbsp;Hat&nbsp;8&nbsp;Psyche</li>
 134                                                 <li>Mandrake&nbsp;9.1&nbsp;Bamboo</li>
 135                                                 <li>SuSE&nbsp;9.0</li>
 136                                         </ul></td></tr></table>
 137                 </td>
 138                 <td>@{[ a_href 'dist/captive-static-'.$version{"captive"}[0].'-'.$version{"captive"}[1].'.i386.rpm',
 139                                 undef(),"size"=>1,"basename"=>1 ]}</td>
 140         </tr>
 141         <tr>
 142                 <td>.tar.gz i386 binary<br />(for non-RPM distributions)</td>
 143                 <td>@{[ a_href 'dist/captive-static-'.$version{"captive"}[0].'.tar.gz',undef(),"size"=>1,"basename"=>1 ]}</td>
 144         </tr>
 145         <tr>
 146                 <td>Debian .deb binaries</td>
 147                 <td>@{[ a_href 'CVS.html.pl#debian','Download Page' ]} [link]</td>
 148         </tr>
 149         <tr>
 150                 <td>Source archives</td>
 151                 <td>@{[ a_href 'CVS.html.pl#source','Download Page' ]} [link]</td>
 152         </tr>
 153 </table>
 154 </td></tr></table>
 155
 156
 157 @{[ vskip "3ex" ]}
 158
 159
 160 <h1>Installation Notes</h1>
 161
 162 <p>You should first run <b>captive-install-acquire</b> command to check your
 163 available Microsoft Windows drivers versions. Now you can execute:</p>
 164
 165 <blockquote>
 166         <p class="quote">
 167                 # mkdir /mnt/dosc<br />
 168                 # mount -t captive-ntfs /dev/hda1 /mnt/dosc
 169         </p>
 170 </blockquote>
 171
 172
 173 <h2>Overview</h2>
 174
 175 <p>Any errors from '<b>captive-lufs</b>' are written to '<b>/var/log/messages</b>'.</p>
 176
 177 <p>Needed drivers (at least ntoskrnl.exe+ntfs.sys) must be in '<b>/var/lib/captive</b>'.</p>
 178
 179 <p>'<b>captive</b>' package creates '<b>captive</b>' user and '<b>captive</b>' group on your system.</p>
 180
 181
 182 <h2>LUFS Kernel Driver Module</h2>
 183
 184 <p>@{[ a_href 'http://lufs.sourceforge.net/lufs/','LUFS' ]} (Linux Userland File
 185 System) needs Linux kernel module driver (<i>lufs.o</i>) compatible with your
 186 running Linux kernel. The binary driver is supplied already precompiled for many
 187 Linux kernel versions in the binary packages above (<b>.i386.rpm</b> and
 188 <b>_i386.deb</b> archives).</p>
 189
 190 <p>If you cannot <b>mount</b>(8) your NTFS filesystem you should run <span
 191 class="quote">/usr/share/lufs/prepmod</span> to see the reasons. It is always
 192 recommended to upgrade to the latest stable kernel supplied by your GNU/Linux
 193 distribution vendor. You may need to install package
 194 <b>kernel-source</b> (Red Hat) or <b>kernel-headers</b> (Debian) matching your
 195 Linux kernel version (<b>rpm&nbsp;-q&nbsp;kernel</b>) and re-run <span
 196 class="quote">/usr/share/lufs/prepmod</span>.</p>
 197
 198 <p><b>WARNING:</b> This 'captive' package may modify your Linux kernel
 199 sources matching your currently running kernel version. These minor
 200 modifications may include a dependencies rebuild, compiling build tools, fixes of
 201 several include files, etc. All the modifications are done at the mount(8) time
 202 by the automatically executed <span class="quote">/usr/share/lufs/prepmod</span> script.
 203 This behavior was not present in the original
 204 @{[ a_href 'http://lufs.sourceforge.net/lufs/','LUFS' ]} distribution
 205 by @{[ a_href 'http://www.malinux.net/main/','Florin Malita' ]}.</p>
 206
 207
 208 HERE
 209
 210
 211 print rightimg <<"HERE",'reactos','ReactOS',"a_href"=>'http://www.reactos.com/';
 212         <h2>The First Open Source MS-Windows Kernel API for Free OS</h2>
 213
 214         <p>Compatibility with the existing binary Microsoft Windows file system drivers has been
 215         reached. Microsoft Windows kernel system components required by these drivers
 216         were analyzed and successfully emulated in the GNU/Linux operating system.
 217         The project brings the Microsoft Windows kernel emulation framework to support even
 218         other types of Microsoft Windows drivers in the future.
 219         The <span class="productname">@{[ a_href 'http://www.reactos.com/','ReactOS' ]}</span>
 220         code base proved to be a big asset for this functionality.</p>
 221 HERE
 222
 223
 224 my @lists=qw(captive-announce-list captive-list captive-devel-list);
 225
 226 print <<"HERE";
 227
 228 <a name="lists"><h2>Mailing Lists</h2></a>
 229
 230 <form action="@{[ top_dir("/Mailman.pl") ]}" method="post">
 231         <table border="1" class="mailman" style="border-collapse: collapse; border-style: solid; border-width: 1px;">
 232                 <tr>@{[ map('<th>'.$_.'@jankratochvil.net</th>',@lists) ]}</tr>
 233                 <tr><td>New version announcements<br />
 234                         (low traffic, recommended)</td>
 235                                 <td>User support,<br />bug reports</td>
 236                                 <td>Development</td>
 237                                 </tr>
 238                 <tr>@{[ map({ "<td>".a_href(&{$W->{"mailman_url_sub"}}()."/listinfo/$_",'Mailman Infopage')."</td>"; } @lists) ]}</tr>
 239                 <tr>@{[ map({ "<td>".a_href(&{$W->{"pipermail_url_sub"}}()."/$_",'Archive')."</td>"; } @lists) ]}</tr>
 240                 <tr>@{[
 241                         map(('<td><input type="checkbox" name="list" value="'.$_.'"'
 242                                         .($_ ne "captive-announce-list" ? '' : ' checked="checked"')
 243                                         .' /> Subscribe?</td>'),@lists)
 244                         ]}</tr>
 245                 <tr><td colspan="3">
 246                         <table border="0" style="text-align: left;">
 247                                 <tr><td>Email address:            </td><td><input type="text"     name="email"   size="30" /></td></tr>
 248                                 <tr><td>Your new Mailman password:</td><td><input type="password" name="pw"      size="15" /></td></tr>
 249                                 <tr><td>Reenter your password:    </td><td><input type="password" name="pw-conf" size="15" /></td></tr>
 250                         </table>
 251                         <p><input type="submit" name="email-button" value="Subscribe me" /></p>
 252                 </td></tr>
 253         </table>
 254 <input type="hidden" name="back" value="/project/captive/#lists" />
 255 </form>
 256
 257
 258 @{[ vskip "3ex" ]}
 259
 260 <h1>See Also</h1>
 261 <ul>
 262         <li>@{[ a_href 'Preview.html.pl','Technology Preview' ]}</li>
 263         <li>@{[ a_href 'CVS.html.pl','Download Sources, CVS Repository' ]}</li>
 264         <li>@{[ a_href 'doc/','Developer Documentation' ]}; highlights:<ul>
 265                 <li>@{[ a_href 'doc/About.html.pl#versions','Microsoft Windows Versions Compatibility' ]}</li>
 266                 <li>@{[ a_href 'doc/Architecture.html.pl#law','Laws and Licensing Conditions' ]}</li>
 267                 <li>@{[ a_href 'doc/Details.html.pl#sandbox','Sandboxing of W32 Filesystem' ]}</li>
 268                 <li>@{[ a_href 'doc/TODO.html.pl#todo_fsck','TODO: Fsck of NTFS' ]}</li>
 269                 <li>@{[ a_href 'doc/TODO.html.pl#todo_surprise','TODO: NTFS Support for Partition Surprise' ]}</li>
 270                 <li>@{[ a_href 'doc/Related.html.pl#LinuxNTFScompet','Related Projects - Linux NTFS' ]}</li>
 271                 <li>@{[ a_href 'doc/Related.html.pl#vmware','Related Projects - VMware Workstation' ]}</li>
 272                 <li>@{[ a_href 'doc/LinuxNTFS.html.pl',"Re: 7.7 Can't we write a wrapper for Windows' driver?" ]}</li>
 273                 </ul></li>
 274         <li>@{[ a_href $W->{"project_viewcvs"}.'/*checkout*/captive/TODO?rev=HEAD','Known Bugs' ]}</li>
 275         <li>Man Pages<ul>
 276                 @{[
 277                         do {
 278                                 my @mans=(
 279                                                 'captive'=>[7,'Microsoft Windows NT kernel emulation for NTFS disk access'],
 280                                                 'mount.captive'=>[8,'mount(8) interface for NTFS disk access'],
 281                                                 'lufs-captivefs'=>[7,'Linux Userland File System module for NTFS as filesystem'],
 282                                                 'captive-cmdline'=>[1,'Command-line client for captive(7) NTFS disk access'],
 283 ###                                             'captive-sandbox-server'=>[1,'Security+safety wrapper for NTFS disk access'],
 284                                                 'captive-install-acquire'=>[1,'Find MS Windows XP driver files for NTFS'],
 285 ###                                             'captive-install-fstab'=>[1,'Manage captive-ntfs /etc/fstab entries'],
 286                                                 );
 287                                 my @r;
 288                                 while (@mans) {
 289                                         my $file=shift @mans;
 290                                         my($section,$name)=@{shift @mans};
 291                                         push @r,"<li>".a_href("man/$file.pod.html",$file)."($section) - $name</li>\n";
 292                                         }
 293                                 @r;
 294                                 }
 295                         ]}
 296                 </ul></li>
 297         <li>@{[ a_href 'Resources.html.pl','Related Pages' ]}</li>
 298         <li>@{[ a_href 'Thanks.html.pl','Thanks' ]}</li>
 299 </ul>
 300 HERE
 301
 302
 303 My::Web->footer();