Apparently no longer looking for `agents'.

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

diff --git a/resume/resumejankratochvil.pm b/resume/resumejankratochvil.pm
index fee9bf5..3a1aacb 100644 (file)
--- a/resume/resumejankratochvil.pm
+++ b/resume/resumejankratochvil.pm
@@ -25,17 +25,24 @@ use strict;
 use warnings;
 
 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($W->{"args"}{"code"} || HTTP_NOT_FOUND);
 My::Web->heading();