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

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

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 (executable)
--- 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;