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

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

diff --git a/project/captive/doc/About.html.pl b/project/captive/doc/About.pm
similarity index 86%
rename from project/captive/doc/About.html.pl
rename to project/captive/doc/About.pm
index 444d98d..7629b44 100755 (executable)
--- a/project/captive/doc/About.html.pl
+++ b/project/captive/doc/About.pm
@@ -1,8 +1,6 @@
-#! /usr/bin/perl
-# 
 # $Id$
 # Captive project doc About 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,17 +23,17 @@ 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: About',
-               "rel_prev"=>'Index.html.pl',
-               "rel_next"=>'Architecture.html.pl',
+               "rel_prev"=>'./',
+               "rel_next"=>'Architecture.pm',
                );
 
 
@@ -44,7 +42,7 @@ print <<"HERE";
 
 <h1>About</h1>
 
-       <a name="reasons"><h2>Reasons for the Implementation</h2></a>
+       <h2 id="reasons">Reasons for the Implementation</h2>
 
                <p>Currently there is no possibility to any of the available $freespeech
                        ($freespeech used in the following text in the meaning of
@@ -63,13 +61,13 @@ print <<"HERE";
                        and
                        <span class="productname">XP</span> as NT-5.1.)
                based operating systems <span class="productname">NTFS</span> is the default
-               disk file system type for vendor preinstalled <span class="productname">Microsoft Windows</span>.
+               disk file system type for vendor preinstalled <span class="productname">Microsoft Windows</span>.</p>
 
                <p>Unfortunately the <span class="productname">NTFS</span> filesystem has too
                complex data structure to allow a complete reverse enginnering process in
                reasonable time. Currently available $freespeech solutions such as $LinuxNTFS
                filesystem have already implemented reliable reverse
-               engineered read-only access. However <a name="reliability">reliabile</a>
+               engineered read-only access. However <span id="reliability">reliabile</span>
                read-write part of the access would require much better
                knowledge of the <span class="productname">NTFS</span> data structures.
                Currently only rewriting of already existing file data blocks is supported
@@ -78,9 +76,9 @@ print <<"HERE";
                would require another major reverse engineering effort.</p>
 
 
-       <a name="challenges"><h2>Challenges of the Project</h2></a>
+       <h2 id="challenges">Challenges of the Project</h2>
 
-               <p>The <a name="NTFSgoal">ultimate goal</a> of this project is definitely the
+               <p>The <span id="NTFSgoal">ultimate goal</span> of this project is definitely the
                free implementation of @{[ a_href '#reliability','reliable' ]} read-write <span
                class="productname">NTFS</span> filesystem driver. This project chose to
                solve this problem in the style of $Wine project by using the original binary
@@ -98,7 +96,7 @@ print <<"HERE";
                part of W32.</p>
 
 
-       <a name="versions"><h2>Microsoft Windows Versions Compatibility</h2></a>
+       <h2 id="versions">Microsoft Windows Versions Compatibility</h2>
 
                <p>Currently this project supports only driver files of
                <span class="productname">Microsoft Windows XP</span> (NT-5.1)
@@ -128,7 +126,7 @@ print <<"HERE";
                <span class="productname">Microsoft Windows XP</span> as they are freely
                downloadable at:
                @{[ a_href 'http://www.microsoft.com/WindowsXP/pro/downloads/servicepacks/sp1/checkedbuild.asp' ]}</p>
-               There may be @{[ a_href 'Architecture.html.pl#law','legal reasons' ]} you would not be allowed
+               <p>There may be @{[ a_href 'Architecture.pm#law','legal reasons' ]} you would not be allowed
                to use there files if you own license to a different version of
                <span class="productname">Microsoft Windows</span>. Legal rights will very
                depending on your country.</p>
@@ -137,4 +135,6 @@ print <<"HERE";
 HERE
 
 
-project::captive::doc::Macros->footer();
+exit;
+}
+1;