#! /usr/bin/perl
$r = $ENV{'HTTP_REFERER'};
$q = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $q);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
}
($name, $lookup) = split(/=/, @pairs[0]);
$lookup =~ tr/+/ /;
$lookup =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
($name, $dir) = split(/=/, @pairs[1]);
$dir =~ tr/+/ /;
$dir =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
($name, $num) = split(/=/, @pairs[1]);
$num =~ tr/+/ /;
$num =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$num =~ s/-//g;
$num =~ s/\.//g;
$num =~ s/\+//g;
$num =~ s/ //g;
$num =~ s/\(//g;
$num =~ s/\)//g;
$num1 = substr $num, 0, 3;
$num2 = substr $num, 3, 3;
$num3 = substr $num, 6, 4;
($name, $fname) = split(/=/, @pairs[3]);
$fname =~ tr/+/ /;
$fname =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
($name, $lname) = split(/=/, @pairs[4]);
$lname =~ tr/+/ /;
$lname =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
($name, $house) = split(/=/, @pairs[5]);
$house =~ tr/+/ /;
$house =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
($name, $street) = split(/=/, @pairs[6]);
$street =~ tr/+/ /;
$street =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
($name, $city) = split(/=/, @pairs[7]);
$city =~ tr/+/ /;
$city =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
($name, $state) = split(/=/, @pairs[8]);
$state =~ tr/+/ /;
$state =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$n = index $q, '&num=';
if ($n > 0) {
$t = substr $q, 0, $n;
}
else {$t=$q}
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = $year + 1900;$mon = $mon + 1;
open (i, ">>/home/jcole/log/reversephonedirectory.com_lookup.log");
print i $ENV{'REMOTE_ADDR'};
print i ",";
print i $year;
printf i "%02d", $mon;
printf i "%02d", $mday;
print i ",";
printf i "%02d", $hour;
print i ":";
printf i "%02d", $min;
print i ":";
printf i "%02d", $sec;
print i ",";
print i $t;
print i ",";
print i $ENV{'HTTP_REFERER'};
print i "\n";
close (i);
print "Content-type: text/html\n\n";
print qq~
Reverse Phone Directory
~;
$g = index $ENV{'HTTP_REFERER'}, 'google';
if ( $g > 0 ) {
$ENV{'HTTP_REFERER'} = "";
}
$i = index $ENV{'HTTP_REFERER'}, 'reversephonedirectory.com';
if ( $i < 1 ) { $i = index $ENV{'HTTP_REFERER'}, '66.216.84.128'; }
$i = 2;
if ( $i > 0 )
# || ( $ENV{'HTTP_USER_AGENT'} eq 'Mediapartners-Google/2.1 (+http://www.googlebot.com/bot.html)'))
{
print qq~
~; }
if ($dir eq 'WhitePages') {
print qq~