Declare possible 'print' argument; unused now.

[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..7a649af 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();
@@ -269,7 +270,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" />