$config{'sitename'}Ongoing
Online Auction
| $config{'sitename'} Ongoing Online Auction |
|
EOF # You can configure your own footer which will # be appended to the bottom of each page. # Although not required, a link back to # everysoft.com will help to support future # development. $config{'footer'} =<<"EOF";
[Auction Rules]"; print " [Category List]"; print " [New Registration] [Change Registration]" if ($config{'regdir'}); print " [Closed Auctions]" if ($config{'regdir'}) and ($config{'closedir'}); print " [Post New Item]" if ($config{'newokay'}); print "
\n"; print $config{'footer'}; # #-############################################# #-############################################# # Sub: Display List Of Categories # This creates a "nice" list of categories. sub dispcat { print "| Auction Categories | Items |
| $category{$key} | $numfiles |
| Item | Num Bids | High Bid |
| $title"; print " (PIC)" if ($image); print " | $#bids | \$$bid |
|
Go back to the item\n";
my $flag=0;
my $userbid;
foreach $userbid (@userbids) {
$flag=1 if ("$form{'CATEGORY'}$form{'ITEM'}" eq $userbid);
}
if ($flag==0 && $config{'regdir'} ne "") {
&oops('We could not open the registration file. This could be a server write issue.') unless (open(REGFILE, ">>$config{'basepath'}$config{'regdir'}/$form{'ALIAS'}.dat"));
print REGFILE "\n$form{'CATEGORY'}$form{'ITEM'}";
close REGFILE;
}
&sendemail($email, $config{'admin_address'}, 'You\'ve been outbid!', "You have been outbid on $title\! If you want to place a higher bid, please visit\:\r\n\r\n\thttp://$config{'scripturl'}$ENV{'SCRIPT_NAME'}\?category=$form{'CATEGORY'}\&item=$form{'ITEM'}\r\n\r\nThe current high bid is \$$form{'BID'}.") if ($config{'scripturl'} and $#bids);
}
else {
print "Item number $form{'ITEM'} in category $form{'CATEGORY'} is now closed!
Sorry...\n";
}
}
#-#############################################
# Sub: Process Search
# This displays search results
sub procsearch {
print "
| Item | Closes | Num Bids | High Bid |
| $title"; print " [PIC]" if ($image); print " | $closetime[4]/$closetime[3] | $#bids | \$$bid |
| $title"; print " [PIC]" if ($image); print " | $closetime[4]/$closetime[3] | $#bids | \$$bid |
Reserve was: \$$reserve
\n";
print "
\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
\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";