X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=resume%2FResumeJanKratochvil.pm;h=29198f92a29cb1790fcf459715ac2b6676c01c8f;hb=2a7bf8d650b53bfc7f094c6967e4857f25e49fb5;hp=41ef8f8e7e5ad45b66cfdf339f542c50bc0643e7;hpb=f40e75167a045d189c3027a0b112a20c635d3e48;p=www.jankratochvil.net.git
diff --git a/resume/ResumeJanKratochvil.pm b/resume/ResumeJanKratochvil.pm
index 41ef8f8..29198f9 100644
--- a/resume/ResumeJanKratochvil.pm
+++ b/resume/ResumeJanKratochvil.pm
@@ -27,6 +27,7 @@ use warnings;
use My::Web;
require Crypt::Rot13;
Wrequire 'project::Lib';
+Wrequire 'product::Lib';
sub Contact($)
@@ -39,12 +40,13 @@ my($self)=@_;
"Born" =>"1979",
"Sex" =>"male",
"Licenses"=>"motorcycle, car",
- "eMail" =>(map({ a_href("mailto:$_",$_); } 'job@jankratochvil.net'))[0],
+ "eMail" =>a_href('mailto:web@jankratochvil.net'),
"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')
- ."]",
+ ."[ ".join(" | ",
+ 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]'
@@ -64,29 +66,36 @@ my $W=My::Web->init(
"print"=>'^(?:print)?$',
},
"http_safe"=>1, # For our anti-robot POST request.
+ "no_job"=>1,
);
$W->{"args"}{"Wabs"}=1;
My::Web->heading();
-my %item=project::Lib->name_to_hashref();
+my %item=(
+ project::Lib->name_to_hashref(),
+ product::Lib->name_to_hashref(undef(),"override"=>{"platform"=>"product"}),
+ );
my @itemnames=sort {
- ($item{$b}{"priority"} <=> $item{$a}{"priority"})
- or (lc($item{$a}->{"name"}) cmp lc($item{$b}->{"name"}));
- } keys(%item);
+ ($item{$b}{"priority"} <=> $item{$a}{"priority"})
+ or (lc($item{$a}->{"name"}) cmp lc($item{$b}->{"name"}));
+ } keys(%item);
my $projectref=sub
{
-my($name)=@_;
+my($name,%args)=@_;
- return a_href "/project/$name/",$item{$name}{"name"},"attr"=>'class="project"';
+ my $project_product=($args{"product"} ? "product" : "project");
+ return a_href "/$project_product/$name/",$item{$name}{"name"},"attr"=>'class="'.$project_product.'"';
};
+# $args{"parenthesis"}=1;
+# $args{"product"}=1;
my $project=sub
{
my($name,%args)=@_;
- my $r=&{$projectref}($name);
+ my $r=&{$projectref}($name,%args);
if (!$args{"bare"}) {
my $summary=$item{$name}{"summary"};
$summary=~s#(?:]*>|)##gi; # if $args{"unhref"};
@@ -106,7 +115,9 @@ my(@platforms)=@_;
my $r="";
$r.=join ", ",map({ my $platform=$_;
- map({ ($item{$_}{"sponsorship"} || $item{$_}{"trivia"}
+ map({ (0
+ # || $item{$_}{"sponsorship"}
+ || $item{$_}{"trivia"}
|| $item{$_}{"platform"} ne $platform ? () : (&{$projectref}($_))); } @itemnames);
} @platforms);
return $r;
@@ -124,7 +135,7 @@ my($mail,$fullname)=@_;
my $rot13=Crypt::Rot13->new();
$rot13->charge($mail);
$mail=($rot13->rot13())[0];
- $r.=' <'.a_href("mailto:$mail",$mail).'>';
+ $r.=' <'.a_href("mailto:$mail").'>';
}
$r.='';
return $r;
@@ -158,17 +169,32 @@ HERE
print <<"HERE";
-@{[ vskip "3ex" ]}
+@{[ vskip "2ex" ]}
+
+
Contractor - software engineer. Technical achievements highlights:
+Date | Company | Description | ||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
2005/04-now | @{[ + | |||||||||||||||||||||||||||||||
2005/04-11 | @{[ 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' ]} | @{[ a_href 'http://www.sun.com/software/javaenterprisesystem/','Java Enterprise System' ]}
Quality Assurance (JES QA), technical lead @@ -181,10 +207,30 @@ print <<"HERE"; @{[ vskip "1ex" ]}
|