#!/usr/bin/perl


$d_name = "muncieml_db1";
$d_username = "muncieml_db1";
$d_pass = "\@rockdb1";

$photo_url_pre = "http://media-meiar.idxnow.com";


@rawCookies = split(/;/,$ENV{'HTTP_COOKIE'});
foreach (@rawCookies) {
	($cookieName, $cookieValue) = split(/=/,$_);
	$cookieName =~ s/ //gi;
	$Cookies{$cookieName}=$cookieValue;
}

if ($Cookies{userid} =~ /\|/) {
($Cook{userid},$Cook{email}) = split(/\|/,$Cookies{userid});
}
else {
($Cook{userid},$Cook{email}) = split(/\-/,$Cookies{userid});
}


use DBI;
$dsn = "DBI:mysql:database=$d_name;host=localhost";
$dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;


### load sponsors
open(SPON,"sponsors.txt");
@spon = <SPON>;
close(SPON);

$spon_count = 0;
foreach $line (@spon) {
	unless ($spon_count eq "0" || $line eq "\n") {
	my ($clean_name,$subdomain,$image_url,$site_url) = split(/\|/, $line);
	$subdomain = lc($subdomain);
	$sponsor_info{$subdomain}->{clean_name} = $clean_name;
	$sponsor_info{$subdomain}->{image_url} = $image_url;
	$sponsor_info{$subdomain}->{site_url} = $site_url;

	}
$spon_count = 1;
}

$site_sponsor = $Cookies{sponsor_referral};

%ShowCity	=	(
		"Albany"		=>	"Albany",
		"Alexandria"	=>	"Alexandria",
		"Anderson"		=>	"Anderson",
		"Cambridge Ctiy"	=>	"Cambridge City",
		"Carthage"		=>	"Carthage",
		"DALEVILLE"		=>	"Daleville",
		"DUNKIRK"		=>	"Dunkirk",
		"DUNREITH"		=>	"Dunreith",
		"EATON"		=>	"Eaton",
		"ELWOOD"		=>	"Elwood",
		"FAIRMOUNT"		=>	"Fairmount",
		"FARMLAND"		=>	"Farmland",
		"GASTON"		=>	"Gaston",
		"HAGERSTOWN"	=>	"Hagerstown",
		"HARTFORD CITY"	=>	"Hartford City",
		"KENNARD"		=>	"Kennard",
		"KNIGHTSTOWN"	=>	"Knightstown",
		"LEWISVILLE"	=>	"Lewisville",
		"LOSANTVILLE"	=>	"Losantville",
		"MATTHEWS"		=>	"Matthews",
		"MIDDLETOWN"	=>	"Middletown",
		"MODOC"		=>	"Modoc",
		"MONTPELIER"	=>	"Montpelier",
		"MOORELAND"		=>	"Mooreland",
		"MOUNT SUMMIT"	=>	"Mount Summit",
		"MUNCIE"		=>	"Muncie",
		"NEW CASTLE"	=>	"New Castle",
		"OAKVILLE"		=>	"Oakville",
		"PARKER CITY"	=>	"Parker City",
		"PENNVILLE"		=>	"Pennville",
		"PORTLAND"		=>	"Portland",
		"REDKEY"		=>	"Redkey",
		"RICHMOND"		=>	"Richmond",
		"RIDGEVILLE"	=>	"Ridgeville",
		"SELMA"		=>	"Selma",
		"SHIRLEY"		=>	"Shirley",
		"SPICELAND"		=>	"Spiceland",
		"SPRINGPORT"	=>	"Springport",
		"STRAUGHN"		=>	"Straughn",
		"SUMMITVILLE"	=>	"Summitville",
		"UNION CITY"	=>	"Union City",
		"UPLAND"		=>	"Upland",
		"VANBUREN"		=>	"Vanburen",
		"WILLIAMSBURG"	=>	"Williamsburg",
		"WINCHESTER"	=>	"Winchester",
		"YORKTOWN"		=>	"Yorktown"
			);

unless ($INPUT{action} eq "login") {
if ($Cook{userid}) {
my $vasth = $dbh->prepare("select firstname,lastname,access,agentid from users where userid = '$Cook{userid}' AND email = '$Cook{email}'");
$vasth->execute;

while (($firstname,$lastname,$access,$mymlsid) = $vasth->fetchrow_array()) {
my $avasth = $dbh->prepare("select agentid,mlsid from agents where mlsid = '$mymlsid' ORDER by agentid asc limit 0,1");
$avasth->execute;
while (($aagent_agentid,$aagent_mlsid) = $avasth->fetchrow_array()) {
$agent_agentid = $aagent_agentid;
}

$firstname =~ s/CHR1/\'/gi;
$lastname =~ s/CHR2/\"/gi;
if ($access eq "eagleagent") {
$navbarcode =qq~
<b>Welcome $firstname $lastname!<br>Logged In [ <a href=myhomes.idx?action=logoff class=leftmenu>Logout</a> ]</b><br><br>
<b>Eagle Agent Center</b><br>
Visit<br>
<a href="http://connect.eaglesold.com">Connect.Eagle</a><br>
To View Transaction<br>
Items<br><br>
<img src=images/top_icon.gif><a href=myhomes.idx class=leftmenu>Summary</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=savedlistings class=leftmenu>Saved Listings</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=savedsearches class=leftmenu>Saved Searches</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=notifications class=leftmenu>E-Mail Notifications</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=updateprofile class=leftmenu>Update Account</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=changepassword class=leftmenu>Change Password</a><br>
<img src=images/top_icon.gif><a href=feedback.idx class=leftmenu>Send Us Feedback</a><br>
~;
$savesearch = "<input class=form type=button value=Save Search name=Save onclick=return OnSave();>";
$loggedin = "yes";
}
elsif ($access eq "admin") {
$navbarcode =qq~
<b>Welcome $firstname $lastname!<br>Logged In [ <a href=myhomes.idx?action=logoff class=leftmenu>Logout</a> ]</b><br><br>
<b>Admin Access</b><br>
<img src=images/top_icon.gif><a href=admin.idx class=leftmenu>Administration</a><br><br>
<b>Property Search</b><br>
<img src=images/top_icon.gif><a href=propertysearch.idx?type=Residential class=leftmenu>Residential</a><br>
<img src=images/top_icon.gif><a href=propertysearch.idx?type=Investment class=leftmenu>Investment</a><br>
<img src=images/top_icon.gif><a href=propertysearch.idx?type=Commercial class=leftmenu>Commercial</a><br>
<img src=images/top_icon.gif><a href=propertysearch.idx?type=Land class=leftmenu>Lots & Land</a><br><br>
<b>MyHomes Account</b><br>
<img src=images/top_icon.gif><a href=myhomes.idx class=leftmenu>Summary</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=savedlistings class=leftmenu>Saved Listings</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=savedsearches class=leftmenu>Saved Searches</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=notifications class=leftmenu>E-Mail Notifications</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=updateprofile class=leftmenu>Update Account</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=changepassword class=leftmenu>Change Password</a><br>
<img src=images/top_icon.gif><a href=feedback.idx class=leftmenu>Send Us Feedback</a><br>
~;
$savesearch = "<input class=form type=button value=Save Search name=Save onclick=return OnSave();>";
$loggedin = "yes";
}
else {
$navbarcode =qq~
<b>Welcome $firstname $lastname!<br>Logged In [ <a href=myhomes.idx?action=logoff class=leftmenu>Logout</a> ]</b><br><br>
<b>Property Search</b><br>
<img src=images/top_icon.gif><a href=propertysearch.idx?type=Residential class=leftmenu>Residential</a><br>
<img src=images/top_icon.gif><a href=propertysearch.idx?type=Investment class=leftmenu>Investment</a><br>
<img src=images/top_icon.gif><a href=propertysearch.idx?type=Commercial class=leftmenu>Commercial</a><br>
<img src=images/top_icon.gif><a href=propertysearch.idx?type=Land class=leftmenu>Lots & Land</a><br><br>
<b>MyHomes Account</b><br>
<img src=images/top_icon.gif><a href=myhomes.idx class=leftmenu>Summary</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=savedlistings class=leftmenu>Saved Listings</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=savedsearches class=leftmenu>Saved Searches</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=notifications class=leftmenu>E-Mail Notifications</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=updateprofile class=leftmenu>Update Account</a><br>
<img src=images/top_icon.gif><a href=myhomes.idx?action=changepassword class=leftmenu>Change Password</a><br>
<img src=images/top_icon.gif><a href=feedback.idx class=leftmenu>Send Us Feedback</a><br>
~;
$savesearch = "<input class=form type=button value=Save Search name=Save onclick=return OnSave();>";
$loggedin = "yes";
}
}

unless ($navbarcode) {

#### email address doesnt match userid record
#### 
#### normally caused by updating profile and changing the email address on file

$navbarcode = "<b>Welcome Guest!<br>Not Logged In</b><br><br><b>I Have An Account</b><br><img src=images/top_icon.gif><a href=myhomes.idx class=leftmenu>Login Now</a><br><br><b>I Am A New User</b><br><img src=images/top_icon.gif><a href=register.idx class=leftmenu>Register Free</a><br>";

print "Set-cookie: userid=\n";
print "Content-type: text/html\n\n";
&header;
print qq~

		<td valign="top" width="581">
		<br>

		<table border="0" cellpadding="5" cellspacing="0" width="100%">
		<tr>
		<td valign="top">
		<font face="Arial, Helvetica, sans-serif"><font size="3" color="Red">Please login using the above form.  If you just changed your email address, please login using the new one.</b></font></font><br><br>
</td></tr></table>

~;
&footer;
exit 0;
}

$dbh->disconnect;
}
else {
	$navbarcode = "<b>Welcome Guest!<br>Not Logged In</b><br><br><b>I Have An Account</b><br><img src=images/top_icon.gif><a href=myhomes.idx class=leftmenu>Login Now</a><br><br><b>I Am A New User</b><br><img src=images/top_icon.gif><a href=register.idx class=leftmenu>Register Free</a><br>";
}
}



print "";

sub header {

open(HEADER,"includes/mainpage.txt");
@header = <HEADER>;
close(HEADER);

if ($top_status_message) {
}
else {
$top_status_message = "";
}


sub header_print {

open(HEADER,"includes/mainpage_print.txt");
@header = <HEADER>;
close(HEADER);

foreach $line (@header) {
print "$line";
}

}


sub leftnav {

open(LEFTNAV,"includes/leftnav.txt");
@leftnav = <LEFTNAV>;
close(LEFTNAV);

foreach $leftline (@leftnav) {
$leftline =~ s/\$leftbarcode/$leftbarcode/g;
print "$leftline";
}

}

unless ($navbarcode) {
$navbarcode = "<b>Welcome Guest!<br>Not Logged In</b><br><br><b>I Have An Account</b><br><img src=images/top_icon.gif><a href=myhomes.idx class=leftmenu>Login Now</a><br><br><b>I Am A New User</b><br><img src=images/top_icon.gif><a href=register.idx class=leftmenu>Register Free</a><br>";
}

if ($loggedin eq "yes") {
	$topcode =qq~
		<img src="images/line_spacer.gif" height="50" width="141"><br>
		<span class="disclaimer"><b>www.MuncieMLS.com</b><br>is not the official<br>website of the Mid Eastern Association of REALTORS®</span><br>
		<img src="images/line_spacer.gif" height="12" width="141"><br>
~;
}
else {
$topcode = qq~<input type=hidden name=action value=login>
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
	<tr>
		<td>
			<img src="images/quicklogin/top.gif"><br>
		</td>
	</tr>
	<tr>
		<td>
			<center><input type="text" name="Email" style="color: #000000; font-family: Arial; font-size: 10px; border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF"></center>
		</td>
	</tr>
	<tr>
		<td>
			<img src="images/quicklogin/pass.gif"><br>
		</td>
	</tr>
	<tr>
		<td>
			<center><input type="password" name="Password" style="color: #000000; font-family: Arial; font-size: 10px; border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF"></center>
		</td>
	</tr>
	<tr>
		<td>
			<center><input type="image" src="images/quicklogin/button.gif"></center>
		</td>
	</tr>
	</table><img src="images/line_spacer.gif" height="8" width="1"><br>
~;
}


if ($sponsor_info{$site_sponsor}{image_url}) {
$image_url_for_top_right_of_site =qq~

					<td width="490" height="133" valign="top">
						<a href="http://www.munciemls.com"><img border="0" src=" $sponsor_info{$site_sponsor}{image_url}" height="133" border="0"></a><br>
					</td>
~;
}
else {
$image_url_for_top_right_of_site =qq~ 

					<td width="477" height="133" valign="top">
						<a href="http://www.munciemls.com"><img border="0" src="images/top_header.gif" width="477" height="133" border="0" alt="Eagle Real Estate, Inc."></a><br>
					</td>
~;
}


foreach $line (@header) {
$line =~ s/\$top_status_message/$top_status_message/g;
$line =~ s/\$navbarcode/$navbarcode/g;
$line =~ s/\<\!\-\-INSERTTOPHEADEREND-->/$topcode/gi;
$line =~ s/<!--INSERTYARDSPONSORIMAGE-->/$image_url_for_top_right_of_site/gi;


print "$line";
}


}





sub header_listings {

open(HEADERL,"includes/mainpage_listings.txt");
@headerl = <HEADERL>;
close(HEADERL);

unless ($navbarcode) {
$navbarcode = "<b>Welcome Guest!<br>Not Logged In</b><br><br><b>I Have An Account</b><br><img src=images/top_icon.gif><a href=myhomes.idx class=leftmenu>Login Now</a><br><br><b>I Am A New User</b><br><img src=images/top_icon.gif><a href=register.idx class=leftmenu>Register Free</a><br>";
}

if ($loggedin eq "yes") {
	$topcode =qq~
		<img src="images/line_spacer.gif" height="50" width="141"><br>
		<span class="disclaimer">www.MuncieMLS.com is not the official<br>website of the Mid Eastern Association of REALTORS®</span><br>
		<img src="images/line_spacer.gif" height="12" width="141"><br>
~;
}
else {
$topcode = qq~<input type=hidden name=action value=login>
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
	<tr>
		<td>
			<img src="images/quicklogin/top.gif"><br>
		</td>
	</tr>
	<tr>
		<td>
			<center><input type="text" name="Email" style="color: #000000; font-family: Arial; font-size: 10px; border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF"></center>
		</td>
	</tr>
	<tr>
		<td>
			<img src="images/quicklogin/pass.gif"><br>
		</td>
	</tr>
	<tr>
		<td>
			<center><input type="password" name="Password" style="color: #000000; font-family: Arial; font-size: 10px; border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF"></center>
		</td>
	</tr>
	<tr>
		<td>
			<center><input type="image" src="images/quicklogin/button.gif"></center>
		</td>
	</tr>
	</table><img src="images/line_spacer.gif" height="8" width="1"><br>
~;
}


if ($sponsor_info{$site_sponsor}{image_url}) {
$image_url_for_top_right_of_site =qq~

					<td width="490" height="133" valign="top">
						<a href="http://www.munciemls.com"><img border="0" src=" $sponsor_info{$site_sponsor}{image_url}" height="133" border="0"></a><br>
					</td>
~;
}
else {
$image_url_for_top_right_of_site =qq~ 
					<td width="477" height="133" valign="top">
						<a href="http://www.munciemls.com"><img border="0" src="images/top_header.gif" width="477" height="133" border="0" alt="Eagle Real Estate, Inc."></a><br>
					</td>
~;
}


foreach $line (@headerl) {
$line =~ s/\$navbarcode/$navbarcode/g;
$line =~ s/\<\!\-\-INSERTTOPHEADEREND-->/$topcode/gi;
$line =~ s/<!--INSERTYARDSPONSORIMAGE-->/$image_url_for_top_right_of_site/gi;


print "$line";
}


}











sub footer {

open(FOOTER,"includes/footer.txt");
@footer = <FOOTER>;
close(FOOTER);

foreach $line (@footer) {
print "$line";
}

#print qq~<br><br>SQL Queries: $sql_query_count~ if $sql_query_count;

}

sub showfeatured {
print <<"top";

<table border="0" cellpadding="3" cellspacing="0" width="121" bgcolor="\white">
<tr>
<td valign="middle">
<b><font color="Red">Featured Property</font></b>
</td>
</tr>
</table>
<table border="0" cellpadding="6" cellspacing="0" width="121"> 
top

$d_name = "muncieml_db1";
$d_username = "muncieml_db1";
$d_pass = "\@rockdb1";


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 Price,AddressNumber,AddressDirection,AddressStreet,City,Zip,Status,MLSNUM,Bedrooms,FullBaths,HalfBaths,TotalSqFt,Acres,AgentID,AgentName,CoAgentID,CoAgentName,ListingOffiice1Name,ListingOffice1Phone,ListingOffice1ID,Remarks from listings_res where ListingOffice1ID = '130' order by RAND() limit 1");
$uasth->execute;

$dbh->disconnect;

while (($Price,$AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip,$Status,$MLSNUM,$Bedrooms,$FullBaths,$HalfBaths,$TotalSqFt,$Acres,$AgentID,$AgentName,$CoAgentID,$CoAgentName,$ListingOffiice1Name,$ListingOffice1Phone,$ListingOffice1ID,$Remarks) = $uasth->fetchrow_array()) {


open(DBFILE,"/home/muncieml/public_html/remarksdb.txt");
@dbfile = <DBFILE>;
close(DBFILE);

foreach $dbline (@dbfile) {
$dbline =~ s/\n//gi;
if ($dbline) {
$Remarks =~ s/(.*?)$dbline//gi;
}
#$makestuff .= "$dbline\n";
}

$Remarks =~ s/CHR1/\'/gi;
$Remarks =~ s/CHR2/\"/gi;

$photourl = &image_format("thumbnail",$MLSNUM);

if ($photourl =~ /sorry/) {
    $photourl = "http://www.eagle-online.com/images/featured_nophoto.gif";
}

$Price = &commas($Price);

print qq~

<tr>
<td valign="top">
<b>$AddressNumber $AddressDirection $AddressStreet<br>
$City, IN $Zip<br></b>
<b>Offered at \$$Price</b><br><br>
<b>Presented By:</b><br>
<a href="agents.idx?action=viewagent&agent=$AgentID">$AgentName</a><br><br>
<center><a href="showdetails.idx?mlsnumber=$MLSNUM"><img src="$photourl" border="0"></a></center><br>
<center><font size="2"><b><a href="showdetails.idx?mlsnumber=$MLSNUM">View Listing Details</a></b></font></center><br>
<b>Remarks:</b> $Remarks
</font>
<br><br>
</td>
</tr>
~;
}


print <<"TheEND";
</table>
TheEND
}


sub commas {
	local($_)=@_;
	1 while s/(.*\d)(\d\d\d)/$1,$2/;
	$_;
}







sub image_format {
my($cat,$mlsnumber) = @_;

$kpsth = $dbh->prepare("select photo_number,file_name from photos where mls_number = ? order by photo_number asc limit 1");
$kpsth->execute($mlsnumber);

($data_ret) = $kpsth->fetchrow_hashref();
my %photo_d = %$data_ret;
my $show_picture;

if ($photo_d{file_name} ne "") {
   $show_picture = "$photo_url_pre/$cat/$photo_d{file_name}";
}
else {
   $show_picture = "images/sorrynophoto_search.gif";
}

return $show_picture;

}



sub image_format_full {
my($mlsnumber) = @_;

$gpsth = $dbh->prepare("select photo_number,file_name from photos where mls_number = ? order by photo_number asc limit 100");
$gpsth->execute($mlsnumber);

while ($data_ret = $gpsth->fetchrow_hashref()) {
   my %photo_d = %$data_ret;
   push @property_photos, $photo_d{file_name};
}

return @property_photos;

}





sub pull_photo_data_for_property_details_page {
my($mlsnumber,$show_per_row) = @_;

#######################################
#######################################

# pull all photos from database with MLS#
# image file names are returned as an array
@property_photos = &image_format_full($mlsnumber);

# 0 references the first item in the array.
# pull first image and use as big photo on the page
if ($property_photos[0]) {
   $showpicture = "$photo_url_pre/full/".$property_photos[0];
}
else {
   $showpicture = "images/nophoto.gif";
}

# loop through all of the available photos for this property.
# $photo becomes the file name of the property photo
# $photo_url_pre is the base URL to the photo storage system
foreach $photo (@property_photos) {
   $anypictures = "yes";
   $totalpictures++;
   $buildscript .= qq~	testurl[$totalpictures]="$photo_url_pre/full/$photo"\n~;
   $showthumbs .= qq~<td width="92" bgcolor="white"><a href="javascript: showupdate($totalpictures)"><img src="$photo_url_pre/thumbnail/$photo" height="69" width="92" border=0></a><br></td>~;
   #$buildscript .= qq~	testurl[$totalpictures]="$photo_url_pre/full/$photo"\n~;
   #$showthumbs .= qq~<td width="40" bgcolor="white"><a href="javascript: showupdate($totalpictures)"><img src="$photo_url_pre/tiny/$photo" height="30" width="40" border=0></a><br></td>~;

   if ($tablecount == $show_per_row) {
      # make a new row after 10 photos have been printed to current row
      $showthumbs .= "</tr>\n\n<tr>";
      $tablecount = "0";
   }
   else {
      $tablecount++;
   }
}


#######################################
#######################################


}