#!/usr/bin/env perl

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

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

eval {
	doit($ARGV[0]);
};

die $@ if $@;

sub doit
{
	my $test = shift;

	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) {
		# print "Test 2 - q - no country given\n";
		$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'");
	}

}
