#======================================================#
# EveryAuction Addon
# Misc Display Add-on With Page Breaks 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/13/99
# 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 auction.cgi config section
#------------------------------------------------------#
#------------------------------------------------------#
# Page break section
# Set everything to 0 except the $entryno, set that to
# the number of lines to break the page at
#------------------------------------------------------#
$temp = 0;
$stop = 0;
$more = 0;
$thingy = 0;
$entryno = 15;
#------------------------------------------------------#
#------------------------------------------------------#
# Alternating Colors for the rows 
# $odd_row_color = '#EEEEEE';
# $even_row_color = '#FFFFFF'; 
#------------------------------------------------------#
#------------------------------------------------------#
# View hot items
# $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\">";
#------------------------------------------------------#
#------------------------------------------------------#
# End of configuration section variables
#------------------------------------------------------#

#------------------------------------------------------#
# This goes in your auction.cgi elsif section
# elsif ($ARGV[0] eq 'disp') { &disp; }
#------------------------------------------------------#
# If you have them, 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]");}
	#------------------------------------------------------#
	if ($ARGV[2] eq "") { $ARGV[2] = "1"; }
	print "<table border=1 cellspacing=0 width=100\% bgcolor=$colortablehead>\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));
						#------------------------------------------------------#
						# Page break section
						#------------------------------------------------------#
						if ($ARGV[6] eq "") {
							$min = 0;
							$max = $entryno;
						}
						if ($ARGV[6] ne "") {
							$min = (($ARGV[6] - 1) * $entryno + 1);
							$max = $ARGV[6] * $entryno;
						}
						if ($stop == 1) {
							$more = 1;
							break;
						}
						if ($temp >= $min -1 && $temp <= $max -1){
						#------------------------------------------------------#
							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=RIGHT>$closetime[4]/$closetime[3]</TD><TD ALIGN=RIGHT>$#bids</TD><TD ALIGN=RIGHT>$currencysign$lastbid[2]</TD></TR>\n";
								$flag=1;
								#------------------------------------------------------#
								# Page break section
								#------------------------------------------------------#
								$thingy = 1;
								#------------------------------------------------------#
							}
						}
					}
					#------------------------------------------------------#
					# Page break section
					#------------------------------------------------------#
					#}
					$somcount = $temp + 1;
					$temp = $somcount;
					if ($temp >= $max) {
						$stop = 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]));
					#------------------------------------------------------#
					# Page break section
					#------------------------------------------------------#
					if ($ARGV[6] eq "") {
						$min = 0;
						$max = $entryno;
					}
					if ($ARGV[6] ne "") {
						$min = (($ARGV[6] - 1) * $entryno + 1);
						$max = $ARGV[6] * $entryno;
					}
					if ($stop == 1) {
						$more = 1;
						break;
					}
					if ($temp >= $min -1 && $temp <= $max -1){
					#------------------------------------------------------#
						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=RIGHT WIDTH=15\%>$closetime[4]/$closetime[3] $closetime[2]\:"; 
							if ($closetime[1] < 10) {
								print "0$closetime[1] </TD><TD ALIGN=RIGHT WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>$currencysign$lastbid[2]</TD></TR>\n"; }
							else {
								print "$closetime[1] </TD><TD ALIGN=RIGHT WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>$currencysign$lastbid[2]</TD></TR>\n";
							}
							#------------------------------------------------------#
							# Page break section
							#------------------------------------------------------#
							$thingy = 1;
							#------------------------------------------------------#
		                        }
					}
					#------------------------------------------------------#
					# Page break section
					#------------------------------------------------------#
					#}
					$somcount = $temp + 1;
					$temp = $somcount;
					if ($temp >= $max) {
						$stop = 1;
					}
					#------------------------------------------------------#
				}
				#------------------------------------------------------#
				# 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);
					#------------------------------------------------------#
					# Page break section
					#------------------------------------------------------#
					if ($ARGV[6] eq "") {
						$min = 0;
						$max = $entryno;
					}
					if ($ARGV[6] ne "") {
						$min = (($ARGV[6] - 1) * $entryno + 1);
						$max = $ARGV[6] * $entryno;
					}
					if ($stop == 1) {
						$more = 1;
						break;
					}
					if ($temp >= $min -1 && $temp <= $max -1){
					#------------------------------------------------------#
						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=RIGHT WIDTH=15\%>$closetime[4]/$closetime[3] $closetime[2]\:";
							if ($closetime[1] < 10) {
								print "0$closetime[1] </TD><TD ALIGN=RIGHT WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>$currencysign$lastbid[2]</TD></TR>\n"; }
							else {
								print "$closetime[1] </TD><TD ALIGN=RIGHT WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>$currencysign$lastbid[2]</TD></TR>\n";
		                              }
							#------------------------------------------------------#
							# Page break section
							#------------------------------------------------------#
							$thingy = 1;
							#------------------------------------------------------#
						}
	                        }
					#------------------------------------------------------#
					# Page break section
					#------------------------------------------------------#
					#}
					$somcount = $temp + 1;
					$temp = $somcount;
					if ($temp >= $max) {
						$stop = 1;
					}
					#------------------------------------------------------#
				}
				#------------------------------------------------------#
				# 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));
					#------------------------------------------------------#
					# Page break section
					#------------------------------------------------------#
					if ($ARGV[6] eq "") {
						$min = 0;
						$max = $entryno;
					}
					if ($ARGV[6] ne "") {
						$min = (($ARGV[6] - 1) * $entryno + 1);
						$max = $ARGV[6] * $entryno;
					}
					if ($stop == 1) {
						$more = 1;
						break;
					}
					if ($temp >= $min -1 && $temp <= $max -1){
					#------------------------------------------------------#
						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=RIGHT WIDTH=15\%>$closetime[4]/$closetime[3] $closetime[2]\:"; 
							if ($closetime[1] < 10) {
								print "0$closetime[1] </TD><TD ALIGN=RIGHT WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>$currencysign$lastbid[2]</TD></TR>\n";}
							else {
								print "$closetime[1] </TD><TD ALIGN=CENTER WIDTH=6\%>$#bids</TD><TD ALIGN=RIGHT WIDTH=12\%>$currencysign$lastbid[2]</TD></TR>\n";}
							#------------------------------------------------------#
							# Page break section
							#------------------------------------------------------#
							$thingy = 1;
							#------------------------------------------------------#
	      	                  }
					}
					#------------------------------------------------------#
					# Page break section
					#------------------------------------------------------#
					#}
					$somcount = $temp + 1;
					$temp = $somcount;
					if ($temp >= $max) {
						$stop = 1;
					}
					#------------------------------------------------------#

				}
			}
		}
	}
	print "</TABLE>\n";
	#------------------------------------------------------#
	# Page break section
	#------------------------------------------------------#
	if ($thingy == 0) {
		print "<center><br><font size=2><B>No items to list.</b></center><br>";
		print "<center>[Previous | Last Page | Next]</center><br>";
	}
	else {
		print "<BR>\n";
		if ($ARGV[6] eq "" || $ARGV[6] == 1) {
			print "<br><font size=2><center>[Previous | <font color=red>Page 1<font color=$colortext> | ";
		}
		if ($ARGV[6] ne "" && $ARGV[6] != 1) {
			print "<CENTER>[";
			$tmp = $ARGV[6] - 1;
			print "<A HREF='http://$scripturl$ENV{'SCRIPT_NAME'}?$ARGV[0]\&$ARGV[1]\&$ARGV[2]\&1\&1\&1\&$tmp'>Previous</A> |";
			print " <font color=red>Page $ARGV[6]<font color=$colortext> | ";
		}
		if ($more == 0) {
			print "Next]<br>";
		}
		if ($ARGV[6] eq "" && $more == 1) {
			print "<A HREF=\"http://$scripturl$ENV{'SCRIPT_NAME'}?$ARGV[0]\&$ARGV[1]\&$ARGV[2]\&1\&1\&1\&2\">Next</A>]<br>";
		}
		if ($ARGV[6] ne "" && $more == 1) {
			$tmp = $ARGV[6] + 1;
			print "<A HREF=\"http://$scripturl$ENV{'SCRIPT_NAME'}?$ARGV[0]\&$ARGV[1]\&$ARGV[2]\&1\&1\&1\&$tmp\">Next</A>]<br>";
		}
	}
	#------------------------------------------------------#
#------------------------------------------------------#
# I also use the Footer as a sub, here for reference
# &ShowFooter;
#------------------------------------------------------#
}
#------------------------------------------------------#