modperl bootstrap

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

diff --git a/WebConfig.pm b/WebConfig.pm
index 1e5db17..a156212 100644 (file)
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -30,9 +30,19 @@ use vars qw(@ISA @EXPORT);
 @ISA=qw(Exporter);
 @EXPORT=qw(%WebConfig);
 
+require CGI;
+
+
 our %WebConfig=(
                "admin_mail"=>'web-www.jankratochvil.net@jankratochvil.net',
-               "viewcvs"=>map({ (!$_ ? $_ : s#^/#http://cvs.jankratochvil.net/viewcvs/energie/#); } $ENV{"SCRIPT_NAME"}),
+               "cvs_id_author"=>sub {
+                       my($name)=@_;
+                               return My::Web::a_href("http://www.jankratochvil.net/","Jan Kratochvil") if 0
+                                               || $name eq "short"
+                                               || $name eq "lace";
+                               return CGI::escapeHTML($name);
+                       },
+               "viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/www/www.jankratochvil.net/",
                "title_prefix"=>"Jan Kratochvil",
                );