"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>
+ @{[ img "/resume/Resume-JanKratochvil-face","face" ]}</td>
<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">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>
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
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