+freshmeat

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

diff --git a/WebConfig.pm b/WebConfig.pm
index a156212..3ced7a8 100644 (file)
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -20,8 +20,9 @@
 
 package WebConfig;
 require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION);
+use vars qw($VERSION $CVS_ID);
 $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+$CVS_ID=q$Id$;
 use strict;
 use warnings;
 
@@ -35,6 +36,7 @@ require CGI;
 
 our %WebConfig=(
                "admin_mail"=>'web-www.jankratochvil.net@jankratochvil.net',
+               "SendMsg_to"=>'web-www.jankratochvil.net@jankratochvil.net',
                "cvs_id_author"=>sub {
                        my($name)=@_;
                                return My::Web::a_href("http://www.jankratochvil.net/","Jan Kratochvil") if 0
@@ -44,6 +46,15 @@ our %WebConfig=(
                        },
                "viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/www/www.jankratochvil.net/",
                "title_prefix"=>"Jan Kratochvil",
+               "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;