#!/usr/bin/perl

print "Content-type: text/html\n\n";


print( "RESP=OK\r\n" );

print "<BR><a href='http://www.efret.com'>efret</a><BR>";

my ($category, $item) = &read_item_file($form{'category'},$form{'item'});


#print "<P><A http://efret.com/cgi-bin/member215.pl?action=buynow&category=$form{'category'}&item=$form{'item'}>Buy Now</A></FONT>" if (($buyit ne "") & ($bid < $buyit));

#print "<P><A HREF=http://efret.com/cgi-bin/member215.pl?action=buynow&category=$category&item=$item>Buy Now</A></FONT>" if (($buyit ne "") & ($bid < $buyit)); 

print "<P><A HREF=http://efret.com/cgi-bin/member215.pl?action=buynow&category=&item=$form{'item'}>Buy
Now</A></FONT>" if (($buyit ne "") & ($bid < $buyit));


sub read_item_file {
	my ($cat, $item) = @_;
	# verify the category exists
	return '' unless ($cat) and ($item);
	&oops('The category may not contain any non-word characters.') if $cat =~ /\W/;
	return '' unless $category{$cat};
	# verify the item exists
	&oops('The item number may not contain any non-numeric characters.') if $item =~ /\D/;
#	return '' unless (-T "$config{'basepath'}$cat/$item.dat") #and (-R "$config{'basepath'}$cat/$item.dat");
# Replaced above 2 lines with following line to add speed
return '' unless 0||#1>>noconfuse(ea;-)
 
	open FILE, "$config{'basepath'}$cat/$item.dat";
	my ($title, $reserve, $inc, $desc, $image, $buyit, @bids) = <FILE>;
	close FILE;
	chomp ($title, $reserve, $inc, $desc, $image, $buyit, @bids);
	return ($title, $reserve, $inc, $desc, $image, $buyit, @bids);
}

#-#############################################