X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=WebConfig.pm;h=d73ecabb7e9b9a72a90efcfc0586ac8774a36f37;hb=85c1a92dfccd61a82c75a0584ba5bff1c9e21913;hp=bdcb23656998fcb62ae94e2ccc3040feb6d0869c;hpb=810e158aecaa7e67ceafa8f2f162ac37277da917;p=www.jankratochvil.net.git

diff --git a/WebConfig.pm b/WebConfig.pm
index bdcb236..d73ecab 100644
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -53,10 +53,9 @@ our %WebConfig=(
 		"pserver"=>':pserver:pserver:@cvs.jankratochvil.net',
 		"pserver_path"=>"/cvs",
 		"resume_url"=>$resume_url,
-		"mailman_url_sub"=>sub () { return "http://www.jankratochvil.net/mailman/"; },
-		                        # { return "http://".$My::Web::W->{"r"}->hostname()."/mailman/"; },
-		"pipermail_url_sub"=>sub () { return "http://www.jankratochvil.net/pipermail/"; },
-		                          # { return "http://".$My::Web::W->{"r"}->hostname()."/pipermail/"; },
+		"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";