You must have a MyHome account to access this feature. You may login to your existing account or create a FREE ERA Eagle Real Estate MuncieMLS.com MyHomes account below.
~;
&footer;
exit 0;
}
}
if ($INPUT{action} eq "admin") { &admin; }
elsif ($INPUT{action} eq "view_day") { &view_day; }
elsif ($INPUT{action} eq "email_day") { &email_day; }
elsif ($INPUT{action} eq "addevent") { &addevent; }
elsif ($INPUT{action} eq "saveaddevent") { &saveaddevent; }
elsif ($INPUT{action} eq "deleteevent") { &deleteevent; }
elsif ($INPUT{action} eq "movenextday") { &movenextday; }
elsif ($INPUT{action} eq "savedeleteevent") { &savedeleteevent; }
elsif ($INPUT{action} eq "editevent") { &editevent; }
elsif ($INPUT{action} eq "saveeditevent") { &saveeditevent; }
elsif ($INPUT{action} eq "markdone") { &markdone; }
else { &main; }
sub movenextday {
my $akasth = $dbh->prepare("select todoid,dateto from todo where todoid = '$INPUT{todoid}'");
$akasth->execute;
while (($todoid,$dateto) = $akasth->fetchrow_array()) {
my $bkasth = $dbh->prepare("select ADDDATE('$dateto', INTERVAL 1 DAY)");
$bkasth->execute;
while (($newdate) = $bkasth->fetchrow_array()) {
@date = ($newdate,$todoid);
$sql_query = "update todo set dateto = ? where todoid = ?";
#$sql_query_count++;
my $gasth = $dbh->do($sql_query, undef, @date);
$status = "Date Successfully Changed To $newdate";
&main;
}
}
}
sub email_day {
$sql_query_count++;
my $akasth = $dbh->prepare("select mlsid,firstname,lastname,email from agents where mlsid = '$INPUT{agent}'");
$akasth->execute;
while (($mlsid,$firstname,$lastname,$email) = $akasth->fetchrow_array()) {
&load_settings;
$builddate = $INPUT{year} . '-' . $INPUT{month} . '-' . $INPUT{day};
$sql_query_count++;
my $kasth = $dbh->prepare("select * from todo where agent = $INPUT{agent} and dateto = ?");
$kasth->execute($builddate);
$get_month_name = $INPUT{month};
$get_month_name = $month_name{$get_month_name};
open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "To: $email\n";
print MAIL "From: info\@eagle-online.com\n";
print MAIL "Subject: $firstname $lastname To Do List For $INPUT{month}/$INPUT{day}/$INPUT{year}\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq~
Official ERA Eagle Real Estate, Inc. E-Mail
~;
&load_settings;
print MAIL qq~
Activities for $get_month_name $INPUT{day}, $INPUT{year} CompletedNot Completed
Description
Completed By
~;
while (($todoid,$agent,$enteredby,$assignedto,$dateto,$description,$markdone) = $kasth->fetchrow_array()) {
$description =~ s/\n/ /g;
$theagent = $agent;
if ($markdone eq "y") {
print MAIL qq~
~;
close(MAIL);
}
$status = "E-Mail Successfully Sent!";
$dbh->disconnect;
&main;
}
sub markdone {
@markdone_vars = ($INPUT{agent},$INPUT{todoid});
$sql_query = "update todo set markdone = 'y' where agent = ? and todoid = ?";
$sql_query_count++;
my $gasth = $dbh->do($sql_query, undef, @markdone_vars);
$status = "To Do Has Successfully Been Marked Done!";
&main;
}
sub saveeditevent {
@update_vars = ($INPUT{dateto},$INPUT{enteredby},$INPUT{assignedto},$INPUT{description},$INPUT{markdone},$INPUT{agent},$INPUT{todoid});
$sql_query = "update todo set dateto = ?, enteredby = ?, assignedto = ?, description = ?, markdone = ? where agent = ? and todoid = ?";
$sql_query_count++;
$rasth = $dbh->do($sql_query, undef, @update_vars);
$status = "Changes saved for item# $INPUT{todoid}!";
&main;
}
sub editevent {
@editevent_vars = ($INPUT{todoid},$INPUT{agent});
$sql_query_count++;
my $hasth = $dbh->prepare("select * from todo where todoid = ? and agent = ?");
$hasth->execute(@editevent_vars);
while (($todoid,$agent,$enteredby,$assignedto,$dateto,$description,$markdone) = $hasth->fetchrow_array()) {
print qq~
To Do List Overview >> ERA Eagle MuncieMLS.com
~;
&header;
&load_settings;
print qq~
edit previous to-do activity below
~;
}
$hasth->finish;
&footer;
}
sub saveaddevent {
$good_date = $INPUT{year} . '-' . $INPUT{month} . '-' . $INPUT{day};
@insert_vars = ($INPUT{agent},$INPUT{enteredby},$INPUT{assignedto},$good_date,$INPUT{description});
$sql_query = "insert into todo values ('',?,?,?,?,?,'n')";
$sql_query_count++;
$yasth = $dbh->do($sql_query, undef, @insert_vars);
$status = "New item added for $good_date";
&main;
}
sub addevent {
$sql_query_count++;
my $basth = $dbh->prepare("select now()");
$basth->execute;
$today_is_datetime = $basth->fetchrow_array();
($today_date,$today_time) = split(/ /,$today_is_datetime);
($t_year,$t_month,$t_day) = split(/\-/,$today_date);
print qq~
To Do List Overview >> ERA Eagle MuncieMLS.com
~;
&header;
&load_settings;
print qq~
enter new to-do activity below
~;
&footer;
}
sub savedeleteevent {
$sql_query_count++;
my $hasth = $dbh->do("delete from todo where todoid = '$INPUT{todoid}'");
$status = "Event# $INPUT{todoid} deleted.";
&main;
}
sub deleteevent {
print qq~
To Do List Overview >> ERA Eagle MuncieMLS.com
~;
&header;
&load_settings;
print qq~
Are you sure you want to delete event# $INPUT{todoid}?
Completed 
Not Completed