#!/usr/bin/perl
# Search AREA players by name or AREA ID or games by title.
# Bruno Wolff III
# Last revised October 20,2012
use utf8;
use feature 'unicode_strings';
use open ':encoding(utf8)';
use POSIX qw(locale_h);
setlocale(LC_ALL, "en_US.utf8");
# Flush output immediately as database lookups can cause delays.
select(STDOUT);
$| = 1;
# Prevent ridiculously large requests from causing problems.
$MAXPOST = 10000;
# Turn off space seperators when including arrays in quoted text.
$" = '';
use Pg;
# Use this to clean stuff extracted from the database for html output
sub clean(@) {
local $str = "@_";
$str =~ s/&/&/g;
$str =~ s//>/g;
$str =~ s/"/"/g;
return $str;
}
# Use this to convert REQUEST_URI to unescaped string
sub urldecode(@) {
local $str = "@_";
$str =~ s/\%[[:digit:]abcdefABCDEF]{2}/$urldhash{$&}/eg;
return $str;
}
# Use this to make sure urls don't contain url specials
sub urlencode(@) {
local $str = "@_";
$str =~ s/[^-_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ[:digit:].$+!*(),]/$urlehash{$&}/eg;
return $str;
}
# One time build of data used by url decode
sub urlinit() {
my $c;
my $f;
my $i;
for ($i=0; $i<=255; $i++) {
$c = chr($i);
$f = sprintf('%%%.2X', $i);
$urldhash{$f} = $c;
$urldhash{lc($f)} = $c;
$urldhash{lc($f)} = '' if $i > 127;
$urlehash{$c} = $f;
}
}
urlinit;
# Get paramters.
if ($ENV{REQUEST_METHOD} eq 'POST') {
$ENV{QUERY_STRING} = '';
if ($ENV{CONTENT_LENGTH} =~ m/^\d+$/ && $ENV{CONTENT_LENGTH} >= 0 &&
$ENV{CONTENT_LENGTH} <= $MAXPOST &&
lc($ENV{CONTENT_TYPE}) eq 'application/x-www-form-urlencoded') {
if (read(STDIN, $ENV{QUERY_STRING}, $ENV{CONTENT_LENGTH}) !=
$ENV{CONTENT_LENGTH}) {
$ENV{QUERY_STRING} = '';
}
}
}
elsif ($ENV{REQUEST_METHOD} eq '') {
$ENV{QUERY_STRING} = '';
}
elsif ($ENV{REQUEST_METHOD} ne 'GET' && $ENV{REQUEST_METHOD} ne 'HEAD') {
$meth = clean($ENV{REQUEST_METHOD});
$uri = clean($ENV{REQUEST_URI});
print <<"EOF";
content-type: text/html; charset=UTF-8
status: 501 Method not implemented
501 Method Not Implemented
Method Not Implemented
Method '$meth' not implented for '$uri'.
EOF
exit;
}
$ENV{QUERY_STRING} =~ s/\+/ /g;
foreach $s (split('&', $ENV{QUERY_STRING})) {
my $s1;
my $s2;
next if $s eq '';
if ($s =~ m/\=/) {
$s1 = $`;
$s2 = $';
$par{urldecode($s1)} .= urldecode($s2);
}
else {
$par{urldecode($s)} .= '';
}
}
$keywords = clean($par{keywords});
utf8::decode($par{keywords});
$uri = $ENV{REQUEST_URI};
$uri =~ s%\?.*$%%;
$uri =~ s%^.*/%%;
print << "EOF";
content-type: text/html; charset=UTF-8
Search AREA for players by name or AREA ID or games by title
EOF
{
local *INPUT;
if (open(INPUT, "links.html")) {
print while ();
close INPUT;
}
}
print << "EOF";
\n";
$conn = Pg::connectdb('dbname=area');
if ($conn->status != PGRES_CONNECTION_OK) {
print "Unable to connect the AREA database.\n";
}
else {
$s = '';
$j = 'where';
foreach $word (split(/[^[:graph:]]+/, $par{keywords})) {
next if $word eq '';
$word =~ s/[^[:graph:]]//g;
$word =~ s/[^[:alnum:]]/\\$&/g;
$word =~ s/\\|\'/\\$&/g;
$s .= " $j title ~* '(^| )$word( |\$)'";
$j = 'and';
}
$result = $conn->exec("select gameid, title from games $s order by lower(title)");
if ($result->resultStatus != PGRES_TUPLES_OK) {
print "Unable to access the games table.\n";
}
elsif ($result->ntuples <= 0) {
print "No games with matching titles were found.\n";
}
else {
print "
\n";
$conn = Pg::connectdb('dbname=area');
if ($conn->status != PGRES_CONNECTION_OK) {
print "Unable to connect the AREA database.\n";
}
else {
$s = '';
$j = 'where';
foreach $word (split(/[^[:graph:]]+/, $par{keywords})) {
next if $word eq '';
$word =~ s/[^[:graph:]]//g;
$word =~ s/[^[:alnum:]]/\\$&/g;
$word =~ s/\\|\'/\\$&/g;
$s .= " $j title ~* '(^| )$word'";
$j = 'and';
}
$result = $conn->exec("select gameid, title from games $s order by lower(title)");
if ($result->resultStatus != PGRES_TUPLES_OK) {
print "Unable to access the games table.\n";
}
elsif ($result->ntuples <= 0) {
print "No games with matching titles were found.\n";
}
else {
print "
\n";
}
}
}
print << "EOF";
EOF
{
local *INPUT;
if (open(INPUT, "links.html")) {
print while ();
close INPUT;
}
}
{
local *INPUT;
if (open(INPUT, "sig.html")) {
print while ();
close INPUT;
}
}
print << "EOF";
EOF