X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=WebConfig.pm;h=76a2970de7daa134d157311184cb58e4adaa1384;hb=63b0ff1d7799d7704da9512b8d21b543e70f1be5;hp=b4d64e7b52e0603e79e9b324c66fae020691347d;hpb=ea223e194b3e88b4366f39667d52eb275deec419;p=www.jankratochvil.net.git
diff --git a/WebConfig.pm b/WebConfig.pm
index b4d64e7..76a2970 100644
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -49,6 +49,7 @@ our %WebConfig=(
},
"viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/www/www.jankratochvil.net/",
"title_prefix"=>"Jan Kratochvil",
+ "footer_mailme"=>0,
"project_viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/",
"pserver"=>':pserver:pserver:@cvs.jankratochvil.net',
"pserver_path"=>"/cvs",
@@ -58,17 +59,18 @@ our %WebConfig=(
"pipermail_url_sub"=>sub () { return "http://".&{$My::Web::W->{"web_hostname_sub"}}."/pipermail/"; },
"heading"=>sub () {
print '
'."\n";
- print ''."\n";
- print ''."\n";
- print ''."\n";
+# print ''."\n";
+# print ''."\n";
+# print ''."\n";
print ''."\n";
print ''."\n";
- print ''."\n";
print ''."\n";
print ''."\n";
- print My::Web::a_href('http://www.jankratochvil.net/','Jan Kratochvil',
- "attr"=>'style="text-decoration: inherit; /* revoke underline */;"');
+ print 'Jan Kratochvil';
+# print My::Web::a_href('http://www.jankratochvil.net/','Jan Kratochvil',
+# "attr"=>'style="text-decoration: inherit; /* revoke underline */;"');
print ' | '."\n";
print ' '."\n";
print ' ';
@@ -98,7 +100,10 @@ our %WebConfig=(
print ' | '."\n";
print '
'."\n";
print '
'."\n";
- print My::Web::vskip("1ex") if !$My::Web::W->{"WebConfig::heading_novskip"};
+ if (!$My::Web::W->{"WebConfig::heading_novskip"}) {
+ print "
\n";
+ print My::Web::vskip("6ex");
+ }
},
"footing"=>sub () {
# print "footing
\n";