"print"=>'^(?:print)?$',
},
);
+$W->{"args"}{"Wabs"}=1;
My::Web->heading();
print <<"HERE";
<table width="100%" style="border-style: none;"><tr><td align="center"><table>
-<tr><td rowspan="10" style="padding: 10px; vertical-align: middle;">
- @{[ img "/resume/Resume-JanKratochvil","face" ]}</td>
- <td class="tab-head">Name </td><td>Jan Kratochvil</td></tr>
+<tr><td class="tab-head">Name </td><td>Jan Kratochvil</td></tr>
<tr><td class="tab-head">English </td><td>technical: fluent, general: communicable</td></tr>
<tr><td class="tab-head">Born </td><td>1979</td></tr>
<tr><td class="tab-head">Sex </td><td>male</td></tr>
-<tr><td class="tab-head">Status </td><td>single</td></tr>
<tr><td class="tab-head">Licenses</td><td>motorcycle, car</td></tr>
<tr><td class="tab-head">eMail </td><td>$mailme</td></tr>
-<tr><td class="tab-head">WWW </td><td>@{[ a_href('http://www.jankratochvil.net/') ]}</td></tr>
-<tr><td class="tab-head">Resume </td><td>@{[ a_href('http://www.jankratochvil.net/resume/') ]}</td></tr>
+<tr><td class="tab-head">Projects</td><td>@{[ a_href('http://www.jankratochvil.net/project/') ]}</td></tr>
+<tr><td class="tab-head">Resume </td><td>@{[ a_href('http://www.jankratochvil.net/resume/') ]}<br />
+ [ @{[ a_href '/resume/Resume-JanKratochvil.pdf','PDF' ]} ]</td></tr>
<tr><td class="tab-head">OpenPGP </td><td style="font-family: monospace;">@{[ a_href '/pgp-JanKratochvil.txt',''
.'pub 1024D/44FC7632 2002-10-07 Jan Kratochvil <pgp-44FC7632@jankratochvil.net><br />'
.'sub 2048g/D9F5F44B 2002-10-07 [expires 2004-10-06]' ]}</span></td></tr>
@{[ vskip "3ex" ]}
-<p style="font-size: larger;">Looking for a fulltime job. Relocation around the world expected.</p>
+<table border="1" frame="border" rules="rows" class="jobs">
+<caption>Fulltime Job</caption>
+<tr><th>Date</th><th>Company</th>
+ <th>Description</th></tr>
+<tr><td>2004/01-now</td><td class="com">@{[ a_href('http://www.sun.com/','Sun Microsystems') ]}</td>
+ <td>Java Enterprise System Quality Assurance,<br />
+ JES components compatibility analysis</td></tr>
+</table>
-@{[ vskip "3ex" ]}
+@{[ vskip "1ex" ]}
<table border="1" frame="border" rules="rows" class="jobs">
<caption>Contractor Jobs</caption>
<th>Description</th></tr>
<tr><td>2002-2003</td><td class="com">- (freelance project)</td>
<td>@{[ &$project('captive') ]} (14 months)<br />
+ Featured @{[ a_href 'http://slashdot.org/article.pl?sid=03/12/02/1536227','on slashdot' ]}.<br />
Project required analysing portions of 80MB+ i386 disassembly dumps of MS-Windows XP kernel and ntfs.sys
to achieve the first binary compatible reimplementation of the required undocumented XP kernel subsystems.<br />
Written @{[ &$project('TraceFS') ]} as native W32 kernel hooking driver for run-time analysis of the NT Cache Manager
XP kernel subsystem.<br />
GNU/Linux part required integration and extensions of
@{[ a_href 'http://lufs.sourceforge.net/lufs/','LUFS' ]} (Linux Userland File System)
- to transparently connect the UNIX userland based MS-Windows kernel filesystem isolated by CORBA/ORBit interface.
+ to transparently connect the UNIX userland based MS-Windows kernel filesystem isolated by the CORBA/ORBit interface.
</td></tr>
<tr><td>2001-2002</td><td class="com">@{[ a_href('http://www.atspraha.cz/','Advanced Telecom Services') ]}</td>
- <td>Mobile technologies implementations
+ <td>Mobile technologies
<ul>
<li>MMS framework client via EuroTel GSM operator
by technologies GSM MMS, Perl, XML, SOAP (3 months, still maintained)<br />
Project included
- @{[ a_href "/etmms/",'pilot MMS Center debugging',"attr"=>'class="project"' ]} by
- @{[ a_href 'http://www.ethereal.com','Ethereal' ]} sniffer incl. its fixes
+ @{[ a_href "/etmms/",'pilot MMS Center debugging',"attr"=>'class="project"' ]} with
+ Ethereal (@{[ a_href 'http://www.ethereal.com','external link' ]}), fixes of Ethereal
(@{[ a_href '/project/etherealmmse/','1' ]}, @{[ a_href '/project/etherealwsp/','2' ]}).
</li>
- <li>Multimedia EMS support extension by @{[ &$project('gsmperl',"bare"=>1) ]}</li>
+ <li>Multimedia EMS support implemented by @{[ &$project('gsmperl',"bare"=>1) ]}</li>
<li>Implementation of protocol BIP (based on Nokia CIMD2 protocol) for GSM SMS Center direct communication
- by extending gnokii (@{[ a_href 'http://www.gnokii.org/','free project' ]})
+ by extending gnokii (@{[ a_href 'http://www.gnokii.org/','external link' ]})
for EuroTel GSM operator (still in use)</li>
</ul>
</td></tr>
<tr><td>2001-2002</td><td class="com">@{[ a_href('http://www.readynote.com/','ReadyNote') ]}</td>
<td>Mobile technologies for embedded devices
<ul>
- <li>Completed debugging of gnokii (@{[ a_href 'http://www.gnokii.org/','free project' ]}) GSM software modem
+ <li>Completed debugging of gnokii (@{[ a_href 'http://www.gnokii.org/','external link' ]}) GSM software modem
for Nokia 5190</li>
<li>Port of gnokii and my @{[ &$project('mdsms',"parenthesis"=>1) ]} to embedded
- uClinux (@{[ a_href 'http://www.uclinux.org/','free project' ]})</li>
+ uClinux (@{[ a_href 'http://www.uclinux.org/','external link' ]})</li>
</ul>
</td></tr>
<tr><td>1999-2003</td><td class="com">@{[ a_href('http://www.jklabs.cz/','JKLabs') ]}</td>
<tr><td class="tab-head">Libraries </td><td>Gnome/GTK+/GLib, POSIX/BSD/SysV/threads/sockets, X11, OpenGL, NCurses,
S-Lang, GnomeVFS, libxml, SVGALib, NIS, Qt,...</td></tr>
<tr><td class="tab-head">RPC </td><td>CORBA/ORBit, SOAP, WSDL, Sun RPC</td></tr>
-<tr><td class="tab-head">Protocols </td><td>GSM SMS/PDU/Nokia Smart Messaging/EMS/MMS/SMIL/WAP/WSP/AMR/ETSI stds/3GPP stds,
+<tr><td class="tab-head">Protocols </td><td>GSM SMS/PDU/Nokia Smart Messaging/EMS/WTP/WSP/MMSE/SMIL/WML/AMR/ETSI stds/3GPP stds,
IPv4, HTTP, SMTP/RFC822/MIME, FTP, SSH, DHCP, POP3, NFSv2, PPP/LCP/IPCP,...</td></tr>
<tr><td class="tab-head">Filesystems </td><td>ext2, FAT, AmigaFFS, ISO-9660</td></tr>
</table>
+
+@{[ vskip "2ex" ]}
+
+<table border="1" frame="border" rules="groups">
+<caption>My Own Free Projects</caption>
+<thead>
+ <tr><td colspan="2" style="font-size: larger;" align="center">
+ Detailed listing available at: @{[ a_href 'http://www.jankratochvil.net/projects/' ]}
+ </td></tr>
+</thead>
+<tr><th>Platform</th><th>Available Free Projects</th></tr>
+HERE
+ my @platforms=@My::Project::platforms;
+ while (@platforms) {
+ my $platform_sym =shift @platforms;
+ my $platform_name=shift @platforms;
+ print "<tr>";
+ print '<td>'.a_href('/project/#'.$platform_sym,$platform_name).'</td>';
+ print '<td>'.&{$free_projects}($platform_sym).'</td>';
+ print "</tr>\n";
+ }
+print <<"HERE";
+</table>
HERE