From 3afd88bbc3f0ca0c5dc1a7a5806eb380297c0f08 Mon Sep 17 00:00:00 2001 From: short <> Date: Mon, 20 Oct 2003 04:30:21 +0000 Subject: [PATCH] +resume --- resume/Resume-JanKratochvil.html.pl | 301 ++++++++++++++++++++++++++++++++++++ 1 file changed, 301 insertions(+) create mode 100755 resume/Resume-JanKratochvil.html.pl diff --git a/resume/Resume-JanKratochvil.html.pl b/resume/Resume-JanKratochvil.html.pl new file mode 100755 index 0000000..c982285 --- /dev/null +++ b/resume/Resume-JanKratochvil.html.pl @@ -0,0 +1,301 @@ +#! /usr/bin/perl +# +# $Id$ +# Resume page Perl template. +# Copyright (C) 2003 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 +# the Free Software Foundation; exactly version 2 of June 1991 is required +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + +package resume::ResumeJanKratochvil; +require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway +use vars qw($VERSION $CVS_ID); +$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; +$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'; + + +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; } +", + "args_check"=>{ + "referees"=>'', # Do not bother with '^(?:(?i)referees)?$' + }, + ); +My::Web->heading(); + + +my %item=( My::Project::item_hash_read() ); +my @itemnames=sort { + ($item{$b}{"priority"} <=> $item{$a}{"priority"}) + or (lc($item{$a}->{"name"}) cmp lc($item{$b}->{"name"})); + } keys(%item); + +my $projectref=sub +{ +my($name)=@_; + + return a_href "/project/$name/",$item{$name}{"name"},"attr"=>'class="project"'; +}; + +my $project=sub +{ +my($name,%args)=@_; + + return &{$projectref}($name).($args{"bare"} ? '' : ': '.$item{$name}{"summary"}); +}; + +my $free_projects=sub (@) +{ +my(@platforms)=@_; + + my $r=""; + $r.=join ", ",map({ my $platform=$_; + map({ ($item{$_}{"sponsorship"} || $item{$_}{"trivia"} + || $item{$_}{"platform"} ne $platform ? () : (&{$projectref}($_))); } @itemnames); + } @platforms); + return $r; +}; + + +my $reference=sub ($$) +{ +my($mail,$fullname)=@_; + + my $r=""; + $r.=''; + $r.=$fullname; + if (lc($W->{"args"}{"referees"}) eq "referees") { + my $rot13=Crypt::Rot13->new(); + $rot13->charge($mail); + $mail=($rot13->rot13())[0]; + $r.=' <'.a_href("mailto:$mail",$mail).'>'; + } + $r.=''; + return $r; +}; + +sub techs ($) +{ +my($arg)=@_; + + return '('.$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"; +
+ + + + + + + + + + +
+ @{[ img "/resume/Resume-JanKratochvil","face" ]}Name Jan Kratochvil
English technical: fluent, general: communicable
Born 1979
Status single
Licensesmotorcycle, car
eMail $mailme
WWW @{[ a_href('http://www.jankratochvil.net/') ]}
Resume @{[ a_href('http://www.jankratochvil.net/resume/') ]}
OpenPGP @{[ a_href '/pgp-JanKratochvil.txt','' + .'pub 1024D/44FC7632 2002-10-07 Jan Kratochvil <pgp-44FC7632@jankratochvil.net>
' + .'sub 2048g/D9F5F44B 2002-10-07 [expires 2004-10-06]' ]}
+ +@{[ vskip "2ex" ]} + + + + + + + + + + + + + + + +
Platforms GNU/Linux/i386/UNIX/FreeBSD, W32 kernel, Amiga/680x0, MS-DOS, + ZX Spectrum, handheld PC-E500S
Major Areas mobile technologies, filesystems, embedded devices
Languages C (Gnome/GCC), Perl, bash/awk/sed..., + Java, C++, Pascal, Basic, REXX, S-Lang, Foxplus, Prolog
Tools/Metalanguagesautoconf, automake, libtool, m4, CVS, gettext, bison, flex, ld script, + gdb script, Maple V
Assemblers i386, Motorola 680x0, Zilog Z80, Intel 8051, MIPS R2/3000, + (Hitachi SH-8)
WWW-Related (X)HTML, CSS, PHP, SQL (PostgreSQL, MySQL), JavaScript, CGI
DocumentationplainTeX, LaTeX, DocBook, DocBook Lite, XML/NS/Schema, nroff, pod
Libraries Gnome/GTK+/GLib, POSIX/BSD/SysV/threads/sockets, X11, OpenGL, NCurses, + S-Lang, GnomeVFS, libxml, SVGALib, NIS, Qt,...
RPC CORBA/ORBit, SOAP, Sun RPC
Protocols GSM SMS/PDU/Nokia Smart Messaging/EMS/MMS/SMIL/WAP/WSP/AMR/ETSI stds/3GPP stds, + IPv4, HTTP, SMTP/RFC822/MIME, FTP, SSH, DHCP, POP3, NFSv2, PPP/LCP/IPCP,...
Filesystems ext2, FAT, AmigaFFS, ISO-9660
Each technology involved in at least one of my past projects.
+ +@{[ vskip "2ex" ]} + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
1984-1991Platform:Sinclair ZX Spectrum: Basic, Zilog Z80 machine code
1992-1997Platform:Amiga: Motorola 680x0 assembler, C, REXX
Projects:@{[ &{$free_projects}("amiga") ]}
1993-1997Platform:PC/MS-DOS: i386 assembler, C, Pascal, OpenGL/Mesa, Foxplus
Unlisted Projects:@{[ &{$free_projects}("dos") ]}
1993 @{[ a_href('http://www.japhila.cz/index_en.htm','Japhila') ]}StampMan: Database application @{[ techs 'MS-DOS: Pascal, plainTeX' ]}
1993-$nowPlatform:PC/GNU/Linux: + C, Perl, bash/awk/sed..., Java, C++, ...
Unlisted Projects:@{[ &{$free_projects}(qw(unixuser unixdevel web)) ]}
1993-1996Profes J&KPC assembly and customer service
1998 @{[ a_href('http://www.elsa-online.org/',"European Law Students' Association") ]}@{[ &$project('step') ]} @{[ techs 'PHP, PostgreSQL' ]}
+ subtasks @{[ &$project('phphash',"bare"=>1) ]}, @{[ &$project('pgsqlsubstr',"bare"=>1) ]}
1998-1999@{[ a_href('http://www.geoinvest.cz/','Geoinvest') ]}@{[ a_href 'http://members.tripod.com/Stelios_Cellar/GSM/m1module.htm','Siemens M1' ]} + GSM modem daemon, client/server, remote GSM terminals @{[ techs 'C, GSM, GPS, S-Lang' ]}
+ GPLed subtask @{[ &$project('vblib') ]} @{[ techs 'C' ]}
1999 @{[ a_href('http://www.tencom.cz/','TENcom Trade') ]}@{[ a_href "/project/mdsms/","MobilDock SMS Tool","attr"=>'class="project"' ]} @{[ techs 'GSM/PDU' ]}
1999 @{[ a_href('http://www.geoinvest.cz/','Geoinvest') ]}@{[ &$project('332') ]} @{[ techs 'M680x0 asm, C' ]}
+ subtask @{[ &$project('mot2as') ]}
1999 @{[ a_href('http://www.unicom-prague.cz/','Unicom') ]}Technical translations from English
1999-$now@{[ a_href('http://www.jklabs.cz/','JKLabs') ]}sysadmin GNU/Linux and FreeBSD, techsupport: GuestNET, + @{[ a_href 'http://www.2m.dk/web/html_version/eclipse/eclipse.html','Eclipse' ]}, + @{[ a_href 'http://www.globaloop.com/','GlobaLoop' ]}, + @{[ a_href 'http://www.antlimited.com/products/fresco.htm','Fresco' ]}
1999 @{[ a_href('http://www.jklabs.cz/','JKLabs') ]}IRQ redirector for legacy devices @{[ techs 'i386 asm' ]}
1999-2000@{[ a_href('http://www.suse.com/','SuSE') ]}@{[ &$project('surprise') ]} @{[ techs 'C, Gnome, m4' ]}
+ subtask @{[ &$project('int13sniff') ]}
+ subtask @{[ &$project('gladewsrc') ]}
2001 @{[ a_href('http://www.gtsgroup.cz/','GTS') ]}@{[ &$project('tac_plus') ]} @{[ techs 'C, Cisco TACACS+' ]}
+ subtask @{[ &$project('mod_auth_tacacs') ]} @{[ techs 'C, Cisco TACACS+' ]}
2001 @{[ a_href('http://www.atspraha.cz/','Advanced Telecom Services') ]}@{[ &$project('mdsms') ]} - update for + @{[ a_href 'http://www.transportdata.de/html/produkte/siemens_m20t.php?lang=en', + 'Siemens M20' ]} + @{[ techs 'C, GSM PDU' ]}
2001 @{[ a_href('http://www.atspraha.cz/','Advanced Telecom Services') ]}@{[ a_href 'http://www.gnokii.org/','gnokii' ]} + @{[ a_href 'http://www.jankratochvil.net/priv/gnokii/gnokii-lace-2001-11-17-01.tar.gz', + 'driver for SMS gateway' ]} + of GSM operator @{[ a_href('http://www.eurotel.cz/','EuroTel') ]} + (C, PostgreSQL)
2001 @{[ a_href('http://www.atspraha.cz/','Advanced Telecom Services') ]}@{[ &$project('gsmperl') ]} @{[ techs 'Perl, GSM EMS' ]}
2001 @{[ a_href('http://www.netcentrum.cz/','NetCentrum') ]}@{[ a_href 'http://www.gnokii.org/','gnokii' ]} + @{[ a_href 'http://www.jankratochvil.net/priv/gnokii/gnokii-0.4.0pre1_lace2001_11_14_01_netcentrum.diff', + 'driver for custom SMS gateway protocol' ]} @{[ techs 'C' ]}
2001 @{[ a_href('http://www.readynote.com/','ReadyNote') ]}@{[ &$project('mdsms') ]} port to embedded $uClinux + @{[ techs 'GSM, Nokia, uClinux' ]}
2002 @{[ a_href('http://www.readynote.com/','ReadyNote') ]}@{[ a_href 'http://www.mwiacek.com/gsm/gammu/gammu.html','mygnokii' ]} + @{[ a_href 'http://www.jankratochvil.net/priv/gnokii/mygnokii-0.3.3_pre8-gold_2002_03_10--uClinux2002_03_17_23_03/', + 'port to embedded' ]} $uClinux, + @{[ a_href 'http://www.nokiausa.com/phones/5190/1,1162,,00.html','Nokia 5190' ]} + @{[ a_href 'http://www.jankratochvil.net/priv/gnokii/mygnokii-0.3.3_pre8-gold_2002_02_24-decodefile/', + 'sw-modem debugging' ]} + @{[ techs 'GSM, Nokia, uClinux' ]}
2002 @{[ a_href('http://www.jklabs.cz/','JKLabs') ]}@{[ &$project('ssht') ]}
2002 @{[ a_href('http://www.jklabs.cz/','JKLabs') ]}@{[ &$project('middleman') ]} + for hotel system @{[ techs 'C, BSD, HTTP' ]}
2002 @{[ a_href('http://www.atspraha.cz/','Advanced Telecom Services') ]}MMS framework client via @{[ a_href('http://www.eurotel.cz/site/en/home/','EuroTel') ]} GSM operator + (GSM MMS, Perl, XML, SOAP)
+ subtasks @{[ a_href "/etmms/",'MMS center debugging',"attr"=>'class="project"' ]}, + @{[ &$project('etherealmmse',"bare"=>1) ]}, @{[ &$project('etherealwsp',"bare"=>1) ]}
Contractor Jobs
+ +@{[ vskip "1ex" ]} + + + + @{[ &{$reference}('wnavx(ng)wncuvyn.pbz','Bretislav Janik') ]} + + @{[ &{$reference}('ohgna(ng)trbvairfg.pm','Lubor Otta') ]} + + @{[ &{$reference}('grfne(ng)grapbz.pm','Petr Tesar') ]} + + @{[ &{$reference}('erprcpr(ng)havpbz-centhr.pm','Valerie Bernardova') ]} + + @{[ &{$reference}('wna.xbyne(ng)wxynof.pm','Jan Kolar') ]} + + @{[ &{$reference}('Zvpunry.Znprx(ng)tgftebhc.pm','Michael Macek') ]} + + @{[ &{$reference}('zvpuny.ubenx(ng)ngfcenun.pm','Michal Horak') ]} + + @{[ &{$reference}('wcehrgg(ng)ernqlabgr.pbz','Jim Pruett') ]} +HERE + +if (lc($W->{"args"}{"referees"}) ne "referees") { + print <<"HERE"; + +HERE + } + +print <<"HERE"; + +
@{[ a_href('http://www.japhila.cz/index_en.htm','Japhila') ]}
@{[ a_href('http://www.geoinvest.cz/','Geoinvest') ]}
@{[ a_href('http://www.tencom.cz/','TENcom Trade') ]}
@{[ a_href('http://www.unicom-prague.cz/','Unicom') ]}
@{[ a_href('http://www.jklabs.cz/','JKLabs') ]}
@{[ a_href('http://www.gtsgroup.cz/','GTS') ]}
@{[ a_href('http://www.atspraha.cz/','Advanced Telecom Services') ]}
@{[ a_href('http://www.readynote.com/','ReadyNote') ]}
+
+
+

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

+ + +

(spambot protection)

+
+
Contractor Jobs Referees (chronologically)
+ +@{[ vskip "2ex" ]} + + + + + + + +
19957th in the Central European Olympiad in Informatics
19964th in the International Competition in Programming
19971st in the International Competition in Programming
19972nd in an MO-P national contest - mathematics Olympiad, the programming category
1997Bronze medal in the International Olympiad in Informatics, South Africa - Cape Town
+ +@{[ vskip "3ex" ]} + +

Looking for a fulltime job. Relocation around the world expected.

+

Contact: $mailme

+HERE + + +My::Web->footer(); -- 1.8.3.1