Cosmetic: Prevent mailing list archive/listinfo double-slashes ('//').

[www.jankratochvil.net.git] / resume / Resume-JanKratochvil.html.pl

diff --git a/resume/Resume-JanKratochvil.html.pl b/resume/Resume-JanKratochvil.html.pl
index c9d2606..1484e31 100755 (executable)
--- a/resume/Resume-JanKratochvil.html.pl
+++ b/resume/Resume-JanKratochvil.html.pl
@@ -50,6 +50,7 @@ table.referees td.com { text-align: center; }
 ",
                "args_check"=>{
                                "referees"=>'', # Do not bother with '^(?:(?i)referees)?$'
+                               "print"=>'^(?:print)?$',
                                },
                );
 My::Web->heading();
@@ -150,7 +151,8 @@ print <<"HERE";
 <tr><td class="tab-head">Assemblers   </td><td>i386, Motorola 680x0, Zilog&nbsp;Z80, Intel 8051, MIPS R2/3000,
                                                (Hitachi SH-8)</td></tr>
 <tr><td class="tab-head">WWW-Related  </td><td>(X)HTML, CSS, PHP, SQL (PostgreSQL, MySQL), JavaScript, CGI</td></tr>
-<tr><td class="tab-head">Documentation</td><td>plainTeX, LaTeX, DocBook, DocBook Lite, XML/NS/Schema, nroff, pod</td></tr>
+<tr><td class="tab-head">Documentation</td><td>plainTeX, LaTeX, DocBook, DocBook Lite, XML/NS/Schema,
+                                               gtk-doc, nroff, pod</td></tr>
 <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&nbsp;RPC</td></tr>
@@ -163,15 +165,15 @@ print <<"HERE";
 @{[ vskip "2ex" ]}
 
 <table>
-<tr><td>1984-1991</td><td class="platform">Platform:</td><td>Sinclair ZX Spectrum: Basic, Zilog Z80 machine code</td></tr>
-<tr><td>1992-1997</td><td class="platform">Platform:</td><td>Amiga: Motorola 680x0 assembler, C, REXX</td></tr>
-<tr><td>         </td><td class="platform">Projects:</td><td>@{[ &{$free_projects}("amiga") ]}</td></tr>
-<tr><td>1993-1997</td><td class="platform">Platform:</td><td>PC/MS-DOS: i386 assembler, C, Pascal, OpenGL/Mesa, Foxplus</td></tr>
-<tr><td>         </td><td class="platform">Unlisted Projects:</td><td>@{[ &{$free_projects}("dos") ]}</td></tr>
+<tr><td></td><td class="platform">Platform 1984-1991:</td><td>Sinclair ZX Spectrum: Basic, Zilog Z80 machine code</td></tr>
+<tr><td></td><td class="platform">Platform 1992-1997:</td><td>Amiga: Motorola 680x0 assembler, C, REXX</td></tr>
+<tr><td></td><td class="platform">Projects:</td><td>@{[ &{$free_projects}("amiga") ]}</td></tr>
+<tr><td></td><td class="platform">Platform 1993-1997:</td><td>PC/MS-DOS: i386 assembler, C, Pascal, OpenGL/Mesa, Foxplus</td></tr>
+<tr><td></td><td class="platform">Unlisted Projects:</td><td>@{[ &{$free_projects}("dos") ]}</td></tr>
 <tr><td>1993     </td><td class="com">@{[ a_href('http://www.japhila.cz/index_en.htm','Japhila') ]}</td>
                <td>StampMan: Database application @{[ techs 'MS-DOS: Pascal, plainTeX' ]}</td></tr>
-<tr><td>1993-$now</td><td class="platform">Platform:</td><td>PC/GNU/Linux:
-                                                       C, Perl, bash/awk/sed..., Java, C++, ...</td></tr>
+<tr><td></td><td class="platform">Platform 1993-$now:</td><td>PC/GNU/Linux:
+                                                              C, Perl, bash/awk/sed..., Java, C++, ...</td></tr>
 <tr><td>         </td><td class="platform">Unlisted Projects:</td><td>@{[ &{$free_projects}(qw(unixuser unixdevel web)) ]}</td></tr>
 <tr><td>1993-1996</td><td class="com">Profes J&amp;K</td>
                <td>PC assembly and customer service</td></tr>
@@ -269,7 +271,7 @@ if (lc($W->{"args"}{"referees"}) ne "referees") {
        print <<"HERE";
                <tr><td style="padding: 10px;" colspan="2">
                        <hr />
-                       <form method="post" action="@{[ $W->{"resume_url"} ]}">
+                       <form method="post" action="@{[ top_dir $W->{"resume_url"} ]}">
                                <p>Enter the word '<b>referees</b>' (without quotes) to disclose e-mail addresses:</p>
                                <input type="text" size="15" name="referees" value="@{[ CGI::escapeHTML($W->{"args"}{"referees"}) ]}" />
                                <input type="submit" value="Submit" />