#!/usr/local/bin/perl

unshift(@INC, '/var/local/www/local');
%require_map = ('/testpinkdex', 'testpinkdex.pl',
'/testpinkdex_v', 'testpinkdex.pl',
'/activities', 'afs_safe.pl',
'/takevote', 'coollist.pl',
'/dovote', 'coollist.pl',
'/forward', 'test.pl');

%subroutine_map = ('/testpinkdex', 'do_testpinkdex',
'/testpinkdex_v', 'do_testpinkdex_verbose',
'/takevote', 'take_vote',
'/dovote', 'do_vote',
'/forward', 'do_test');

$version = $ENV{'SERVER_PROTOCOL'};
$method = $ENV{'REQUEST_METHOD'};
$path = $ENV{'PATH_INFO'};
$tpath = $ENV{'PATH_TRANSLATED'};
$script = $ENV{'SCRIPT_NAME'};
$query = $ENV{'QUERY_STRING'};
$rhost = $ENV{'REMOTE_HOST'};
$raddr = $ENV{'REMOTE_ADDR'};
$clen = $ENV{'CONTENT_LENGTH'};
$useragent = $ENV{'HTTP_USER_AGENT'};

$query = join(' ', @ARGV) if $ARGV[0];
print("Content-type: text/html\n");
print("\n");
#print("\nRequest: $method $path ?($query)? $version\n");
#print("Tpath: $tpath, Script $script\n");
#print("From $rhost [$raddr] --> $useragent\n");
#print("Requiring $require_map{$path},",
#	" and trying to run $subroutine_map{$path} ($query)");
require "$require_map{$path}";
#print("Required it\n");
$sub = $subroutine_map{$path};
#print("$subroutine_map{$path} is defined\n") 
#	if defined(&$sub);
&$sub($query);

1;
