#!/usr/bin/env PERL5OPT=-T perl

use warnings;
use strict;
use autodie qw(:all);

use FindBin qw($Bin);
use lib "$Bin/../lib";

my $path = $Bin;
$path =~ s/^(.+)\/.+/$1/;	# Remove the final directory, probably "/bin"
$ENV{'root_dir'} = $path;

eval {
	my $testnumber = $ARGV[0];
	if($testnumber =~ /^(\d+)$/) {
		doit($1);
	}
};

die $@ if $@;

sub doit
{
	my $test = shift or die;

	if($test == 1) {
		# print "Test 1 - q\n";
		system("$^X $Bin/../cgi-bin/page.fcgi page=query q='1600+Pennsylvania+Avenue+NW+Washington+DC+USA'");
	} elsif($test == 2) {
		# print "Test 2 - scantext\n";
		system("$^X $Bin/../cgi-bin/page.fcgi page=query scantext='Washington+DC+USA'");
	} elsif($test == 3) {
		$ENV{'REMOTE_ADDR'} = '207.241.237.233';	# An IP address in the US
		$ENV{'SERVER_PROTOCOL'} = 'HTTP/1.1';
		system("$^X $Bin/../cgi-bin/page.fcgi page=query q='1600+Pennsylvania+Avenue+NW+Washington+DC'");
	} elsif($test == 4) {
		$ENV{'REMOTE_ADDR'} = '207.241.237.233';	# An IP address in the US
		$ENV{'SERVER_PROTOCOL'} = 'HTTP/1.1';
		system("$^X $Bin/../cgi-bin/page.fcgi page=query q='1600+Pennsylvania+Avenue+NW+Washington+DC+USA'");
	}
}
