#!/usr/bin/perl
use strict;
use warnings;
my $r = shift;
my $cgi = Apache2::Request->new($r);
my $QUERY;
if ($cgi->param('q') =~ /^([a-zA-Z0-9\ \.\,\-_\:\;]+)$/)
{
$QUERY = $1;
}
my $ruri = $ENV{'REQUEST_URI'};
$ruri =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
...
...
if ($sth->rows == 0)
{
#$r->err_headers_out->set(Location => "$ruri/");
$r->status(404);
#$r->status(Apache2::Const::NOT_FOUND);
$r->content_type('text/html');
$r->print(<<"END");
handler
Hello from ME.
END
ModPerl::Util::exit(0);
}
...
...