#======================================================# # EveryAuction Addon # eBay Look-alike Display Sub v1.4 #======================================================# # PiTA - Park In The Alley Software (Auction-Script.com) #======================================================# # Author: Splatt 02/20/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 # AT LEAST the JustMe, Feeder and TimeLeft and my # Combined Display add-ons. # Either that or rem out any call to those add-ons. #------------------------------------------------------# #------------------------------------------------------# # Place these variables in your auction's config section #------------------------------------------------------# # Bid and Description icons that are used at the left of # the display item page #------------------------------------------------------# $bidicon = "http://www.yourdomain.com/biditem.gif" $descicon = "http://www.yourdomain.com/descitem.gif" #------------------------------------------------------# #------------------------------------------------------# # This section REPLACES your auction's dispitem sub #------------------------------------------------------# # Sub: Display Item # This displays a particular item, its description, and # its associated bids. This has been completely rewritten. #------------------------------------------------------# sub dispitem { #------------------------------------------------------# open THEFILE, "$basepath$ARGV[0]/$ARGV[1].dat"; ($title, $reserve, $inc, $desc, $image, @bids) = ; close THEFILE; chomp($title, $reserve, $inc, $desc, $image, @bids); @firstbid = split(/\[\]/,$bids[0]); @lastbid = split(/\[\]/,$bids[$#bids]); $nowtime = localtime(time); $closetime = localtime($ARGV[1]); $bidstart = localtime($firstbid[3]); $location = $firstbid[6]; $image = "" if ($image); $reservemet = ""; $reservemet = "(reserve price not yet met)" if ($lastbid[2] < $reserve); $reservemet = "(reserve price met)" if (($lastbid[2] >= $reserve) && ($reserve > 0)); $reservemet = "No reserve" if ($reserve <= 0); #------------------------------------------------------# # Add-on: Feeder #------------------------------------------------------# $usersfeed = &feeder($firstbid[0],2); $bidderfeed = &feeder($lastbid[0],2); #------------------------------------------------------# # End Feeder #------------------------------------------------------# #------------------------------------------------------# # Add-on: JustMe #------------------------------------------------------# if (-f "$basepath$pagedir/$firstbid[0].page") { $usersfeed = ($usersfeed . "" . $justmeicon . ""); } if (-f "$basepath$pagedir/$lastbid[0].page") { $bidderfeed = ($bidderfeed . "" . $justmeicon . ""); } if ($usersfeed eq $bidderfeed) { $bidderfeed = '' ; } #------------------------------------------------------# # End JustMe #------------------------------------------------------# &timeleft($ARGV[1]); print <<"EOF";
$title
Item #$ARGV[1]
$category{$ARGV[0]}

Current Time: $nowtime

Show description
Bid!
Currently \$$lastbid[2] $reservemet First bid \$$firstbid[2]
Time left $timeremain # of bids $#bids (bid history)
Started $bidstart Location $location
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 U.S. dollars (US\$) unless otherwise noted.

Description

$desc


$image
EOF print "

"; print "

"; print "

Bid History:

"; print "

START: "; foreach $bid (@bids) { @thebid = split(/\[\]/,$bid); $bidtime = localtime($thebid[3]); $thebid[0] = &feeder($thebid[0],2); print "$thebid[0] \($bidtime\) - \$$thebid[2]
"; } print "


"; if ((time > $ARGV[1]) && (time > (60 * $aftermin + $thebid[3]))) { print "BIDDING IS NOW CLOSED
"; # &closeit; } else { &placebid; } } #------------------------------------------------------#