You must have a MyHome account to access this feature. You may login to your existing account or create a FREE Eagle Real Estate MuncieMLS.com MyHomes account below.
~;
&footer;
exit 0;
}
}
## CHECK TOS
my $iasth = $dbh->prepare("select tos_agreement from users where userid = '$Cook{userid}'");
$iasth->execute;
while (($usr_tos) = $iasth->fetchrow_array()) {
if ($usr_tos eq "0000-00-00 00:00:00") {
print qq~
Loading TOS...
~;
}
}
sub changepassword {
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 $aasth = $dbh->prepare("select password from users where userid = '$Cook{userid}' and password = PASSWORD('$INPUT{current}')");
$aasth->execute;
my $cqasth = $dbh->prepare("select userid,email,firstname,lastname,access from users where userid = '$Cook{userid}'");
$cqasth->execute;
while (($ruserid,$remail,$rfirstname,$rlastname) = $cqasth->fetchrow_array()) {
$sendto = "$remail";
$fullname = "$rfirstname $rlastname";
$admin = "$access";
}
while (($itsgood) = $aasth->fetchrow_array()) {
unless ($INPUT{new1} && $INPUT{new2}) {
$status = "Please enter and verify your new passwords as well as your new password.";
}
unless ($INPUT{new1} eq $INPUT{new2}) {
$status = "New passwords don't match";
}
&header;
&startmain;
print qq~
$status
~;
if ($status) {
print qq~
~;
}
else {
my $basth = $dbh->do("update users set password = PASSWORD('$INPUT{new1}') where userid = '$Cook{userid}'");
print qq~
Your password has been successfully changed to $INPUT{new1}. Please keep your new password for your records. An e-mail has also been sent to $sendto with your new login email and password! Thank you for your continued use of the MuncieMLS.com home search website.
~;
open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "To: $sendto\n";
print MAIL "From: Admin\@MuncieMLS.com\n";
print MAIL "Subject: Your MuncieMLS.com Password Has Been Changed!\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq~
E-Mailer
$fullname,
We thought we would send you a note to remind you of your new password at www.MuncieMLS.com!
Your new login information and password for future reference is:
E-Mail
$sendto
Password
$INPUT{new1}
We hope you are enjoying your experience with the www.MuncieMLS.com website and property search.
Eagle Real Estate, Inc. looks forward to serving you. If at anytime you have questions or comments regarding the use of MuncieMLS.com please email info\@eagle-online.com or call us 765-741-9111.
Thank You, Eagle
~;
close(MAIL);
$send_body =qq~
E-Mailer
$fullname,
I thought I would send you a note to remind you of your new password at www.MuncieMLS.com!
Your new login information and password for future reference is:
E-Mail
$sendto
Password
$INPUT{new1}
I hope you are enjoying your experience with the www.MuncieMLS.com website and property search.
Eagle Real Estate, Inc. looks forward to serving you. If at anytime you have questions or comments regarding the use of MuncieMLS.com please email webmaster direct at webmaster\@MuncieMLS.com or call 765-744-9500.
Thank You, MuncieMLS.com
~;
######## RECORD COPY OF EMAIL IN DATABASE #################
@evariables = ("$Cook{userid}","webmaster\@MuncieMLS.com","Password Change -> Your MuncieMLS.com Password Has Been Changed!","$send_body");
$esql_query = "INSERT INTO emailstousers values ('',?,now(),?,?,?)";
my $zzaasth = $dbh->do($esql_query, undef, @evariables);
###########################################################
}
print qq~
~;
$found = "yes";
}
unless ($found eq "yes") {
&header;
&startmain;
print qq~
Your current password does not match the current password we have on file for $sendto. Please try again below
~;
}
&footer;
exit 0;
}
sub savetogglenotify {
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 $hasth = $dbh->do("update search_fav set status = '1', wireless = '$INPUT{wireless}', email = '$INPUT{email}' where favid = '$INPUT{searchid}' and userid = '$Cook{userid}'");
$dbh->disconnect;
$turnedon = "yes";
¬ifications;
}
sub saveprofile {
$INPUT{FirstName} =~ s/\"/CHR2/gi;
$INPUT{FirstName} =~ s/\'/CHR1/gi;
$INPUT{LastName} =~ s/\"/CHR2/gi;
$INPUT{LastName} =~ s/\'/CHR1/gi;
$INPUT{Address} =~ s/\"/CHR2/gi;
$INPUT{Address} =~ s/\'/CHR1/gi;
$INPUT{City} =~ s/\"/CHR2/gi;
$INPUT{City} =~ s/\'/CHR1/gi;
$INPUT{State} =~ s/\"/CHR2/gi;
$INPUT{State} =~ s/\'/CHR1/gi;
$INPUT{Zip} =~ s/\"/CHR2/gi;
$INPUT{Zip} =~ s/\'/CHR1/gi;
$INPUT{Email} =~ s/\"/CHR2/gi;
$INPUT{Email} =~ s/\'/CHR1/gi;
$INPUT{TimeToMove} =~ s/\"/CHR2/gi;
$INPUT{TimeToMove} =~ s/\'/CHR1/gi;
$INPUT{realtor} =~ s/\"/CHR2/gi;
$INPUT{realtor} =~ s/\'/CHR1/gi;
$INPUT{FoundBy} =~ s/\"/CHR2/gi;
$INPUT{FoundBy} =~ s/\'/CHR1/gi;
$INPUT{UserType} =~ s/\"/CHR2/gi;
$INPUT{UserType} =~ s/\'/CHR1/gi;
$INPUT{myERAAgent} =~ s/\"/CHR2/gi;
$INPUT{myERAAgent} =~ s/\'/CHR1/gi;
$INPUT{Phone} =~ s/\"/CHR2/gi;
$INPUT{Phone} =~ s/\'/CHR1/gi;
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 $yasth = $dbh->do("update users set firstname = '$INPUT{FirstName}', lastname = '$INPUT{LastName}', address = '$INPUT{Address}', city = '$INPUT{City}', state = '$INPUT{State}', zipcode = '$INPUT{zipcode}', timetomove = '$INPUT{TimeToMove}', realtor = '$INPUT{realtor}', email = '$INPUT{Email}', FoundBy = '$INPUT{FoundBy}', zipcode = '$INPUT{Zip}', UserType = '$INPUT{UserType}', myERAAgent = '$INPUT{myERAAgent}', Phone = '$INPUT{Phone}', email_block = '$INPUT{email_block}', email_openhouses = '$INPUT{email_openhouses}' where userid = '$Cook{userid}'");
if ($INPUT{myERAAgent}) {
my $basth = $dbh->prepare("select agentassigned from leadtracking where userid = ?");
$basth->execute($Cook{userid});
while (($agentassigned) = $basth->fetchrow_array()) {
if ($agentassigned ne "$INPUT{myERAAgent}") {
my $hasth = $dbh->do("update leadtracking set agentassigned = '$INPUT{myERAAgent}' where userid = '$Cook{userid}' limit 1");
}
}
}
$dbh->disconnect;
print qq~
Updating profile...
Updating profile...
~;
}
sub updateprofile {
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 $hasth = $dbh->prepare("select userid,email,password,firstname,lastname,address,city,state,zipcode,timetomove,realtor,datestamp,lastlogin,FoundBy,UserType,myERAAgent,Phone,email_block,email_openhouses from users where userid = '$Cook{userid}'");
$hasth->execute;
while (($userid,$email,$password,$_firstname,$_lastname,$address,$city,$state,$zipcode,$timetomove,$realtor,$datejoined,$lastlogin,$foundby,$usertype,$myeraagent,$phone,$email_block,$email_openhouses) = $hasth->fetchrow_array()) {
my $zasth = $dbh->prepare("select mlsid,firstname,lastname from agents where display = '1' order by lastname asc");
$zasth->execute;
while (($mlsid,$firstname,$lastname) = $zasth->fetchrow_array()) {
$agentbuildlist .= "\n";
}
my $qasth = $dbh->prepare("select mlsid,firstname,lastname from agents where mlsid = '$myeraagent' order by agentid desc");
$qasth->execute;
while (($mlsid,$firstname,$lastname) = $qasth->fetchrow_array()) {
$buildmyeraagent = "\n";
}
if ($foundby) {
$buildfoundby = "";
}
if ($usertype) {
$buildusertype = "";
}
if ($timetomove) {
$buildtimetomove = "";
}
if ($realtor eq "Yes") {
$checkYesrealtor = " checked";
}
else {
$checkNorealtor = " checked";
}
if ($email_openhouses eq "y") {
$checkYESemail_openhouses = " checked";
}
else {
$checkNOemail_openhouses = " checked";
}
if ($email_block eq "y") {
$checkYESemail_block = " checked";
}
else {
$checkNOemail_block = " checked";
}
$_firstname =~ s/CHR2/\"\;/gi;
$_lastname =~ s/CHR2/\"\;/gi;
$address =~ s/CHR2/\"\;/gi;
$city =~ s/CHR2/\"\;/gi;
$state =~ s/CHR2/\"\;/gi;
$zipcode =~ s/CHR2/\"\;/gi;
print <<"TITLE";
Eagle Real Estate, Inc - MuncieMLS.com
TITLE
&header;
print <<"UPDATEYOURPROFILE";
You may use the following form to update your account
Update your password has been moved! Look for it under MyHomes Account on the left navigational menu.
UPDATEYOURPROFILE
&footer;
$dbh->disconnect;
exit 0;
}
}
sub userupdate {
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 $hasth = $dbh->prepare("select * from users where userid = '$Cook{userid}'");
$hasth->execute;
$dbh->disconnect;
while (($userid,$email,$password,$_firstname,$_lastname,$address,$city,$state,$zipcode,$timetomove,$realtor,$datejoined,$lastlogin,$foundby,$usertype,$myeraagent,$phone) = $hasth->fetchrow_array()) {
my $zasth = $dbh->prepare("select mlsid,firstname,lastname from agents where display = '1' order by lastname asc");
$zasth->execute;
while (($mlsid,$firstname,$lastname) = $zasth->fetchrow_array()) {
$agentbuildlist .= "\n";
}
my $qasth = $dbh->prepare("select mlsid,firstname,lastname from agents where mlsid = '$myeraagent'");
$qasth->execute;
while (($mlsid,$firstname,$lastname) = $qasth->fetchrow_array()) {
$buildmyeraagent = "\n";
}
if ($foundby) {
$buildfoundby = "";
}
if ($usertype) {
$buildusertype = "";
}
if ($timetomove) {
$buildtimetomove = "";
}
if ($realtor eq "Yes") {
$checkYesrealtor = " checked";
}
else {
$checkNorealtor = " checked";
}
$_firstname =~ s/CHR2/\"\;/gi;
$_lastname =~ s/CHR2/\"\;/gi;
$address =~ s/CHR2/\"\;/gi;
$city =~ s/CHR2/\"\;/gi;
$state =~ s/CHR2/\"\;/gi;
$zipcode =~ s/CHR2/\"\;/gi;
print <<"TITLE";
Eagle Real Estate, Inc. - MuncieMLS.com
TITLE
&header;
print <<"UPDATEYOURPROFILE";
Thank you for coming back to MuncieMLS.com. Please take a second to update your information.
~;
&footer;
}
sub deletesearch {
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 $oasth = $dbh->do("delete from search_fav where favid = '$INPUT{ID}' and userid = '$Cook{userid}'");
$dbh->disconnect;
print qq~
Deleting search...
~;
}
sub deletehome {
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 $oasth = $dbh->do("delete from home_fav where favid = '$INPUT{ID}' and userid = '$Cook{userid}'");
$dbh->disconnect;
print qq~
Deleting home...
~;
}
sub main {
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 $uasth = $dbh->prepare("select * from users where userid = '$Cook{userid}'");
$uasth->execute;
my $iasth = $dbh->prepare("select COUNT(userid) from home_fav where userid = '$Cook{userid}'");
$iasth->execute;
while (($userid) = $iasth->fetchrow_array()) {
$savelistingcount = $userid;
}
my $pasth = $dbh->prepare("select COUNT(userid) from search_fav where userid = '$Cook{userid}'");
$pasth->execute;
while (($userid) = $pasth->fetchrow_array()) {
$savesearchcount = $userid;
}
my $basth = $dbh->prepare("select COUNT(userid) from search_fav where userid = '$Cook{userid}' AND status = '1'");
$basth->execute;
while (($userid) = $basth->fetchrow_array()) {
$savenotificationscount = $userid;
}
my $qasth = $dbh->prepare("select * from updated_listings");
$qasth->execute;
my $tasth = $dbh->prepare("select * from new_listings");
$tasth->execute;
while (($updatedmls,$updatedtype) = $qasth->fetchrow_array()) {
$updatedcount{$updatedtype}++;
}
while (($newmls,$newtype) = $tasth->fetchrow_array()) {
$newcount{$newtype}++;
}
if ($newcount{res} eq "") {
$newcount{res} = "0";
}
if ($newcount{comm} eq "") {
$newcount{comm} = "0";
}
if ($newcount{inv} eq "") {
$newcount{inv} = "0";
}
if ($newcount{lan} eq "") {
$newcount{lan} = "0";
}
if ($updatedcount{res} eq "") {
$updatedcount{res} = "0";
}
if ($updatedcount{comm} eq "") {
$updatedcount{comm} = "0";
}
if ($updatedcount{inv} eq "") {
$updatedcount{inv} = "0";
}
if ($updatedcount{lan} eq "") {
$updatedcount{lan} = "0";
}
while (($userid,$email,$_password,$myfirstname,$mylastname,$address,$city,$state,$zipcode,$timetomove,$realtor,$datestamp,$lastlogin,$foundby,$usertype,$myeraagent,$phone,$access,$email_stamp,$agentid) = $uasth->fetchrow_array()) {
$savefirstname = $myfirstname;
$savelastname = $mylastname;
$savefirstname =~ s/CHR2/\"/gi;
$savelastname =~ s/CHR2/\"/gi;
$savefirstname =~ s/CHR1/\'/gi;
$savelastname =~ s/CHR1/\'/gi;
print <<"TITLE";
Eagle Real Estate, Inc. - MuncieMLS.com
TITLE
&header;
print qq~
We want to hear from you! Please take a few seconds and fill out the Feedback Form Here and let us know how we can further improve MuncieMLS
~;
if ($myeraagent) {
my $zasth = $dbh->prepare("select agentid,mlsid,firstname,lastname,title,phone1name,phone1number,email,homepage,profile,image from agents where mlsid = '$myeraagent' and display = '1'");
$zasth->execute;
while (($realagentid,$mlsid,$firstname,$lastname,$title,$phone1name,$phone1number,$email,$homepage,$profile,$image) = $zasth->fetchrow_array()) {
print qq~
$firstname $lastname
$title
$phone1name $phone1number
Email $email View My Profile
~;
&footer;
}
}
sub notifications {
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 $uasth = $dbh->prepare("select * from users where userid = '$Cook{userid}'");
$uasth->execute;
if ($INPUT{searchid}) {
my $oasth = $dbh->prepare("select wireless,email,status from search_fav where favid = '$INPUT{searchid}'");
$oasth->execute;
while (($wireless,$email,$stat) = $oasth->fetchrow_array()) {
$statusi = $stat;
#print "Status is $statusi ";
}
}
if ($statusi eq "1" && $turnedon ne "yes") {
my $yasth = $dbh->do("update search_fav set status = '0' where favid = '$INPUT{searchid}'");
#print "Changed $INPUT{searchid} to 0 ";
$waslive = "yes";
}
my $pasth = $dbh->prepare("select * from search_fav where userid = '$Cook{userid}' order by favid asc");
$pasth->execute;
print <<"TITLE";
Eagle Real Estate, Inc. - MuncieMLS.com
TITLE
&header;
print qq~
~;
if ($INPUT{action} eq "notifications" || $statusi eq "1" || $INPUT{action} eq "savetogglenotify" || $turnedon eq "yes") {
print qq~
Update Box You may change your notification settings by clicking on the start and stop buttons in the notification box to the left
~;
}
#print "Action: $INPUT{action} Statusi: $statusi Was Live: $waslive Turned on: $turnedon ";
if ($INPUT{action} eq "togglenotify" && $statusi eq "0" && $waslive ne "yes") {
#stopped and needs information
if ($email) {
$showemail = "$email";
}
else {
$showemail = "$Cook{email}";
}
if ($wireless eq "y") {
$checkedyes = " checked";
$checkedno = "";
}
else {
$checkedyes = "";
$checkedno = " checked";
}
my $apasth = $dbh->prepare("select searchname from search_fav where favid = '$INPUT{searchid}'");
$apasth->execute;
while (($searchname) = $apasth->fetchrow_array()) {
$sname = $searchname;
}
print qq~
