ntfsprogs-gnomevfs-1.0.2

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

diff --git a/WebConfig.pm b/WebConfig.pm
index bdcb236..d73ecab 100644 (file)
--- 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";