if ($#bids) { for (my $i = $#bids; $i > 1; $i = 1) { my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$i]); $time = sort ({ int $a <=> int $b } $time); my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]); if (($form{'ALIAS'} ne $lastbid[0]) && ($time < $lastbid[3])) { print qq| $file
Watch This! $title $timeremain $#bidsOUTBID\!
\$$lastbid[2]\n|; }} } ##

##

    if ($#bids) {
    for (my $i = $#bids; $i > 1; $i = 1) {
       my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$i]);
$time = sort ({ int $a <=> int $b } $time); 
my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]); 
if (($form{'ALIAS'} ne $lastbid[0]) && ($time < $lastbid[3])) { 

##

##

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

sub bidding {
       
       print "\n";
       print "";
       print "\n";
       my $totalbuy;
       my $total_items = 0;
       my $total_bids = 0;
       my $gooditem;
     foreach my $key (sort keys %category) {
       opendir (THEDIR, "$config{'basepath'}$key") || &oops("Category directory $key could not be opened.");
       my @allfiles = grep( -T, map{"$config{'basepath'}$key/$_"} sort { int $a <=> int $b } readdir THEDIR );
       closedir THEDIR;
     FILE: foreach my $file (@allfiles) {
       $file =~ s/^$config{'basepath'}$key\///;
       $file =~ s/\.dat$//;
       my ($title, $reserve, $inc, $desc, $image, $grabber, $catfeat, $galfeat, $buyit, $bold, $dutch, $qty, $ship, $shipcost, $shipto, $pay0, $pay1, $pay2, $pay3, $pay4, $pay5, $pay6, $pay7, $pay8, @bids) = &read_item_file($key,$file);
     if ($title ne '') {
       $form{'ALIAS'} = ucfirst(lc($form{'ALIAS'}));
       my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[0]);
       my @firstbid = &read_bid($bids[0]);
       my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]);
       my @lastbid = &read_bid($bids[$#bids]);
       my @closetime = localtime($file);
       $closetime[4]++;
       my $timeremain = time_remain($file);
       my $willbuy = $bid if (($form{'ALIAS'} eq $lastbid[0]) && ($form{'ALIAS'} ne $firstbid[0]) && ($bid eq $lastbid[2]) && ($reserve == 0) || ($form{'ALIAS'} eq $lastbid[0]) && ($form{'ALIAS'} ne $firstbid[0]) && ($bid eq $lastbid[2]) && ($reserve > 0) && ($bid >= $reserve));  
       $totalbuy=($totalbuy + $willbuy); 
       $totalbuy = &priceformat ($totalbuy);
       $total_items = ($total_items + ($title ne '')) if (($form{'ALIAS'} eq $lastbid[0]) && ($form{'ALIAS'} ne $firstbid[0]) && ($bid eq $lastbid[2]) || ($form{'ALIAS'} eq $lastbid[0]) && ($form{'ALIAS'} ne $firstbid[0]) && ($bid eq $lastbid[2]) && ($bid >= $reserve));
       $total_bids = ($total_bids + ($#bids > 0)) if (($form{'ALIAS'} eq $lastbid[0]) && ($form{'ALIAS'} ne $firstbid[0]) && ($bid eq $lastbid[2]));
       $gooditem = ($bid => $reserve) if (($form{'ALIAS'} eq $lastbid[0]) && ($form{'ALIAS'} ne $firstbid[0]) && ($bid eq $lastbid[2]) && ($reserve > 0) && ($bid => $reserve));
    if (($form{'ALIAS'} ne $firstbid[0]) && ($form{'ALIAS'} eq $alias)) {
       print "";
       print "";
       print "\n" if (($bid eq $lastbid[2]) && ($reserve == 0) && ($#bids > 0));
       print "\n" if (($bid eq $lastbid[2]) && ($reserve > 0) && ($bid < $reserve));
       print "\n" if (($bid eq $lastbid[2]) && ($reserve > 0) && ($bid >= $reserve));
       }
    if ($#bids) {
    for (my $i = $#bids; $i > 1; $i = 1) {
       my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$i]);
$time = sort ({ int $a <=> int $b } $time); 
my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]); 
if (($form{'ALIAS'} ne $lastbid[0]) && ($time < $lastbid[3])) { 

       print qq|
       \n|;
       }}
       }}
       }}
    if ($totalbuy == 0) {
       print "";
       print "";
       }
    if ($totalbuy > 0) {
       print "";
       print "";
       print "";
       }
       print "Items I'm Bidding On
Item \# Title Closes Bids Current Bid
$file";
       print "
Watch This! $title";
       print " $timeremain $#bids \$$lastbid[2] $#bids \$$lastbid[2]
Reserve Not Met $#bids \$$lastbid[2]
Reserve Met
$file
       
Watch This!
       $title
       $timeremain
       $#bids OUTBID\!
\$$lastbid[2]
$total_items $total_bids $config{'currency'}$totalbuy
Total Current Successful Bids
$total_items $total_bids $config{'currency'}$totalbuy

";
}

Items I'm Bidding On
Item \#	Title	Closes	Bids	Current Bid
$file"; print " Watch This!	$title"; print "	$timeremain	$#bids	\$$lastbid[2]	$#bids	\$$lastbid[2] Reserve Not Met	$#bids	\$$lastbid[2] Reserve Met
$file Watch This!	$title	$timeremain	$#bids	OUTBID\! \$$lastbid[2]
$total_items			$total_bids	$config{'currency'}$totalbuy
Total Current Successful Bids
$total_items			$total_bids	$config{'currency'}$totalbuy