The ORR Home Selling Team REMAX Real Estate Groups Request Showing For $address

#!/usr/bin/perl print "Content-type: text/html\n\n"; 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; } } } if ($INPUT{action} eq "verify") { &verify; } elsif ($INPUT{'action'} eq "email") { &email; } else { &html; } sub verify { $Preferred_Agent="$INPUT{'Preferred_Agent'}"; $mls="$INPUT{'mls'}"; $city="$INPUT{'city'}"; $state="$INPUT{'state'}"; $zip="$INPUT{'zip'}"; $address="$INPUT{'address'}"; $email="$INPUT{'email'}"; $agent="$INPUT{'agent'}"; $FirstName="$INPUT{'FirstName'}"; $LastName="$INPUT{'LastName'}"; $cAddress="$INPUT{'cAddress'}"; $cState="$INPUT{'cState'}"; $cCity="$INPUT{'cCity'}"; $cZipCode="$INPUT{'cZipCode'}"; $Phone="$INPUT{'Phone'}"; $EmailAddress="$INPUT{'EmailAddress'}"; $Fax="$INPUT{'Fax'}"; $TMonth="$INPUT{'TMonth'}"; $TMonthDay="$INPUT{'TMonthDay'}"; $TTimeHour="$INPUT{'TTimeHour'}"; $TTimeMinute="$INPUT{'TTimeMinute'}"; $TTimeAP="$INPUT{'TTimeAP'}"; $iMovingTime="$INPUT{'iMovingTime'}"; $iContact="$INPUT{'iContact'}"; $IOwnOrRent="$INPUT{'IOwnOrRent'}"; $EmailMessage="$INPUT{'EmailMessage'}"; print < The ORR Home Selling Team REMAX Real Estate Groups Request Showing For $address

Request A Showing With The ORR Home Selling Team REMAX Real Estate Groups

Please verify your information before submitting!

Subject Property:
$address
$city, $state $zip
MLS #$mls

VERIFY } sub email { $sendto = "$INPUT{EmailAddress}"; open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: messages\@ORRHomes.com\n"; print MAIL "To: ryan\@ORRHomes.com\n"; print MAIL "From: showings\@munciemls.com\n"; print MAIL "Subject: \*\*Online Showing Request Recieved!\*\*\n\n"; print MAIL "NEW SHOWING REQUESTED ONLINE!\nBelow is a copy of the showing request.\n\n\nPreferred Agent $INPUT{Preferred_Agent}:\nProperty Address:\n$INPUT{address}\n$INPUT{city}, $INPUT{state} $INPUT{zip}\nMLS Number: $INPUT{mls}\nListing Agent: $INPUT{agent}\n\nYou will be showing the propety to:\n$INPUT{FirstName} $INPUT{LastName}\n$INPUT{cAddress}\n$INPUT{cCity}, $INPUT{cState} $INPUT{cZip}\nPhone: $INPUT{Phone}\nFax: $INPUT{Fax}\n$INPUT{EmailAddress}\n\nRequested Time Of Showing\n$INPUT{TMonth} $INPUT{TMonthDay} at $INPUT{TTimeHour}:$INPUT{TTimeMinute} $INPUT{TTimeAP}\n\nPlanning to moving in: $INPUT{iMovingTime}\nContact By: $INPUT{iContact}\nCurrently: $INPUT{IOwnOrRent}\n\nMessage Sent:\n$INPUT{EmailMessage}\n\n\n\n"; close(MAIL); open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: $sendto\n"; print MAIL "From: info\@orrhomes.com\n"; print MAIL "Subject: \*\*Online Showing Request received from MuncieMLS.com!\*\*\n"; print MAIL "THANK YOU FOR YOUR RECENT ONLINE INQUIRY WITH The ORR Home Selling Team REMAX Real Estate Groups!\nBelow is a copy of your showing request. An The ORR Home Selling Team REMAX Real Estate Groups Representative will be contacting you shortly! Please do not show up to the property until confirmation from agent is received.\n\n\nPreferred Agent $INPUT{Preferred_Agent}:\nProperty Address:\n$INPUT{address}\n$INPUT{city}, $INPUT{state} $INPUT{zip}\nMLS Number: $INPUT{mls}\n\n\nYour information:\n$INPUT{FirstName} $INPUT{LastName}\n$INPUT{cAddress}\n$INPUT{cCity}, $INPUT{cState} $INPUT{cZip}\nPhone: $INPUT{Phone}\nFax: $INPUT{Fax}\n$INPUT{EmailAddress}\n\nRequested Time Of Showing\n$INPUT{TMonth} $INPUT{TMonthDay} at $INPUT{TTimeHour}:$INPUT{TTimeMinute} $INPUT{TTimeAP}\n\nPlanning to moving in: $INPUT{iMovingTime}\n$INPUT{iContact}\n$INPUT{IOwnOrRent}\n\nMessage Sent:\n$INPUT{EmailMessage}\n\n-------------------------------------------------\nThis Message was Sent from http://www.ORRHomes.com\nWhen Buying Or Selling Call The ORR Team First!\n-------------------------------------------------\n\n\n"; close(MAIL); print < The ORR Home Selling Team REMAX Real Estate Groups Showing Request Sent! Request A Showing With The ORR Home Selling Team REMAX Real Estate Groups

$INPUT{FirstName}, Your Request Has Been Successfully Submitted!
An Agent Will Contact You Shortly

Close Window And Return To The ORR Home Selling Team REMAX Real Estate Groups Online! HTML2 } sub html { @days = ('Sunday','Monday','Tuesday','Wednesday', 'Thursday','Friday','Saturday'); @months = ('January','February','March','April','May','June','July', 'August','September','October','November','December'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec); if ($hour eq "13") { $hour = "1"; $pm = "y"; }if ($hour eq "14") { $hour = "2"; $pm = "y"; }if ($hour eq "15") { $hour = "3"; $pm = "y"; }if ($hour eq "16") { $hour = "4"; $pm = "y"; }if ($hour eq "17") { $hour = "5"; $pm = "y"; }if ($hour eq "18") { $hour = "6"; $pm = "y"; }if ($hour eq "19") { $hour = "7"; $pm = "y"; }if ($hour eq "20") { $hour = "8"; $pm = "y"; }if ($hour eq "21") { $hour = "9"; $pm = "y"; }if ($hour eq "22") { $hour = "10"; $pm = "y"; }if ($hour eq "23") { $hour = "11"; $pm = "y"; }if ($hour eq "24") { $hour = "12"; $pm = "y"; } $time = sprintf("%02d:%02d",$hour,$min); $tdate = "$days[$wday], $months[$mon] $mday, $year"; #$mon = $mon + 1; if ($pm eq "y") { $tm = "pm"; } else { $tm = "am"; } if ($mday < "10") { $mday = "0$mday"; } if ($mon eq "12") { $mon = "1"; } else { $mon++; } $newyear = $year+1900; $actdate = "$mon\/$mday\/$newyear"; if (-e "/home/muncieml/public_html/images/photos/thumbnail/meiar$INPUT{mls}.jpg") { $showpicture = "images/photos/thumbnail/meiar$INPUT{mls}.jpg"; } else { $showpicture = "images/photos/search_nophoto.gif"; } open(ADB,"/home/eagleon/public_html/agents.db"); @adb = ; close(ADB); $buildpull = ""; print < Request A Showing With The ORR Home Selling Team REMAX Real Estate Groups

Please fill out the info below to request a showing.

The ORR Home Selling Team REMAX Real Estate Groups Request Showing For $INPUT{address}

Subject Property:
$INPUT{address}
$INPUT{city}, $INPUT{state} $INPUT{zip}
MLS #$INPUT{mls}

First Name

Last Name

Address

City

State

Zip/Postal Code

Telephone Number
used to verify appointment

Email Address

Fax Number

When would you like to see this property?
at :

Please select your showing agent preference:
$buildpull

When are you planning to move?

Please contact me via:
E-Mail Phone

Do you own or rent?
Own Rent

Message To Agent:

HTML2 }