 |
 |
 |
| FORKLIFT TRUCKS & MATERIALS HANDLING SYSTEMS - ESTABLISHED 1969 | ||
|
|
|
| FORKLIFT TRUCKS & MATERIALS HANDLING SYSTEMS - ESTABLISHED 1969 | ||
Welcome to our on-line auction. This auction contains forklifts and pallet trucks from our fleet which have been out on hire, or used as part of a contract and are now available for sale to the highest bidder. To view items in the auction please choose from the categories below. To place a bid you must first register, so that we can contact you should your bid be successful. Please click on the 'register' button below to access the registration screen. If you forget your password, re-register and use a new password. Please note that although it may be possible to arrange delivery at an extra charge, transportation of any forklift will be the purchaser's responsibility.
[Category List]"; print " [Post New Item]" if ($config{'newokay'}); print " [New Registration] [Change Registration]" if ($config{'regdir'}); print " [Closed Auctions]" if ($config{'regdir'}) and ($config{'closedir'}); print " \n"; print $config{'footer'}; # #-############################################# #-############################################# # Sub: Display List Of Categories # This creates a "nice" list of categories. sub dispcat { print "Auction Categories
$category{$form{'category'}}\n"; print "
$titleInformation \n"; print "
Description $html_description"; print " Bid History \n"; my $lowest_new_bid; if ($#bids) { for (my $i=1; $i "; } $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 my ($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 <<"EOF"; | |||||||||||||||||||||||
| Your Handle/Alias: Used to track your post | |||||||||||||||||||||||
| Your E-Mail Address: Must be valid | |||||||||||||||||||||||
| Your Starting Bid: | \£ | ||||||||||||||||||||||
| Your Reserve Price: You are not obligated to sell below this price. Leave blank if none. | \£ | ||||||||||||||||||||||
| Bid Increment: | \£ | ||||||||||||||||||||||
| Contact Information: Will be given out only to the buyer |
Full Name: Street Address: City, State, ZIP: |
|
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: ".&strip_html($add1)."
".&strip_html($add2)."
".&strip_html($add3)."
High Bid: \£$bid\n"; print "
Bidder Contact Info: \n";
my ($alias, $email, $bid, $time, $add1, $add2, $add3) = &read_bid($bids[0]);
print "Seller Information: ";
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";
\n";
for (my $i=1; $i
\n";
}
}
print "\n";
}
elsif (ucfirst(lc($form{'ALIAS'})) eq (&read_bid($bids[$#bids]))[0]) {
print "You were a high bidder...
Alias: $alias
E-Mail: $email
Address: ".&strip_html($add1)."
".&strip_html($add2)."
".&strip_html($add3)."
