X-Git-Url: https://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=WebConfig.pm;h=d73ecabb7e9b9a72a90efcfc0586ac8774a36f37;hp=001edc253c1a3ed2e097299a382b9943299a4c48;hb=refs%2Fheads%2Fmodperl;hpb=9c880923e6eeb52d36ba4a3e13eb89178e71be8d diff --git a/WebConfig.pm b/WebConfig.pm index 001edc2..d73ecab 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,10 @@ our %WebConfig=( "project_viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/", "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 '
+ A programmer for hire: + + I am looking for new challenges. + If you find the software here useful, please + @{[ My::Web::a_href($My::Web::W->{"resume_url"},'consider me') ]} + for your next software project. + + |