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;
 
 
 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',
 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",
                "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";
                "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=(
                                                                .' 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",
                                                                                "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;
                                                                                );
                                                                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>
 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
 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':
                "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",
                "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",
                "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",
                # 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#;'."'"
 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;
                ." |";
 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) {
                        (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";
                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">'
                );
 
 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">'
                .'</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();
                .'</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",
                "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",
                "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 />
 
 <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
 
 </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
        <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>
                        '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
 
 
 <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.
 
        <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.
        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 "
                "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
                "language"=>"PHP",
                "description"=><<"HERE",
 <p>Each web author has his own web framework reusable for other web developers