+My::Web flag "http_safe" implemented.

diff --git a/resume/ResumeJanKratochvil.pm b/resume/ResumeJanKratochvil.pm
index b1cbcfd..518d15c 100644 (file)
--- a/resume/ResumeJanKratochvil.pm
+++ b/resume/ResumeJanKratochvil.pm
@@ -63,6 +63,7 @@ my $W=My::Web->init(
                                "referees"=>'', # Do not bother with '^(?:(?i)referees)?$'
                                "print"=>'^(?:print)?$',
                                },
                                "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();
                );
 $W->{"args"}{"Wabs"}=1;
 My::Web->heading();