From: short <> Date: Sun, 12 Oct 2003 05:55:44 +0000 (+0000) Subject: URL relativization. X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=e5c6be524c13b2c470e357879c9d58894b02f6d4 URL relativization. --- diff --git a/WebConfig.pm b/WebConfig.pm index 001edc2..4fa0fc1 100644 --- 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 ''."\n"; print ''."\n"; @@ -72,11 +75,11 @@ our %WebConfig=( .' style="border-collapse: collapse; border-style: solid; border-width: 2px;">'."\n"; print ''."\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 --- 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.

Fortunately Pavel Troller already disassembled the kernel core in the past and this project could be based on his reverse engineered sources.

-

@{[ a_href top_dir()."/project/332/332-noexec.tar.gz",'Downloadable sources' ]} archive unfortunately +

@{[ 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 --- 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 --- 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 --- 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 ; close F; diff --git a/project/Index.html.pl b/project/Index.html.pl index b48fd54..b962a06 100755 --- 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 "

".a_href("$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."

\n"; + print "

".a_href("/project/$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."

\n"; print "
\n"; print $item{$project}{"description"}; print "
\n"; diff --git a/project/TraceFS/Index.html.pl b/project/TraceFS/Index.html.pl index 29339e2..5d768aa 100755 --- a/project/TraceFS/Index.html.pl +++ b/project/TraceFS/Index.html.pl @@ -37,11 +37,11 @@ My::Project->init_project( ); print '
' - .My::Web::img(top_dir()."/project/captive/doc/ntdebug-windbg-boot","TraceFS Initialization") + .My::Web::img("/project/captive/doc/ntdebug-windbg-boot","TraceFS Initialization") .'
'."\n"; print '
' - .My::Web::img(top_dir()."/project/captive/doc/dia/TraceFS","TraceFS Hooking") + .My::Web::img("/project/captive/doc/dia/TraceFS","TraceFS Hooking") .'
'."\n"; My::Web->footer(); diff --git a/project/TraceFS/ListItem.pm b/project/TraceFS/ListItem.pm index fadddca..c07156d 100755 --- 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 --- a/project/captive/Index.html.pl +++ b/project/captive/Index.html.pl @@ -355,8 +355,7 @@ class="quote">/usr/share/lufs/prepmod.

Why did I install Microsoft Windows and wrote such disgusting piece of code?
- 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" ]}, !

HERE diff --git a/project/captive/doc/APITypes.html.pl b/project/captive/doc/APITypes.html.pl index 64f078e..7df4804 100755 --- a/project/captive/doc/APITypes.html.pl +++ b/project/captive/doc/APITypes.html.pl @@ -92,7 +92,7 @@ print <<"HERE"; captivesym-specific source file syntax please see its documentation: @{[ 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' ]}

Direct Pass to Original "ntoskrnl.exe"

 diff --git a/project/captive/doc/TODO.html.pl b/project/captive/doc/TODO.html.pl index a97dc29..30e052b 100755 --- a/project/captive/doc/TODO.html.pl +++ b/project/captive/doc/TODO.html.pl @@ -64,12 +64,12 @@ print <<"HERE";

TODO: NTFS Support for - @{[ a_href top_dir().'/project/surprise/','Partition Surprise' ]}

 + @{[ a_href '/project/surprise/','Partition Surprise' ]}

Although there currently exists @{[ a_href 'http://mlf.linux.rulez.org/mlf/ezaz/ntfsresize.html','ntfsresize' ]} I am not sure whether it is really reliable for all NTFS filesystems. - @{[ a_href top_dir().'/project/surprise/','Partition Surprise' ]} + @{[ a_href '/project/surprise/','Partition Surprise' ]} 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 --- 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",

Each web author has his own web framework reusable for other web developers