#!/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; } } } require "config.idx"; print qq~ Users Feedback >> Eagle Real Estate MuncieMLS.com ~; &header; print qq~ User Feedback
Send Feedback On The Use Of MuncieMLS.com
 
 
As we are continually trying to improve www.MuncieMLS.com we would like to hear from our users. You feedback will be used to further improve our website!

~; if ($INPUT{action} eq "send") { $temp_message = $INPUT{comments}; $temp_message =~ s/\"/\"/g; open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: ryan.orr\@eaglesold.com\n"; print MAIL "From: <$INPUT{firstname} $INPUT{lastname}> $INPUT{email}\n"; print MAIL "Subject: New MuncieMLS.com Feedback From $INPUT{firstname} $INPUT{lastname}\n"; print MAIL "Content-type: text/html\n\n"; print MAIL qq~ Official Eagle Real Estate, Inc. E-Mail


The Following Feedback Was Received

From:
$INPUT{firstname} $INPUT{lastname}
E-Mail: $INPUT{email}
MuncieMLS.com Userid: $INPUT{userid}

Comments:
$temp_message



~; close(MAIL); print qq~ Thank You for your feedback! The Following Comments Have Been Sent:
Firstname:$INPUT{firstname}
Lastname:$INPUT{lastname}
E-Mail:$INPUT{email}
Your Comments / How Can We Improve?
$temp_message
~; } else { 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 $rqasth = $dbh->prepare("select firstname,lastname from users where userid = '$Cook{userid}'"); $rqasth->execute; while (($rfirstname,$rlastname) = $rqasth->fetchrow_array()) { $temp_firstname = $rfirstname; $temp_lastname = $rlastname; } print qq~
Firstname:
Lastname:
E-Mail:
Your Comments / How Can We Improve?

~; } print qq~
~; &footer;