#!/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; } } } 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 access FROM users WHERE email = '$Cook{email}'"); $fasth->execute; while (($access) = $fasth->fetchrow_array()) { $gotaccess = $access; } unless ($gotaccess eq "admin") { print qq~ ~; &header; print qq~ MY HOMES Account

You Do Not Have Permission To Access This Area!
You may login to your existing account or create a FREE MuncieMLS.com MyHomes account below.


If you are new to MuncieMLS.com you must create a MyHomes account.

A MuncieMLS.com MyHomes account will enable you to save listings, save searches, view additions and updates to listings, and receive e-mail and wireless notifications when new listings meet your search criteria all for FREE!
ALREADY HAVE A
MYHOMES ACCOUNT?
You may login below

E-Mail Address:
Password:
Lost Your Password? Click Here
~; &footer; exit 0; } if ($INPUT{action} eq "useroverview") { &useroverview; } elsif ($INPUT{action} eq "userlisting") { &userlisting; } elsif ($INPUT{action} eq "removeuser") { &removeuser; } elsif ($INPUT{action} eq "runremoveuser") { &runremoveuser; } elsif ($INPUT{action} eq "massemail") { &massemail; } elsif ($INPUT{action} eq "massemailtemplate") { &massemailtemplate; } elsif ($INPUT{action} eq "giveaccess") { &giveaccess; } elsif ($INPUT{action} eq "addcolumn") { &addcolumn; } elsif ($INPUT{action} eq "agents") { &agents; } elsif ($INPUT{action} eq "agentadd") { &agentadd; } elsif ($INPUT{action} eq "agentdoadd") { &agentdoadd; } elsif ($INPUT{action} eq "agentedit") { &agentedit; } elsif ($INPUT{action} eq "agentdoedit") { &agentdoedit; } elsif ($INPUT{action} eq "agentdelete") { &agentdelete; } elsif ($INPUT{action} eq "grantagentaccess") { &grantagentaccess; } elsif ($INPUT{action} eq "leadcenter") { &leadcenter; } elsif ($INPUT{action} eq "newagent") { &newagent; } elsif ($INPUT{action} eq "leadcentercheckchanges") { &leadcentercheckchanges; } elsif ($INPUT{action} eq "email") { &email; } elsif ($INPUT{action} eq "openhousemm") { &openhousemm; } elsif ($INPUT{action} eq "openhousemm_send") { &openhousemm_send; } elsif ($INPUT{action} eq "fixusernames") { &fixusernames; } elsif ($INPUT{action} eq "view_email") { &view_email; } elsif ($INPUT{action} eq "detailedhits") { &detailedhits; } else { &main; } sub detailedhits { if ($INPUT{detail} eq "yes") { print qq~ Hide Detailed Report
~; } else { print qq~ Show Detailed Report
~; } my $counthsth = $dbh->prepare("select COUNT(mlsnumber) from hits"); $counthsth->execute; while (($count_hits) = $counthsth->fetchrow_array()) { print qq~ $count_hits Residential Property Views
~; } my $acasth = $dbh->prepare("select userid from hits GROUP BY userid"); $acasth->execute; while (($userid) = $acasth->fetchrow_array()) { my $bcasth = $dbh->prepare("select firstname,lastname from users where userid = '$userid'"); $bcasth->execute; while (($firstname,$lastname) = $bcasth->fetchrow_array()) { my $chcasth = $dbh->prepare("select count(mlsnumber) from hits where userid = '$userid'"); $chcasth->execute; while (($cmlsnumber) = $chcasth->fetchrow_array()) { print qq~ $firstname $lastname User ID \#$userid ( $cmlsnumber )
~; if ($INPUT{detail} eq "yes") { my $ccasth = $dbh->prepare("select mlsnumber,time from hits where userid = '$userid'"); $ccasth->execute; while (($mlsnumber,$time) = $ccasth->fetchrow_array()) { my $dcasth = $dbh->prepare("select MLSNUM,Price,AddressNumber,AddressDirection,AddressStreet,City from listings_res3 where MLSNUM = '$mlsnumber'"); $dcasth->execute; while (($MLSNUM,$Price,$AddressNumber,$AddressDirection,$AddressStreet,$City) = $dcasth->fetchrow_array()) { print qq~ --> $AddressNumber $AddressDirection $AddressStreet, $City $Price MLS\# $mlsnumber viewed on $time
~; } } } } } } } sub view_email { my $emailsasth = $dbh->prepare("select emaildatetime,emailfrom,subject,message from emailstousers where emailid = '$INPUT{emailid}'"); $emailsasth->execute; while (($emailtimedate,$emailfrom,$subject,$message) = $emailsasth->fetchrow_array()) { print qq~ Sent on $emailtimedate by $emailfrom
Subject: $subject
$message ~ } } sub fixusernames { &header; &startmain; $gasth = $dbh->prepare("select userid,firstname,lastname from users"); $gasth->execute; while (($db_userid,$db_firstname,$db_lastname) = $gasth->fetchrow_array()) { $new_firstname = ucfirst(lc($db_firstname)); $new_lastname = ucfirst(lc($db_lastname)); $sql_query = qq~update users set firstname = ?, lastname = ? where userid = ?~; @vars = ($new_firstname,$new_lastname,$db_userid); $iasth = $dbh->do($sql_query, undef, @vars); print "-- fixed $db_firstname $db_lastname
"; } print ""; &footer; } sub openhousemm_send { my $aabasth = $dbh->prepare("select COUNT(userid) from users where email_openhouses = 'y';"); $aabasth->execute; while (($aacountuserid) = $aabasth->fetchrow_array()) { $aatotalcount = $aacountuserid; } &header; &startmain; print qq~ $aatotalcount E-Mails Will Be Sent!

DO NOT HIT REFRESH WHILE LOOKING AT THIS PAGE

CLICK HERE WHEN PAGE IS FINISHED LOADING!

A list of the Open House receipients will follow with email status

~; my $aasth = $dbh->prepare("select userid,email,firstname,lastname from users where email_openhouses = 'y'"); $aasth->execute; while (($userid,$cemail,$cfirstname,$clastname) = $aasth->fetchrow_array()) { open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: $cemail\n"; #print MAIL "To: ryan\@orrhomes.com\n"; print MAIL "From: OpenHouses\@EagleSold.com\n"; print MAIL "Subject: Weekly Eagle OpenHouse List From MuncieMLS.com\n"; print MAIL "Content-type: text/html\n\n"; print MAIL qq~ Official Eagle Real Estate, Inc. E-Mail


~; } if ($trcount eq $totalperrow) { print MAIL qq~ ~; $trcount = "1"; } else { $trcount++; } } } unless ($found eq "yes") { print MAIL qq~ ~; } print MAIL qq~
$cfirstname, The latest Eagle Open Houses from www.MuncieMLS.com are below

~; ###################### GET OPENHOUSE LIST ########################################## 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 $abasth = $dbh->prepare("select id,status,house,agent,nday,month,day,atimehour,atimeminute,btimehour,btimeminute,timeap FROM openhouses WHERE status = 'a' ORDER BY id ASC"); $abasth->execute; print MAIL qq~ ~; $trcount = "1"; $totalperrow = "3"; # Number of agents per row while (($id,$status,$house,$agent,$nday,$month,$day,$atimehour,$atimeminute,$btimehour,$btimeminute,$timeap) = $abasth->fetchrow_array()) { $found = "yes"; if (-e "/home/muncieml/public_html/images/photos/thumbnail/meiarmls$house\.jpg") { $showpicture = "http://www.munciemls.com/images/photos/thumbnail/meiarmls$house\.jpg"; } else { $showpicture = "http://www.munciemls.com/images/photos/search_nophoto.gif"; } my $aasth = $dbh->prepare("select Price,AddressNumber,AddressDirection,AddressStreet,City,Zip,MLSNUM,AgentID,Directions FROM listings_res3 where MLSNUM = '$house'"); $aasth->execute; my $basth = $dbh->prepare("select agentid,firstname,lastname from agents WHERE agentid = '$agent'"); $basth->execute; while (($Price,$AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip,$MLSNUM,$AgentID,$Directions) = $aasth->fetchrow_array()) { if (-e "/home/muncieml/public_html/pdf/$house\.pdf") { $showpdf = "

View Full Color
PDF Brochure

"; } else { $showpdf = ""; } while (($agentid,$firstname,$lastname) = $basth->fetchrow_array()) { print MAIL qq~
Open $nday $month $day
$atimehour:$atimeminute to $btimehour:$btimeminute $timeap
Host $firstname $lastname

$AddressNumber $AddressDirection $AddressStreet
$City, IN $Zip

Directions: $Directions$DirectionsContinued
$showpdf
Were sorry, There are currently no open houses scheduled for this week. You may login to

http://OpenHouses.MuncieMLS.com/ to see the latest open houses.
~; ###################### END GET OPENHOUSE LIST ########################################## print MAIL qq~


You may block further e-mails from this mailing by clicking here.



~; close(MAIL); print " --> Sent To $cemail - $cfirstname $clastname
"; } print qq~ ~; &footer; } sub openhousemm { &header; &startmain; print qq~

Go ----> Preview Looks OK, Send MASS E-Mails Out Now

Preview Message To Send:

~; } if ($trcount eq $totalperrow) { print ""; $trcount = "1"; } else { $trcount++; } } } unless ($found eq "yes") { print qq~ ~; } print qq~
$cfirstname, The latest Eagle Open Houses from www.MuncieMLS.com are below

~; ###################### GET OPENHOUSE LIST ########################################## 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 $abasth = $dbh->prepare("select id,status,house,agent,nday,month,day,atimehour,atimeminute,btimehour,btimeminute,timeap FROM openhouses WHERE status = 'a' ORDER BY id ASC"); $abasth->execute; print qq~ ~; $trcount = "1"; $totalperrow = "3"; # Number of agents per row while (($id,$status,$house,$agent,$nday,$month,$day,$atimehour,$atimeminute,$btimehour,$btimeminute,$timeap) = $abasth->fetchrow_array()) { $found = "yes"; if (-e "/home/muncieml/public_html/images/photos/thumbnail/meiarmls$house\.jpg") { $showpicture = "http://www.munciemls.com/images/photos/thumbnail/meiarmls$house\.jpg"; } else { $showpicture = "http://www.munciemls.com/images/photos/search_nophoto.gif"; } my $aasth = $dbh->prepare("select Price,AddressNumber,AddressDirection,AddressStreet,City,Zip,MLSNUM,AgentID,Directions FROM listings_res3 where MLSNUM = '$house'"); $aasth->execute; my $basth = $dbh->prepare("select agentid,firstname,lastname from agents WHERE agentid = '$agent'"); $basth->execute; while (($Price,$AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip,$MLSNUM,$AgentID,$Directions) = $aasth->fetchrow_array()) { if (-e "/home/muncieml/public_html/pdf/$house\.pdf") { $showpdf = "

View Full Color
PDF Brochure

"; } else { $showpdf = ""; } while (($agentid,$firstname,$lastname) = $basth->fetchrow_array()) { print qq~
Open $nday $month $day
$atimehour:$atimeminute to $btimehour:$btimeminute $timeap
Host $firstname $lastname

$AddressNumber $AddressDirection $AddressStreet
$City, IN $Zip

Directions: $Directions$DirectionsContinued
$showpdf
Were sorry, There are currently no open houses scheduled for this week. You may login to

http://OpenHouses.MuncieMLS.com/ to see the latest open houses.
~; ###################### END GET OPENHOUSE LIST ########################################## print qq~


You may block further e-mails from this mailing by clicking here.



~; &footer; } sub email { 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->do("select userid,email,password,firstname,lastname,address,city,state,zipcode,timetomove,realtor,datestamp,lastlogin,FoundBy,UserType,myERAAgent,Phone,access,tos_agreement,agentid,email_block,email_openhouses from users where email = '$INPUT{emailaddress}'"); while (($userid,$email,$password,$firstname,$lastname,$address,$city,$state,$zipcode,$timetomove,$realtor,$datestamp,$lastlogin,$FoundBy,$UserType,$myERAAgent,$Phone,$access,$tos_agreement,$agentid,$email_block,$email_openhouses) = $aasth->fetchrow_array()) { } $dbh->disconnect; } sub leadcentercheckchanges { print qq~

~; my $basth = $dbh->prepare("SELECT userid,agentassigned FROM leadtracking WHERE agentassigned != 'notassigned' ORDER BY userid ASC"); $basth->execute; while (($userid,$agentassigned) = $basth->fetchrow_array()) { my $casth = $dbh->prepare("SELECT userid,firstname,lastname,myERAAgent FROM users WHERE userid = '$userid'"); $casth->execute; while (($userid2,$firstname,$lastname,$myERAAgent) = $casth->fetchrow_array()) { if ($myERAAgent ne $agentassigned) { print qq~ Automatically Rerouted A Lead!
~; my $dasth = $dbh->do("update leadtracking set agentassigned = '$myERAAgent' WHERE userid = '$userid'"); print qq~ $firstname $lastname Has Automatically Been Rerouted From $agentassigned To $myERAAgent
~; } } } } sub leadcenter { &header; &startmain; my $basth = $dbh->prepare("SELECT userid FROM leadtracking WHERE agentassigned = 'notassigned' ORDER BY userid ASC"); $basth->execute; while (($userid) = $basth->fetchrow_array()) { my $casth = $dbh->prepare("SELECT userid,firstname,lastname,myERAAgent FROM users WHERE userid = '$userid'"); $casth->execute; while (($userid2,$firstname,$lastname,$myERAAgent) = $casth->fetchrow_array()) { if ($myERAAgent) { my $dasth = $dbh->do("update leadtracking set agentassigned = '$myERAAgent' WHERE userid = '$userid'"); } else { print qq~ $userid $firstname $lastname $myERAAgent $agentassigned
~; } } } my $aasth = $dbh->prepare("SELECT COUNT(userid) FROM leadtracking WHERE agentassigned = 'notassigned'"); $aasth->execute; while (($userid) = $aasth->fetchrow_array()) { $needassignedcount = "$userid"; } print qq~

Total Count $needassignedcount ~; $dbh->disconnect; &leadcentercheckchanges; print qq~ ~; &footer; } sub grantagentaccess { &header; &startmain; print qq~ Grant Eagle Access       Main Access Page
SEARCH USERS LASTNAME BY
A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z


~; $trcount = "1"; $totalperrow = "2"; if ($INPUT{find}) { my $aasth = $dbh->prepare("SELECT COUNT(userid) FROM users WHERE lastname LIKE '$INPUT{find}%'"); $aasth->execute; while (($userid) = $aasth->fetchrow_array()) { if ($userid eq "1") { $checkgrammar = "userid"; } else { $checkgrammar = "userids"; } print qq~ ~; } my $basth = $dbh->prepare("SELECT userid,email,firstname,lastname,access,agentid FROM users WHERE lastname LIKE '$INPUT{find}%'"); $basth->execute; while (($userid,$email,$firstname,$lastname,$access,$agentid) = $basth->fetchrow_array()) { my $dasth = $dbh->prepare("SELECT mlsid,email from agents WHERE email = '$email'"); $dasth->execute; while (($mlsid,$email2) = $dasth->fetchrow_array()) { $showmlsid = "$mlsid"; } if ($access || $agentid) { $buildcolor = "red"; } elsif ($showmlsid) { $buildcolor = "green"; } else { $buildcolor = "silver"; } print "\n"; if ($trcount eq $totalperrow) { print ""; $trcount = "1"; } else { $trcount++; } $showmlsid = ""; } } else { unless ($INPUT{grant}) { $showusersgranted = "yes"; print ""; } } if ($INPUT{grant}) { my $aasth = $dbh->do("update users set access = '$INPUT{doit}', agentid = '$INPUT{agentid}' WHERE userid = '$INPUT{grant}'"); print ""; } print qq~
Found $userid $checkgrammar for search $INPUT{find}
$lastname, $firstname Give Agent Access
You Must First Choose the lastname letter to search by!
$INPUT{name} Has Been Granted $INPUT{doit} Access!
~; if ($showusersgranted eq "yes") { print "

Users With Access
\n"; my $casth = $dbh->prepare("SELECT userid,firstname,lastname,access FROM users WHERE access = 'eagleagent' OR access = 'admin' ORDER BY lastname ASC"); $casth->execute; while (($userid,$firstname,$lastname,$access) = $casth->fetchrow_array()) { print qq~ $firstname $lastname ($access) Remove Access
~; } } print qq~ ~; &footer; } sub agentdoedit { $mlsid = $INPUT{mlsid}; $newmlsid = $INPUT{newmlsid}; $firstname = $INPUT{firstname}; $lastname = $INPUT{lastname}; $title = $INPUT{title}; $phone1name = $INPUT{phone1name}; $phone1number = $INPUT{phone1number}; $phone2name = $INPUT{phone2name}; $phone2number = $INPUT{phone2number}; $phone3name = $INPUT{phone3name}; $phone3number = $INPUT{phone3number}; $phone4name = $INPUT{phone4name}; $phone4number = $INPUT{phone4number}; $email = $INPUT{email}; $homepage = $INPUT{homepage}; $profile = $INPUT{profile}; $image = $INPUT{image}; $enrollment = $INPUT{enrollment}; $firstname =~ s/\'//gi; $firstname =~ s/\"//gi; $lastname =~ s/\'//gi; $lastname =~ s/\"//gi; $title =~ s/\'//gi; $title =~ s/\"//gi; $phone1name =~ s/\'//gi; $phone1number =~ s/\"//gi; $phone2name =~ s/\'//gi; $phone2number =~ s/\"//gi; $phone3name =~ s/\'//gi; $phone3number =~ s/\"//gi; $phone4name =~ s/\'//gi; $phone4number =~ s/\"//gi; $email =~ s/\'//gi; $email =~ s/\"//gi; $homepage =~ s/\'//gi; $homepage =~ s/\"//gi; $profile =~ s/\'//gi; $profile =~ s/\"//gi; $image =~ s/\'//gi; $image =~ s/\"//gi; $enrollment =~ s/\'//gi; $enrollment =~ s/\"//gi; my $aasth = $dbh->do("update agents set mlsid = '$newmlsid', firstname = '$firstname', lastname = '$lastname', title = '$title', phone1name = '$phone1name', phone1number = '$phone1number', phone2name = '$phone2name', phone2number = '$phone2number', phone3name = '$phone3name', phone3number = '$phone3number', phone4name = '$phone4name', phone4number = '$phone4number', email = '$email', homepage = '$homepage', profile = '$profile', image = '$image', leadsystem = '$enrollment', display = '$INPUT{display}', showsales = '$INPUT{showsales}' WHERE agentid = '$INPUT{agentid}'"); $printmessage = "Successfully Updated Database
"; &agents; } sub agentedit { my $aasth = $dbh->prepare("select agentid,mlsid,firstname,lastname,title,phone1name,phone1number,phone2name,phone2number,phone3name,phone3number,phone4name,phone4number,email,homepage,profile,image,leadsystem,display,showsales from agents WHERE agentid = '$INPUT{mlsid}'"); $aasth->execute; &header; &startmain; while (($agentid,$mlsid,$firstname,$lastname,$title,$phone1name,$phone1number,$phone2name,$phone2number,$phone3name,$phone3number,$phone4name,$phone4number,$email,$homepage,$profile,$image,$leadsystem,$display,$showsales) = $aasth->fetchrow_array()) { if ($phone2name) { $checkphone2name = ""; } if ($phone3name) { $checkphone3name = ""; } if ($phone4name) { $checkphone4name = ""; } if ($display eq "0") { $checkdisplay = ""; } else { $checkdisplay = ""; } if ($showsales eq "0") { $checkshowsales = ""; } else { $checkshowsales = ""; } print qq~
Update $firstname $lastname\'s Agent Directory
AgentID
MLSID
FirstName
LastName
Title
Phone 1 Type
Phone 2 Type
Phone 3 Type
Phone 4 Type
E-Mail Address
Website Address
Profile About You
Image
Lead Enrollment
Display Agent
Show Sales On Profile
~; } &footer; } sub agentdelete { my $aasth = $dbh->do("delete from agents where agentid = '$INPUT{mlsid}'"); $dbh->disconnect; $printmessage = "Successfully Deleted $INPUT{tempname} Agent From Database
"; &agents; } sub agentadd { ############################################# my $aasth = $dbh->prepare("select agentid,firstname,lastname FROM mlsusers WHERE officeid = '48'"); $aasth->execute; while (($agentid,$firstname,$lastname) = $aasth->fetchrow_array()) { $buildmatchingmls .= ""; } ############################################# &header; &startmain; print qq~
Add New Agent
AgentID Autocreated
MLSID
FirstName
LastName
Title
Phone 1 Type
Phone 2 Type
Phone 3 Type
Phone 4 Type
E-Mail Address
Website Address
Profile About You
Image
Lead Enrollment
Display Agent
Show Sales On Profile
~; &footer; } sub agentdoadd { $INPUT{firstname} =~ s/\'//gi; $INPUT{firstname} =~ s/\"//gi; $INPUT{lastname} =~ s/\'//gi; $INPUT{lastname} =~ s/\"//gi; $INPUT{title} =~ s/\'//gi; $INPUT{title} =~ s/\"//gi; $INPUT{phone1name} =~ s/\'//gi; $INPUT{phone1number} =~ s/\"//gi; $INPUT{phone2name} =~ s/\'//gi; $INPUT{phone2number} =~ s/\"//gi; $INPUT{phone3name} =~ s/\'//gi; $INPUT{phone3number} =~ s/\"//gi; $INPUT{phone4name} =~ s/\'//gi; $INPUT{phone4number} =~ s/\"//gi; $INPUT{email} =~ s/\'//gi; $INPUT{email} =~ s/\"//gi; $INPUT{homepage} =~ s/\'//gi; $INPUT{homepage} =~ s/\"//gi; $INPUT{profile} =~ s/\'//gi; $INPUT{profile} =~ s/\"//gi; $INPUT{image} =~ s/\'//gi; $INPUT{image} =~ s/\"//gi; $INPUT{leadenrollment} =~ s/\'//gi; $INPUT{leadenrollment} =~ s/\"//gi; $aasth = $dbh->do("insert into agents values ('','$INPUT{mlsid}','$INPUT{firstname}','$INPUT{lastname}','$INPUT{title}','$INPUT{phone1name}','$INPUT{phone1number}','$INPUT{phone2name}','$INPUT{phone2name}','$INPUT{phone3name}','$INPUT{phone3number}','$INPUT{phone4name}','$INPUT{phone4number}','$INPUT{email}','$INPUT{homepage}','$INPUT{profile}','$INPUT{image}','$INPUT{leadenrollment}','$INPUT{display}','$INPUT{showsales}')"); $dbh->disconnect; $printmessage = "Successfully Added Agent Into Database
"; &agents; } sub agents { my $aasth = $dbh->prepare("select agentid,mlsid,firstname,lastname,title,phone1name,phone1number,phone2name,phone2number,phone3name,phone3number,phone4name,phone4number,email,homepage,profile,image,leadsystem,display,showsales from agents order by firstname asc"); $aasth->execute; &header; &startmain; print qq~ $printmessage AGENT ADMINISTRATION AREA
Add New Agent

~; $trcolor = "1"; $trcolor2 = "2"; while (($agentid,$mlsid,$firstname,$lastname,$title,$phone1name,$phone1number,$phone2name,$phone2number,$phone3name,$phone3number,$phone4name,$phone4number,$email,$homepage,$profile,$image,$leadsystem,$display,$showsales) = $aasth->fetchrow_array()) { if ($display eq "0") { $display = "No"; } else { $display = "Yes"; } if ($showsales eq "0") { $showsales = "No"; } else { $showsales = "Yes"; } if ($trcolor eq $trcolor2) { $trcolor = "1"; $setcolor = "#FFFFFF"; } else { $setcolor = "#CCFFCC"; $trcolor++; } print qq~ ~; } print qq~
AGENTID MLSID AGENT NAME Lead System Display Directory Show Sales ACTIONS
$agentid $mlsid $firstname $lastname $leadsystem $display $showsales - View
- Edit
- Delete
~; &footer; } sub addcolumn { my $aasth = $dbh->do("ALTER TABLE users ADD tos_agreement DATETIME;"); $dbh->disconnect; print "DID IT"; } sub giveaccess { my $aasth = $dbh->do("update users set access = 'admin' where email = 'ryan.orr\@prodigy.net'"); $dbh->disconnect; print "succesfully added Admin Access"; } sub massemailtemplate { &header; &startmain; if ($INPUT{save}) { @variables = ($INPUT{name},$INPUT{display},$INPUT{subject},$INPUT{id}); $sql_query = "update emailer_templates set name = ?, template = ?, subject = ? WHERE id = ?"; my $aasth = $dbh->do($sql_query, undef, @variables); print qq~ E-Mail Templates
Successfully Saved $INPUT{name}

Return To Template Overview
~; } elsif ($INPUT{newsave}) { @variables = ($INPUT{accessid},$INPUT{type},$INPUT{name},$INPUT{subject},$INPUT{display}); $sql_query = "INSERT INTO emailer_templates values ('',?,?,?,?,?)"; my $aasth = $dbh->do($sql_query, undef, @variables); print qq~ E-Mail Templates
Successfully Created $INPUT{name}

Return To Template Overview
~; } elsif ($INPUT{newtype}) { print qq~ New Template Type
What type of template would you like to create?

>> Office Template >> Agent Template
~; } elsif ($INPUT{new}) { if ($INPUT{new} eq "office") { $type = qq~ ~; $accessid =qq~ Who's Template is This? autoconfigured ~; } else { my $baasth = $dbh->prepare("select agentid,firstname,lastname FROM mlsusers WHERE officeid = '48'"); $baasth->execute; while (($agentid,$firstname,$lastname) = $baasth->fetchrow_array()) { $buildmatchingmls .= ""; } $type = qq~ ~; $accessid =qq~ Who's Template is This?

~; } print qq~ Creating New $INPUT{new} Template
Please associate the template to the database below

$accessid $type
File Name Of Template:


E-Mail Subject


Message:


~; } elsif ($INPUT{launch}) { my $masth = $dbh->prepare("select id,accessid,type,name,subject,template from emailer_templates where id = '$INPUT{launch}'"); $masth->execute; print qq~ ~; while (($id,$accessid,$type,$name,$subject,$template) = $masth->fetchrow_array()) { print qq~ Viewing Template $name
Special Codes To Insert In Email To Show Actual User Information:
 \$email \$firstname \$lastname \$lastlogin

Template Filename:


Subject:


Message:


~; } } elsif ($INPUT{preview}) { print qq~ Previewing Template Return To Overview
~; my $masth = $dbh->prepare("select id,accessid,type,name,subject,template from emailer_templates where id = '$INPUT{preview}'"); $masth->execute; while (($id,$accessid,$type,$name,$subject,$template) = $masth->fetchrow_array()) { print qq~ Eagle Email $subject
Subject: $subject
Message:
$template ~; } } elsif ($INPUT{delete}) { if ($INPUT{do} eq "yes") { my $aasth = $dbh->do("delete from emailer_templates where id = '$INPUT{delete}'"); print qq~ Delete Templates
Success!
Return To Overview
~; } if ($INPUT{do} eq "no") { print qq~ Delete Templates
Return To Overview
~; } unless ($INPUT{do}) { print qq~ Delete template $INPUT{delete}?
Yes No

~; } } else { print qq~ Launch Mass Email Center
Templates Currently Setup Create New Template
~; my $masth = $dbh->prepare("select id,accessid,type,name,subject,template from emailer_templates"); $masth->execute; while (($id,$accessid,$type,$name,$subject,$template) = $masth->fetchrow_array()) { print qq~     --> template $name belongs to $type $accessid [ Launch Editor ] [ Preview ] [ Delete ]
~; } } $dbh->disconnect; print ""; &footer; } sub massemail { ################### TOP EMAIL PART ################################################### if ($INPUT{searchdays} eq "----") { $printcurrentvalue = ""; } elsif ($INPUT{searchdays} eq "") { $printcurrentvalue = ""; } else { $printcurrentvalue = ""; } if ($INPUT{searchtype} eq "----") { $buildsearchtype = ""; } elsif ($INPUT{searchdays} eq "") { $buildsearchtype = ""; } else { $buildsearchtype = ""; } my $mesth = $dbh->prepare("select id,name from emailer_templates where type = 'mass'"); $mesth->execute; while (($id,$name) = $mesth->fetchrow_array()) { $printmessage .= "\n"; } &header; &startmain; print qq~ Launch Template Editor
To Send An E-Mail To All Users Select Logged In and choose All days
Email days | Message To Send
~; ################### END EMAIL PART ################################################### my $basth = $dbh->prepare("select COUNT(userid) from users where to_days(now())-to_days(lastlogin) $INPUT{searchtype} '$INPUT{searchdays}' AND email_block = 'y'"); $basth->execute; while (($countuserid) = $basth->fetchrow_array()) { $totalcount = $countuserid; } if ($INPUT{do} eq "Preview") { print qq~
- $totalcount E-Mails Will Be Sent!
~; my $aasth = $dbh->prepare("select userid,email,firstname,lastname,datestamp,lastlogin,tos_agreement from users where to_days(now())-to_days(lastlogin) $INPUT{searchtype} '$INPUT{searchdays}' AND email_block = 'y'"); $aasth->execute; while (($userid,$email,$firstname,$lastname,$datestamp,$lastlogin,$tos_agreement) = $aasth->fetchrow_array()) { my $masth = $dbh->prepare("select id,template,subject from emailer_templates where id = '$INPUT{message}'"); $masth->execute; while (($id,$template,$subject) = $masth->fetchrow_array()) { $template =~ s/\$userid/$userid/g; $template =~ s/\$email/$email/g; $template =~ s/\$firstname/$firstname/g; $template =~ s/\$lastname/$lastname/g; $template =~ s/\$datestamp/$datestamp/g; $template =~ s/\$lastlogin/$lastlogin/g; $template =~ s/\$tos_agreement/$tos_agreement/g; $subject =~ s/\$userid/$userid/g; $subject =~ s/\$email/$email/g; $subject =~ s/\$firstname/$firstname/g; $subject =~ s/\$lastname/$lastname/g; $subject =~ s/\$datestamp/$datestamp/g; $subject =~ s/\$lastlogin/$lastlogin/g; $subject =~ s/\$tos_agreement/$tos_agreement/g; print "Subject: $subject
Message:
$template"; } #my $casth = $dbh->do("update users set tos_agreement = '' where userid = '$userid'"); } } elsif ($INPUT{do} eq "Send") { print qq~ $totalcount E-Mails Successfully Sent! Return To Mass Mail Center
~; my $aasth = $dbh->prepare("select userid,email,firstname,lastname,datestamp,lastlogin,tos_agreement from users where to_days(now())-to_days(lastlogin) $INPUT{searchtype} '$INPUT{searchdays}' AND email_block = 'y'"); $aasth->execute; while (($userid,$email,$firstname,$lastname,$datestamp,$lastlogin,$tos_agreement) = $aasth->fetchrow_array()) { my $masth = $dbh->prepare("select id,template,subject from emailer_templates where id = '$INPUT{message}'"); $masth->execute; while (($id,$template,$subject) = $masth->fetchrow_array()) { $template =~ s/\$userid/$userid/g; $template =~ s/\$email/$email/g; $template =~ s/\$firstname/$firstname/g; $template =~ s/\$lastname/$lastname/g; $template =~ s/\$datestamp/$datestamp/g; $template =~ s/\$lastlogin/$lastlogin/g; $template =~ s/\$tos_agreement/$tos_agreement/g; $subject =~ s/\$userid/$userid/g; $subject =~ s/\$email/$email/g; $subject =~ s/\$firstname/$firstname/g; $subject =~ s/\$lastname/$lastname/g; $subject =~ s/\$datestamp/$datestamp/g; $subject =~ s/\$lastlogin/$lastlogin/g; $subject =~ s/\$tos_agreement/$tos_agreement/g; open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: $email\n"; print MAIL "From: Ryan.ORR\@EagleSold.com\n"; print MAIL "Subject: $subject\n"; print MAIL "Content-type: text/html\n\n"; print MAIL qq~ Eagle Official E-Mail $template ~; close(MAIL); print " --> Sent To $email - $firstname $lastname
"; } #my $casth = $dbh->do("update users set tos_agreement = '' where userid = '$userid'"); } } else { print "I dont know what you want me to do!"; } $dbh->disconnect; print ""; &footer; } sub buildstatisticsusers { my $basth = $dbh->prepare("select COUNT(UserType) from users WHERE UserType <> ''"); $basth->execute; while (($theUserType) = $basth->fetchrow_array()) { $totalcount = "$theUserType"; } my $aasth = $dbh->prepare("select UserType from users WHERE UserType <> '' GROUP BY UserType"); $aasth->execute; print qq~
MuncieMLS User Types
~; while (($UserType) = $aasth->fetchrow_array()) { my $basth = $dbh->prepare("select COUNT(UserType) from users WHERE UserType = '$UserType'"); $basth->execute; while (($UserTypeCount) = $basth->fetchrow_array()) { $calculated = ($UserTypeCount/$totalcount); $calculated = sprintf("%.2f",$calculated); $calculated = substr($calculated, -2); $thewidth = ($calculated*1); print qq~ ~; } } print qq~
$UserType ($calculated%)

Total Users $totalcount
~; } sub buildstatistics { my $basth = $dbh->prepare("select COUNT(FoundBy) from users WHERE FoundBy <> ''"); $basth->execute; while (($theFoundBy) = $basth->fetchrow_array()) { $totalcount = "$theFoundBy"; } my $aasth = $dbh->prepare("select FoundBy from users WHERE FoundBy <> '' GROUP BY FoundBy"); $aasth->execute; print qq~
MuncieMLS Advertising Sources
~; while (($FoundBy) = $aasth->fetchrow_array()) { $totalprice = ($totalprice+$price); my $basth = $dbh->prepare("select COUNT(FoundBy) from users WHERE FoundBy = '$FoundBy'"); $basth->execute; while (($FoundByCount) = $basth->fetchrow_array()) { $calculated = ($FoundByCount/$totalcount); $calculated = sprintf("%.2f",$calculated); $calculated = substr($calculated, -2); $thewidth = ($calculated*1); print qq~ ~; } } print qq~
$FoundBy ($calculated%)

Total Sources $totalcount
~; } sub main { my $casth = $dbh->prepare("select mlsid,firstname,lastname from agents ORDER BY firstname ASC"); $casth->execute; while (($mlsid,$firstname,$lastname) = $casth->fetchrow_array()) { $printagents .= ""; } my $aasth = $dbh->prepare("select count(userid) from users"); $aasth->execute; while (($userid) = $aasth->fetchrow_array()) { $totalmembers = $userid; } my $basth = $dbh->prepare("select userid,email,password,firstname,lastname,address,city,state,zipcode,timetomove,realtor,datestamp,lastlogin,FoundBy,UserType,myERAAgent,Phone,access from users where (to_days(now()) - to_days(datestamp)) < '1' ORDER BY datestamp DESC"); $basth->execute; my $lbasth = $dbh->prepare("select userid,email,password,firstname,lastname,address,city,state,zipcode,timetomove,realtor,datestamp,lastlogin,FoundBy,UserType,myERAAgent,Phone,access from users where (to_days(now()) - to_days(lastlogin)) < '1' ORDER BY datestamp DESC"); $lbasth->execute; my $eaasth = $dbh->prepare("select count(userid) from users WHERE email_openhouses = 'y'"); $eaasth->execute; while (($euserid) = $eaasth->fetchrow_array()) { $etotalmembers = $euserid; } my $emaasth = $dbh->prepare("select count(userid) from users WHERE email_block = 'y'"); $emaasth->execute; while (($emuserid) = $emaasth->fetchrow_array()) { $emtotalmembers = $emuserid; } &header; &startmain; print qq~
Total Registered Members $totalmembers
Total Members Allowing Mass E-Mail List $emtotalmembers
Total Members Requesting Open House E-Mails $etotalmembers
Users Registered Within The Last 1 Days
~; $trcolor = "1"; $trcolor2 = "2"; while (($userid,$email,$password,$firstname,$lastname,$address,$city,$state,$zipcode,$timetomove,$realtor,$datestamp,$lastlogin,$FoundBy,$UserType,$myERAAgent,$Phone,$access) = $basth->fetchrow_array()) { if ($trcolor eq $trcolor2) { $trcolor = "1"; $setcolor = "#FFFFFF"; } else { $setcolor = "#CCFFCC"; $trcolor++; } $nfound = "yes"; print qq~ ~; } if ($nfound ne "yes") { print qq~ ~; } print qq~ ~; $trcolor = "1"; $trcolor2 = "2"; while (($userid,$email,$password,$firstname,$lastname,$address,$city,$state,$zipcode,$timetomove,$realtor,$datestamp,$lastlogin,$FoundBy,$UserType,$myERAAgent,$Phone,$access) = $lbasth->fetchrow_array()) { if ($trcolor eq $trcolor2) { $trcolor = "1"; $setcolor = "#FFFFFF"; } else { $setcolor = "#CCFFFF"; $trcolor++; } $nfound = "yes"; print qq~ ~; } if ($nfound ne "yes") { print qq~ ~; } print qq~
Name E-Mail User Type REALTOR
$firstname $lastname $email $UserType $realtor $myERAAgent
No New Users

Users Logged In Within The Last 1 Days
$firstname $lastname $email $UserType $realtor $myERAAgent
No Logged On Users

~; print qq~
~; &buildstatistics; print qq~ ~; &buildstatisticsusers; print qq~
Access Site Administration Areas
- Agent Administration
 - Grant Eagle Agent Access
- New Agent Center
 - Mass E-Mail [ Template Editor ]
- Open House Center
 - Open House Mass Email
- Fix User Names Capitalizations
 - Office Directory Import
Search For Users By
Run
  
Firstname Search For
Lastname Search For
Users Eagle Agents Is
Show Users Registered In With The Last days
Show Users Logged In With The Last days
Order Results By in Order
~; $dbh->disconnect; &footer; } sub runremoveuser { &header; &startmain; my $aasth = $dbh->do("delete from users where userid = '$INPUT{userid}'"); $pusers = "Cleaned up users table!"; my $basth = $dbh->do("delete from search_fav where userid = '$INPUT{userid}'"); $psearch_fav = "Cleaned up search_fav table!"; my $casth = $dbh->do("delete from home_fav where userid = '$INPUT{userid}'"); $phome_fav = "Cleaned up home_fav table!"; my $dasth = $dbh->do("delete from leadtracking where userid = '$INPUT{userid}'"); $pleadtracking = "Cleaned up leadtracking table!"; my $dasth = $dbh->do("delete from emailstousers where userid = '$INPUT{userid}'"); $pemails = "Cleaned up saved emails table!"; $dbh->disconnect; print "
$INPUT{firstname} $INPUT{lastname} has been deleted from MuncieMLS.com.

$pusers
$psearch_fav
$phome_fav
$pleadtracking
$pemails"; &footer; } sub removeuser { my $aasth = $dbh->prepare("select userid,firstname,lastname from users WHERE userid = '$INPUT{userid}'"); $aasth->execute; &header; while (($userid,$firstname,$lastname) = $aasth->fetchrow_array()) { &startmain; print qq~
Are you sure you want to remove $firstname $lastname from the munciemls system?
~; } $dbh->disconnect; &footer; } sub userlisting { &header; ##### START SQL CREATION #### $orderby = $INPUT{orderby}; $orderbyvalue = $INPUT{orderbyvalue}; if ($INPUT{a_firstname} eq "on") { if ($INPUT{firstname_sign} eq "LIKE") { $searchfirstname = "firstname LIKE '%$INPUT{firstname}%'"; } elsif ($INPUT{firstname_sign} eq "eq") { $searchfirstname = "firstname = '$INPUT{firstname}'"; } } else { $searchfirstname = "firstname LIKE \'\%\'"; } if ($INPUT{a_lastname} eq "on") { if ($INPUT{lastname_sign} eq "LIKE") { $searchlastname = "AND lastname LIKE '%$INPUT{lastname}%'"; } elsif ($INPUT{lastname_sign} eq "eq") { $searchlastname = "AND lastname = '$INPUT{lastname}'"; } else { $searchlastname = ""; } } if ($INPUT{a_myERAAgent} eq "on") { $searchmyeraagent = "AND myERAAgent = '$INPUT{f_myERAAgent}'"; } else { $searchmyeraagent = ""; } if ($INPUT{a_registered}) { $searchregistered = "AND to_days(now())-to_days(datestamp) < '$INPUT{rsearchdays}'"; } if ($INPUT{a_lastlogged}) { $searchlastlogged = "AND to_days(now())-to_days(lastlogin) < '$INPUT{searchdays}'"; } ############################# my $aasth = $dbh->prepare("select count(userid) from users WHERE $searchfirstname $searchlastname $searchmyeraagent $searchregistered $searchlastlogged"); $aasth->execute; while (($userid) = $aasth->fetchrow_array()) { $totalmembers = $userid; } my $basth = $dbh->prepare("select userid,firstname,lastname,lastlogin from users WHERE $searchfirstname $searchlastname $searchmyeraagent $searchregistered $searchlastlogged order by $orderby $orderbyvalue"); $basth->execute; &startmain; print qq~ ~; $trcount = "1"; $totalperrow = "3"; while (($userid,$firstname,$lastname,$lastlogin) = $basth->fetchrow_array()) { if ($INPUT{orderby} eq "lastname") { $checkname = "$lastname, $firstname"; } else { $checkname = "$firstname $lastname"; } print qq~ ~; if ($trcount eq $totalperrow) { print ""; $trcount = "1"; } else { $trcount++; } } print qq~
:: We found $totalmembers users
$checkname [V,D,E]



Export User Data

Refresh
~; $dbh->disconnect; &footer; } sub useroverview { &header; &startmain; print qq~ ~; if ($INPUT{email_block}) { my $aaaasth = $dbh->do("UPDATE users SET email_block = '$INPUT{email_block}' WHERE userid = '$INPUT{userid}'"); } if ($INPUT{email_openhouses}) { my $abaaasth = $dbh->do("UPDATE users SET email_openhouses = '$INPUT{email_openhouses}' WHERE userid = '$INPUT{userid}'"); } my $aasth = $dbh->prepare("select userid,email,password,firstname,lastname,address,city,state,zipcode,timetomove,realtor,datestamp,lastlogin,FoundBy,UserType,myERAAgent,Phone,access,tos_agreement,agentid,email_block,email_openhouses from users where userid = '$INPUT{userid}'"); $aasth->execute; while (($userid,$email,$password,$firstname,$lastname,$address,$city,$state,$zipcode,$timetomove,$realtor,$datestamp,$lastlogin,$FoundBy,$UserType,$myERAAgent,$Phone,$access,$tos_agreement,$agentid,$email_block,$email_openhouses) = $aasth->fetchrow_array()) { my $basth = $dbh->prepare("select userid,lender,dateclosed,price,notes,firstcontacted,lastcontacted,agentassigned,status,adminstatus from leadtracking where userid = '$userid'"); $basth->execute; while (($userid,$lender,$dateclosed,$price,$notes,$firstcontacted,$lastcontacted,$agentassigned,$status,$adminstatus) = $basth->fetchrow_array()) { if ($email_block eq "y") { $email_block = "OK Turn Block On"; } elsif ($email_block eq "n") { $email_block = "BLOCKED Turn Block Off"; } else { $email_block = "UNDEF Turn Block On"; } if ($email_openhouses eq "y") { $email_openhouses = "OK Turn Block On"; } elsif ($email_openhouses eq "n") { $email_openhouses = "BLOCKED Turn Block Off"; } else { $email_openhouses = "UNDEF Turn Block On"; } unless ($timetomove) { $timetomove = "unspecified"; } unless ($access) { $access = "unspecified"; } unless ($Foundby) { $Foundby = "unspecified"; } unless ($Phone) { $Phone = "Phone # Not Given"; } print qq~

$firstname $lastname
$address
$city, $state $zipcode
$Phone
$email
I am a $UserType
User Information
Next Transaction Time$timetomove
Working With A REALTOR?$realtor $myERAAgent
Special Access Granted$access
How User Found MuncieMLS$FoundBy
Last Login
$lastlogin
Registration Date
$datestamp
TOS Agree Date
$tos_agreement
User Actions
Delete User & All Databases
E-Mail Blocks
All Mail $email_block - OpenHouse $email_openhouses

~; if ($INPUT{lead} eq "show") { print qq~ Hide Lead Information

Lead Information
First Contacted$firstcontacted
Agent Assigned$agentassigned
StatusAgent $status
Admin $adminstatus
Last Contacted$lastcontacted
Notes$notes
Closing Info
$lender
$dateclosed
$price


~; } else { print qq~ Show Lead Information
~; } print qq~


~; } $dbh->disconnect; print qq~
User Saved Favorite Searches
~; my $basth = $dbh->prepare("select * from search_fav where userid = '$INPUT{userid}' order by favid asc"); $basth->execute; while (($userid,$favid,$searchstring,$searchname,$searchtype,$status) = $basth->fetchrow_array()) { $foundsearch = "Yes"; if ($searchtype eq "res") { $extension = ""; } else { $extension = "\_$searchtype"; } if ($status eq "0") { $showstatus = "Stopped"; $showtoggle = "Start"; $showstyle = "green"; } else { $showstatus = "Running"; $showtoggle = "Stop"; $showstyle = "red"; } print qq~ $searchname | $favid | $showstatus | Delete

~; } unless ($foundsearch) { print qq~ No Saved Searches

~; } print qq~
Properties Viewed     View Detailed Viewed
~; my $acasth = $dbh->prepare("select COUNT(userid) from hits where userid = '$INPUT{userid}'"); $acasth->execute; while (($hitscount) = $acasth->fetchrow_array()) { print qq~ $hitscount ~; } print qq~

User Saved Favorite Homes
~; my $casth = $dbh->prepare("select * from home_fav where userid = '$INPUT{userid}' order by favid asc"); $casth->execute; $startcount = "1"; while (($userid,$favid,$mlsnumber,$listingtype,$notes) = $casth->fetchrow_array()) { $jasth = $dbh->prepare("select AddressNumber,AddressDirection,AddressStreet,City,Zip,State,Remarks from listings_$listingtype where MLSNUM = '$mlsnumber'"); $jasth->execute; while (($AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip,$state,$remarks_public) = $jasth->fetchrow_array()) { $foundhomes = "yes"; if ($startcount eq "2") { $startcount = "1"; $bgcolor = "FFFF99"; } else { $startcount++; $bgcolor = "white"; } $notes =~ s/CHR1/\'/gi; $notes =~ s/CHR2/\"/gi; if ($listingtype eq "res") { $extension = ""; } elsif ($listingtype eq "comm") { $extension = "\_commercial"; } elsif ($listingtype eq "inv") { $extension = "\_investment"; } elsif ($listingtype eq "lan") { $extension = "\_land"; } else { } print qq~ ~; } } } unless ($foundhomes) { print qq~ ~; } print qq~
$AddressNumber $AddressDirection $AddressStreet
 $City, $state $Zip
 MLS #$mlsnumber
User Notes: $notes
No Saved Homes


~; my $emailsasth = $dbh->prepare("select emailid,emaildatetime,emailfrom,subject from emailstousers where userid = '$INPUT{userid}' order by emailid desc"); $emailsasth->execute; while (($emailid,$emailtimedate,$emailfrom,$subject) = $emailsasth->fetchrow_array()) { print qq~ ~; } print qq~
E-Mails Sent History Since Feb 14th, 2005
Date/Time Sent From Subject
Sent $emailtimedate $emailfrom $subject
~; print qq~ ~; &footer; } sub newagent { &header; &startmain; print qq~ New Agent Data Input Form
Contact / Business Card Information
First & Last Name
Title
Designations [ Types of Designations ]
Phone 1 Type
VoiceMail Ext.
 Extension:
Phone 2 Type
Phone 3 Type
Phone 4 Type
E-Mail Address
Website Address
E-Mail Options
Use Eagle Office Email or Forward Office Email to Other Email Address?    * Setup Office Email :
   * Forward E-Mail:
Agent Login Information
Eagle Network username:
password:
Paragon Online

* Assigned By Board Office		 username:
password:
ZipForm Online username:
password:
TeamEagle.com username:
password:
Long Distance / Copier / Alarm code:
~; &footer; } sub startmain { print qq~ Administration
~; if ($INPUT{action}) { print qq~
Return Home
~; } }