#!/usr/bin/perl
###############################################################################
#
#
# 3/24/2008 - Created for gotacres.com to feed available properties page.
#
#

use CGI;
use CGI::Carp qw/fatalsToBrowser/;
$cgi = new CGI;
use DBI;
$Keywords=$ENV{REQUEST_URI};

require "../got_data/gotacresql.pl";
&SQLVAR;
$dbh = DBI->connect("DBI:mysql:database=$db_name;host=$db_host", $db_user, $db_pass, {'RaiseError' => 1});
$sth = $dbh->prepare("SELECT * FROM geodesic_auctions WHERE live='1' AND description NOT LIKE \"%OK%\" ORDER BY current_bid DESC");
$sth->execute();	
$ref = $sth->fetchrow_hashref;
$Mikes = $ref->{'description'};
$Mike_hash_in = $Mikes;
&GETMIKEHASH;
$Mikes = $Mike_hash_in;
#$Mikes =~ s/\<p\>//gi;
$Auction_number = $ref->{'id'};
$sth1 = $dbh->prepare("SELECT * FROM geodesic_auctions_images_urls WHERE auction_id='$Auction_number' ORDER BY image_id");
$sth1->execute();	
$ref1 = $sth1->fetchrow_hashref;
$Mike_hash_in = $ref->{'title'};
&GETMIKEHASH;
$Auction_title = $Mike_hash_in;
print "Content-type: text/html\n\n";
open (TOPT, "templatetop");
until (eof (TOPT)){
	$Topt = <TOPT>;
	chop $Topt;
	print "$Topt\n";
}
&GETDATEINFO;
print "<p><h3>Available as of <font color=green>$Date1</font>!</h3><table border=0><tr><td width=\"100%\">";
$sth1 = $dbh->prepare("SELECT * FROM geodesic_auctions_images_urls WHERE auction_id='$Auction_number' ORDER BY full_filename ASC");
$sth1->execute();	
$ref1 = $sth1->fetchrow_hashref;
print "<h2><a href=\"http://www.gotacres.com/auction\" title=\"Click for GotAcres.com\">GotAcres.com</a></h2>Many more properties at web site.  <a href=\"http://www.gotacres.com/auction/\" title=\"Click to view all auctions!\">Click here</a> to view all auctions or on the picture below to view this one.<br><table border=1 width=\"100%\"><tr class=$Browse_class>";
if ($ref1->{'thumb_file'} ne "" && $ref1->{'thumb_file'} =~ /\.jpg/i){
	$use_image = $ref1->{'thumb_filename'};
}
else {
	$use_image = $ref1->{'full_filename'};
}
$piccnt++;
print "<td valign=top align=center valign=middle width=120><a href=\"http://www.gotacres.com/auction/index.php?a=2&b=$Auction_number\" title=\"Click to view this property!\"><img src=\"http://www.gotacres.com/auction/user_images/$use_image\" alt=\"$Keywords picture$piccnt\" width=\"120\" height=\"80\" border=0></a></td><td valign=top>\n";
print "<a href=http://www.gotacres.com/auction/index.php?a=2&b=$Auction_number title=\"Click to view this property!\">$Auction_title</a></td><td valign=top>";
#$printstring = substr ($Mikes, 0,200);
#$Mike_hash_in = $Mikes;
#&GETMIKEHASH;
#$Mikes = $Mike_hash_in;
@mike = split (/\<\/P\>/ , $Mikes);
$printstring = $mike[0];
$printstring = substr ($mike[0], 0,100);
$New_print_string = "";
$printed1=0;
$One_link_this = "";
$Mike_hash_in = $mike[0];
&GETMIKEHASH;
$Mike_hash_in =~ s/buyer%27s/buyer\'s/g;
print "$Mike_hash_in</td>";
$bidcount=0;
$sth1 = $dbh->prepare("SELECT * FROM geodesic_auctions_bids WHERE auction_id='$Auction_number'");
$sth1->execute();	
while ($ref1 = $sth1->fetchrow_hashref){
	$bidcount++;
}
print "<td valign=top align=center><div nowrap>$bidcount bid(s)</div></td></tr>\n";
print "</td></tr></table></td></tr><tr><td>&nbsp;</td></tr>\n";
open (WEST, "../got_data/westernusaland.txt");
until (eof (WEST)){
	$West = <WEST>;
	chop $West;
	print "$West\n";
}
close WEST;
print "<tr><td>&nbsp;</td></tr>\n";
open (OKLA, "../got_data/oklandrush.txt");
until (eof (OKLA)){
	$Okla = <OKLA>;
	chop $Okla;
	print "$Okla\n";
}
close OKLA;
print "</table></p>\n";
#print "<p><h2>5/15/2008: Available properties coming soon!</h2></p>\n";
open (BOTT, "templatebottom");
until (eof (BOTT)){
	$Bott = <BOTT>;
	chop $Bott;
	print "$Bott\n";
}
################################################################################################################################################################################
sub GETDATEINFO {
	@months = ("January","February","March","April","May","June","July","August","September","October","November","December");
   	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$year += 1900;
	$year1 = substr ($year, 2,2);
   	if ($sec < 10) {
      		$sec = "0$sec";
   	}
   	if ($min < 10) {
      		$min = "0$min";
   	}
   	if ($hour < 10) {
      		$hour = "0$hour";
   	}
   	$mhour = $hour;
   	if ($mon < 10) {
      		$mon = "0$mon";
   	}
   	if ($mday < 10) {
      		$mday = "0$mday";
   	}
   	$month = ($mon + 1);
	if ($month eq "01" || $month eq "1"){
		$month1="JAN";
	}
	if ($month eq "2"){
		$month1="FEB";
	}
	if ($month eq "3"){
		$month1="MAR";
	}
	if ($month eq "4"){
		$month1="APR";
	}
	if ($month eq "5"){
		$month1="MAY";
	}
	if ($month eq "6"){
		$month1="JUN";
	}
	if ($month eq "7"){
		$month1="JUL";
	}
	if ($month eq "8"){
		$month1="AUG";
	}
	if ($month eq "9"){
		$month1="SEP";
	}
	if ($month eq "10"){
		$month1="OCT";
	}
	if ($month eq "11"){
		$month1="NOV";
	}
	if ($month eq "12"){
		$month1="DEC";
	}
	$hours1 = "$hour";
	$Date1 = "$month/$mday/$year";
	$sqldate1 = "$year"."\-"."$month"."\-"."$mday";
}
#############################################################################################################################################################################
sub GETMIKEHASH {
	$Mike_hash_in =~ s/\+/ /g;
	$Mike_hash_in =~ s/\%21/\!/g;
	$Mike_hash_in =~ s/\%24/\$/g;
	$Mike_hash_in =~ s/\%3C/\</g;
	$Mike_hash_in =~ s/\%3E/\>/g;
	$Mike_hash_in =~ s/\%3A/\:/g;
	$Mike_hash_in =~ s/\%2C/\,/g;
	$Mike_hash_in =~ s/\%2F/\//g;
	$Mike_hash_in =~ s/\%0A/ /g;
	$Mike_hash_in =~ s/\%0D//g;
	$Mike_hash_in =~ s/\%28/\(/g;
	$Mike_hash_in =~ s/\%29/\)/g;
	$Mike_hash_in =~ s/\%92/\'/g;
	$Mike_hash_in =~ s/\%25/\%/g;
	$Mike_hash_in =~ s/\%3F/\?/g;
	$Mike_hash_in =~ s/\%23/\#/g;
	$Mike_hash_in =~ s/\%3B/\;/g;
	$Mike_hash_in =~ s/%27/\'/g;
	$Mike_hash_in =~ s/buyer%27s/buyer\'s/g;
	$Mike_hash_in =~ s/\%93/\"/g;
	$Mike_hash_in =~ s/\%94/\"/g;
	$Mike_hash_in =~ s/\%BD/\½/g;
	$Mike_hash_in =~ s/\%BC/\¼/g;
	$Mike_hash_in =~ s/\%BE/\¾/g;
}
#############################################################################################################################################################################