#!/usr/bin/perl print "Content-type: text/html\n\n"; $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; $ipadd = $ENV{REMOTE_ADDR}; $browser = $ENV{HTTP_USER_AGENT}; $referer = $ENV{HTTP_REFERER}; print qq~ Visit Laurel Meadows Grand Opening Saturday & Sunday from 1pm - 5pm!
Search MLS Listings Online at: Click Here To Visit MuncieMLS.com
Click Here to Visit IDEAL-Builders.com
$ipadd
~; @variables = ($ipadd,$referer,$browser); $sql_query = "INSERT INTO starpress_ideal_ad values ('',now(),?,?,?)"; my $aasth = $dbh->do($sql_query, undef, @variables); open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: Ryan\@ORRHomes.com\n"; print MAIL "From: Notify\@MuncieMLS.com\n"; print MAIL "Subject: NEW Visit to Laurel Meadows AD Campaign!\n"; print MAIL "Content-type: text/html\n\n"; print MAIL qq~ E-Mailer

New Visitor to Laurel Meadows Campaign!
IP Address: $ipadd
Refering Site: $referer
Broswer: $browser
~; close(MAIL);