X-Git-Url: https://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2Fcaptive%2Fdoc%2FRelated.pm;fp=project%2Fcaptive%2Fdoc%2FRelated.html.pl;h=9c562e94e0740891014300d155e40294ea467a59;hp=1e8a8137994ec86e22b4b02cf9a63b66b2fecd98;hb=f40e75167a045d189c3027a0b112a20c635d3e48;hpb=ef80d25b0a0307ee222d0a94eaae8abf1e9df31c

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
--- 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;