X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=WebConfig.pm;h=4fa0fc129808a6306bff839256abc1fbb890e614;hb=7ce522a4ce661ec3049d00d5976689f8f1ea5268;hp=001edc253c1a3ed2e097299a382b9943299a4c48;hpb=9c880923e6eeb52d36ba4a3e13eb89178e71be8d;p=www.jankratochvil.net.git

diff --git a/WebConfig.pm b/WebConfig.pm
index 001edc2..4fa0fc1 100644
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -35,6 +35,8 @@ use My::Web;
 require CGI;
 
 
+my $resume_url="/resume/Resume-JanKratochvil.html.pl/Resume-JanKratochvil.html";
+
 our %WebConfig=(
 		"admin_mail"=>'web-www.jankratochvil.net@jankratochvil.net',
 		"SendMsg_to"=>'web-www.jankratochvil.net@jankratochvil.net',
@@ -50,6 +52,7 @@ our %WebConfig=(
 		"project_viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/",
 		"pserver"=>':pserver:pserver:@cvs.jankratochvil.net',
 		"pserver_path"=>"/cvs",
+		"resume_url"=>$resume_url,
 		"heading"=>sub () {
 			print '<table border="0" align="center" style="font-size: larger;">'."\n";
 				print '<col width="20%">'."\n";
@@ -72,11 +75,11 @@ our %WebConfig=(
 								.' style="border-collapse: collapse; border-style: solid; border-width: 2px;">'."\n";
 							print '<tr>'."\n";
 								my @sections=(
-										My::Web::top_dir()."/project/"=>"Projects",
+										"/project/"=>"Projects",
 										"http://cvs.jankratochvil.net/"=>"CVS",
-#										My::Web::top_dir()."/News.html.pl"=>"News",
-										My::Web::top_dir()."/resume/Resume-JanKratochvil.html.pl/Resume-JanKratochvil.html"=>"Resume",
-										My::Web::top_dir()."/Contact.html.pl"=>"Contact",
+#										"/News.html.pl"=>"News",
+										$resume_url=>"Resume",
+										"/Contact.html.pl"=>"Contact",
 										);
 								while (@sections) {
 									my $section_path=shift @sections;