X-Git-Url: https://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2Fcaptive%2Fdoc%2FTODO.pm;fp=project%2Fcaptive%2Fdoc%2FTODO.html.pl;h=34a681abc1caa6d8376ac9c737cf7a0dfac7d57d;hp=3329a14389162a70772e74d13e3cdb9e101efd37;hb=f40e75167a045d189c3027a0b112a20c635d3e48;hpb=ef80d25b0a0307ee222d0a94eaae8abf1e9df31c

diff --git a/project/captive/doc/TODO.html.pl b/project/captive/doc/TODO.pm
similarity index 82%
rename from project/captive/doc/TODO.html.pl
rename to project/captive/doc/TODO.pm
index 3329a14..34a681a 100755
--- a/project/captive/doc/TODO.html.pl
+++ b/project/captive/doc/TODO.pm
@@ -1,8 +1,6 @@
-#! /usr/bin/perl
-# 
 # $Id$
 # Captive project doc TODO 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,24 +23,23 @@ 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: TODO',
-		"rel_prev"=>'CallType.html.pl',
-		"rel_next"=>'Related.html.pl',
+		"rel_prev"=>'CallType.pm',
+		"rel_next"=>'Related.pm',
 		);
 
 
 print <<"HERE";
 
 
-<a name="todo_fsck"><h1>TODO: Fsck of NTFS</h1></a>
+<h1 id="todo_fsck">TODO: Fsck of NTFS</h1>
 
 	<p>Currently this project does not support checking of data structures
 	of NTFS volume as being provided by <span class="command">chkdsk.exe</span>
@@ -54,17 +51,17 @@ print <<"HERE";
 	@{[ a_href 'http://www.sysinternals.com/ntw2k/source/fmifs.shtml',
 			'Chkdskx and Formatx' ]}
 	by @{[ a_href 'http://www.sysinternals.com/aboutus.shtml',
-			'Mark Russinovich' ]}.
+			'Mark Russinovich' ]}.</p>
 
 	<p>I&nbsp;assume its execution falls completely
-	@{[ a_href 'Architecture.html.pl#existing_emulation','out of scope' ]}
+	@{[ a_href 'Architecture.pm#existing_emulation','out of scope' ]}
 	of this project as it is W32 userland.</p>
 
 	<p>This possibility was not yet investigated in any way.</p>
 
 
-<a name="todo_surprise"><h1>TODO: NTFS Support for
-		<span class="productname">@{[ a_href '/project/surprise/','Partition Surprise' ]}</span></h1></a>
+<h1 id="todo_surprise">TODO: NTFS Support for
+		<span class="productname">@{[ a_href '/project/surprise/','Partition Surprise' ]}</span></h1>
 
 	<p>There already exists
 	<span class="productname">@{[ a_href 'http://mlf.linux.rulez.org/mlf/ezaz/ntfsresize.html','ntfsresize' ]}</span>
@@ -93,4 +90,6 @@ print <<"HERE";
 HERE
 
 
-project::captive::doc::Macros->footer();
+exit;
+}
+1;