#!/usr/bin/perl require "config.idx"; $long = $ENV{'QUERY_STRING'}; if ($long) { @pairs=split(/&/,$long); foreach $item(@pairs) { ($name,$content)=split (/=/,$item,2); $content=~tr/+/ /; $content=~ s/%(..)/pack("c",hex($1))/ge; if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; } else { $INPUT{$name} = $content; } } } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; } else { $INPUT{$name} = $value; } } } &checklogin; if ($INPUT{action} eq "search") { &search; } elsif ($INPUT{action} eq "searchthree") { &searchthree; } elsif ($INPUT{action} eq "searchfour") { &searchfour; } elsif ($INPUT{action} eq "searchmultiple") { &searchmultiple; } elsif ($INPUT{action} eq "report") { &report; } elsif ($INPUT{action} eq "temp") { &temp; } else { &main; } sub main { print <<"STARTOFTHEPAGE"; Eagle Real Estate, Inc. - Do Not Call List - Connect.EagleSold.com STARTOFTHEPAGE &header; print <<"ALLTHISSTUFF"; Do Not Call
ALLTHISSTUFF use DBI; my $dsn = "DBI:mysql:database=$d_name;host=localhost"; my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr; my $aasth = $dbh->prepare("select COUNT(ID) from telemarketing"); $aasth->execute; while (($atotalnumber) = $aasth->fetchrow_array()) { $totalnumber = $atotalnumber; } $totalnumber = &commas($totalnumber); print qq~
$totalnumber registered numbers for 765

SEARCH BY PHONE NUMBER
 --
SEARCH BY FIRST 3 DIGITS
 -XXXX
SEARCH BY LAST FOUR NUMBERS
 -XXX-
WORKING ON MULTIPLE FORM WITH ALL AREA CODES ~; $dbh->disconnect; print <<"ALLTHISSTUFF3";
ALLTHISSTUFF3 &footer; } sub search { print <<"STARTOFTHEPAGE"; Eagle Real Estate, Inc. - Do Not Call List - Connect.EagleSold.com STARTOFTHEPAGE &header; print <<"ALLTHISSTUFF"; Do Not Call
ALLTHISSTUFF use DBI; my $dsn = "DBI:mysql:database=$d_name;host=localhost"; my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr; my $aasth = $dbh->prepare("SELECT ID,areacode,number3,number4 FROM telemarketing WHERE areacode = '$INPUT{area}' AND number3 = '$INPUT{three}' AND number4 = '$INPUT{four}'"); $aasth->execute; while (($ID,$areacode,$number3,$number4) = $aasth->fetchrow_array()) { $foundnumber = "yes"; print qq~
We found the number $areacode-$INPUT{three}-$INPUT{four} listed!        New Search

THE FOLLOWING NUMBER MAY NOT BE CALLED!

 - Do not call $areacode-$number3-$number4
~; } unless ($foundnumber eq "yes") { print qq~
GOOD NEWS! Number is not found in database!         New Search

YOU MAY CALL THE FOLLOWING NUMBER!

 - You may call $INPUT{area}-$INPUT{three}-$INPUT{four}
~; } print <<"ALLTHISSTUFF3"; ALLTHISSTUFF3 &footer; $dbh->disconnect; } sub searchthree { print <<"STARTOFTHEPAGE"; Eagle Real Estate, Inc. - Do Not Call List - Connect.EagleSold.com STARTOFTHEPAGE &header; print <<"ALLTHISSTUFF"; Do Not Call
ALLTHISSTUFF use DBI; my $dsn = "DBI:mysql:database=$d_name;host=localhost"; my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr; my $basth = $dbh->prepare("SELECT COUNT(ID) FROM telemarketing WHERE areacode = '$INPUT{area}' AND number3 = '$INPUT{number}'"); $basth->execute; while (($count) = $basth->fetchrow_array()) { $totalfound = $count; } print qq~
We found $totalfound numbers listed for $INPUT{number}        New Search

THE FOLLOWING NUMBERS MAY NOT BE CALLED!

 ~; $trcount = "1"; $totalperrow = "5"; $rowcolor1 = "1"; $rowcolor2 = "2"; my $aasth = $dbh->prepare("SELECT ID,areacode,number3,number4 FROM telemarketing WHERE areacode = '$INPUT{area}' AND number3 = '$INPUT{number}'"); $aasth->execute; while (($ID,$areacode,$number3,$number4) = $aasth->fetchrow_array()) { $foundnumber = "yes"; if ($rowcolor1 eq $rowcolor2) { $color = "#FFFFFF"; $rowcolor1 = "1"; } else { $color = "#99CCFF"; $rowcolor1++; } print qq~ ~; if ($trcount eq $totalperrow) { print ""; $trcount = "1"; } else { $trcount++; } } unless ($foundnumber eq "yes") { print "No numbers found in list"; print <<"ALLTHISSTUFF3";
$areacode-$number3-$number4
ALLTHISSTUFF3 &footer; } $dbh->disconnect; } sub searchfour { print <<"STARTOFTHEPAGE"; Eagle Real Estate, Inc. - Do Not Call List - Connect.EagleSold.com STARTOFTHEPAGE &header; print <<"ALLTHISSTUFF"; Do Not Call
ALLTHISSTUFF use DBI; my $dsn = "DBI:mysql:database=$d_name;host=localhost"; my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr; my $basth = $dbh->prepare("SELECT COUNT(ID) FROM telemarketing WHERE areacode = '$INPUT{area}' AND number4 = '$INPUT{four}'"); $basth->execute; while (($count) = $basth->fetchrow_array()) { $totalfound = $count; } print qq~
We found $totalfound numbers listed for $INPUT{area}-XXX-$INPUT{four}        New Search

THE FOLLOWING NUMBERS MAY NOT BE CALLED!

 ~; $trcount = "1"; $totalperrow = "5"; $rowcolor1 = "1"; $rowcolor2 = "2"; my $aasth = $dbh->prepare("SELECT ID,areacode,number3,number4 FROM telemarketing WHERE areacode = '$INPUT{area}' AND number4 = '$INPUT{four}'"); $aasth->execute; while (($ID,$areacode,$number3,$number4) = $aasth->fetchrow_array()) { $foundnumber = "yes"; if ($rowcolor1 eq $rowcolor2) { $color = "#FFFFFF"; $rowcolor1 = "1"; } else { $color = "#99CCFF"; $rowcolor1++; } print qq~ ~; if ($trcount eq $totalperrow) { print ""; $trcount = "1"; } else { $trcount++; } } unless ($foundnumber eq "yes") { print "No numbers Found In Database!"; print <<"ALLTHISSTUFF3";
$areacode-$number3-$number4
ALLTHISSTUFF3 &footer; } $dbh->disconnect; } sub searchmultiple { print <<"STARTOFTHEPAGE"; Eagle Real Estate, Inc. - Do Not Call List - Connect.EagleSold.com STARTOFTHEPAGE &header; print <<"ALLTHISSTUFF"; Do Not Call
ALLTHISSTUFF use DBI; $dsn = "DBI:mysql:database=$d_name;host=localhost"; $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr; print qq~
Report Below for the Numbers Checked        New Search

THE FOLLOWING REPORTED

 ~; $field_counter = "1"; while ($field_counter <= "10") { $variablename = "s$field_counter"; $variable_three = $variablename; $variable_four = $variablename; $variable_three .= "three"; $variable_four .= "four"; &check_number("$INPUT{$variable_three}","$INPUT{$variable_four}") if ($INPUT{$variable_three} && $INPUT{$variable_four}); $field_counter++; } print <<"ALLTHISSTUFF3";
ALLTHISSTUFF3 &footer; $dbh->disconnect; } sub report { print <<"STARTOFTHEPAGE"; Eagle Real Estate, Inc. - Do Not Call List - Connect.EagleSold.com
STARTOFTHEPAGE use DBI; my $dsn = "DBI:mysql:database=$d_name;host=localhost"; my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr; my $basth = $dbh->prepare("SELECT COUNT(ID) FROM telemarketing WHERE number3 = '$INPUT{number}'"); $basth->execute; while (($count) = $basth->fetchrow_array()) { $totalfound = $count; } print qq~ ~; $trcount = "1"; $totalperrow = "14"; $rowcolor1 = "1"; $rowcolor2 = "4"; my $aasth = $dbh->prepare("SELECT ID,number3,number4 FROM telemarketing ORDER BY number3"); $aasth->execute; while (($ID,$number3,$number4) = $aasth->fetchrow_array()) { $foundnumber = "yes"; if ($rowcolor1 eq $rowcolor2) { $color = "#FFFFFF"; $rowcolor1 = "1"; } else { $color = "#99CCFF"; $rowcolor1++; } print qq~ ~; if ($trcount eq $totalperrow) { print ""; $trcount = "1"; } else { $trcount++; } } unless ($foundnumber eq "yes") { print "Number not found in list"; print <<"ALLTHISSTUFF3";
$number3-$number4
ALLTHISSTUFF3 } $dbh->disconnect; } sub temp { use DBI; my $dsn = "DBI:mysql:database=$d_name;host=localhost"; my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr; my $aasth = $dbh->prepare("SELECT * FROM `telemarketing` GROUP BY number3"); $aasth->execute; while (($ID,$zipcode,$number3,$number4) = $aasth->fetchrow_array()) { print "\n"; } $dbh->disconnect; } sub check_number { my ($first3,$last4) = @_; my $pasth = $dbh->prepare("select * from telemarketing where number3 = '$first3' and number4 = '$last4'"); $pasth->execute; $foundit = "no"; while (($results) = $pasth->fetchrow_array()) { $foundit = "yes"; } if ($foundit eq "yes") { print "$first3\-$last4 Do Not Call
"; } else { print "$first3\-$last4 You May Call
"; } } sub commas { local($_)=@_; 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_; }