narrow the table

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

diff --git a/WebConfig.pm b/WebConfig.pm
index ee3b9cb..e13794c 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