#======================================================# # EveryAuction Addon # eBay Look Preview Item v1.05 #======================================================# # PiTA - Park In The Alley Software (Auction-Script.com) #======================================================# # Author: Splatt 02/09/00 # justguns.com auction-script.com compalley.com #------------------------------------------------------# # Unauthorized redistribution is prohibited!!! # The latest version of my addons can be found at: # www.auction-script.com/addons #======================================================# #------------------------------------------------------# # In order for this to work you are going to need # the JustMe, Feeder and TimeLeft and my Misc Display # add-ons. # Either that or rem out any call to those add-ons. #------------------------------------------------------# #======================================================# # Configuration variables needed #======================================================# #------------------------------------------------------# # Description and Bid icons to display while previewing # or viewing an item #------------------------------------------------------# $descicon = "\"Show"; $bidicon = "\"Bid!\""; #------------------------------------------------------# # Sub: Preview #------------------------------------------------------# sub preview { #------------------------------------------------------# &oops('INVALID USERNAME') unless (open(REGFILE, "$basepath$regdir/$form{'ALIAS'}.dat")); ($password, $email, $address1, $address2, $address3, @userbids) = ; close REGFILE; chomp($password, $email, $address1, $address2, $address3, @userbids); &oops('INCORRECT PASSWORD') unless ((lc $password) eq (lc $form{'PASSWORD'})); #&oops('STARTING AMOUNT MUST BE ABOVE ZERO') unless ($form{'BID'} > '0'); #&oops('STARTING AMOUNT MUST BE ABOVE OR EQUAL TO BID INCREMENT') unless ($form{'BID'} >= $form{'INC'}); $form{'BID'} = &parsebid($form{'BID'}); $nowtime = localtime(time); $closetime = localtime($form{'ITEM'}); &oops('YOU MUST PROVIDE A CATEGORY') unless ($form{'CATEGORY'} ne ""); $image = "" if ($form{'IMAGE'}); $image = "" if ($form{'IMAGE'} eq 'http://'); $usersfeed = &feeder($form{'ALIAS'},2); $bidstart = localtime($form{'ITEM'}); $location = ($form{'LOCATION'}); $reservemet = "(no reserve)"; $reservemet = "(reserve price not yet met)" if ($form{'RESERVE'} > 0); if (-f "$basepath$pagedir/$form{'ALIAS'}.page") { $usersfeed = ($usersfeed . "" . $justmeicon . ""); } $bidderfeed = 'No bids yet' ; &timeleft($form{'ITEM'}); $feattext = ""; $boldtext = ""; print <<"EOF";
$form{'TITLE'}
Item # $form{'ITEM'}
Category: $category{$form{'CATEGORY'}}

Current Server Time: $nowtime

$descicon
$bidicon
 Currently \$$form{'BID'} $reservemet First bid \$$form{'BID'}
Time left $timeremain # of bids 0 (bid history)
Started Not posted yet Location $address3
Ends $closetime (mail this auction to a friend)

Seller $usersfeed
(view seller's feedback) (view seller's other auctions)

High bidder $bidderfeed


Seller assumes all responsibility for listing this item.
You should contact the seller to resolve any questions before bidding.
Currency is US Dollars unless otherwise noted.
Description

$form{'DESC'}


$image
EOF print "

"; print "

"; print "

Bid History:

"; print "

START: $usersfeed ($bidstart) - $currencysign$form{'BID'}"; print "

"; print "
If this looks good, hit , else hit the back button on your browser to edit the item.\n"; foreach $key (keys %form) { $form{$key} =~ s/\>/\[greaterthansign\]/gs; $form{$key} =~ s/\\n"; } print "
\n"; } #------------------------------------------------------#