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

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

diff --git a/project/captive/doc/Related.html.pl b/project/captive/doc/Related.pm
similarity index 78%
rename from project/captive/doc/Related.html.pl
rename to project/captive/doc/Related.pm
index 1e8a813..9c562e9 100755 (executable)
--- a/project/captive/doc/Related.html.pl
+++ b/project/captive/doc/Related.pm
@@ -1,8 +1,6 @@
-#! /usr/bin/perl
-# 
 # $Id$
 # Captive project doc Related Projects 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,16 @@ 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: Related Projects',
-               "rel_prev"=>'TODO.html.pl',
-               "rel_next"=>'LinuxNTFS.html.pl',
+               "rel_prev"=>'TODO.pm',
+               "rel_next"=>'LinuxNTFS.pm',
                );
 
 
@@ -51,7 +48,7 @@ print <<"HERE";
        very comfortable as you never have access to all the files of the other
        operating system.</p>
 
-       <a name="LinuxNTFScompet"><h2>$LinuxNTFS</h2></a>
+       <h2 id="LinuxNTFScompet">$LinuxNTFS</h2>
 
                <p>Although this project takes a&nbsp;completely different approach and has
                a&nbsp;different architecture, the final goal is the same as for this
@@ -70,8 +67,8 @@ print <<"HERE";
                <span class="fname">cdfs.sys</span> files from the user's
                <span class="productname">NTFS</span> partition.</p>
 
-       <a name="Paragon"><h2><span class="productname">
-                       Paragon @{[ a_href 'http://www.ntfs-linux.com/','NTFS for Linux' ]}</span></h2></a>
+       <h2 id="Paragon"><span class="productname">
+                       Paragon @{[ a_href 'http://www.ntfs-linux.com/','NTFS for Linux' ]}</span></h2>
 
                <p>Real competition: Closed-source read/write @{[ '$69.95' ]} equivalent.</p>
 
@@ -85,16 +82,16 @@ print <<"HERE";
                <p>This closed-source product also means loosing the security of your
                GNU/Linux system by running closed-source software product.</p>
 
-       <a name="NTPwd"><h2><span class="productname">@{[ a_href 'http://www.cgsecurity.org/ntfs.html',
-                       'NTPwd NTFS Driver' ]}</span></h2></a>
+       <h2 id="NTPwd"><span class="productname">@{[ a_href 'http://www.cgsecurity.org/ntfs.html',
+                       'NTPwd NTFS Driver' ]}</span></h2>
 
                <p>DOS based @{[ a_href 'http://www.gnu.org/licenses/gpl.html','GPL-2.0' ]}
                read-write NTFS driver. Filesystem structures are reverse engineered in the
-               way of @{[ a_href 'Related.html.pl#LinuxNTFScompet','Linux-NTFS Project' ]}. As it is not very
+               way of @{[ a_href 'Related.pm#LinuxNTFScompet','Linux-NTFS Project' ]}. As it is not very
                actively maintained it reaches a&nbsp;lower level of
                <span class="productname">NTFS</span> compatibility.</p>
 
-       <a name="vmware"><h2>@{[ a_href 'http://www.vmware.com/download/workstation.html','VMware Workstation' ]}</h2></a>
+       <h2 id="vmware">@{[ a_href 'http://www.vmware.com/download/workstation.html','VMware Workstation' ]}</h2>
 
                <p>Real competition: Closed-source read/write @{[ '$299' ]} equivalent.</p>
 
@@ -103,15 +100,15 @@ print <<"HERE";
                a network file sharing through a&nbsp;VMware virtual network card.</p>
 
                <p>You need @{[ '$299' ]} for this product and you need to
-               give up your system security by running un@{[ a_href 'Details.html.pl#sandbox','sandbox' ]}ed
+               give up your system security by running un@{[ a_href 'Details.pm#sandbox','sandbox' ]}ed
                closed-source program in your GNU/Linux.</p>
 
-       <a name="wine"><h2>@{[ a_href 'http://www.winehq.com/','Wine Project' ]}</h2></a>
+       <h2 id="wine">@{[ a_href 'http://www.winehq.com/','Wine Project' ]}</h2>
 
                <p>No code could be shared &ndash; Wine emulates only Microsoft Windows userland.
                Filesystem drivers completely belong to Microsoft Windows kernelland.</p>
 
-       <a name="ntfs98"<h2>@{[ a_href 'http://www.sysinternals.com/ntw2k/freeware/ntfswin98.shtml','NTFS for Windows 98' ]}</h2></a>
+       <h2 id="ntfs98">@{[ a_href 'http://www.sysinternals.com/ntw2k/freeware/ntfswin98.shtml','NTFS for Windows 98' ]}</h2>
 
                <p>Closed-source read-only-crippled @{[ '$0' ]} equivalent for Microsoft Windows.</p>
 
@@ -121,8 +118,8 @@ print <<"HERE";
                Windows 98</i> as the same company also sells the following product sharing
                the same codebase:</p>
 
-       <a name="ntfsdos"><h2>@{[ a_href 'http://www.winternals.com/products/repairandrecovery/ntfsdospro.asp',
-                       'NTFSDOS Professional' ]}</h2></a>
+       <h2 id="ntfsdos">@{[ a_href 'http://www.winternals.com/products/repairandrecovery/ntfsdospro.asp',
+                       'NTFSDOS Professional' ]}</h2>
 
                <p>Closed-source read/write @{[ '$299' ]} equivalent for MS-DOS.</p>
 
@@ -134,4 +131,6 @@ print <<"HERE";
 HERE
 
 
-project::captive::doc::Macros->footer();
+exit;
+}
+1;