";
print "\n";
print "| Number | Item | Closes | Num Bids | High Bid |
\n";
opendir THEDIR, "$config{'basepath'}$form{'category'}" or &oops("Category directory $form{'category'} could not be opened.");
my @allfiles = grep -T, map "$config{'basepath'}$form{'category'}/$_", sort { int($a) <=> int($b) } (readdir THEDIR);
closedir THEDIR;
my $file;
my $pagebreak = int $form{pb} || 10;
my ($icount, $pcount) = (0,0);
foreach $file (@allfiles) {
if(++$icount > $pagebreak){$icount=1; $pcount++}
next if $pcount != $form{page};
$file =~ s/^$config{'basepath'}$form{'category'}\///;
$file =~ s/\.dat$//;
my ($title, $mysite, $paypal, $billpoint, $yahoo, $reserve, $inc, $desc, $image, $itmcond, $ship, $pay0, $pay1, $pay2, $pay3, $pay4, $pay5, $pay6, $pay7, $pay8, $buyit, $days, $sbid, $category, @bids) = &read_item_file($form{'category'},$file);
if ($title ne '') {
my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]);
my @closetime = localtime($file);
$closetime[4]++;
my $timeremain = time_remain($file);
if ((time > $file) && (time > (60 * $config{'aftermin'} + $time))) {
&closeit($form{'category'},$file);
}
print "| $file | ";
print "$title";
print "  " if ($image);
print "  " if ($buyit);
print "  " if ($paypal);
print "  " if ($billpoint);
print "  " if ($yahoo);
print " | $timeremain | $#bids | \$$bid |
\n";
}
}
print "
\n";
pagebreak($pcount,$pagebreak);
}
#-#############################################
# Sub: Display Item
# This displays a particular item, its
# description, and its associated bids.
sub dispitem {
my ($alias, $email, $bid, $time, $add1, $add2, $add3);
my ($title, $mysite, $paypal, $billpoint, $yahoo, $reserve, $inc, $desc, $image, $itmcond, $ship, $pay0, $pay1, $pay2, $pay3, $pay4, $pay5, $pay6, $pay7, $pay8, $buyit, $days, $sbid, $category, @bids) = &read_item_file($form{'category'},$form{'item'});
&oops("Item $form{'item'} could not be opened. If this item is closed, you can view statistics and bid history using our closed item viewer.") if $title eq '';
my $nowtime = localtime(time);
my $closetime = localtime($form{'item'});
my $timeremain = time_remain($form{item});
print "$title |
";
print "
Category: $category{$form{'category'}} Current Time: $nowtime";
# either the item is closed or we will display a bid form
($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]); # read the last bid
if ((time > int($form{'item'})) && (time > (60 * $config{'aftermin'} + $time))) {
print "BIDDING IS NOW CLOSED
";
&closeit($form{'category'},$form{'item'});
}
print "
|
";
print "
| " if ($image);
print "
| Information | Description | ";
print "";
($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[0]); # read first bid
print "Closes: $timeremain
Number of Bids: $#bids";
print "
Offered By: $alias
";
print " Sellers Other Auctions
";
print " Contact $alias
";
print " Sellers Website" if ($mysite);
print "
" if ($mysite);
($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]); # read last bid
print "
Last Bid: \$$bid ";
print "
(reserve price not yet met)" if ($bid < $reserve);
print "
(reserve price met)" if (($bid >= $reserve) and ($reserve > 0));
print "
this item now for \$$buyit" if ($buyit);
print "
Bid History:
\n";
my $lowest_new_bid;
# Lines commented out are removing the feedback feature.
# if ($#bids) {
# for (my $i=1; $i";
# }
# $lowest_new_bid = &parsebid($bid+$inc);
# }
if ($#bids) {
for (my $i=1; $i$alias - \$$bid
";
}
$lowest_new_bid = &parsebid($bid+$inc);
}
else {
print "No bids yet...
";
$lowest_new_bid = (&read_bid($bids[0]))[2];
}
# either the item is closed or we will display a bid form
($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]); # read the last bid
if ((time > int($form{'item'})) && (time > (60 * $config{'aftermin'} + $time))) {
print "BIDDING IS NOW CLOSED
";
&closeit($form{'category'},$form{'item'});
}
else {
print "
Item Condition
";
print "$itmcond
";
print "Shipping Method
";
print "$ship
";
print "
Payment Method
";
print " $pay0," if $pay0 ne "" ;
print " $pay1," if $pay1 ne "" ;
print " $pay2," if $pay2 ne "" ;
print " $pay3," if $pay3 ne "" ;
print " $pay4," if $pay4 ne "" ;
print " $pay5," if $pay5 ne "" ;
print " $pay6," if $pay6 ne "" ;
print " $pay7," if $pay7 ne "" ;
print " $pay8" if $pay8 ne "" ;
print "
 " if ($paypal);
print "" if ($paypal);
print "
 " if ($billpoint);
print "
Request An Invoice" if ($billpoint);
print "
 " if ($yahoo);
print "
Request An Invoice" if ($yahoo);
print " | Print This Page";
print " $desc ";
print <<"EOF";
|
|
Categories ";
print " 
All Items ";
print " 
New ";
print " 
Closing ";
print " 
Going, Gone! ";
print " 
All Closed ";
print " 
Post Item ";
print " 
Register ";
print " 
My Auction ";
print "