@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",
);