#!/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; } } } #print qq~ #Please call 765-212-1111 to schedule or ask a question about this property. The online showing module has temporarly been disabled. #~; #exit 0; if ($INPUT{action} eq "send") { &send; } elsif ($INPUT{action} eq "verify") { &verify; } else { &main; } sub main { @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"; my $client_info = $dbh->prepare("select userid,email,password,firstname,lastname,address,city,state,zipcode,Phone,myERAAgent from users where userid = '$Cook{userid}'"); $client_info->execute; while (($cclient_userid,$cclient_email,$cclient_password,$cclient_firstname,$cclient_lastname,$cclient_address,$cclient_city,$cclient_state,$cclient_zip,$cclient_phone,$cclient_agentid) = $client_info->fetchrow_array()) { $client_userid = "$cclient_userid"; $client_email = "$cclient_email"; $client_password = "$cclient_password"; $client_firstname = "$cclient_firstname"; $client_lastname = "$cclient_lastname"; $client_address = "$cclient_address"; $client_city = "$cclient_city"; $client_state = "$cclient_state"; $client_zip = "$cclient_zip"; $client_phone = "$cclient_phone"; $client_agentid = "$cclient_agentid"; } print qq~ The ORR Home Selling Team Setup A Showing Online
Please Enter Your Contact Info, Showing Information and/or Question Below:
Name

Address

,
Phone Used to verify appointment

E-Mail Address
When would you like to see this property?
at :  
Please send us any showing information or attach your question in the box below:
~; } sub verify { print qq~ The ORR Home Selling Team Setup A Showing Online
[ Make Changes ]
Please Verify Information Below:
Name:
$INPUT{FirstName}
Address:
$INPUT{cAddress}
$INPUT{cCity}, $INPUT{cState} $INPUT{cZipCode}
Phone:
$INPUT{Phone}
E-Mail Address:
$INPUT{EmailAddress}




 
Property:
$INPUT{address}
$INPUT{City}
When would you like to see this property?
$INPUT{TMonth} $INPUT{TMonthDay} at $INPUT{TTimeHour}:$INPUT{TTimeMinute} $INPUT{TTimeAP}

Showing Information or Question to Ask:
$INPUT{EmailMessage}
[ Make Changes ]
~; } sub send { 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 received from MuncieMLS.com!\*\*\n"; print MAIL "Content-type: text/html\n\n"; print MAIL qq~ Below is a copy of the showing request.
Property Type
     $INPUT{proptype}

Client Information
     $INPUT{FirstName}
     $INPUT{cAddress}
     $INPUT{cCity}, $INPUT{cState} $INPUT{cZipCode}
     Phone Number $INPUT{Phone}
     E-Mail Address $INPUT{EmailAddress}
     ORRHomes.com UserID $INPUT{userid}

Property Information
     MLS Number $INPUT{mlsnumber}
     $INPUT{address}
     $INPUT{City}, Indiana

Requested Time Of Showing
     $INPUT{TMonth} $INPUT{TMonthDay} at $INPUT{TTimeHour}:$INPUT{TTimeMinute} $INPUT{TTimeAP}

E-Mail Message
     $INPUT{EmailMessage}
~; close(MAIL); print qq~ Thank you, Your request has successfully been sent The ORR Home Selling Team. We will respond to your request as soon as possible. Please note: Your showing request may be delayed if submited on Saturday, Sunday, or on Holidays. Please call our office at 765-212-1111 if you have not received confirmation from an ORR Team member. Please do not show up to the property until an ORR Team member has confirmed this showing request!
~; }