#!/usr/bin/perl print "Content-type: text/html\n\n"; $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; } } } $key = "7652121111"; unless ($INPUT{key} eq $key) { print qq~ Login to Statistics Below

Enter Security Key To Continue!


~; exit 0; } $d_name = "muncieml_db1"; $d_username = "muncieml_db1"; $d_pass = "\@rockdb1"; 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 $caasth = $dbh->prepare("select COUNT(visitor_num) from starpress_ideal_ad"); $caasth->execute; while (($allcount) = $caasth->fetchrow_array()) { $all_count = "$allcount"; } my $aasth = $dbh->prepare("select visitor_num,DATE_FORMAT(datetime, '%b %D, %Y at %h\:%i%p'),ipadd,referer,broswer from starpress_ideal_ad GROUP BY ipadd ORDER BY datetime ASC"); $aasth->execute; $start_count = "1"; print qq~ Visit Laurel Meadows Grand Opening AD Tracker
TheStarPress.com Pop Up Laurel Meadows AD Campaign April 25th, 26th and 27th Detailed Visitor Tracker


~; while (($num,$datetime,$ipadd,$referer,$browser) = $aasth->fetchrow_array()) { ## CHECK AMOUNT OF VISITS PER IP my $vpip = $dbh->prepare("select COUNT(visitor_num) from starpress_ideal_ad where ipadd = '$ipadd'"); $vpip->execute; while (($vpipcount) = $vpip->fetchrow_array()) { $vpip_count = "$vpipcount"; } ## LABEL RYAN AND EAGLE IPS if ($ipadd eq "68.51.82.210") { $ipadd = "Ryan's Home"; } if ($ipadd eq "70.89.193.137") { $ipadd = "Eagle Real Estate, Inc."; } print qq~~; $start_count++; $vpip_count = "0"; } #WHEN LAST COUNT SET BACK TO CORRECT NUMBER $start_count = ($start_count-1); print qq~
# Date & Time IP Address Referer Broswer
$start_count $datetime $ipadd ($vpip_count) $referer $browser

$start_count Unique Visitors | $all_count Total Impressions (Includes Users Who Clicked More Than Once)

~;