From 349edc7b6518da82d08bad20abe62b9fbdf3c3d0 Mon Sep 17 00:00:00 2001 From: short <> Date: Sun, 11 Dec 2005 04:22:37 +0000 Subject: [PATCH] Fixed self-validation. - Now supports "code=\d+" argument to use 200 for the test. --- resume/resumejankratochvil.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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(); -- 1.8.3.1