#!/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; } } } if ($INPUT{'action'} eq "verify") { &verify; } elsif ($INPUT{'action'} eq "send") { &send; } else { &html; } sub html { require "config.idx"; 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 $zasth = $dbh->prepare("select mlsid,firstname,lastname from agents where display = '1'"); $zasth->execute; while (($mlsid,$firstname,$lastname) = $zasth->fetchrow_array()) { $buildagentlist .= "\n"; } &header; print <<"THEPAGECONTENT"; Contact A Realtor
Please fill out the following form to have a REALTOR contact you:

*first name *last name
 

*your email address *are you currently working with a realtor?
   Yes  No



contact information

how should we contact you? best time to contact

*home phone work / mobile phone
-- --



optional information

do you currently own or rent buying or selling time frame do you have a preferred agent?
Own   Rent

please send your comments



THEPAGECONTENT &footer; } sub verify { require "config.idx"; &header; if ($INPUT{'CURCUST'} eq "Y") { $CURCUST = "Yes"; } else { $CURCUST = "No"; } print <<"THEPAGECONTENT"; Contact A Realtor
Please verify your information before submitting to have a REALTOR contact you

*first name *last name
$INPUT{'FIRSTNAME'}  $INPUT{'LASTNAME'}

*your email address *are you currently working with a realtor?
$INPUT{'EMAILADDRESS'}  $CURCUST



contact information

how should we contact you? best time to contact
$INPUT{'contacttype'} $INPUT{'besttime'}

*home phone work / mobile phone
$INPUT{'HOME_AREA_CODE'}-$INPUT{'HOME_PREFIX'}-$INPUT{'HOME_PHONE'} $INPUT{'WORK_AREA_CODE'}-$INPUT{'WORK_PREFIX'}-$INPUT{'WORK_PHONE'}



optional information

do you currently own or rent buying or selling time frame do you have a preferred agent?
$INPUT{'IOwnOrRent'} $INPUT{'iMovingTime'} $INPUT{'Preferred_Agent'}

your comments
$INPUT{'COMMENTS'}



THEPAGECONTENT &footer; } sub send { $sendto = "info\@eagle-online.com"; open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: $sendto\n"; print MAIL "From: info\@munciemls.com\n"; print MAIL "Subject: \*\*Online Contact Request Recieved!\*\*\n\n"; print MAIL "NEW ONLINE CONTACT REQUESTED ONLINE!\nBelow is a copy of the contact request.\n\n\nContact Information:\n$INPUT{'FIRSTNAME'} $INPUT{'LASTNAME'}\n$INPUT{'EMAILADDRESS'}\n\n\nCurrently working with a REALTOR: $INPUT{'CURCUST'}\nContact: $INPUT{'contacttype'} at $INPUT{'besttime'}\nHome Phone: $INPUT{'HOME_AREA_CODE'}-$INPUT{'HOME_PREFIX'}-$INPUT{'HOME_PHONE'}\nWork Phone: $INPUT{'WORK_AREA_CODE'}-$INPUT{'WORK_PREFIX'}-$INPUT{'WORK_PHONE'}\n\nPreferred Agent: $INPUT{'Preferred_Agent'}\nOwn Or Rent: $INPUT{'IOwnOrRent'}\nMoving Time: $INPUT{'iMovingTime'}\n\nComments: $INPUT{'COMMENTS'}\n\n\n"; close(MAIL); open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: $INPUT{'EMAILADDRESS'}\n"; print MAIL "From: info\@munciemls.com\n"; print MAIL "Subject: \*\*Your Recent Online Contact Request!\*\*\n\n"; print MAIL "Thank you for your recent inquiry with MuncieMLS.com!\nBelow is a copy of the online request for your records.\n\n\nContact Information:\n$INPUT{'FIRSTNAME'} $INPUT{'LASTNAME'}\n$INPUT{'EMAILADDRESS'}\n\n\nCurrently working with a REALTOR: $INPUT{'CURCUST'}\nContact: $INPUT{'contacttype'} at $INPUT{'besttime'}\nHome Phone: $INPUT{'HOME_AREA_CODE'}-$INPUT{'HOME_PREFIX'}-$INPUT{'HOME_PHONE'}\nWork Phone: $INPUT{'WORK_AREA_CODE'}-$INPUT{'WORK_PREFIX'}-$INPUT{'WORK_PHONE'}\n\nPreferred Agent: $INPUT{'Preferred_Agent'}\nOwn Or Rent: $INPUT{'IOwnOrRent'}\nMoving Time: $INPUT{'iMovingTime'}\n\nComments: $INPUT{'COMMENTS'}\n\n\n"; close(MAIL); require "config.idx"; &header; print < Contact A Realtor
$INPUT{FIRSTNAME}, Your Request Has Been Successfully Submitted!
Please expect a response shortly

Return To MuncieMLS.com!
 HTML2 &footer; }