#! /usr/bin/perl $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[2]); $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; $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; print "Content-type: text/html\n\n"; print qq~ Reverse Phone Directory
~; if ( $lookup eq 'Reverse_Phone' ) { if ($dir eq '') { print qq~ Reverse Telephone Number Lookup
This service is provided by multiple directory assistance providers.
Lookup a telephone number to find a person's name and address from a phone number. ~; } else { print qq~ Reverse Telephone Number Lookup for $num1-$num2-$num3
Your current search results are provided by $dir.com
Try this search on ~; $d = 0; if ( $dir ne 'WhitePages' ) { print qq~WhitePages.com ~; $d = 1; } if ( $dir ne 'PhoneNumber' ) { if ($d eq 1) { print qq~or ~; } print qq~PhoneNumber.com ~; $d = 1; } if ( $dir ne 'InfoSpace' ) { if ($d eq 1) { print qq~or ~; } print qq~InfoSpace.com ~; } print qq~
Reverse Phone
Number Lookup
~; } } if ( $lookup eq 'Reverse_Address' ) { if ($dir eq '') { print qq~Reverse Street Address Lookup
This service is provided by multiple directory assistance providers.
Lookup a street address to find a person's name and phone number. ~; } else { print qq~Reverse Street Address Lookup for $house $street, $city, $state
Your current search results are provided by $dir.com
Try this search on ~; $d = 0; if ( $dir ne 'WhitePages' ) { print qq~WhitePages.com ~; $d = 1; } if ( $dir ne 'PhoneNumber' ) { if ($d eq 1) { print qq~or ~; } print qq~PhoneNumber.com ~; $d = 1; } if ( $dir ne 'InfoSpace' ) { if ($d eq 1) { print qq~or ~; } print qq~InfoSpace.com ~; } print qq~ ~; } } if ( $lookup eq 'Reverse_Cell' ) { print qq~Reverse Cellular Phone Number Lookup
This service is provided by Intelius.com
Lookup a cell phone number and find a person's name and address. ~; } if ( $lookup eq 'Reverse_Unlisted' ) { print qq~Reverse Unlisted Phone Number Lookup
This service is provided by Intelius.com
Lookup an unlisted telephone number and find a person's name and address. ~; } if ( $lookup eq 'Reverse_Disconnected' ) { print qq~Reverse Disconnected Phone Number Lookup
This service is provided by Intelius.com
Lookup a disconnected telephone number and find a person's name and address. ~; } if ( $lookup eq 'Reverse_Name' ) { print qq~Lookup by Name
This service is provided by Intelius.com
Lookup and find a person's phone and address. ~; } if ( $lookup eq 'Reverse_Maiden' ) { print qq~Lookup by Maiden Name
This service is provided by Intelius.com
Lookup and find a person's phone and address by maiden name. ~; } if ( $lookup eq 'Reverse_Background' ) { print qq~Instant Background Check
This service is provided by Intelius.com
Run a background check and get instant answers. Includes criminal check, bankruptcy, tax liens, property information and much more. ~; } if ( $lookup eq 'Reverse_Address_Intelius' ) { print qq~Lookup by Address
This service is provided by Intelius.com
Lookup and find a person's name and phone. ~; } if ( $lookup eq 'Net_Det' ) { print qq~Public Records: $dir ~; if (($fname ne "") || ($lname ne "")) { print qq~ for $fname $lname~; } print qq~
This service is provided by Net Detective
Locate people and verify background information. ~; } if ( $lookup eq 'intelius' ) { print qq~Public Records: $dir ~; if (($fname ne "") || ($lname ne "")) { print qq~ for $fname $lname~; } print qq~
This service is provided by Intelius
Locate people and verify background information. ~; } print qq~ ~;