Property Contact Request >> The ORR Home Selling Team >> RE/MAX Real Estate Groups

#!/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 "send") { &send; } else { &html; } sub html { print qq~ Property Contact Request >> The ORR Home Selling Team >> RE/MAX Real Estate Groups ~; &header; print qq~

Please Answer the following questions below:


1. Please let us know how we can best assist you:
I would like to list my property with RE/MAX and The ORR Home Selling Team I would like to receive a market analysis and view a marketing plan for my property I am curious about what my property may be worth before I decide to sell I would like to view Auction options for my property


2. Please enter your information below:
*First Name	*Last Name


*E-Mail Address	*Has your home been listed with another REALTOR?
	Yes No
How Should We Contact You?	Best Time To Contact


*Home Phone	Work / Mobile Phone
--	--


3. Enter Property Information:

*Property Address, City, State

*Mortgage Balance(s)	*Anticipated Value



3. Your Current Housing Situation

*Your Current Housing	*Selling Time Frame
Own Rent Other

Please send us any additional comments about your home or situation

~; &footer; } sub send { open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: web\@ORRHomes.com\n"; print MAIL "From: Info\@ORRHomes.com\n"; print MAIL "Subject: \*\*MuncieMLS.com Listing Contact Request!\*\*\n\n"; print MAIL "Below is a copy of the contact request.\nProspect Would Like: \n$INPUT{WOULD_LIKE}\nContact Information:\n$INPUT{'FIRST_NAME'} $INPUT{'LAST_NAME'}\n$INPUT{'EMAIL_ADDRESS'}\nHas home been listed before? $INPUT{'LISTED_BEFORE'}\nContact: $INPUT{'CONTACT_TYPE'} at $INPUT{'BEST_TIME'}\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\nProperty Information:\n $INPUT{PROPERTY_ADDRESS}\n$INPUT{PROPERTY_CITY}, $INPUT{PROPERTY_ZIP}\n\nMortgage Balance: $INPUT{MORTGAGE_BALANCE}\nANTICIPATED Selling Value: $INPUT{ANTICIPATED_VALUE}\nOwn Or Rent: $INPUT{'IOwnOrRent'}\nMoving Time: $INPUT{'iMovingTime'}\nComments: $INPUT{'COMMENTS'}\n"; close(MAIL); print qq~ Property Request Sent >> The ORR Home Selling Team >> RE/MAX Real Estate Groups ~; &header; print qq~

$INPUT{FIRST_NAME}, Your Request Has Been Successfully Submitted to The ORR Home Selling Team!
You message has also been delivered to all members of the ORRTEAM. Please expect a response shortly

Return To MuncieMLS.com! ~; &footer; }