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',
"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";
.' 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;