heading+topdir

diff --git a/CV.html.pl b/CV.html.pl
index 8c8d94e..19ef2b1 100755 (executable)
--- a/CV.html.pl
+++ b/CV.html.pl
@@ -34,6 +34,7 @@ require 'My::Project';
 my $W=My::Web->init(
                "__PACKAGE__"=>__PACKAGE__,
                "title"=>'CV - Jan Kratochvil',
+               "heading"=>0,
                "footer"=>0,
                );
 My::Web->heading();

diff --git a/WebConfig.pm b/WebConfig.pm
index e13794c..3ced7a8 100644 (file)
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -49,6 +49,12 @@ our %WebConfig=(
                "project_viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/",
                "pserver"=>':pserver:pserver:@cvs.jankratochvil.net',
                "pserver_path"=>"/cvs",
+               "heading"=>sub () {
+#                      print "<h1>heading</h1>\n";
+                       },
+               "footing"=>sub () {
+#                      print "<h1>footing</h1>\n";
+                       },
                );
 
 1;

diff --git a/project/AutoGen/ListItem.pm b/project/AutoGen/ListItem.pm
index 3ba7acd..ed92efb 100755 (executable)
--- a/project/AutoGen/ListItem.pm
+++ b/project/AutoGen/ListItem.pm
@@ -32,8 +32,9 @@ our @ListItem=(
                "name"=>"AutoGen autoautotools",
                "priority"=>4,
                "cvs"=>"macros",
-               "link-Documentation"=>$W->{"top_dir"}.'/project/Pod2Html.html.pl?cvs=macros/AutoGen.pm',
-               "link-Source file"=>$W->{"project_viewcvs"}."*checkout*/macros/AutoGen.pm?rev=HEAD",
+               "link-Documentation"=>top_dir().'/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",
                "license"=>"GPL",
                "maintenance"=>"active",

diff --git a/project/ChangeLog.txt.pl b/project/ChangeLog.txt.pl
index d4b39e8..0160a9d 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 ".$W->{"top_dir"}."/cvs2cl-usermap"
+               ." |cvs2cl --stdin --stdout --window 3600 --separate-header --no-wrap --usermap ".top_dir()."/cvs2cl-usermap"
                ." |";
 print while <F>;
 close F;

diff --git a/project/TraceFS/Index.html.pl b/project/TraceFS/Index.html.pl
index 9676210..3875940 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($W->{"top_dir"}."/project/captive/doc/ntdebug-windbg-boot","TraceFS Initialization")
+               .My::Web::img(top_dir()."/project/captive/doc/ntdebug-windbg-boot","TraceFS Initialization")
                .'</td></tr></table>'."\n";
 
 print '<table border="0"><tr><td align="center">'
-               .My::Web::img($W->{"top_dir"}."/project/captive/doc/dia/TraceFS","TraceFS Hooking")
+               .My::Web::img(top_dir()."/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 3bb40ee..58448fb 100755 (executable)
--- a/project/TraceFS/ListItem.pm
+++ b/project/TraceFS/ListItem.pm
@@ -32,7 +32,7 @@ our @ListItem=(
                "name"=>"Trace Filesystem",
                "priority"=>4,
                "cvs"=>"priv/captive/src/TraceFS",
-               "link-Documentation"=>$W->{"top_dir"}."/project/captive/doc/CacheManager.html.pl#TraceFS",
+               "link-Documentation"=>top_dir()."/project/captive/doc/CacheManager.html.pl#TraceFS",
                "summary"=>"Microsoft Windows Kernel API Tracer",
                "license"=>"GPL",
                "maintenance"=>"ready",

diff --git a/project/badblock_guess/ListItem.pm b/project/badblock_guess/ListItem.pm
index 4e1cc7d..6eac1b8 100755 (executable)
--- a/project/badblock_guess/ListItem.pm
+++ b/project/badblock_guess/ListItem.pm
@@ -34,7 +34,8 @@ our @ListItem=(
                "download-compiled static binary"=>"badblock-guess",
                "download-gzipped compiled static binary"=>"badblock-guess.gz",
                "cvs"=>"badblock-guess",
-               "link-README"=>$W->{"project_viewcvs"}."*checkout*/badblock-guess/README?rev=HEAD",
+               # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
+               "link-README"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/badblock-guess/README?rev=HEAD",
                "summary"=>"Data recovery",
                "license"=>"GPL",
                "maintenance"=>"ready",

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index 9a19f35..474ab42 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -307,7 +307,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 />
-       I expect @{[ a_href $W->{"top_dir"}."/CV.html.pl","yet another challenging task" ]}, !
+       I expect @{[ a_href top_dir()."/CV.html.pl","yet another challenging task" ]}, !
 </p>
 HERE
 

diff --git a/project/captive/Thanks.html.pl b/project/captive/Thanks.html.pl
index 27221ae..27bb1d2 100755 (executable)
--- a/project/captive/Thanks.html.pl
+++ b/project/captive/Thanks.html.pl
@@ -67,6 +67,7 @@ print name "Tomas Bures";
 print name a_href('http://www-troja.fjfi.cvut.cz/~drab/','Martin Drab'),undef(),
                "betatesting, ".a_href('http://lufs.sourceforge.net/lufs/','LUFS')." patches";
 print name a_href_cz('http://www.klokan.cz/','Lukas "Klokan" Horalek'),undef(),"services hosting";
+print name "Jesse Glick",a_href("http://www.sun.com/","Sun Microsystems"),"betatesting";
 print name a_href("http://sys.xiloo.com/","Matt Wu"),
                a_href("http://sys.xiloo.com/projects/projects.htm#ext2fsd","Ext2fsd")." developer","W32 tips";
 

diff --git a/project/captive/doc/APITypes.html.pl b/project/captive/doc/APITypes.html.pl
index ddc1992..5ce0377 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
-                       $W->{"top_dir"}.'/project/Pod2Html.html.pl?cvs=priv/captive/src/libcaptive/ke/captivesym.pl',
+                       top_dir().'/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/checkstatic/ListItem.pm b/project/checkstatic/ListItem.pm
index 91103fe..1cea4c2 100755 (executable)
--- a/project/checkstatic/ListItem.pm
+++ b/project/checkstatic/ListItem.pm
@@ -31,7 +31,8 @@ use My::Web;
 our @ListItem=(
                "name"=>"C Sources Symbol Attributes Checker",
                "priority"=>7,
-               "download"=>$W->{"project_viewcvs"}."*checkout*/nethome/home/lace/bin/checkstatic?rev=HEAD",
+               # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
+               "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/home/lace/bin/checkstatic?rev=HEAD",
                "summary"=>"Development tool",
                "license"=>"PD",
                "maintenance"=>"ready",

diff --git a/project/cvsbranchdiff/ListItem.pm b/project/cvsbranchdiff/ListItem.pm
index badace3..5c9b08a 100755 (executable)
--- a/project/cvsbranchdiff/ListItem.pm
+++ b/project/cvsbranchdiff/ListItem.pm
@@ -31,7 +31,8 @@ use My::Web;
 our @ListItem=(
                "name"=>"CVS Branching Utility",
                "priority"=>6,
-               "download"=>$W->{"project_viewcvs"}."*checkout*/nethome/home/lace/bin/cvsbranchdiff?rev=HEAD",
+               # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
+               "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/home/lace/bin/cvsbranchdiff?rev=HEAD",
                "summary"=>"CVS addon",
                "license"=>"PD",
                "maintenance"=>"ready",

diff --git a/project/cvsutil/ListItem.pm b/project/cvsutil/ListItem.pm
index 6dae0b8..928cd85 100755 (executable)
--- a/project/cvsutil/ListItem.pm
+++ b/project/cvsutil/ListItem.pm
@@ -31,7 +31,8 @@ use My::Web;
 our @ListItem=(
                "name"=>"CVS General Utility",
                "priority"=>7,
-               "download"=>$W->{"project_viewcvs"}."*checkout*/nethome/home/lace/bin/cvsutil?rev=HEAD",
+               # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
+               "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/home/lace/bin/cvsutil?rev=HEAD",
                "summary"=>"CVS addon",
                "license"=>"PD",
                "maintenance"=>"merge",

diff --git a/project/line9k/ListItem.pm b/project/line9k/ListItem.pm
index a79d09d..0bcbf4d 100755 (executable)
--- a/project/line9k/ListItem.pm
+++ b/project/line9k/ListItem.pm
@@ -31,7 +31,8 @@ use My::Web;
 our @ListItem=(
                "name"=>"Modem / Nokia 9110 GSM data gate",
                "priority"=>7,
-               "download"=>$W->{"project_viewcvs"}."*checkout*/nethome/usr/local/sbin/line9k?rev=HEAD",
+               # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
+               "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/usr/local/sbin/line9k?rev=HEAD",
                "summary"=>"pppd(8) script, charger scheme",
                "license"=>"PD",
                "maintenance"=>"ready",

diff --git a/project/ppp9k/ListItem.pm b/project/ppp9k/ListItem.pm
index 41d9b40..802d69a 100755 (executable)
--- a/project/ppp9k/ListItem.pm
+++ b/project/ppp9k/ListItem.pm
@@ -31,7 +31,8 @@ use My::Web;
 our @ListItem=(
                "name"=>"Nokia Communicator Leased Line",
                "priority"=>6,
-               "download"=>$W->{"project_viewcvs"}."*checkout*/nethome/home/lace/bin/ppp9k?rev=HEAD",
+               # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
+               "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/home/lace/bin/ppp9k?rev=HEAD",
                "summary"=>"Communication script",
                "license"=>"PD",
                "maintenance"=>"ready",