Sanity check chroot environment.

[www.jankratochvil.net.git] / WebConfig.pm

diff --git a/WebConfig.pm b/WebConfig.pm
index 2fbf856..1b3ea33 100644 (file)
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -34,7 +34,7 @@ use vars qw(@ISA @EXPORT);
 use My::Web;
 
 
-my $resume_url="/resume/Resume-JanKratochvil.pm/Resume-JanKratochvil.html";
+my $resume_url="/resume/ResumeJanKratochvil.pm/ResumeJanKratochvil.html";
 
 # Only to be used privately by My::Web !
 our %WebConfig=(
@@ -46,6 +46,7 @@ our %WebConfig=(
                                                || $name eq "lace";
                                return escapeHTML($name);
                        },
+               "viewcvs_My"=>"http://cvs.jankratochvil.net/viewcvs/MyWeb/",
                "viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/www/www.jankratochvil.net/",
                "title_prefix"=>"Jan Kratochvil",
                "project_viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/",
@@ -98,9 +99,9 @@ our %WebConfig=(
                        return $r;
                        },
                ###"footing"=>"<h1>footing</h1>\n",
-               "footing_delimit"=>sub () {
+               "footing_delimit_sub_push"=>sub () {
                        return if $My::Web::W->{"no_job"};
-                       return <<"HERE";
+                       print <<"HERE";
 <table border="0" style="margin: 4ex; padding: 2ex; background: #552222;">
        <tr><td>
                <b>A programmer for hire:</b>