URL relativization.

diff --git a/WebConfig.pm b/WebConfig.pm
index 001edc2..4fa0fc1 100644 (file)
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -35,6 +35,8 @@ use My::Web;
 require CGI;
 
 
+my $resume_url="/resume/Resume-JanKratochvil.html.pl/Resume-JanKratochvil.html";
+
 our %WebConfig=(
                "admin_mail"=>'web-www.jankratochvil.net@jankratochvil.net',
                "SendMsg_to"=>'web-www.jankratochvil.net@jankratochvil.net',
@@ -50,6 +52,7 @@ our %WebConfig=(
                "project_viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/",
                "pserver"=>':pserver:pserver:@cvs.jankratochvil.net',
                "pserver_path"=>"/cvs",
+               "resume_url"=>$resume_url,
                "heading"=>sub () {
                        print '<table border="0" align="center" style="font-size: larger;">'."\n";
                                print '<col width="20%">'."\n";
@@ -72,11 +75,11 @@ our %WebConfig=(
                                                                .' style="border-collapse: collapse; border-style: solid; border-width: 2px;">'."\n";
                                                        print '<tr>'."\n";
                                                                my @sections=(
-                                                                               My::Web::top_dir()."/project/"=>"Projects",
+                                                                               "/project/"=>"Projects",
                                                                                "http://cvs.jankratochvil.net/"=>"CVS",
-#                                                                              My::Web::top_dir()."/News.html.pl"=>"News",
-                                                                               My::Web::top_dir()."/resume/Resume-JanKratochvil.html.pl/Resume-JanKratochvil.html"=>"Resume",
-                                                                               My::Web::top_dir()."/Contact.html.pl"=>"Contact",
+#                                                                              "/News.html.pl"=>"News",
+                                                                               $resume_url=>"Resume",
+                                                                               "/Contact.html.pl"=>"Contact",
                                                                                );
                                                                while (@sections) {
                                                                        my $section_path=shift @sections;

diff --git a/project/332/Index.html.pl b/project/332/Index.html.pl
index e2ab58d..56de38a 100755 (executable)
--- a/project/332/Index.html.pl
+++ b/project/332/Index.html.pl
@@ -43,7 +43,7 @@ Used Motorola 68332 computer features 1.25MB of RAM and 512KB of FlashEPROM.
 Included build script with custom GCC target for AmigaOS.</p>
 <p>Fortunately Pavel Troller already disassembled the kernel core in the past
 and this project could be based on his reverse engineered sources.</p>
-<p>@{[ a_href top_dir()."/project/332/332-noexec.tar.gz",'Downloadable sources' ]} archive unfortunately
+<p>@{[ a_href "/project/332/332-noexec.tar.gz",'Downloadable sources' ]} archive unfortunately
 legally cannot contain the real code of the ported AmigaOS kernel core as
 @{[ a_href 'http://amigaworld.net/modules/newbb/viewtopic.php?forum=2&topic_id=224','it is copyrighted.' ]}.
 You should send me a mail with md5sum(1)s of AmigaOS kernel including

diff --git a/project/332/ListItem.pm b/project/332/ListItem.pm
index 488e7e5..917862c 100755 (executable)
--- a/project/332/ListItem.pm
+++ b/project/332/ListItem.pm
@@ -33,7 +33,7 @@ our @ListItem=(
                "platform"=>"unixdevel",
                "priority"=>8,
                # FIXME: Relative 'download':
-               "download-sources without patched core"=>top_dir()."/project/332/332-noexec.tar.gz",
+               "download-sources without patched core"=>"/project/332/332-noexec.tar.gz",
                "summary"=>"AmigaOS kernel port to embedded Motorola 68332",
                "license"=>"PD",
                "maintenance"=>"ready",

diff --git a/project/AutoGen/ListItem.pm b/project/AutoGen/ListItem.pm
index 2040998..38db8f7 100755 (executable)
--- a/project/AutoGen/ListItem.pm
+++ b/project/AutoGen/ListItem.pm
@@ -33,7 +33,7 @@ our @ListItem=(
                "platform"=>"unixdevel",
                "priority"=>4,
                "cvs"=>"macros",
-               "link-Documentation"=>top_dir().'/project/Pod2Html.html.pl?cvs=macros/AutoGen.pm',
+               "link-Documentation"=>'/project/Pod2Html.html.pl?cvs=macros/AutoGen.pm',
                # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
                "link-Source file"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/macros/AutoGen.pm?rev=HEAD",
                "summary"=>"Another autogen.sh respecting CVS/.rpm/.deb",

diff --git a/project/ChangeLog.txt.pl b/project/ChangeLog.txt.pl
index 0160a9d..6c85224 100755 (executable)
--- a/project/ChangeLog.txt.pl
+++ b/project/ChangeLog.txt.pl
@@ -43,7 +43,7 @@ local *F;
 open F,""
                ."cvs -n -q -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." rlog ".$W->{"args"}{"cvs"}
                ." |perl -p -e 's#^RCS file: ".$W->{"pserver_path"}.'/(.*?)(?:/Attic/|/)?([^/]*),v$#$&\nWorking file: $1/$2#;'."'"
-               ." |cvs2cl --stdin --stdout --window 3600 --separate-header --no-wrap --usermap ".top_dir()."/cvs2cl-usermap"
+               ." |cvs2cl --stdin --stdout --window 3600 --separate-header --no-wrap --usermap ".top_dir_disk()."/cvs2cl-usermap"
                ." |";
 print while <F>;
 close F;

diff --git a/project/Index.html.pl b/project/Index.html.pl
index b48fd54..b962a06 100755 (executable)
--- a/project/Index.html.pl
+++ b/project/Index.html.pl
@@ -71,7 +71,7 @@ while (@platforms) {
                        (lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
                        } map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } keys(%item));
        for my $project (@projects) {
-               print "<h3>".a_href("$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
+               print "<h3>".a_href("/project/$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
                print "<blockquote>\n";
                        print $item{$project}{"description"};
                print "</blockquote>\n";

diff --git a/project/TraceFS/Index.html.pl b/project/TraceFS/Index.html.pl
index 29339e2..5d768aa 100755 (executable)
--- a/project/TraceFS/Index.html.pl
+++ b/project/TraceFS/Index.html.pl
@@ -37,11 +37,11 @@ My::Project->init_project(
                );
 
 print '<table border="0"><tr><td align="center">'
-               .My::Web::img(top_dir()."/project/captive/doc/ntdebug-windbg-boot","TraceFS Initialization")
+               .My::Web::img("/project/captive/doc/ntdebug-windbg-boot","TraceFS Initialization")
                .'</td></tr></table>'."\n";
 
 print '<table border="0"><tr><td align="center">'
-               .My::Web::img(top_dir()."/project/captive/doc/dia/TraceFS","TraceFS Hooking")
+               .My::Web::img("/project/captive/doc/dia/TraceFS","TraceFS Hooking")
                .'</td></tr></table>'."\n";
 
 My::Web->footer();

diff --git a/project/TraceFS/ListItem.pm b/project/TraceFS/ListItem.pm
index fadddca..c07156d 100755 (executable)
--- a/project/TraceFS/ListItem.pm
+++ b/project/TraceFS/ListItem.pm
@@ -33,7 +33,7 @@ our @ListItem=(
                "platform"=>"w32",
                "priority"=>4,
                "cvs"=>"priv/captive/src/TraceFS",
-               "link-Documentation"=>top_dir()."/project/captive/doc/CacheManager.html.pl#TraceFS",
+               "link-Documentation"=>"/project/captive/doc/CacheManager.html.pl#TraceFS",
                "summary"=>"Microsoft Windows Kernel API Tracer",
                "license"=>"GPL",
                "maintenance"=>"ready",

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index f035ebc..bd28f74 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -355,8 +355,7 @@ class="quote">/usr/share/lufs/prepmod</span>.</p>
 
 <p class="stuff">
        Why did I install Microsoft Windows and wrote such disgusting piece of code?<br />
-       Expecting @{[ a_href top_dir().'/resume/Resume-JanKratochvil.html.pl/Resume-JanKratochvil.html',
-                       "yet another challenging task" ]}, !
+       Expecting @{[ a_href $W->{"resume_url"},"yet another challenging task" ]}, !
 </p>
 HERE
 

diff --git a/project/captive/doc/APITypes.html.pl b/project/captive/doc/APITypes.html.pl
index 64f078e..7df4804 100755 (executable)
--- a/project/captive/doc/APITypes.html.pl
+++ b/project/captive/doc/APITypes.html.pl
@@ -92,7 +92,7 @@ print <<"HERE";
        <span class="fname">captivesym</span>-specific source file syntax please
        see its documentation:
        <span class="fname">@{[ a_href
-                       top_dir().'/project/Pod2Html.html.pl?cvs=priv/captive/src/libcaptive/ke/captivesym.pl',
+                       '/project/Pod2Html.html.pl?cvs=priv/captive/src/libcaptive/ke/captivesym.pl',
                        'src/libcaptive/ke/captivesym.pl' ]}</span>
 
        <a name="functype_pass"><h2>Direct Pass to Original &quot;ntoskrnl.exe&quot;</h2></a>

diff --git a/project/captive/doc/TODO.html.pl b/project/captive/doc/TODO.html.pl
index a97dc29..30e052b 100755 (executable)
--- a/project/captive/doc/TODO.html.pl
+++ b/project/captive/doc/TODO.html.pl
@@ -64,12 +64,12 @@ print <<"HERE";
 
 
 <a name="todo_surprise"><h1>TODO: NTFS Support for
-               <span class="productname">@{[ a_href top_dir().'/project/surprise/','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 top_dir().'/project/surprise/','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.

diff --git a/project/energie/ListItem.pm b/project/energie/ListItem.pm
index f4bb417..e545c4d 100755 (executable)
--- a/project/energie/ListItem.pm
+++ b/project/energie/ListItem.pm
@@ -37,7 +37,7 @@ our @ListItem=(
                "summary"=>a_href('http://www.php.net/','PHP')." web framework",
                "license"=>"GPL",
                "maintenance"=>"obsolete-".a_href('http://www.php.net/','PHP')." is deprecated in favor of "
-                               .a_href('http://www.perl.org/','Perl')." - use ".a_href(top_dir()."/project/MyWeb/","My::Web"),
+                               .a_href('http://www.perl.org/','Perl')." - use ".a_href("/project/MyWeb/","My::Web"),
                "language"=>"PHP",
                "description"=><<"HERE",
 <p>Each web author has his own web framework reusable for other web developers