#======================================================#
# EveryAuction Addon
# Misc Display Add-on v1.0 
#------------------------------------------------------#
# If you have them, this add-on will replace the 
# following add-ons:
# View Sellers Other Auctions, View All Ending, 
# View All New, and View All Hot
#======================================================#
# PiTA - Park In The Alley Software (Auction-Script.com)
#======================================================#
# Author: Splatt 02/20/00
# justguns.com auction-script.com compalley.com
#------------------------------------------------------#
# Unauthorized redistribution is prohibited!!!
# The latest version of my addons can be found at:
# www.auction-script.com/addons
#======================================================#


#------------------------------------------------------#
# Variables that need to be in your config section
#------------------------------------------------------#
#------------------------------------------------------#
# Alternating Colors for the rows 
# $odd_row_color = '#EEEEEE';
# $even_row_color = '#FFFFFF'; 
#------------------------------------------------------#
#------------------------------------------------------#
# $hotitemnum = number of bids to trigger hot item
# $hoticonpath = URL to an icon for displaying
# $hotitemnum = 10;
# $hoticonpath = "<IMG SRC=\"http://yourserver.com/hotitem.gif\">";
#------------------------------------------------------#
#------------------------------------------------------#
# View new items
# $newdays = number of days item is considered new
# $newiconpath = URL to an icon for displaying
# $newdays = 1;
# $newiconpath = "<IMG SRC=\"http://yourserver.com/newitem.gif\">";
#------------------------------------------------------#
#------------------------------------------------------#
# View ending soon items
# $endhours = number of hours left in auction to be considered closing soon
# $endiconpath = URL to an icon for displaying
# $endhours = 3;
# $endiconpath="<IMG SRC=\"http://yourserver.com/endingitem.gif\">";
#------------------------------------------------------#

#------------------------------------------------------#
# This goes in your elsif section
# elsif ($ARGV[0] eq 'disp') { &disp; }
#------------------------------------------------------#
# It replaces:
# elsif ($ARGV[0] eq 'allnew') { &allnew; }
# elsif ($ARGV[0] eq 'allend') { &allend; }
# elsif ($ARGV[0] eq 'allhot') { &allhot; }
# elsif ($ARGV[0] eq 'viewseller') { &viewseller; }
#------------------------------------------------------#

#------------------------------------------------------#
# This goes in your footer section or wherever you have
# your menuing code
# print "<A HREF=$ENV{'SCRIPT_NAME'}?disp\&allnew>New Items </A>";
# print "<A HREF=$ENV{'SCRIPT_NAME'}?disp\&allhot>Hot Items </A>";
# print "<A HREF=$ENV{'SCRIPT_NAME'}?disp\&allend>Ending Soon </A>";
#------------------------------------------------------#

#------------------------------------------------------#
# This goes in your dispitem sub to allow users to view
# the sellers other auctions
# print "<a href=$ENV{'SCRIPT_NAME'}\?disp\&viewseller\&$firstbid[0]> (view seller's other auctions)</a>\n";
#------------------------------------------------------#


#------------------------------------------------------#
# This replaces subs: &allhot, &allnew, &allend, &viewseller
#------------------------------------------------------#
# Sub: Show misc displays
#------------------------------------------------------#
sub disp {
      #------------------------------------------------------#
	# I use the Header as a sub, this is here for reference
	#------------------------------------------------------#
	# if ($ARGV[1] eq 'allend') {&ShowHeader("Closing Items");}
	# if ($ARGV[1] eq 'allnew') {&ShowHeader("New Items");}
	# if ($ARGV[1] eq 'allhot') {&ShowHeader("Hot Items");}
	# if ($ARGV[1] eq 'viewseller') {&ShowHeader("Auctions by: $ARGV[2]");}
	#------------------------------------------------------#
	&autoclose; # REM if not using autoclose
	print "<table border=1 cellspacing=0 width=100\% bgcolor=$colortableheadtwo>\n";
	if ($ARGV[1] eq 'allend') { print "<tr><td align=center width=100\%><font size=4 color=#000000><b>Closing Items - Items with less than $endhours hours until they close</b></font></td>\n";}
	if ($ARGV[1] eq 'allhot') { print "<tr><td align=center width=100\%><font size=4 color=#000000><b>Hot Items - Items with $hotitemnum or more bids</b></font></td>\n"; }
	if ($ARGV[1] eq 'allnew') { print "<tr><td align=center width=100\%><font size=4 color=#000000><b>New Items - Items posted within $newdays day(s)</font></td>\n"; }
	if ($ARGV[1] eq 'viewseller') { print "<tr><td align=center width=100\%><font size=4 color=#000000><b>Auctions Offered By - $ARGV[2]</font></td>\n"; }
	print "</tr></table>\n";
	print "<TABLE BORDER=0 WIDTH=100\% CELLSPACING=0>\n";
	print "<TR BGCOLOR=$colortablehead><TD ALIGN=CENTER WIDTH=62\%><B>Item</B></TD><TD ALIGN=CENTER WIDTH=15\%><B>Closes</B></TD><TD ALIGN=CENTER WIDTH=6\%><B>Bids</B></TD><TD ALIGN=CENTER WIDTH=12\%><B>High Bid</B></TD></TR>\n";
	$i=0;
	foreach $key (sort keys %category) {
		opendir THEDIR, "$basepath$key" || die "Unable to open directory: $!";
		@allfiles = readdir THEDIR;
		closedir THEDIR;
		foreach $file (sort { int($a) <=> int($b) } @allfiles) {
			if (-T "$basepath$key/$file") {
				open THEFILE, "$basepath$key/$file";
				($title, $reserve, $inc, $desc, $image, @bids) = <THEFILE>;
				close THEFILE;
				chomp($title, $reserve, $inc, $desc, $image, @bids);
				@lastbid = split(/\[\]/,$bids[$#bids]);
				$file =~ s/\.dat//;
				@closetime = localtime($file);
				$closetime[4]++;
				$camera="";
				$camera = $piciconpath if ($image);
				@firstbid = split(/\[\]/,$bids[0]);
				$timediff = ($file - time);
				$hoticon="";
				$hoticon=$hoticonpath if ($hotitemnum <= $#bids);
				$newicon="";
				$newicon=$newiconpath if (time<($newdays * 86400 + $firstbid[3]));
				$timediff=($file - time);
				$endicon="";
				$endicon=$endiconpath if ($timediff < ($endhours * 3600));
				$camera="";
				$camera =$piciconpath if ($image);                            
				#------------------------------------------------------#
				# View Sellers Other Auctions
				#------------------------------------------------------#
				if ($ARGV[1] eq 'viewseller') {
					if ($i % 2 == 1) {
						$colortablebody=$odd_row_color; }
					else { $colortablebody=$even_row_color; }
					$flag=0;
					foreach $bid(@bids) {
						$i++ if (($firstbid[0]=~/$ARGV[2]\b/i) && ($flag==0));
						if (($firstbid[0]=~/$ARGV[2]\b/i) && ($flag==0)) {
							print "<TR BGCOLOR=$colortablebody><TD><A HREF=$ENV{'SCRIPT_NAME'}\?$key\&$file>$category{$key}\: $title</A>$hoticon$camera$newicon$endicon</TD><TD ALIGN=CENTER>$closetime[4]/$closetime[3]</TD><TD ALIGN=RIGHT>$#bids</TD><TD>\$$lastbid[2]</TD></TR>\n";
							$flag=1;
						}
					}
				}
				#------------------------------------------------------#
				# View All New Items
				#------------------------------------------------------#
				if ($ARGV[1] eq 'allnew') {
					if ($i % 2 == 1) {
						$colortablebody=$odd_row_color; }
					else { $colortablebody=$even_row_color; }
					$i++ if (time < ($newdays * 86400 + $firstbid[3]));
	 				print "<TR BGCOLOR=$colortablebody><TD WIDTH=62\%>$hoticon$newicon <A HREF=$ENV{'SCRIPT_NAME'}\?$key\&$file>$title</A>$camera$endicon</TD><TD ALIGN=CENTER WIDTH=15\%>$closetime[4]/$closetime[3] $closetime[2]\:" if (time < ($newdays * 86400 + $firstbid[3])); 
					if ($closetime[1] < 10) {
						print "0$closetime[1] </TD><TD ALIGN=CENTER WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>\$$lastbid[2]</TD></TR>\n" if (time < ($newdays * 86400 + $firstbid[3])); }
					else {
						print "$closetime[1] </TD><TD ALIGN=CENTER WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>\$$lastbid[2]</TD></TR>\n" if (time < ($newdays * 86400 + $firstbid[3]));
                              }
                        }
				#------------------------------------------------------#
				# View All Hot Items
				#------------------------------------------------------#
                        if ($ARGV[1] eq 'allhot') {
					if ($i % 2 == 1) {
					$colortablebody=$odd_row_color; }
					else { $colortablebody=$even_row_color; }
					$i++ if ($hotitemnum <= $#bids);
					print "<TR BGCOLOR=$colortablebody><TD WIDTH=62\%>$hoticon$newicon <A HREF=$ENV{'SCRIPT_NAME'}\?$key\&$file>$title</A>$camera$endicon</TD><TD ALIGN=CENTER WIDTH=15\%>$closetime[4]/$closetime[3] $closetime[2]\:" if ($hotitemnum <= $#bids);
					if ($closetime[1] < 10) {
						print "0$closetime[1] </TD><TD ALIGN=CENTER WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>\$$lastbid[2]</TD></TR>\n" if ($hotitemnum <= $#bids); }
					else {
						print "$closetime[1] </TD><TD ALIGN=CENTER WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>\$$lastbid[2]</TD></TR>\n" if ($hotitemnum <= $#bids);
                              }
                        }
				#------------------------------------------------------#
				# View All Ending Items
				#------------------------------------------------------#
                        if ($ARGV[1] eq 'allend'){
					if ($i % 2 == 1) {
					$colortablebody=$odd_row_color; }
					else { $colortablebody=$even_row_color; }
					$i++ if ($timediff < ($endhours * 3600));
					print "<TR BGCOLOR=$colortablebody><TD WIDTH=62\%>$hoticon$newicon <A HREF=$ENV{'SCRIPT_NAME'}\?$key\&$file>$title</A>$camera$endicon</TD><TD ALIGN=CENTER WIDTH=15\%>$closetime[4]/$closetime[3] $closetime[2]\:" if ($timediff < ($endhours * 3600));
					if ($closetime[1] < 10) {
						print "0$closetime[1] </TD><TD ALIGN=CENTER WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>\$$lastbid[2]</TD></TR>\n" if ($timediff < ($endhours * 3600));}
					else {
						print "$closetime[1] </TD><TD ALIGN=CENTER WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>\$$lastbid[2]</TD></TR>\n" if ($timediff < ($endhours * 3600));
                              }
                        }
				#------------------------------------------------------#
			}
		}
	}
print "</TABLE>\n";
#------------------------------------------------------#
# I also use the Footer as a sub, here for reference
# &ShowFooter;
#------------------------------------------------------#
}
#------------------------------------------------------#