X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=resume%2Fresumejankratochvil.pm;h=3a1aacbc5fd9057414cb0d1a8a1dd9a04191b0ad;hb=8e257c5643c0c5043eb75935cde97b5e97dfdc8c;hp=0776db0838a6156563609c5db04a6dde28c6d286;hpb=ebaa241877ed4eb0c79f48ec38ba4ce6d2540651;p=www.jankratochvil.net.git

diff --git a/resume/resumejankratochvil.pm b/resume/resumejankratochvil.pm
index 0776db0..3a1aacb 100644
--- 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();