Fixed self-validation.

 - Now supports "code=\d+" argument to use 200 for the test.

diff --git a/resume/resumejankratochvil.pm b/resume/resumejankratochvil.pm
index 0776db0..3a1aacb 100644 (file)
--- a/resume/resumejankratochvil.pm
+++ b/resume/resumejankratochvil.pm
@@ -28,16 +28,21 @@ use My::Web;
 use Apache2::Const qw(HTTP_NOT_FOUND);
 
 
+our $HTML_TEST_QUERY_STRING="code=200";
+
 sub handler
 {
 my $W=My::Web->init(
                "title"=>"Browser BUG",
+               "args_check"=>{
+                               "code"=>'^\d*$',
+                               },
                "heading"=>0,
                "footer"=>0,
                "content_type"=>"text/html",
                "no_job"=>1,
                );
-$W->{"r"}->status(HTTP_NOT_FOUND);
+$W->{"r"}->status($W->{"args"}{"code"} || HTTP_NOT_FOUND);
 My::Web->heading();