#!/usr/bin/perl

use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
 print "Content-type: text/html\n\n";

$foo = new CGI;


$output= $foo->param(output);



 $header =  'head.html';
$footer = 'foot.html';

    $file='listings.tab';



open (FILE, "$header") || die print "Header File Not Found";
@header = <FILE>;
close (FILE);

open (FILE, "$footer") || die print "Footer File Not Found";
@footer = <FILE>;
close (FILE);


 open (FILE, "$file") || die print "Listings File Not Found";
@listings = <FILE>;
close (FILE);

############################## SHow All Listing
if ($output eq ""){
foreach  (@listings) {
push (@thelistings, $_);
}
}

################ Show All Grove CIty Lsitings
if ($output eq "gc")
{
foreach  (@listings) {

($thetime, $id, $listinglevel, $date, $listingtype, $listingaddress, $listingaddress2, $listingcity, $listingstate, $listingzip, $schooldistrict, $rent, $securitydeposit, $bedrooms, $bedroomsizes, $bathrooms, $appliances, $laundry, $comments, $landlordname, $landlordaddress, $landlordaddress2, $landlordcity, $landlordstate, $landlordzip, $landlordemail, $phone1, $phone2, $times1, $times2, $website, $photo1, $photo2, $photo3, $photo4, $photo5) = split /\t/;

if ($listingcity =~ /Grove/ig){
push (@thelistings, $_);
}
}
 }
#########################  Show All Mercer Listings


if ($output eq "mc")
{
foreach  (@listings) {

($thetime, $id, $listinglevel, $date, $listingtype, $listingaddress, $listingaddress2, $listingcity, $listingstate, $listingzip, $schooldistrict, $rent, $securitydeposit, $bedrooms, $bedroomsizes, $bathrooms, $appliances, $laundry, $comments, $landlordname, $landlordaddress, $landlordaddress2, $landlordcity, $landlordstate, $landlordzip, $landlordemail, $phone1, $phone2, $times1, $times2, $website, $photo1, $photo2, $photo3, $photo4, $photo5) = split /\t/;

if ($listingcity =~ /mercer/ig){
push (@thelistings, $_);
}
}
 }
########################################################
if ($output eq "other"){
foreach  (@listings) {
$other= "1";
($thetime, $id, $listinglevel, $date, $listingtype, $listingaddress, $listingaddress2, $listingcity, $listingstate, $listingzip, $schooldistrict, $rent, $securitydeposit, $bedrooms, $bedroomsizes, $bathrooms, $appliances, $laundry, $comments, $landlordname, $landlordaddress, $landlordaddress2, $landlordcity, $landlordstate, $landlordzip, $landlordemail, $phone1, $phone2, $times1, $times2, $website, $photo1, $photo2, $photo3, $photo4, $photo5) = split /\t/;

if ($listingcity =~ /mercer/ig){$other = "0";}
if ($listingcity =~ /grove city/ig){$other = "0";}
if ($other eq "1"){push (@thelistings, $_);}

 }
}
##############################################################
############################################################################

print @header;

 foreach  (@thelistings) {

  ($thetime, $id, $listinglevel, $date, $listingtype, $listingaddress, $listingaddress2, $listingcity, $listingstate, $listingzip, $schooldistrict, $rent, $securitydeposit, $bedrooms, $bedroomsizes, $bathrooms, $appliances, $laundry, $comments, $landlordname, $landlordaddress, $landlordaddress2, $landlordcity, $landlordstate, $landlordzip, $landlordemail, $phone1, $phone2, $times1, $times2, $website, $photo1, $photo2, $photo3, $photo4, $photo5) = split /\t/;
  ########################################################################################### 
if ($listinglevel == 1){
   print " ";

  print<<HTML;
<table cellpadding=2 width=600>
   <tr>
   <td align=right> <font face=arial size=2 color="#9999FF">Listing:</font></td><td> <font face=arial size=2>$id </font> </td>
     </tr>
 

<tr>
   <td align=right><font face=arial size=2 color="#9999FF">Location:</font></td><td> <font face=arial size=2>$listingaddress , $listingaddress2 , $listingcity , $listingstate , $listingzip </font> </td>
     </tr>
      <tr>
   <td align=right><font face=arial size=2>Web Site:</font></td><td> <font face=arial size=2><a href=$website> $website </a></font></td>
   </tr>
     <tr>
   <td align=right width="142" background="http://grovecitymercerrentals.com/bg_punktline.gif"></td><td background="http://grovecitymercerrentals.com/bg_punktline.gif" width="440"> </td>
   </tr>
 

</table>
HTML
   }

####################################################################################
  if ($listinglevel == 2){
   print " ";

  print<<HTML;
<table cellpadding=2 width=600
    
<tr>
   <td align=right> <font face=arial size=2 color="#9999FF">Listing:</font></td><td> <font face=arial size=2> $id </font> </td>
     </tr>
 <tr>
   <td align=right> <font face=arial size=2 color="#9999FF">Listing Type</font></td><td> <font face=arial size=2> $listingtype</font> </td>
     </tr>


<tr>
   <td align=right><font face=arial size=2 color="#9999FF">Location:</font></td><td> <font face=arial size=2>$listingaddress , $listingaddress2 , $listingcity , $listingstate</font> </td>
     </tr>
       
     <tr>
   <td align=right><font face=arial size=2>Description</font></td><td> <font face=arial size=2><a href=listing.cgi?listing=$id> Click Here </a></font></td>
<tr>
   <td align=right width="142" background="http://grovecitymercerrentals.com/bg_punktline.gif"></td><td background="http://grovecitymercerrentals.com/bg_punktline.gif" width="440"> </td>
   </tr>


      </table>
HTML
   }

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

   if ($listinglevel == 3){
   print " ";

  print<<HTML;
<table cellpadding=2 width=600>
    
<tr>
   <td align=right> <font face=arial size=2 color="#9999FF">Listing:</font></td><td> <font face=arial size=2>$id </font> </td>
     </tr>
 
<tr>
   <td align=right> <font face=arial size=2 color="#9999FF">Listing Type</font></td><td> <font face=arial size=2> $listingtype</font> </td>
     </tr>




<tr>
   <td align=right><font face=arial size=2 color="#9999FF">Location:</font></td><td> <font face=arial size=2>$listingaddress , $listingaddress2 , $listingcity , $listingstate</font> </td>
     </tr>
           <tr>
   <td align=right><font face=arial size=2>Description:</font></td><td> <font face=arial size=2><a href=listing.cgi?listing=$id> Click Here </a></font></td>
   </tr>

<tr>
   <td align=right width="142" background="http://grovecitymercerrentals.com/bg_punktline.gif">

</td><td background="http://grovecitymercerrentals.com/bg_punktline.gif" width="440">


</td>
   </tr>

      </table>
HTML
   }

########################################################################################### 
if ($listinglevel == 4){
   print " ";

  print<<HTML;
<table cellpadding=2 width=600>
   <tr>
   <td align=right> <font face=arial size=2 color="#9999FF">Listing:</font></td><td> <font face=arial size=2>$id</font> </td>
     </tr>
 
<tr>
   <td align=right> <font face=arial size=2 color="#9999FF">Listing Type</font></td><td> <font face=arial size=2> $listingtype</font> </td>
     </tr>

<tr>
   <td align=right><font face=arial size=2 color="#9999FF">Location:</font></td><td> <font face=arial size=2>$listingaddress $listingaddress2  $listingcity </font> </td>
     </tr>
      <tr>
   <td align=right><font face=arial size=2>Phone:</font></td><td> <font face=arial size=2> $phone1 </font></td>
   </tr>
     <tr>
   <td align=right width="142" background="http://grovecitymercerrentals.com/bg_punktline.gif"></td><td background="http://grovecitymercerrentals.com/bg_punktline.gif" width="440"> </td>
   </tr>
 

</table>
HTML
   }

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

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

   if ($listinglevel == 5){
   print " ";

  print<<HTML;
<table cellpadding=2 width=600>
    
<tr>
   <td align=right> <font face=arial size=2 color="#9999FF">For Sale By Owner:</font></td><td> <font face=arial size=2>$id</font> </td>
     </tr>
 <tr>
   <td align=right> <font face=arial size=2 color="#9999FF">Listing Type</font></td><td> <font face=arial size=2> $listingtype</font> </td>
     </tr>




<tr>
   <td align=right><font face=arial size=2 color="#9999FF">Location:</font></td><td> <font face=arial size=2>$listingaddress , $listingaddress2 , $listingcity , $listingstate</font> </td>
     </tr>
           <tr>
   <td align=right><font face=arial size=2>Description:</font></td><td> <font face=arial size=2><a href=listing.cgi?listing=$id> Click Here </a></font></td>
   </tr>

<tr>
   <td align=right width="142" background="http://grovecitymercerrentals.com/bg_punktline.gif">

</td><td background="http://grovecitymercerrentals.com/bg_punktline.gif" width="440">


</td>
   </tr>

      </table>
HTML
   }

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

 }


print @footer;