#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; exactly version 2 of June 1991 is required
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
package resume::resumejankratochvil;
require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway
use vars qw($VERSION $CVS_ID);
$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
$CVS_ID=q$Id$;
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();
print <<"HERE";
Browser Bug Found!
I would REALLY appreciate if you can contact me at the e-mail address:
@{[ map({ a_href("mailto:$_",$_); } 'lace@jankratochvil.net') ]}
You probably hit a bug in YOUR BROWSER regarding application/xhtml+xml parsing.
So far I am not able to reproduce this bug myself.
Thanks!
HERE
exit;
}
1;