redirect Surprise pages

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

diff --git a/project/captive/doc/TODO.html.pl b/project/captive/doc/TODO.html.pl
index f3d5049..a97dc29 100755 (executable)
--- a/project/captive/doc/TODO.html.pl
+++ b/project/captive/doc/TODO.html.pl
@@ -28,7 +28,7 @@ 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;
-Wuse 'project::captive::doc::Macros';
+BEGIN { Wuse 'project::captive::doc::Macros'; }
 
 
 My::Web->init(
@@ -64,12 +64,12 @@ print <<"HERE";
 
 
 <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 top_dir().'/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 top_dir().'/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.