+'gtk-doc'

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

diff --git a/resume/Resume-JanKratochvil.html.pl b/resume/Resume-JanKratochvil.html.pl
index 3219608..c111308 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,10 +151,11 @@ 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, Sun&nbsp;RPC</td></tr>
+<tr><td class="tab-head">RPC          </td><td>CORBA/ORBit, SOAP, WSDL, Sun&nbsp;RPC</td></tr>
 <tr><td class="tab-head">Protocols    </td><td>GSM SMS/PDU/Nokia&nbsp;Smart&nbsp;Messaging/EMS/MMS/SMIL/WAP/WSP/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>
@@ -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" />