+My::Web flag "http_safe" implemented.

[www.jankratochvil.net.git] / resume / ResumeJanKratochvil.pm

diff --git a/resume/ResumeJanKratochvil.pm b/resume/ResumeJanKratochvil.pm
index 413bff3..518d15c 100644 (file)
--- a/resume/ResumeJanKratochvil.pm
+++ b/resume/ResumeJanKratochvil.pm
@@ -25,7 +25,6 @@ use strict;
 use warnings;
 
 use My::Web;
-require CGI;
 require Crypt::Rot13;
 Wrequire 'project::Lib';
 
@@ -64,6 +63,7 @@ my $W=My::Web->init(
                                "referees"=>'', # Do not bother with '^(?:(?i)referees)?$'
                                "print"=>'^(?:print)?$',
                                },
+               "http_safe"=>1, # For our anti-robot POST request.
                );
 $W->{"args"}{"Wabs"}=1;
 My::Web->heading();
@@ -290,7 +290,7 @@ if (lc($W->{"args"}{"referees"}) ne "referees") {
                        <hr />
                        <form method="post" action="@{[ uri_escaped(path_web $W->{"resume_url"}) ]}">
                                <p>Enter the word '<b>referees</b>' (without quotes) to disclose e-mail addresses:<br />
-                               <input type="text" size="15" name="referees" value="@{[ CGI::escapeHTML($W->{"args"}{"referees"}) ]}" /><br />
+                               <input type="text" size="15" name="referees" value="@{[ escapeHTML($W->{"args"}{"referees"}) ]}" /><br />
                                <input type="submit" value="Submit" /><br />
                                (spambot protection)</p>
                        </form>