#!/usr/bin/perl
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; }
}
}
&checklogin;
if ($INPUT{action} eq "deletesearch") { &deletesearch; }
elsif ($INPUT{action} eq "login") { &login; }
elsif ($INPUT{action} eq "logoff") { &logout; }
else { &main; }
sub login {
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 $fasth = $dbh->prepare("select userid from users where email = '$INPUT{Email}' AND password = PASSWORD('$INPUT{Password}') AND agentid != ''");
$fasth->execute;
while (($uid) = $fasth->fetchrow_array()) {
$userid = $uid;
my $uasth = $dbh->do("update users set lastlogin = now() where userid = '$userid'");
my $pasth = $dbh->prepare("select DATE_FORMAT(DATE_ADD(NOW(), INTERVAL 1 DAY), '%a\, %d\-%b\-%Y %T')");
$pasth->execute;
while (($nextmonthsdate) = $pasth->fetchrow_array()) {
$setcookiedate = "$nextmonthsdate";
}
print "Set-cookie: userid=$userid\|$INPUT{Email}; expires=$setcookiedate GMT\n";
print "Content-type: text/html\n\n";
print qq~
Loading Your MY HOMES Data...
~;
$dbh->disconnect;
exit 0;
}
print "Set-cookie: userid=\n";
print "Content-type: text/html\n\n";
print qq~
Connect.EagleSold.com
~;
&header;
print qq~
Sorry, An Authorization Error Has Occured....
|
|
~;
&footer;
}
sub logout {
print "Set-cookie: userid=\n";
print "Content-type: text/html\n\n";
print qq~
Logging out...
You Are Now Being Logged out....
|
~;
}
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;
print qq~
My Eagle prospect Manager -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
~;
print qq~
Eagle Intranet System Changes/Updates Log
Over the next couple of months we are going to making changes to our technologies at Eagle. All new features and changes will be posted below as the changes occur.
| DATE |
AREA |
NOTES / DESCRIPTION
|
| Feb. 2nd, 2007 |
Transaction System Showing Tab |
The Showing Information Box in the Transaction System now correctly shows wether feedback was received or not. When you hit details you can read the feedback.
|
| Feb. 2nd, 2007 |
Showing & Feedback System |
We have redesigned our feedback system. We now only ask for "Comments" in our requests. Also our system can send a total of 4 requests for feedback before giving up!
|
| Feb. 1st, 2007 |
Prospecting System |
You can now choose "Delete" as an option to delete your entire prospect file including saved documents and notes.
|
| Jan. 31st, 2007 |
MuncieMLS Leads |
We are in the process of moving all MuncieMLS leads and tools into this site. You can click on the "Web Clients/Leads" link to the left under navigation to view your leads from now on. In the next couple weeks we are going to completely phase out viewing your web clients and leads from the MuncieMLS website.
|
|
|
|
~;
&footer;
}
