#!/usr/bin/perl

package main;
{
print "Content-type: text/html\n\n";

warn "mod_perl: $ENV{MOD_PERL} \n";
print "mod_perl: $ENV{MOD_PERL} <br>\n";
#$Apache->warn("mod_perl: $ENV{MOD_PERL}");

#print "Test<br>";
#exit;
BEGIN
{
	#use msearch_config;
	use vars qw(%C %D $dbh %SITEDATA_EXT %SITEDATA %SITEDATA_CAN %SEARCHTERMSI %SEARCHTERMSQ %SEARCHTERMSLB %SEARCHTERMS);
#	*D = \%msearch_config::D;
	*C = \%msearch_config::C;
	*dbh = \$msearch_config::dbh;
	*SITEDATA_EXT = \%msearch_config::SITEDATA_EXT;
	*SITEDATA = \%msearch_config::SITEDATA;
	*SITEDATA_ID = \%msearch_config::SITEDATA_ID;
	*SITEDATA_ALIASES = \%msearch_config::SITEDATA_ALIASES;
	*SITEDATA_CAN = \%msearch_config::SITEDATA_CAN;
	*SEARCHTERMSI = \%msearch_config::SEARCHTERMSI;
	*SEARCHTERMSQ = \%msearch_config::SEARCHTERMSQ;
	*SEARCHTERMSLB = \%msearch_config::SEARCHTERMSLB;
	*SEARCHTERMS = \%msearch_config::SEARCHTERMS;

	$barcolor = "#DDEEFF";
	%results = ();
	$testing = "This is a test";
	#$frompage = "testing";
}

$touch_file = "/tmp/reload_modules";
reread_conf($touch_file);
 
sub reread_conf {
	my $file = shift;
	return unless $file;
	return unless -e $file and -r _;
	unless ($MODIFIED{$file} and $MODIFIED{$file} == -M _){
		my $result;
		#print "Modified<br>";
		unless ($result = do "/home/sites/site6/cgi-bin/mp/msearch_config.pm") {
			warn "couldn't parse msearch_config: $@" if $@;
			warn "couldn't do msearch_config: $!"       unless defined $result;
			warn "couldn't run msearch_config"           unless $result;
		}
		#print "INC: @INC<br>";
		$MODIFIED{$file} =  -M _; # Update the MODIFICATION times
	}
} # end of reread_conf
 
{
{
# use strict;

{
	# IP matching for testing:
	my $aip1 = "98.206.64.72"; # Chris
	my $aip2 = "4.62."; # Randall (mask)
	my $aip3 = "24.185.1.153"; # Anthony
	my $testip = "no";
	if (($ENV{REMOTE_ADDR} =~ m/^$aip1/) || ($ENV{REMOTE_ADDR} =~ m/^$aip2/) || ($ENV{REMOTE_ADDR} eq "$aip3")) {
		$testip = "yes";
	}else{
		$testip = "yes"; # (force to not use popups for everyone if "yes")
	}
}

my $live = "live"; # set to "live" for links to be available.  Set to anything else to not show links.

{
#use Apache::Reload;
#use CGI;
#use DBI;
#use LWP::Parallel::UserAgent;
	#use LWP::Parallel::RobotUA qw(:CALLBACK);
#use LWP::Parallel::UserAgent qw(:CALLBACK);
#use process(); # qw(process);
#use output;
#use myUA;
}

&initvars();

sub initvars {
	$first = "";
	$domainname = "";
	$headerlinks = "";
	@headerlinks = ();
	$frompage = "";
	$use = "";
	$domain = "";
	$temp = "";
	$end = "";
	$ext = "";
	$root = "";
	$can = "";
	$can2 = "";
	@tempc = ();
	$sitenum = "";
	$junk = "";
	$searchterm = "";
	$quantity = "";
	@results = ();
	@links = ();
	$l = 0;
	@canlinks = ();
	$cl = 0;
	@testlinks = ();
	$tl = 0;
	%foreign = ();
	%uforeign = ();
	%F = ();
	$counter = 0;
	@results = ();
	$r = 0;
	@head = ();
	@header = ();
	$h = 0;
	$hl = 0;
	$tc = 0;
	$id = "";
	$odomain = "";
	$searchterm = "";
	$stylesheet = "";
	$template = "";
	$otitle = "";
	$heading = "";
	$bannerzone = "";
	$quantity = 0;
	$itemnumbers = "";
	$itembullets = "";
	$itemspace = "";
	$pdescription = "";
	$keywords = "";
	$htmllink = "";
	$sitetitle = ();
	$itemnumstart = "";
	$itemnumend = "";
	$itembulstart = "";
	$itembulend = "";
	$ispace = "";
	$q = 0;
	$num = 0;
	$disp_num = "";
	$alt_title = "";
	$description = "";
	$oquantity = "";
	$page = "";
	%OUTPUT = ();
	%KOUTPUT = ();
	$IP = "";
	$itrue = 0;
	$blurb = "";
}
}

&input;

if (($F{ip} eq "67.175.8.192") || ($F{ip} eq "67.190.122.169")){
	$useragentstring = $F{useragentstring};
	warn "useragentstring: $useragentstring\n";
	foreach (%ENV) {
		#warn "$_: $ENV{$_}\n";
	}
	#warn "\n";
}

#@ext = qw(org net biz tv gov com); # extensions to look for

$IP = $F{ip};
unless ($IP) {$IP = $ENV{REMOTE_ADDR};}
#print "IP: $IP<br>";
$domain = $F{'domain'};
unless ($domain) {$domain = "http://$ENV{'SERVER_NAME'}$ENV{'DOCUMENT_URI'}";}
$domain2 = $domain;
if ($domain =~ m/tourism\.com/) {$domain = "http://www.tourismdepot.com";} # lump all tourism sites together

{
		$temp = $domain;
		$temp =~ s/http:\/\///; # remove http://
		$temp =~ s/(\/.*?)$//; # remove and save all data after domain
		$end = $1;
		@tempc = split (/\./, $temp); # split domain at the .'s
		$ext = pop @tempc; # pull the extension off the bottom of the stack
		$root = pop @tempc; # pull the root off the bottom of the stack
		$can = join ('.', @tempc); # join the rest (if more than one) into the canonical
		$can2 = "http://" . $can;
}

if ($F{uri} ne "") { # is frompage forced by requesting url?
	$frompage = $F{uri};
}else{ # check for exact domain in sites db
	if (exists $SITEDATA{$domain}{domain}) { # exact match
		#print "exact match<br>";
		$frompage = $domain; # full path with domain
	}else{
		#print "<!-- 1: {$can}{$root}{$ext}{$end} -->\n";
		#print "<!-- 2: {$can2}{$root}{$ext}{$end} -->\n";
		if (exists $SITEDATA_ALIASES{$can}{$root}{$ext}{$end}) {
			$sitenum = $SITEDATA_ALIASES{$can}{$root}{$ext}{$end};
			$frompage = $SITEDATA_ID{$sitenum};
		}elsif (exists $SITEDATA_ALIASES{$can2}{$root}{$ext}{$end}) {
			$sitenum = $SITEDATA_ALIASES{$can2}{$root}{$ext}{$end};
			$frompage = $SITEDATA_ID{$sitenum};
		}elsif (exists $SITEDATA_ALIASES{$can2}{$root}{$ext}{'/'}) {
			$sitenum = $SITEDATA_ALIASES{$can2}{$root}{$ext}{'/'};
			$frompage = $SITEDATA_ID{$sitenum};
		}
	}
	
	$frompage = $domain unless $frompage; 
}

#print "frompage: $frompage<br>";



#print "\n<!-- domain: $domain -->";
#print "\n<!-- fp: $frompage -->";
$| = 1;

unless ($domain) {$domain = "default";}
#print "\n<!-- domain: $domain -->";

##### change for 4freequotes
if ($domain eq "insurance") {$itrue = 1;}
if ($frompage eq "insurance") {$itrue = 1;}
if ($domain eq "http://www.4freequotes.com") {
	#$domain = "4fq";
	#$frompage = "4fq";
	$itrue = 1;
}
if ($frompage eq "http://www.4freequotes.com") {
	#$domain = "4fq";
	#$frompage = "4fq";
	$itrue = 1;
}
if ($domain eq "http://www.find-health-insurance.com") {$domain = "insurance";$frompage = "insurance";$itrue = 2;}
if ($frompage eq "http://www.find-health-insurance.com") {$domain = "insurance";$frompage = "insurance";$itrue = 2;}
#####
#print "\n<!-- domain after: $domain -->";
#print "\n<!-- frompage after: $frompage -->";

$stupid = 0;
$frompage2 = $domain;
$frompage2 =~ s/\//\|/go;
while ($frompage2 =~ m/\|/go) {$stupid += 1;}
if ($stupid >= 3) {
	$domain =~ m/.*?\.(.*?)\//go;
	$rootfrompage = $1;
}else{
	$domain =~ m/.*?\.(.*?)$/go;
	$rootfrompage = $1;
}
if ($domain eq "default") {$rootfrompage = $domain;}
#if ($domain eq "http://www.freefanatic.com/ssi.html") {$live = "live";}else{$live = "";}

$dotcount = 0;
while ($rootfrompage =~ m/\./go) {$dotcount += 1;}
if ($dotcount >= 2) {
	$rootfrompage =~ m/.*?\.(.*?)$/go;
	$rootfrompage = $1;
}

#print "rf: $rootfrompage<br>";
#print "Frompage: $frompage<br>" ;
$frompage = 'default' unless ($frompage);


if (exists $SITEDATA{$frompage}) {
	#print "default exists!<br>";
	$use = $frompage;
}else{
	if (exists $SITEDATA{$domain}) {
		$use = "$domain";
	}else{
		$hdomain = "http://" . $domain;
		if (exists $SITEDATA{$hdomain}) {
			$use = "$hdomain";
		}else{
			$use = 'default';
		}
	}
}
$frompage = $use;

#print "\n<!-- domain after: $domain -->";
#print "\n<!-- frompage after: $frompage -->";

$q_frompage = $dbh->quote($frompage);
$sth = $dbh->prepare("SELECT COUNT(id) FROM pagetrack WHERE page=$q_frompage AND DATE_FORMAT(whenviewed, \"%Y %M %D\")=DATE_FORMAT(NOW(), \"%Y %M %D\") "); # 12-9 change for passed-in frompage
$sth->execute();
($dcount) = $sth->fetchrow_array();
if ($dcount < 1) {
	$sth = $dbh->prepare("INSERT INTO pagetrack VALUES (NULL,$q_frompage,'$F{ip}',NOW(),'0')"); # 12-9 change for passed-in frompage
	$sth->execute();
}else{
	$sth = $dbh->prepare("UPDATE pagetrack SET views=views+1 WHERE page=$q_frompage AND DATE_FORMAT(whenviewed, \"%Y %M %D\")=DATE_FORMAT(NOW(), \"%Y %M %D\") "); # 12-9 change for passed-in frompage
	$sth->execute();
}
#print "use: $use<br>";

#($id,$odomain,$searchterm,$stylesheet,$template,$otitle,$heading,$bannerzone,$quantity,$itemnumbers,$itembullets,$itemspace,$pdescription,$keywords,$htmllink,$sitetitle,$blurb) = $sth->fetchrow_array();
$id = $SITEDATA{$frompage}{id};
$odomain = $SITEDATA{$frompage}{domain};
$searchterm = $SITEDATA{$frompage}{searchterm};
$stylesheet = $SITEDATA{$frompage}{stylesheet};
$template = $SITEDATA{$frompage}{template};
$otitle = $SITEDATA{$frompage}{title};
$heading = $SITEDATA{$frompage}{heading};
$bannerzone = $SITEDATA{$frompage}{bannerzone};
$quantity = $SITEDATA{$frompage}{quantity};
$itemnumbers = $SITEDATA{$frompage}{itemnumbers};
$itembullets = $SITEDATA{$frompage}{itembullets};
$itemspace = $SITEDATA{$frompage}{itemspace};
$pdescription = $SITEDATA{$frompage}{description};
$keywords = $SITEDATA{$frompage}{keywords};
$htmllink = $SITEDATA{$frompage}{htmllink};
$sitetitle = $SITEDATA{$frompage}{sitetitle};
$blurb = $SITEDATA{$frompage}{blurb};
#print "\n<!-- blurb: $blurb -->\n";
if ($bannerzone eq "") {$bannerzone = 'Shopping';}
if ($F{action} eq "more") {&more;}
#if ($domain =~ m/123-sites\.com/) {$F{search} = "";}
if ($F{search} ne "") {$searchterm = $F{search};goto SKIP;}
}
$ID = $id;

if (exists $SEARCHTERMSI{$id}) {
	$rows = 0;
	foreach (keys %{$SEARCHTERMS{$id}}) {$rows++;}
	#print "rows: $rows<br>";
	#print "ok ($id): $SEARCHTERMSI{$id}<br>";
	$searchterm = "";
	@grab = ();$g = "";
	@head = ();$h = "";
	@headerlinks = ();$hl = "";
	%grabq = ();
	(@starray) = sort { $SEARCHTERMS{$id}{$a} <=> $SEARCHTERMS{$id}{$b} } keys %{$SEARCHTERMS{$id}};
	foreach $searchterm(@starray) {
		#print "$searchterm<br>";
		if ($rows > 1) {
			#print "$searchterm<br>";
			$a_searchterm = $searchterm;
			$a_searchterm =~ s/\s/\%20/go;
			$head[$h++] = "&nbsp;<span class=\"featuredlinks\"><a class=\"lcolors\" href=\"#$a_searchterm\">$searchterm</a></span><br>\n";
			$headerlinks[$hl++] = "&nbsp;<span class=\"headerlink\"><a class=\"hcolors\" href=\"#$a_searchterm\">$searchterm</a></span>\n";
		}
		$grab[$g++] = $searchterm;
		$grabq{"$searchterm"} = $SEARCHTERMSQ{$id}{$searchterm};
		$myUA::grabq{"$searchterm"} = $SEARCHTERMSQ{$id}{$searchterm};
		#print "g: $searchterm - $SEARCHTERMSQ{$id}{$searchterm}<br>";
	}
	if ($rows > 1) {
		$head[$h++] = "<br><br>";
		$headerlinks[$hl++] = "<br><br>";
	}
	&foreign_search;
}else{
	#print "not ok ($id): $SEARCHTERMSI{$id}<br>";
	SKIP:
	@grab = ();
	%grabq = ();
	$grab[0] = $searchterm;
	$grabq{"$searchterm"} = $quantity;
	$myUA::grabq{"$searchterm"} = $quantity;
	
	&foreign_search;
}

&foutput;

sub foutput {
	#print "$results2<hr>";
	$head = "";
	$headerlinks = "";
	$results = "";
	$bannercode = "";
	$head = join (' ', @head);
	$headerlinks = join (' ', @headerlinks);
	$results = join (' ', @results);
	foreach (keys %bannercode) {
		@bannercode[$bc++] = $_ . "|^|" . $bannercode{$_};
	}
	$bannercode = join ('||', @bannercode);
	
	#@ovalues = ($dbh,$heading,$domain,$pdescription,$itrue,$keywords,$bannerzone,$testnew,$testlinks,$otitle,$noresults_header,$template,$stylesheet,$results2,$results,$head,$headerlinks,$ID,$rootfrompage,$bannercode);
	#$output = output->output(@ovalues);
	&output;
	
	#print "dbh: $dbh<br>heading: $heading<br>domain: $domain<br>pdescription: $pdescription<br>itrue: $itrue<br>keywords: $keywords<br>bannerzone: $bannerzone<br>testnew: $testnew<br>testlinks: $testlinks<br>otitle: $otitle<br>noresults_header: $noresults_header<br>template: $template<br>stylesheet: $stylesheet<br>results: $results<br>head: $head<br>headerlinks: $headerlinks<br>id: $ID<br>rootfrompage: $rootfrompage<br>bannercode: $bannercode<hr>";
	
	print "$output";
	&cleanup;
	exit;
}

sub output {
	#my (%oreturn,%bannercode,@links,@canlinks,@testlinks,@bc,@template);
	#my ($n,$c,$domain2,$domain3,$adomain,$output,$sth,$stp,$tl,$l,$tid,$link,$address,$inc,$htmllink,$tdisp,$cl,$url,$sitetitle,$testrootfrompage,$testdomain);
	
#	my ($name,$dbh,$heading,$domain,$pdescription,$itrue,$keywords,$bannerzone,$testnew,$testlinks,$otitle,$noresults_header,$template,$stylesheet,$results2,$results,$head,$headerlinks,$ID,$rootfrompage,$bannercode) = @_;
	#my ($dbh,$heading,$domain,$pdescription,$itrue,$keywords,$bannerzone,$testnew,$testlinks,$otitle,$noresults_header,$template,$stylesheet,$results2,$results,$head,$headerlinks,$ID,$rootfrompage,$bannercode) = @_;

	@bc = split (/\|\^\|/, $bannercode);
	foreach (@bc) {
		($n,$c) = split (/\|\|/, $_);
		$bannercode{$n} = $c;
	}
	
	$oreturn{js} = q[<script type="text/javascript" language="JavaScript">
	function pop_up(fileName)
	{
		features = "location=no,status=yes,toolbar=yes,menubar=yes,resizable=yes,scrollbars=yes,height=385,width=720"
		if (navigator.appName == "Netscape") features += ",screenX=25,screenY=25"
		else features += ",left=25,top=25"	
		var win2 = window.open('http://64.106.161.221/multisearch/red.pl?r=' + fileName,"pop",features);
		//var win2 = window.open('http://64.106.161.221/multisearch/red.pl?r=' + fileName,"pop",features);
	}
	//-->
	</script>
	];
	
	chomp $pdescription;
	$pdescription =~ s/\n/ /g;
	$pdescription =~ s/\r/ /g;
	$pdescription =~ s/&/&amp;/g;
	if ($itrue == 1) {$template = "blank";}
	if ($itrue == 2) {$template = "blank";}
	$keywords =~ s/,$//;
	$keywords =~ s/, $//;
	#print "template: $template<br>";
	if ($template eq 'bare') {
		#$oreturn{output} .= "bare<br>";
		$stylesheet =~ s/&/&amp;/g;
		$oreturn{output} = "<html><head>";
		$oreturn{output} .= "<title>$otitle</title>";
		$oreturn{output} .= "<META name=\"Description\" content=\"$pdescription\">";
		$oreturn{output} .= "<META name=\"Keywords\" content=\"$keywords\">";
		$oreturn{output} .= "<link rel=\"stylesheet\" href=\"/stylesheets/$stylesheet\">";
		$oreturn{output} .= "</head><body>";
		$oreturn{output} .= "$heading<br><br>$results $results2";
		$oreturn{output} .= "</body></html>";
	}elsif ($template eq 'blank') {
		#$oreturn{output} .= "blank<br>";
		$oreturn{output} = "$results $results2";
	}elsif ($template eq 'blank_noheader') {
		#$oreturn{output} .= "blank_noheader<br>";
		$results =~ s'<table.*?</table>''igo;
		$results2 =~ s'<table.*?</table>''igo;
		$oreturn{output} .= "$results $results2";
	}elsif ($template ne '') {
		#$oreturn{output} .= "/home/sites/site6/cgi-bin/disp_templates/$template<br>";
		open (TEMP, "/home/sites/site6/cgi-bin/disp_templates/$template");
		@template = <TEMP>;
		close (TEMP);
		$domain =~ /http:\/\/www\.(.*?)\//io;
		$domain2 = $1;
		$domain =~ /http:\/\/(.*?)\//gio;
		$domain3 = $1;
		$domainname = $domain3;
		unless ($domain2) {
			$domain2 = $domain3;
		}
		unless ($domain2) {
			$domain2 = $domain;
		}
		if ($domain2 eq "/") {$domain2 = $domainroot;}
		
		#print "domain2: $domain2<br>domain: $domain dr: $domainroot<br>";
		$adomain = $domain;
		$adomain =~ /http\:\/\/(.*?)\//gio;
		$adomain = $1;
		# if ($domain eq "http://www.freefanatic.com/ssi.html") {
		# 	# $testnew = "<a href=http://www.freefanatic.com/cgi-bin/advertisers.pl?action=newad&frompage=$domain>click here</a> to advertise on this page.";
		# 	 $testnew = "<a href=https://www.innovativeadvertising.net/multisearch/advertisers.pl?action=newad&frompage=$domain>click here</a> to advertise on this page.";
		# }else{
		# 	$testnew = "";
		#}
		#print "id: $ID<br>";
		#print "SELECT * FROM searchlinks WHERE id='$ID' ORDER BY inc ASC<br>";
		$sth = $dbh->prepare("SELECT * FROM searchlinks WHERE id='$ID' ORDER BY inc ASC");
		$sth->execute();
		$stp = $dbh->prepare("SELECT searchlinktitle FROM searchlinktitles WHERE domain='$ID'  ");
		$stp->execute();
		my ($searchlinktitle) = $stp->fetchrow_array();
		$links[$l++] = "<span class=\"searchlinktitle\">$searchlinktitle</span><hr>";
		while (($tid,$link,$address,$inc,$htmllink) = $sth->fetchrow_array()) {
			if ($htmllink eq "Y") {
				$links[$l++] = "&nbsp;$link<br>";
			}else{
				$address =~ s/&/&amp;/go;
				$links[$l++] = "&nbsp;<span class=\"searchlink\"><a class=\"lcolors\" href=\"$address\">$link</a></span><br>";
			}
		}
		$tdisp = "<span class=\"heading\">$heading</span><hr><br>";
		$stp = $dbh->prepare("SELECT showaplinks FROM sitedata WHERE id='$ID'  ");
		$stp->execute();
		my ($showaplinks) = $stp->fetchrow_array();
		if ($showaplinks eq "on") {
			$sth = $dbh->prepare("SELECT * FROM searchaplinktitle");
			$sth->execute();
			my ($aptitle) = $sth->fetchrow_array();
			$links[$l++] = "<br> <span class=\"aptitle\">$aptitle</aptitle><hr>";
			$sth = $dbh->prepare("SELECT * FROM searchaplinks");
			$sth->execute();
			while (($link,$address,$inc,$htmllink) = $sth->fetchrow_array()) {
				if ($htmllink eq "Y") {
					$links[$l++] = "&nbsp;$link<br>";
				}else{
					$address =~ s/&/&amp;/go;
					$links[$l++] = "&nbsp;<span class=\"aplink\"><a class=\"lcolors\" href=\"$address\">$link</a></span><br>";
				}
			}
		}
		
		$sth = $dbh->prepare("SELECT domain,sitetitle FROM sitedata WHERE domain LIKE '%$rootfrompage%' AND (sitetitle != NULL OR sitetitle != '')  ORDER BY domain ASC");
		$sth->execute();
		my $rows = $sth->rows();
		if ($rows > 0) {
			$canlinks[$cl++] = "<br> <span class=\"rlinkheader\">Related Links:</span><hr>";
			while (($url,$sitetitle) = $sth->fetchrow_array()) {
				if ($sitetitle eq "") {next;}
				if ($url eq $domain) {next;}
				$url =~ s/&/&amp;/go;
				$canlinks[$cl++] = "&nbsp;<span class=\"rlinks\"><a class=\"lcolors\" href=\"$url\">$sitetitle</a></span><br>";
			}
		}
		
		if ($template eq 'testlinks.html') {
			$sth = $dbh->prepare("SELECT domain FROM sitedata ORDER BY domain ASC");
			$sth->execute();
			while (($testdomain) = $sth->fetchrow_array()) {
				my $stupid = 0;
				my $frompage2 = $testdomain;
				$frompage2 =~ s/\//\|/go;
				while ($frompage2 =~ m/\|/go) {$stupid += 1;}
				if ($stupid >= 3) {
					$testdomain =~ m/.*?\/\/(.*?)\//go;
					$testrootfrompage = $1;
				}else{
					$testdomain =~ m/.*?\/\/(.*?)$/go;
					$testrootfrompage = $1;
				}
				
				if ($testdomain eq "default") {next;}
				my $dotcount = 0;
				while ($testrootfrompage =~ m/\./go) {$dotcount += 1;}
				if ($dotcount > 2) {
					$testrootfrompage =~ m/.*?\.(.*?)$/go;
					$testrootfrompage = $1;
				}
				$testdomain =~ s/&/&amp;/go;
				$testlinks[$tl++] = "<a href=\"$testdomain\">$testrootfrompage</a>";
			}
			$testlinks = join (' || ', @testlinks);
		}
		
		if ($template eq "christmas.html") {
			$asl_bgcolor = "EEEEEE";
		}elsif ($template eq "designerhandbag.html") {
			$asl_bgcolor = "008ECB";
		}elsif ($template eq "electricglobe.html") {
			$asl_bgcolor = "008ECB";
		}
		use LWP::Simple;
		$allsitelinks = get("http://www.freesearch.com/cgi-bin/allsitelinks.pl?background_color=$asl_bgcolor&how_many=6&width=100&height=72&orientation=v&per_row=1");
		
		$keywords =~ s/,$//o;
		$keywords =~ s/, $//o;
		$bannerzone =~ s/\s/+/go;
		if ($blurb ne "") {$blurb = "<blockquote class=blurb>" . $blurb . "</blockquote><br>";}
		#print "\n\n<!-- bannercode: $bannercode{1}\ntestnew: $testnew\ntestlinks: $testlinks\ntitle: $otitle\ndesc: $pdescription\nkey: $keywords\nresults: $results\ndomain: $domain\nheaderlinks: $headerlinks\ntdisp: $tdisp\nhead: $head\nlinks: @links\ncanlinks: @canlinks\nnr_head: $noresults_header\nblurb: $blurb -->\n\n";
		foreach (@template) {
			$_ =~ s/<!loc1>/$bannercode{1}/go;
			$_ =~ s/\%allsitelinks\%/$allsitelinks/go;
			$_ =~ s/\%testnew\%/$testnew/go;
			$_ =~ s/\%testlinks\%/$testlinks/go;
			$_ =~ s/\%title\%/$otitle/go;
			$_ =~ s/\%description\%/$pdescription/go;
			$_ =~ s/\%keywords\%/$keywords/go;
			$_ =~ s/\%output\%/$results $results2/go;
			$_ =~ s/\%domainfull\%/$domain/go;
			$_ =~ s/\%domain\%/$domain3/go;
			$_ =~ s/\%adomain\%/$adomain/go;
			$_ =~ s/\%domain3\%/$domain3/go;
			$_ =~ s/\%domainname\%/$domainname/go;
#			$_ =~ s/\%domain2\%/$domain2/go;
			$_ =~ s/\%domain2\%/$domain2<br><br>$headerlinks/go;
			$_ =~ s/\%headerlinks\%/$headerlinks/go;
			$_ =~ s/\%bannerzone\%/$bannerzone/g;
			$_ =~ s/\%links\%/$tdisp$head@links@canlinks/go;
			$_ =~ s/\%stylesheet\%/$stylesheet/go;
			$_ =~ s/\%noresults_header\%/$noresults_header/go;
			$_ =~ s/\%blurb\%/$blurb/go;
			$oreturn{output} .= $_;
		}
	}
	$heading = "";
	$headerlinks = "";
	
	$output .= $oreturn{output};
	%oreturn = ();
	
	return $output;
}

sub cleanup {
	%F = ();
	%results = ();
	%return = ();
	%myUA::grabq = ();
	%grabq = ();
	%grab = ();
	$output = "";
	@values = ();
	@ovalues = ();
	@pvalues = ();
	@bannercode = ();
	$id = "";
	$odomain = "";
	$searchterm = "";
	$stylesheet = "";
	$template = "";
	$otitle = "";
	$heading = "";
	$bannerzone = "";
	$quantity = "";
	$itemnumbers = "";
	$itembullets = "";
	$itemspace = "";
	$pdescription = "";
	$keywords = "";
	$htmllink = "";
	$sitetitle = "";
	$frompage = "";
	$domain = "";
	@headerlinks = ();
	$headerlinks = "";
	$domain2 = "";
	$domain3 = "";
	$first = "";
}

sub more {
	$oquantity = $quantity;
	$quantity = 20;
	$q2 = $F{'q'} + $quantity;
	$q3 = $F{'q'} - $quantity;
	$searchterm = "";
	$searchterm = $F{'search'};
	$searchterm =~ s/\_/ /go;
	$domain = $F{'domain'};
	if ($itrue == 1) {$domain = "http://www.4freequotes.com";}
	if ($itrue == 2) {$domain = "http://www.find-health-insurance.com";}
	$urlsearch = $F{'search'};
	$urlsearch =~ s/\s/\%20/go;
	$urlsearch =~ s/\_/\%20/go;
	$frompage = $F{'frompage'};
	$ua = "";
	$ua = LWP::UserAgent->new();
	$ua->agent("MultiSearch/0.1");
	$ua->timeout(10); # change the timeout value as necessary
	#print "<!-- Request: http://us01.xmlsearch.findwhat.com/bin/findwhat.dll?getresults&Base=$F{'q'}&MT=$urlsearch&dc=20&aff_id=47114&ip_addr=$F{'ip'} -->\n";
	warn "more \n";
	
	$turl = "http://us01.xmlsearch.findwhat.com/bin/findwhat.dll?getresults&Base=$F{'q'}&MT=$urlsearch&dc=20&aff_id=47114&ip_addr=$F{'ip'}&at=Q9JOCP72R7";
	$req = HTTP::Request->new('GET' => $turl);  #change as appropriate
	$res = $ua->request($req);
	$page = $res->content();
	#&findwhat($page);
	
# alter
	&set_values;
	$pro = process->new();
	$results[$r++] = $pro->process(@pvalues,$turl,$searchterm,$quantity,$page);
#
	$page =~ /records=\"(.*?)\"/g;
	$totalresults = $1;
	if ($q2 <= $totalresults) {
		$next = "<form method=\"post\"><input type=\"submit\" name=\"next\" value=\"Next\"><input type=\"hidden\" name=\"action\" value=\"more\"><input type=\"hidden\" name=\"q\" value=\"$q2\"><input type=\"hidden\" name=\"search\" value=\"$urlsearch\"><input type=\"hidden\" name=\"ip\" value=\"$F{'ip'}\"><input type=\"hidden\" name=\"domain\" value=\"$F{'domain'}\"><input type=\"hidden\" name=\"frompage\" value=\"$F{'frompage'}\"></form>";
	}
	if ($q3 <= 0) {
		$previous = "<form method=\"post\"><input type=\"submit\" name=\"previous\" value=\"Previous\"><input type=\"hidden\" name=\"ip\" value=\"$F{'ip'}\"><input type=\"hidden\" name=\"domain\" value=\"$F{'domain'}\"><input type=\"hidden\" name=\"frompage\" value=\"$F{'frompage'}\"></form>";
	}else{
		$previous = "<form method=\"post\"><input type=\"submit\" name=\"previous\" value=\"Previous\"><input type=\"hidden\" name=\"action\" value=\"more\"><input type=\"hidden\" name=\"q\" value=\"$q3\"><input type=\"hidden\" name=\"search\" value=\"$urlsearch\"><input type=\"hidden\" name=\"ip\" value=\"$F{'ip'}\"><input type=\"hidden\" name=\"domain\" value=\"$F{'domain'}\"><input type=\"hidden\" name=\"frompage\" value=\"$F{'frompage'}\"></form>";
	}
	$results[$r++] = "\n<table><tr><td>$next</td><td>$previous</td></tr></table>\n";
	&foutput;
}

sub set_values {
	@pvalues = ($domain,$IP,$F{action},$rows,$itemnumbers,$itembullets,$itemspace,$live,$frompage,$barcolor,$dbh,$first);
	#print "pvalues<br>domain: $domain<br>IP: $IP<br>action: $F{action}<br>rows: $rows<br>itemnumbers: $itemnumbers<br>itembullets: $itembullets<br>itemspace: $itemspace<br>live: $live<br>frompage: $frompage<br>barcolor: $barcolor<br>dbh: $dbh";
}

sub foreign_search {
	$counter = 0;
	$ua = "";
	$ua = myUA->new("InnovativeAdvertising", "www.innovativeadvertising.net");
	$ua->from("admin\@innovativeadvertising.net");
	$ua->max_hosts(40);
	$ua->max_req(25);
	#$ua->delay(0);	
	$ua->redirect(0);
	$ua->env_proxy;
	#print "-";
	$| = 1;
	
	$sterm= "";$term = "";
	foreach $sterm(@grab){
		next unless ($sterm);
		unless ($first) {$first = $sterm;}
		$term = $sterm;
		$term =~ s/\s/\%20/g;
		$term =~ s/\_/\%20/g;
		
		if (($IP eq "67.175.8.192") || ($IP eq "67.190.122.169") || ($IP eq "76.167.70.155") || ($IP eq "98.206.64.72")){
			#warn "Calling req_leadsandfeeds ($IP) \n";
			#&req_leadsandfeeds;
			#&req_ask;
			&req_myxmlsource;
			#&req_findwhat;
		}else{
			#warn "regular user ($IP): calling req_myxmlsource \n";
			# only one of the following can be active at a time at the moment.
			#&req_leadsandfeeds;
			#&req_ask; # uncomment this to activate ask
			&req_myxmlsource;
			#&req_findwhat; # uncomment this to activate findwhat
		}
		#&req_kanoodle;
	}
	
	#print "-";
	$howmany += $howmany;
	&set_values;
	$entries = $ua->wait(); # responses will be caught by on_return, etc
	#print "-";
	$st = "";
	$results2 = "";
	#print "grab: @grab<br>";
	foreach $st(@grab) {
		#warn "results $st: $results{\"$st\"} \n\n";
		$results2 .= $results{"$st"};
		$results2 .= "$spacer";
	}
	%OUTPUT = ();
	%results = ();
}

sub req_myxmlsource {
	# myxmlsource request
	$useragentstring = $F{useragentstring};
	$useragentstring =~ s/ /\%20/g;
	$useragentstring =~ s/;/\%3B/g;
	#warn "http://xml.myxmlsource.com/cgi-bin/feed?par=2568&query=$term&count=10&start=1&ip=$IP&useragent=$useragentstring \n";
	$req = new HTTP::Request 'GET' => "http://xml.myxmlsource.com/cgi-bin/feed?par=2568&query=$term&count=10&start=1&ip=$IP&useragent=$useragentstring";
	$req->header('Accept' => 'text/html');
	$ua->register($req);
}

sub req_ask {
	# Ask request
	$useragentstring =~ s/ /\%20/g;
	#warn "http://frazoo.syndication.ask.com/frazoo?userip=$IP&q=$term&useragent=$useragentstring&o=10583 \n";
	$req = new HTTP::Request 'GET' => "http://frazoo.syndication.ask.com/frazoo?userip=$IP&q=$term&useragent=$useragentstring&o=10583";
	$req->header('Accept' => 'text/html');
	$ua->register($req);
}

sub req_findwhat {
	# FindWhat request
	#warn "http://us01.xmlsearch.findwhat.com/bin/findwhat.dll?getresults&Base=0&MT=$term&dc=25&aff_id=47114&ip_addr=$IP \n";
	$req = new HTTP::Request 'GET' => "http://us01.xmlsearch.findwhat.com/bin/findwhat.dll?getresults&Base=0&MT=$term&dc=25&aff_id=47114&ip_addr=$IP&at=Q9JOCP72R7";
	$req->header('Accept' => 'text/html');
	$ua->register($req);
}

sub req_leadsandfeeds {
	# leadsandfeeds request
	$useragentstring = $F{useragentstring};
	$useragentstring =~ s/ /\%20/g;
	$useragentstring =~ s/;/\%3B/g;
	$useragentstring =~ s/:/%3A/g;
	$useragentstring =~ s/\?/%3F/g;
	$useragentstring =~ s/=/%3D/g;
	$useragentstring =~ s/&/%26/g;
	
	$enc_domain = $domain;
	$enc_domain =~ s/:/%3A/g;
	$enc_domain =~ s/\?/%3F/g;
	$enc_domain =~ s/=/%3D/g;
	$enc_domain =~ s/&/%26/g;
	#warn "http://xml.leadsandfeeds.com/ppc?aid=1200&cid=686&remoteaddr=$IP&key=$term&bp=1&count=10&ua=$useragentstring&ref=$enc_domain \n";
	$req = new HTTP::Request 'GET' => "http://xml.leadsandfeeds.com/ppc?aid=1200&cid=686&remoteaddr=$IP&key=$term&bp=1&count=10&ua=$useragentstring&ref=$enc_domain";
	$req->header('Accept' => 'text/html');
	$ua->register($req);
}

sub req_kanoodle {
	# Kanoodle Request
	# print "http://partner1.kanoodle.com/cgi-bin/partner.cgi?noros=1&id=54720110&format=xml5&adultfilter=1&lowbid=.02&query=$term<br>";
	$req = new HTTP::Request 'GET' => "http://partner1.kanoodle.com/cgi-bin/partner.cgi?noros=1&id=54720110&format=xml5&adultfilter=1&lowbid=.02&query=$term";
	$req->header('Accept' => 'text/html');
	$ua->register($req);
}

sub freesearch {
	$page = shift @_;
	$counter = 0;
	while ($page =~ m,<item>(.*?)</item>,sg) {
		$link = $1;
		$counter += 1;
		($title,$redirect,$description) = $link =~ m`.*?<title>(.*?)</title>.*?<link>(.*?)</link>.*?<description>(.*?)</description>`sx;
		$foreign{$redirect} = "$title||$description||$redirect";
		$uforeign{$redirect} = $counter;
	}
}

sub myxmlsource {
	$page = shift @_;
	$link = "";
	
	while ($page =~ m,<listing>(.*?)</listing>,sg) {
		$link = $1;
		$counter += 1;
		#warn "\n\n$counter: $link\n";
		($bid, $description, $url, $rank, $title, $redirect) = $link =~ m'<cpc>(.*?)</cpc>.*?<description>(.*?)</description>.*?<displayurl>(.*?)</displayurl>.*?<rank>(.*?)</rank>.*?<title>(.*?)</title>.*?<url>(.*?)</url>'sx;
		#print "redirect: $redirect <br>\n";
		#warn "redirect: $redirect\n";
		$title =~ s/\&amp;/\&/g;
		$description =~ s/\&amp;/\&/g;
		$redirect =~ s/\&amp;/^/g;
		$foreign{$redirect} = "$title||$description||$redirect||$bid||$url";
		$uforeign{$redirect} = $counter;
	}
}

sub ask {
	$page = shift @_;
	$link = "";
	#$counter = 0;
	
	warn "sub ask\n";
	while ($page =~ m,<Result .*?>(.*?)</Result>,sg) {
		$link = $1;
		$counter += 1;
		warn "\n\n$counter: $link\n";
		($title, $url, $redirect, $description, $bid) = $link =~ m,<Title>(.*?)</Title><BaseURI>(.*?)</BaseURI><RedirURI>(.*?)</RedirURI><Abstract>(.*?)</Abstract>,sx;
		$foreign{$redirect} = "$title||$description||$redirect||$bid||$url";
		$uforeign{$redirect} = $counter;
	}
}

sub findwhat {
	$page = shift @_;
	$link = "";
	#$counter = 0;
	while ($page =~ m,<record>(.*?)</record>,sg) {
		$link = $1;
		$counter += 1;
		($title, $url, $description, $bid, $redirect) = $link =~ m,<title>.*?CDATA\[\s*(.*?)\s*]]>\s*</title><url>(.*?)</url><description>.*?CDATA\[\s*(.*?)\s*]]>\s*</description><bidprice>(.*?)</bidprice><clickurl>(.*?)</clickurl>,sx;
		$foreign{$redirect} = "$title||$description||$redirect||$bid||$url";
		$uforeign{$redirect} = $counter;
	}
}
sub leadsandfeeds {
	$page = shift @_;
	$link = "";
	#$counter = 0;
	
	#warn "\n$page \n\n";
	while ($page =~ m,<result>(.*?)</result>,sg) {
		$link = $1;
		$counter += 1;
		($url, $redirect, $description, $title, $bid) = $link =~ m,<advertiser><\!\[CDATA\[(.*?)\]\]></advertiser>.*?<clickurl><\!\[CDATA\[(.*?)\]\]></clickurl>.*?<description><\!\[CDATA\[(.*?)\]\]></description>.*?<title><\!\[CDATA\[(.*?)\]\]></title>.*?<bid><\!\[CDATA\[(.*?)\]\]></bid>,sxo;
		#($title, $url, $description, $bid, $redirect) = $link =~ m,<title>.*?CDATA\[\s*(.*?)\s*]]>\s*</title><url>(.*?)</url><description>.*?CDATA\[\s*(.*?)\s*]]>\s*</description><bidprice>(.*?)</bidprice><clickurl>(.*?)</clickurl>,sx;
		$title =~ s/\&amp;/\&/g;
		$description =~ s/\&amp;/\&/g;
		$redirect =~ s/\&amp;/^/g;
		$foreign{$redirect} = "$title||$description||$redirect||$bid||$url";
		$uforeign{$redirect} = $counter;
	}
}

sub kanoodle {
	$page = shift @_;
	$link = "";
	#$counter = 0;
	while ($page =~ m,<record>(.*?)</record>,sg) {
		$link = $1;
		$counter += 1;
		($title, $url, $description, $bid, $redirect) = $link =~ m'<record>.*?\[CDATA\[(.*?)\].*?\[CDATA\[(.*?)\]\].*?\[CDATA\[(.*?)\]\].*?\[CDATA\[(.*?)\]\].*?\[CDATA\[(.*?)\]\].*?</record>'gism;
		$foreign{$redirect} = "$title||$description||$redirect||$bid||$url";
		$uforeign{$redirect} = $counter;
	}
}

sub input {
	$in = new CGI;
	@variables = ();
	@variables = $in->param();
	foreach (@variables){
		$F{$_} = $in->param($_);
		$F{$_} =~ s/<\!--.*-->//g;
		$F{$_} =~ s/`//g;
	}
}
}