"Challenging job" /project/captive/ announcement removed.
[www.jankratochvil.net.git] / resume / Resume-JanKratochvil.html.pl
index c47a2e7..617a3f4 100755 (executable)
@@ -55,6 +55,7 @@ table.jobs td { padding: 1ex; }
                                "print"=>'^(?:print)?$',
                                },
                );
+$W->{"args"}{"Wabs"}=1;
 My::Web->heading();
 
 
@@ -134,7 +135,7 @@ my $now=(localtime())[5]+1900;
 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>
@@ -142,8 +143,9 @@ print <<"HERE";
 <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 &lt;pgp-44FC7632@jankratochvil.net&gt;<br />'
                .'sub  2048g/D9F5F44B 2002-10-07 [expires 2004-10-06]' ]}</span></td></tr>
@@ -167,7 +169,7 @@ print <<"HERE";
                        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
@@ -310,6 +312,29 @@ print <<"HERE";
                                                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