git://git.jankratochvil.net
/
www.jankratochvil.net.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Apparently no longer looking for `agents'.
[www.jankratochvil.net.git]
/
resume
/
resumejankratochvil.pm
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);
use Apache2::Const qw(HTTP_NOT_FOUND);
+our $HTML_TEST_QUERY_STRING="code=200";
+
sub handler
{
my $W=My::Web->init(
"title"=>"Browser BUG",
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,
);
"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();
My::Web->heading();