# $Id$
# Catch the application/xhtml+xml Firefox URL-lowercasing bug, if there is any.
# Copyright (C) 2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
# 
# 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";
<h1>Browser Bug Found!</h1>

<p>I would REALLY appreciate if you can contact me at the e-mail address:
		@{[ map({ a_href("mailto:$_",$_); } 'lace@jankratochvil.net') ]}</p>
<p>
	You probably hit a bug in YOUR BROWSER regarding <b>application/xhtml+xml</b> parsing.
	So far I am not able to reproduce this bug myself.
</p>
<p>Thanks!</p>
HERE


exit;
}
1;