$alias \($bidtime\) - \$$bid
";
}
}
else {
print "No bids were placed...
";
}
print "Reserve was: \$$reserve
\n";
print "
Contact Information
\n";
if (ucfirst(lc($form{'ALIAS'})) eq (&read_bid($bids[0]))[0]) {
print "You were the seller...\n";
if ($#bids) {
my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]);
print "Buyer Information:
Alias: $alias
E-Mail: $email
Address: $add1
$add2
$add3
High Bid: \$$bid\n";
print "
Bidder Contact Info:
\n";
for (my $i=1; $i$alias - $email
\n";
}
}
print "\n";
}
elsif (ucfirst(lc($form{'ALIAS'})) eq (&read_bid($bids[$#bids]))[0]) {
print "You were a high bidder...\n";
my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[0]);
print "Seller Information:
Alias: $alias
E-Mail: $email
Address: $add1
$add2
$add3
";
my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[$#bids]);
print "Your High Bid: \$$bid
\n";
print "Remember, the seller is not required to sell unless your bid price was above the reserve price...";
}
else {
print "You were not a winner... No further contact information is available.\n";
}
}
#-#############################################
# Sub: Admin
# Allows the administrator to delete items.
sub admin {
print <<"EOF";
