#!/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 "listingsend") { &listingsend; } elsif ($INPUT{action} eq "listingmain") { &listingmain; } elsif ($INPUT{action} eq "searchsend") { &searchsend; } else { &searchmain; } sub searchsend { if ($INPUT{script} eq "res") { $extension = ""; } else { $extension = "\_$INPUT{script}"; } open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: $INPUT{ToEmail}\n"; print MAIL "From: $INPUT{FromEmail}\n"; print MAIL "Subject: You have been E-Mailed A Property Search From Eagle Real Estate MuncieMLS.com!\n\n"; print MAIL "Hello $INPUT{To}\,\n\n$INPUT{From} has just sent you the following listing from Eagle Real Estate MuncieMLS.com. To view this search, please click the below link:\n\nEagle Real Estate MuncieMLS.com/search$extension\.idx?$INPUT{string}\n\n$INPUT{From} also left the following message:\n\n$INPUT{Message}\n\n"; close(MAIL); print <<"STARTTHEPAGE"; Eagle Real Estate MuncieMLS.com E-Mail Search
Search Has Successfully Been E-Mailed!
Thank you for using the Eagle Real Estate MuncieMLS.com E-Mail Search.






[ Close This Window ]
STARTTHEPAGE } sub searchmain { print <<"STARTTHECOMOTION"; Eagle Real Estate MuncieMLS.com E-Mail Search
Who would you like to E-Mail this seasrch to?
Please specify your name and the recipients name below
Enter Details Below:
Your Name:
Your E-Mail Address:

line
Recipients Name:
Recipients E-Mail Address:

line
Message to Recipient:
STARTTHECOMOTION } sub listingsend { open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: $INPUT{ToEmail}\n"; print MAIL "From: $INPUT{FromEmail}\n"; print MAIL "Subject: You have been E-Mailed A Listing From Eagle Real Estate MuncieMLS.com!\n\n"; print MAIL "Hello $INPUT{To}\,\n\n$INPUT{From} has just sent you the following listing from Eagle Real Estate MuncieMLS.com. To view this listing, please click on the following link:\n\n http://www.munciemls.com/showdetails$INPUT{type}\.idx?gate=email&mlsnumber=$INPUT{mlsnumber}\n\n$INPUT{From} attached the following message:\n\n$INPUT{Message}\n\n"; close(MAIL); print <<"STARTTHEPAGE"; Eagle Real Estate MuncieMLS.com E-Mail Listing
Listing Has Successfully Been E-Mailed!
Thank you for using the Eagle Real Estate MuncieMLS.com E-Mail Listing Service.






[ Close This Window ]
STARTTHEPAGE } sub listingmain { print <<"SAVESTUFFPAGE"; Eagle Real Estate MuncieMLS.com E-Mail Listing
Who would you like to E-Mail this listing to?
Please specify your name and the recipients name below
Enter Details Below:
Your Name:
Your E-Mail Address:

line
Recipients Name:
Recipients E-Mail Address:

line
Message to Recipient:
SAVESTUFFPAGE }