X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=project%2Fcaptive%2Fdoc%2FTODO.html.pl;h=30e052b4e9b0b52420f31b9dfe1a985d61d77ca9;hb=e5c6be524c13b2c470e357879c9d58894b02f6d4;hp=cfad1b06677f01bcee2e4b3db03a8631b0eb53c6;hpb=eaf5486ee98b0e23461912535cc20c6f51a2dd73;p=www.jankratochvil.net.git

diff --git a/project/captive/doc/TODO.html.pl b/project/captive/doc/TODO.html.pl
index cfad1b0..30e052b 100755
--- a/project/captive/doc/TODO.html.pl
+++ b/project/captive/doc/TODO.html.pl
@@ -27,8 +27,8 @@ 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";
-use project::captive::doc::Macros;
+require CGI;
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(
@@ -57,19 +57,19 @@ print <<"HERE";
 			'Mark Russinovich' ]}.
 
 	<p>I&nbsp;assume its execution falls completely
-	@{[ a_href '#existing_emulation','out of scope' ]}
+	@{[ a_href 'Architecture.html.pl#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 'http://surprise.sourceforge.net/','Partition Surprise' ]}</span></h1></a>
+		<span class="productname">@{[ a_href '/project/surprise/','Partition Surprise' ]}</span></h1></a>
 
 	<p>Although there currently exists
 	<span class="productname">@{[ a_href 'http://mlf.linux.rulez.org/mlf/ezaz/ntfsresize.html','ntfsresize' ]}</span>
 	I am not sure whether it is really reliable for all NTFS filesystems.
-	<span class="productname">@{[ a_href 'http://surprise.sourceforge.net/','Partition Surprise' ]}</span>
+	<span class="productname">@{[ a_href '/project/surprise/','Partition Surprise' ]}</span>
 	is the only partition manager capable of safely resize the disk
 	by using just the original W32 filesystem driver by full rebuild of
 	filesystem metadata.