X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=resume%2FResumeJanKratochvil.pm;fp=resume%2FResume-JanKratochvil.html.pl;h=41ef8f8e7e5ad45b66cfdf339f542c50bc0643e7;hp=ee58c3268ca58ba88cc543403ea7b8cc0bca6d98;hb=f40e75167a045d189c3027a0b112a20c635d3e48;hpb=ef80d25b0a0307ee222d0a94eaae8abf1e9df31c diff --git a/resume/Resume-JanKratochvil.html.pl b/resume/ResumeJanKratochvil.pm old mode 100755 new mode 100644 similarity index 83% rename from resume/Resume-JanKratochvil.html.pl rename to resume/ResumeJanKratochvil.pm index ee58c32..41ef8f8 --- a/resume/Resume-JanKratochvil.html.pl +++ b/resume/ResumeJanKratochvil.pm @@ -1,8 +1,6 @@ -#! /usr/bin/perl -# # $Id$ # Resume page Perl template. -# Copyright (C) 2003 Jan Kratochvil +# Copyright (C) 2003-2005 Jan Kratochvil # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -26,40 +24,52 @@ $CVS_ID=q$Id$; use strict; use warnings; -BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[0]]}; eval "use lib '$top_dir'"; close F; } use My::Web; -require CGI; require Crypt::Rot13; -Wrequire 'My::Project'; +Wrequire 'project::Lib'; + +sub Contact($) +{ +my($self)=@_; + + return ( + "Name" =>"Jan Kratochvil", + "English" =>"technical: fluent, general: communicable", + "Born" =>"1979", + "Sex" =>"male", + "Licenses"=>"motorcycle, car", + "eMail" =>(map({ a_href("mailto:$_",$_); } 'job@jankratochvil.net'))[0], + "Projects"=>a_href('http://www.jankratochvil.net/project/'), + "Resume" =>a_href('http://www.jankratochvil.net/resume/')."
" + ."[ ".a_href('/resume/ResumeJanKratochvil.pdf','PDF') + ."| ".a_href('/resume/ResumeJanKratochvil.txt','text') + ."]", + "OpenPGP" =>a_href('/pgp-JanKratochvil.txt','') + .'pub 1024D/26A802B2 2004-01-17'."
" + .'sub 2048g/A74DF86D 2004-01-17 [expires: 2007-01-16]' + ); +} +sub handler +{ my $W=My::Web->init( - "__PACKAGE__"=>__PACKAGE__, "title"=>"Resume", "section"=>"Resume", "heading"=>0, "footer"=>0, - "head_css"=>" -td { vertical-align: top; } -table { border-collapse: collapse; border-style: solid; border-width: 1px; margin: 8px; } -A[href] { text-decoration: inherit; /* revoke underline */ } -A[href].project { text-decoration: underline; } -.platform { font-style: italic; white-space: nowrap; } -table.referees td.com { text-align: center; } -.techs { white-space: nowrap; } -caption { caption-side: top; } -table.jobs td { padding: 1ex; } -", + "css_push"=>"/resume/ResumeJanKratochvil.css", "args_check"=>{ "referees"=>'', # Do not bother with '^(?:(?i)referees)?$' "print"=>'^(?:print)?$', }, + "http_safe"=>1, # For our anti-robot POST request. ); $W->{"args"}{"Wabs"}=1; My::Web->heading(); -my %item=( My::Project::item_hash_read() ); +my %item=project::Lib->name_to_hashref(); my @itemnames=sort { ($item{$b}{"priority"} <=> $item{$a}{"priority"}) or (lc($item{$a}->{"name"}) cmp lc($item{$b}->{"name"})); @@ -129,26 +139,24 @@ my($arg)=@_; my $uClinux=a_href 'http://www.uclinux.com/','uClinux'; -my $mailme=(map({ a_href("mailto:$_",$_); } 'job@jankratochvil.net'))[0]; my $now=(localtime())[5]+1900; print <<"HERE"; -
- - - - - - - - - -
Name Jan Kratochvil
English technical: fluent, general: communicable
Born 1979
Sex male
Licensesmotorcycle, car
eMail $mailme
Projects@{[ a_href('http://www.jankratochvil.net/project/') ]}
Resume @{[ a_href('http://www.jankratochvil.net/resume/') ]}
- [ @{[ a_href '/resume/Resume-JanKratochvil.pdf','PDF' ]} - | @{[ a_href '/resume/Resume-JanKratochvil.txt','text' ]} ]
OpenPGP @{[ a_href '/pgp-JanKratochvil.txt','' - .'pub 1024D/26A802B2 2004-01-17'.'
' - .'sub 2048g/A74DF86D 2004-01-17 [expires: 2007-01-16]' - ]}
+ +HERE +my @contact=__PACKAGE__->Contact(); +while (@contact) { + my $key=shift @contact; + my $val=shift @contact; + print <<"HERE"; + + + $val + +HERE + } +print <<"HERE"; +
$key
@{[ vskip "3ex" ]} @@ -156,7 +164,9 @@ print <<"HERE"; Fulltime Jobs DateCompany Description -2005/04-now@{[ a_href 'http://www.valinux.co.jp/','VA Linux Systems Japan' ]} +2005/04-now@{[ + a_href_cc {""=>'http://www.valinux.co.jp/en/', + "JP"=>'http://www.valinux.co.jp/'},'VA Linux Systems Japan' ]} @{[ a_href 'http://www.kernel.org/','Linux kernel' ]} based development 2004/01-11@{[ a_href 'http://www.sun.com/','Sun Microsystems' ]} @@ -280,11 +290,11 @@ if (lc($W->{"args"}{"referees"}) ne "referees") { print <<"HERE";
-
-

Enter the word 'referees' (without quotes) to disclose e-mail addresses:

- - -

(spambot protection)

+ +

Enter the word 'referees' (without quotes) to disclose e-mail addresses:
+
+
+ (spambot protection)

HERE @@ -338,9 +348,10 @@ print <<"HERE"; Detailed listing available at: @{[ a_href 'http://www.jankratochvil.net/projects/' ]} -PlatformAvailable Free Projects + + PlatformAvailable Free Projects HERE - my @platforms=@My::Project::platforms; + my @platforms=@project::Lib::platforms; while (@platforms) { my $platform_sym =shift @platforms; my $platform_name=shift @platforms; @@ -350,8 +361,11 @@ HERE print "\n"; } print <<"HERE"; + HERE -My::Web->footer(); +exit; +} +1;