+Own Free Projects.

diff --git a/resume/Resume-JanKratochvil.html.pl b/resume/Resume-JanKratochvil.html.pl
index c47a2e7..2b3cf8b 100755 (executable)
--- a/resume/Resume-JanKratochvil.html.pl
+++ b/resume/Resume-JanKratochvil.html.pl
@@ -310,6 +310,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>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