resume/ResumeJanKratochvil.pm

   1 # $Id$
   2 # Resume page Perl template.
   3 # Copyright (C) 2003-2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
   4 #
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; exactly version 2 of June 1991 is required
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the Free Software
  16 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17
  18
  19 package resume::ResumeJanKratochvil;
  20 require 5.6.0;  # at least 'use warnings;' but we need some 5.6.0+ modules anyway
  21 use vars qw($VERSION $CVS_ID);
  22 $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
  23 $CVS_ID=q$Id$;
  24 use strict;
  25 use warnings;
  26
  27 use My::Web;
  28 Wrequire 'project::Lib';
  29 Wrequire 'product::Lib';
  30
  31
  32 sub Contact($)
  33 {
  34 my($self)=@_;
  35
  36         return (
  37                 "name"    =>"Jan Kratochvil",
  38                 "English" =>"fluent",
  39                 "born"    =>"1979",
  40                 "e-mail"  =>a_href('mailto:web@jankratochvil.net'),
  41                 "projects before 2005"
  42                           =>a_href('http://www.jankratochvil.net/project/'),
  43                 "resume"  =>a_href('http://www.jankratochvil.net/resume/')."<br />"
  44                             ."[ ".join(" | ",
  45                                        a_href('/resume/ResumeJanKratochvil.pdf','PDF'),
  46                                        )." ]",
  47                 "OpenPGP" =>a_href('/pgp-JanKratochvil.txt','1E3AD15E'),
  48         );
  49 }
  50
  51 sub handler
  52 {
  53 my $W=My::Web->init(
  54                 "title"=>"Resume",
  55                 "section"=>"Resume",
  56                 "heading"=>0,
  57                 "footer"=>0,
  58                 "css_push"=>"/resume/ResumeJanKratochvil.css",
  59                 "args_check"=>{
  60                                 "referees"=>'', # Do not bother with '^(?:(?i)referees)?$'
  61                                 "print"=>'^(?:print)?$',
  62                                 },
  63                 "http_safe"=>1, # For our anti-robot POST request.
  64                 "no_job"=>1,
  65                 );
  66 $W->{"args"}{"Wabs"}=1;
  67 My::Web->heading();
  68
  69
  70 print <<"HERE";
  71 <table border="0" class="margin-center">
  72 HERE
  73 my @contact=__PACKAGE__->Contact();
  74 while (@contact) {
  75         my $key=shift @contact;
  76         my $val=shift @contact;
  77         print <<"HERE";
  78 <tr>
  79         <td class="tab-head">$key</td>
  80         <td@{[ ($key ne "OpenPGP" ? '' : ' style="font-family: monospace; text-align: left;"') ]}>$val</td>
  81 </tr>
  82 HERE
  83         }
  84 print <<"HERE";
  85 </table>
  86
  87 @{[ vskip "2ex" ]}
  88
  89 <p style="text-align: center;">@{[ a_href('/resume/ResumeJanKratochvil.pdf','My PDF resume.') ]}</p>
  90
  91 HERE
  92
  93
  94 exit;
  95 }
  96 1;