X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=WebConfig.pm;h=d73ecabb7e9b9a72a90efcfc0586ac8774a36f37;hp=502b9ec71c71f163079c14e8212fb0c99f436a29;hb=refs%2Fheads%2Fmodperl;hpb=b0f0d99fceb815bf8379d2a4b12acb38791a717a

diff --git a/WebConfig.pm b/WebConfig.pm
index 502b9ec..d73ecab 100644
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -53,6 +53,9 @@ our %WebConfig=(
 		"pserver"=>':pserver:pserver:@cvs.jankratochvil.net',
 		"pserver_path"=>"/cvs",
 		"resume_url"=>$resume_url,
+		"web_hostname_sub"=>sub () { return "www.jankratochvil.net"; },	# $My::Web::W->{"r"}->hostname()
+		"mailman_url_sub"  =>sub () { return "http://".&{$My::Web::W->{"web_hostname_sub"}}."/mailman/"; },
+		"pipermail_url_sub"=>sub () { return "http://".&{$My::Web::W->{"web_hostname_sub"}}."/pipermail/"; },
 		"heading"=>sub () {
 			print '<table border="0" align="center" style="font-size: larger;">'."\n";
 				print '<col width="20%">'."\n";