Finally merged the branch 'apache20'(+'apache2') back to the main trunk.

[www.jankratochvil.net.git] / project / captive / doc / LinuxNTFS.pm

diff --git a/project/captive/doc/LinuxNTFS.html.pl b/project/captive/doc/LinuxNTFS.pm
similarity index 87%
rename from project/captive/doc/LinuxNTFS.html.pl
rename to project/captive/doc/LinuxNTFS.pm
index 7d2393d..c0d3a0f 100755 (executable)
--- a/project/captive/doc/LinuxNTFS.html.pl
+++ b/project/captive/doc/LinuxNTFS.pm
@@ -1,8 +1,6 @@
-#! /usr/bin/perl
-# 
 # $Id$
 # Captive project doc LinuxNTFS page Perl template.
-# Copyright (C) 2003 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
+# Copyright (C) 2003-2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
 # 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -25,16 +23,15 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
-BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
 use My::Web;
-require CGI;
-BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
+sub handler
+{
+       BEGIN { Wuse 'project::captive::doc::Macros'; }
 project::captive::doc::Macros->init(
-               "__PACKAGE__"=>__PACKAGE__,
                "title"=>'Captive NTFS Developer Documentation: Captive vs. Linux-NTFS',
-               "rel_prev"=>'Related.html.pl',
+               "rel_prev"=>'Related.pm',
                );
 
 
@@ -54,7 +51,7 @@ print <<"HERE";
        <p><span class="re">&gt; It would have to run as part of the kernel which would mean
        that if it went wrong it could crash the machine. With no source, we might not
        be able to work around the problem.</span><br />
-       @{[ a_href 'Details.html.pl#sandbox','Nope' ]},
+       @{[ a_href 'Details.pm#sandbox','Nope' ]},
        @{[ a_href 'http://lufs.sourceforge.net/lufs/','Linux Userland File System (LUFS)' ]}
        moves the filesystem implementation to UNIX userland where the Microsoft
        Windows filesystem is completely unarmed by Captive jail of chroot(2),
@@ -81,10 +78,12 @@ print <<"HERE";
        the other kernel coders would not investigate any problems if someone had used
        the NTFS wrapper.</span><br />
        It does not apply to this project due to the implemented
-       @{[ a_href 'Details.html.pl#sandbox','filesystem separation' ]}.</p>
+       @{[ a_href 'Details.pm#sandbox','filesystem separation' ]}.</p>
 
 
 HERE
 
 
-project::captive::doc::Macros->footer();
+exit;
+}
+1;