;
close FILE;
chomp ($title, $reserve, $inc, $desc, $image, @bids);
return ($title, $reserve, $inc, $desc, $image, @bids);
}
#-#############################################
# Sub: Read Bid Information (bid_string)
# Reads an item file
sub read_bid {
my $bid_string = shift;
my ($alias, $email, $bid, $time, $add1, $add2, $add3) = split(/\[\]/,$bid_string);
return ($alias, $email, $bid, $time, $add1, $add2, $add3);
}
# --------------------------------------------------------
# Displays any errors and prints out FORM and ENVIRONMENT
# information. Useful for debugging.
#
sub cgierr {
my ($key, $env, $space);
print "\n\nCGI ERROR\n==========================================\n";
$_[0] and print "Error Message : $_[0]\n";
$0 and print "Script Location : $0\n";
$] and print "Perl Version : $]\n";
print "\nForm Variables\n-------------------------------------------\n";
foreach $key (sort keys %form) {
my $space = " " x (20 - length($key));
print "$key$space: $form{$key}\n";
}
print "\nEnvironment Variables\n-------------------------------------------\n";
foreach $env (sort keys %ENV) {
my $space = " " x (20 - length($env));
print "$env$space: $ENV{$env}\n";
}
print "\n";
exit -1;
}