#!/usr/bin/perl

require "newauctionvars.pl";
require 'subber.lib';
require 'sea.lib';
require 'air.lib';
require 'condition.lib';
require 'auction_html.lib';
$basepath = '/u1/www/transportuniverse/auctiontrain/';

#use SelfLoader;

#%%%%%%%%%%%%%%%%%%%%%%%%
  $regpath = '/u1/www/transportuniverse/auction/';
#%%%%%%%%%%%%%%%%%%%%%%%%

#-Image Upload-----------------------------------------#
use File::Copy;		# needed for upload add-on
$allowupload	= 1;	# 0 for no 1 for yes
$uploadcharge	= '0'; 	# ie -1.00 or set to zero '0' for no charge (for AccountFirst)
$imageuploaddir = '/u1/www/transportuniverse/www/super/uploadedpictures';
$imageuploadurl = "http://www.transportuniverse.com/super/picturebin";
#--Image Upload END------------------------------------#

$mailserver = "206.152.180.10";

##############################################
# The input query string is in the form
# auction.cgi?[category]&[number]&[r|n|u|c|v]

open THEBIDS, "$basepath/no_bids.txt";
($no_bids) = <THEBIDS>;
close THEBIDS; 
open THEVIEWED, "$basepath/no_viewed.txt";
($no_viewed) = <THEVIEWED>;
close THEVIEWED; 
open THEPOST, "$basepath/no_post.txt";
($no_post) = <THEPOST>;
close THEPOST; 
open THEREGS, "$basepath/no_regs.txt";
($no_regs) = <THEREGS>;
close THEREGS; 


&header;     ###Print The Page Header
print "<table border=1 width=500><tr><td width=491 align=center bgcolor=$colortablehead><b><font size=6 color=#FFFFFF face=\"Times New Roman\">LIVE AUCTIONS</font></b></td></tr></table><BR><BR>\n";


##############################################
&get_form_data; # parse arguments from post
@ARGV = split(/\\*\&/, $ENV{'QUERY_STRING'});
$ARGV[0] =~ s/\W//g;
#$ARGV[1] =~ s/\D//g;
if ($form{'action'} eq 'bid') { &procbid; }
elsif ($form{'action'} eq 'new') { &procnew; }
################################## next lines are 
elsif ($form{'action'} eq 'viewhich') { &viewhich; }
elsif ($form{'action'} eq 'addreport') { &addreport; }
elsif ($form{'action'} eq 'processreport') { &processreport; }
elsif ($form{'action'} eq 'addland') { &addland; }
elsif ($form{'action'} eq 'addsea') { &addsea; }
elsif ($form{'action'} eq 'addair') { &addair; }
elsif ($form{'action'} eq 'addcondition') { &addcondition; }
elsif ($form{'action'} eq 'accepted') { &accepted; }
##################################
#--Image Upload----------------------------------------#
# elsif ($ARGV[2] eq 'n') { &newitem; }
elsif ($ARGV[2] eq 'n') { &uploadform; }
elsif ($form{'picture'}) { &newitem; }
elsif ($form{'pictureurl'}) { &newitem; }
elsif (lc($ARGV[0]) eq 'uploaddone') { &newitem; }
#--Image Upload END------------------------------------#
elsif ($ARGV[2] eq 'a') { &dispcat; }
#elsif ($ARGV[2] eq 'x') { &autoclose; }
elsif ($ARGV[2] eq 'l') { &listall; }
elsif ($ARGV[2] eq 'q') { &qonvert; }
##################################
elsif ($form{'action'} eq 'selled') { &sellerchange; }
elsif ($form{'action'} eq 'se') {&selleredit; }
elsif ($form{'action'} eq 'selldel') { &selldel1; }
##################################
elsif (($regdir ne "") && ($ARGV[0] eq $regdir)) { &dispcat; } # be sure nobody is trying to hack the user dir
elsif (!(($ARGV[0]) && (-d "$basepath$ARGV[0]"))) { &dispcat; }
###elsif ($ARGV[1] eq 'subcat') { &dispsubcat; } 
elsif ($ARGV[2] eq 'r') { &remitem; }
elsif ($ARGV[2] eq 'e') { &editem; }
elsif (!(($ARGV[1]) && (-f "$basepath$ARGV[0]/$ARGV[1].dat"))) { &displist; }
else { &dispitem; }
##############################################

&footer;   ### Print The Page Footer


##############################################
# Sub: Display List Of Categories
#   HTML can be enhanced to replace the current static pages

sub dispcat {
	print "<H2>Live Auction Categories</H2><TABLE WIDTH=300 BORDER=1 align=center>\n";
	print "<TR BGCOLOR=$colortablehead><TD ALIGN=CENTER><B><font color=white>Category</font></B></TD><TD ALIGN=CENTER><B><font color=white>Items</font></B></TD></TR>";
	foreach $key (sort keys %category) {
		opendir THEDIR, "$basepath$key" || die "Unable to open directory: $!";
		@allfiles = grep -T, map "$basepath$key/$_", readdir THEDIR;
		closedir THEDIR;
		$numfiles = @allfiles;
		umask(000);  # UNIX file permission junk
		mkdir("$basepath$key", 0777) unless (-d "$basepath$key");
		print "<TR BGCOLOR=$colortablebody><TD><A HREF=$ENV{'SCRIPT_NAME'}\?$key>$category{$key}</A></TD><TD>$numfiles</TD></TR>";
	}
	print "</TABLE>\n";
}

##############################################


##############################################
# Sub: Display List Of Items

sub displist {
	print "<font size=6 color=$colortablehead><b>$category{$ARGV[0]}</b></font>\n";
	print "<TABLE BORDER=0>\n";
	print "<TR BGCOLOR=$colortablehead><TD ALIGN=CENTER width=100><B> </B></TD><TD ALIGN=CENTER width=40><B> </B></TD><TD ALIGN=CENTER><B><font color=white face=\"verdana\">VEHICLE</font></B></TD><TD ALIGN=CENTER><B><font color=white face=\"verdana\">YEAR</font></B></TD><TD ALIGN=CENTER colspan=2><B><font color=white face=\"verdana\">LOCATION</font></B></TD><TD ALIGN=CENTER><B><font color=white face=\"verdana\">PRICE</font></B></TD></TR>\n";
	opendir THEDIR, "$basepath$ARGV[0]" || die "Unable to open directory: $!";
	@allfiles = readdir THEDIR;
	closedir THEDIR;

#####################################
# foreach $file (sort { int($b) <=> int($a) } @allfiles) {   ### the old line ###
	my $pagelength = 25;
	$ENV{QUERY_STRING}=~/\&page=(\d*)/;
	$form{page} = int $1;
	$ENV{QUERY_STRING}=~/\&+pb=(\d*)/;
	$form{pb} = int $1;
	$ENV{QUERY_STRING} = join("&", @ARGV[0..6]);
	my $pagebreak = $form{pb} || $pagelength;
	my ($icount, $pcount) = (0,0);
	foreach $file (sort { int($b) <=> int($a) } @allfiles) {
		next if $file=~/^\.{1,2}$/;
		if(++$icount > $pagebreak){$icount=1; $pcount++}
		next if $pcount != $form{page};
#####################################

########################## ADDON: Select alternating row color.
if ($i % 2 == 1) {
$colortablebody = $odd_row_color;
} else {
$colortablebody = $even_row_color;
}
$i++;
$ii++;
########################### END: Select alternating row color.

			if (-T "$basepath$ARGV[0]/$file") {
			open THEFILE, "$basepath$ARGV[0]/$file";
			($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <THEFILE>;
			close THEFILE;
			chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
			@lastbid = split(/\[\]/,$bids[$#bids]);
			$file =~ s/\.dat//;
			@closetime = localtime($file);
			$closetime[4]++;

$thm = $item . "thm\.jpg";
$piciconpath = "<IMG SRC=\"http\:\/\/www.transportuniverse.com\/images\/camera.gif\" align=bottom>";
if (-e "/u1/www/transportuniverse/www/thm/$thm") { $piciconpath = "<IMG SRC=\"http\:\/\/www.transportuniverse.com\/thm\/$thm\" align=bottom>"; }
$reporticonpath = "<IMG SRC=\"http\:\/\/www.transportuniverse.com\/images\/report.jpg\" align=bottom>";
$camera="";
$camera =$piciconpath if (($pic eq "Y") || ($image ne ""));
$report =$reporticonpath if ($report eq "Y");
$link = "<a href=\"http\:\/\/www.transportuniverse.com\/cgi-transportuniverse\/auction.cgi\?$ARGV[0]\&$file\"><font size=-2 face=verdana>$make $model</font></a>";

print "<TR BGCOLOR=$colortablebody><TD align=center>$camera</TD><TD>$report</TD><TD><font size=\"-2\" face = \"verdana\">$link<br>$title</font></TD><TD align=center><font size=\"-2\" face = \"verdana\">$year</font></TD><TD align=center><font size=\"-2\" face = \"verdana\">$state</font></TD><TD align=center><font size=\"-2\" face = \"verdana\">$country</font></TD><TD><font size=\"-2\" face = \"verdana\">\$$price</font></TD></TR>\n";
		}
	}
	print "</TABLE><br>\n";

#-------------------------------------------------------------------#
	# Previous Link
	if($form{page} > 0){print " <a href=$ENV{SCRIPT_NAME}?$ENV{QUERY_STRING}&page=@{[$form{page}-1]}&pb=$form{pb}>Previous Page</a> "}
	else{print " Previous Page "}
	print "[";
	# Numbers:
	for(0..$form{page}-1){print " <a href=$ENV{'SCRIPT_NAME'}?$ENV{QUERY_STRING}&page=$_&pb=$form{pb}>@{[$_+1]}</a> "}
	# Current page number:
	print " <b>", int($form{page})+1, "</b> ";
	# Numbers again:
	for($form{page}+1..$pcount){print " <a href=$ENV{'SCRIPT_NAME'}?$ENV{QUERY_STRING}&page=$_&pb=$form{pb}>@{[$_+1]}</a> "}
	# All-Link, comment out if not used:
	if($pcount>0){print " <a href=$ENV{'SCRIPT_NAME'}?$ENV{QUERY_STRING}&pb=@{[(1+$pcount)*$pagebreak]}>All</a> "}
	print "]";
	# Next Link
	if($form{page} < $pcount){print " <a href=$ENV{'SCRIPT_NAME'}?$ENV{QUERY_STRING}&page=@{[$form{page}+1]}&pb=$form{pb}>Next Page</a> "}
	else{print " Next Page "}
#------------------------------------------------------------------#

}



##############################################
# Sub: Display Item

sub dispitem {

	open THEFILE, "$basepath$ARGV[0]/$ARGV[1].dat";
	($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <THEFILE>;
	close THEFILE;
	chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
	@firstbid = split(/\[\]/,$bids[0]);
	@lastbid = split(/\[\]/,$bids[$#bids]);
	$nowtime = localtime(time);
	$closetime = localtime($ARGV[1]);
	$image = "<TD><IMG SRC=$image></TD>" if ($image);
	$image2 = "<TD><IMG SRC=$image2></TD>" if ($image2);
	$image3 = "<TD><IMG SRC=$image3></TD>" if ($image3);
	$image4 = "<TD><IMG SRC=$image4></TD>" if ($image4);
	$reservemet = "";
	$reservemet = "<FONT SIZE=-1>(reserve price not yet met)</FONT>" if ($lastbid[2] < $reserve);
	$reservemet = "<FONT SIZE=-1>(reserve price met)</FONT>" if (($lastbid[2] >= $reserve) && ($reserve > 0));
	$desired_file = $ARGV[1]  . "r" . ".txt";

print "<TABLE BORDER=0 width=580><tr BGCOLOR=$colortablehead><td align=center width=602 colspan=2><Font size=4 color=#ffffff><B>$title</B></font></td></tr><TR><TD align=left width=321 valign=top><TABLE BORDER=0 width=306><TR BGCOLOR=$colortablebody><TD width=298 bgcolor=$colortablehead align=center><font color=#FFFFFF><b>Item Number\: $ARGV[1]</b></font></TD></TR><TR BGCOLOR=$colortablebody><TD width=298><B>Category:</B><A HREF=$ENV{'SCRIPT_NAME'}\?$ARGV[0]>$category{$ARGV[0]}</A></TD></TR><TR BGCOLOR=$colortablebody><TD width=298><B>Location:</B> $city&nbsp;&nbsp;$state&nbsp;&nbsp;$country</TD></TR><TR BGCOLOR=$colortablebody><TD><B>Auction Closes:</B> $closetime</TD></TR><TR BGCOLOR=$colortablebody><TD width=298><B>PRICE:</B> \$$lastbid[2] $reservemet</TD></TR></TABLE><br>";

if ($report eq "Y") { print "<center><FORM ACTION=\"/cgi-transportuniverse/viewform2.cgi\" METHOD=POST><INPUT TYPE=hidden NAME=reportfind VALUE=$ARGV[1]><INPUT TYPE=SUBMIT VALUE=\"VIEW REPORT\"></FORM></center>"; }

print "</TD><td align=left width=275 valign=top> <div align=center><center><table border=0 width=100\%><tr><TD BGCOLOR=$colortablehead align=center><FONT SIZE=+1 color=#ffffff><B>Contact Information</B></FONT></TD></tr><TR BGCOLOR=$colortablebody><td align=center>$cont</FONT></FONT></B></I></U></H1></H2></H3></H4></H5></TD></tr></table></center></div> </td></TR></TABLE><Table border=0 width=579><TR><TD BGCOLOR=$colortablehead width=571 align=center><FONT SIZE=+1 color=#ffffff><B>Description</B></FONT></TD></TR><tr><td bgcolor=$colortablebody width=571>$desc</TD></TR></TABLE><br>";

print "<table><tr>$image</tr><tr>$image2</tr><tr>$image3</tr><tr>$image4</tr></TABLE>\n";


	if ((time > $ARGV[1]) && (time > (60 * $aftermin + $thebid[3]))) {
		print "<FONT SIZE=-1 COLOR=#FF0000><B>THIS AUCTION HAS ENDED BUT MAY BE<BR>REPOSTED BY THE SELLER.<BR><A HREF=$ENV{'SCRIPT_NAME'}\?$ARGV[0]><font color=#804000>CLICK HERE{$ARGV[0]}</font></A><BR>TO CHECK THE CATEGORY FOR THE RELIST OF THIS ITEM.</B></FONT>";
		&autoclose;
	}
	else {
		&placebid;
	}
}



##############################################
# Sub: Place Bid on Item

sub placebid {
$lowbid = &parsebid($lastbid[2] + $inc);
	
print <<"EOF";

<BR><HR><BR><center><Font size=4 face="verdana">
<B>The Current High Bid Is:</B> \$$lastbid[2]<BR>
<B>You Must Bid At Least:</B> \$$lowbid</FONT></center>
<CENTER><TABLE BORDER=3 WIDTH=485><TR BGCOLOR=$colortablebody><TD align="center" width="471" bgcolor="$colortablehead">
<b><font face="Verdana" size="4" color="#FFFFFF">Buyers, Place Your Bid Here!</font></b></TD></TR><TR BGCOLOR=$colortablebody><TD align="center" width="471">
<TABLE BORDER=0 width="470">

<TR><TD>
<FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST>
<INPUT TYPE=HIDDEN NAME=action VALUE=bid>
<INPUT TYPE=HIDDEN NAME=ITEM VALUE=$ARGV[1]>
<INPUT TYPE=HIDDEN NAME=CATEGORY VALUE=$ARGV[0]>
<INPUT TYPE=HIDDEN NAME=CAT VALUE=$ARGV[0]><B><font size="3">User Name:</font></B></font></TD>

<TD><font face="Verdana"><INPUT NAME=USERNAME TYPE=TEXT SIZE=10 MAXLENGTH=30></font></TD>

<TD></TD>

<TD><B><font face="Verdana" size="3">Password:</font></B></TD>

<TD><INPUT NAME=PASSWORD TYPE=PASSWORD SIZE=10></TD></TR>

<TR><TD colspan="4" align="right"><B><FONT face="Verdana" SIZE=2>The Amount You Wish To
    Bid On This Item:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</FONT></B> </TD>
<TD><FONT FACE="Arial" SIZE=2> \$</FONT><INPUT NAME=BID TYPE=TEXT SIZE=10 VALUE=$lowbid></TD></TR>

<TR><TD colspan="5" align="center"><INPUT TYPE=SUBMIT VALUE="Bid On This Item!"></form></TD>
  </TR>
</TABLE></TD></TR></TABLE></CENTER><BR>


Please note that by placing a bid you are making a an offer to BUY this item. You have established a  contract between yourself and the seller. This Auction has been started inorder to sell this item to the highest bid (where there is NO RESERVE or THE RESERVE HAS BEEN MET).
Once you place a bid, you may not retract it.  In some states, it is illegal to win
an auction and not purchase or sell the item<br><br>

<CENTER><TABLE BORDER=3 WIDTH=486 bgcolor="#FFFFFF"><TR><TD Align=center width="472">
<table border="1" width="100%">
  <tr>
    <td width="100%" align="center" bgcolor="$colortablehead"><font face="Arial" size="4" color="#FFFFFF">Seller,
      Add Your Condition Report Here!</font></td>
  </tr>
</table>
<table border="0" width="450">
  <tr>
    <TD width="143"><img src=http://www.transportuniverse.com/f/engineer1.jpg width="141" height="105"><br>
      <img src=http://www.transportuniverse.com/f/engineer2.jpg width="138" height="104"></TD><TD width="291" valign="top" align="center">
      <table border="0" width="100%" height="101">
        <tr>
          <td width="100%" valign="middle" align="center" height="97">

<FONT face="Verdana" SIZE=2>There is no extra charge to fill out a Report. Fill out as much or as little as you wish. Think of the report as a standard tool designed by experts to assist
you.</font></td>
        </tr>
      </table>
      <table border="0" width="100%" height="113" bgcolor="#FFFFFF">
        <tr>
          <td width="100%" valign="middle" align="center" height="109"><font face="Verdana" size="2">It takes less time to fill out a complete report than it takes to compose a random, subjective, or vague description...The report effectively details the precise condition of your item or vehicle.</font></td>
        </tr>
      </table>
    </TD>
  </tr>
</table>
<table border="1" width="100%">
  <tr>
    <td width="100%" align="center" bgcolor="#F9F9F2">
      <table border="0" width="100%">
        <tr>
          <td width="25%" align="right">
<FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST>
<INPUT TYPE=HIDDEN NAME=action VALUE=addreport>
<INPUT TYPE=HIDDEN NAME=ITEM VALUE=$ARGV[1]>
<INPUT TYPE=HIDDEN NAME=CATEGORY VALUE=$ARGV[0]>
<INPUT TYPE=HIDDEN NAME=CAT VALUE=$ARGV[0]>
<FONT FACE="Arial" SIZE=2><B>UserName:</B></FONT></td>
          <td width="25%"><INPUT NAME=USERNAME TYPE=TEXT SIZE=10 MAXLENGTH=30></td>
          <td width="25%" align="right"><FONT FACE="Arial" SIZE=2><B>Password:</B></font></td>
          <td width="25%"><INPUT NAME=PASSWORD TYPE=PASSWORD SIZE=10></td>
        </tr>
      </table>
      <p><b>Choose Vehicle Type\:</b><br>

<B><FONT SIZE=4>
<input type="radio" value="land" name="reporttype" checked>LAND&nbsp;&nbsp;&nbsp;&nbsp;
<input type="radio" name="reporttype" value="sea">SEA&nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="reporttype" value="air">AIR&nbsp;&nbsp;&nbsp;&nbsp;
<input type="radio" name="reporttype" value="condition">OTHER</FONT></B>

<BR>&nbsp;
<INPUT TYPE=SUBMIT VALUE="ADD YOUR REPORT TO THIS ITEM"></form></td>
  </tr>
</table>
</CENTER>
</TD></TR></TABLE>
<p align="center"><BR><BR>


<div align="center">
  <center><TABLE BORDER=3 WIDTH=482><TR BGCOLOR=$colortablebody><CENTER><TD Align=center width="468" bgcolor="#FFFFFF">
<table border="1" width="100%">
  <tr>
    <td width="100%" bgcolor="$colortablehead" align="center"><font face="Arial" size="4" color="#FFFFFF">Seller,
      Edit Your Ad With Ease Here!</font></td>
  </tr>
</table>
<FONT FACE="Arial" SIZE=2><B><br>
</B> </FONT>
<FONT face="Verdana" SIZE=2>The Seller of this item may add to the description by entering
both UserName and Password below, and clicking on the EDIT YOUR AD button.&nbsp;
This is useful if you wish to add photos or update information about this
listing.</FONT><br>
<table border="1" width="100%">
  <tr>
    <td width="100%" align="center" bgcolor="#F9F9F2">
<TABLE BORDER=1 align=center>
<FORM ACTION="http://www.transportuniverse.com/cgi-transportuniverse/super_edit_ad.pl"  METHOD=POST>
<BR><INPUT TYPE=HIDDEN NAME=action VALUE=se>
<INPUT TYPE=HIDDEN NAME=ITEM VALUE=$ARGV[1]>
<INPUT TYPE=HIDDEN NAME=CATEGORY VALUE=$ARGV[0]>
<INPUT TYPE=HIDDEN NAME=CAT VALUE=$ARGV[0]>

<TR><TD><B>UserName:</B></TD><TD><INPUT NAME=USERNAME TYPE=TEXT SIZE=10 MAXLENGTH=30></TD>
<TD><B>Password:</B></TD><TD><INPUT NAME=PASSWORD TYPE=PASSWORD SIZE=10></TD></TR></table>

<BR>&nbsp;
<INPUT TYPE=SUBMIT VALUE="EDIT YOUR AD"></form></td>
    </tr>
  </table>
</CENTER>
</td></tr></table>

  </center>
  </div>
<br><br>
EOF

######################### SHOW BID HISTORY	
#print "<Table border=0 width=520><TR><TD BGCOLOR=$colortablehead align=center><FONT SIZE=+1 color=#ffffff><B>Bid History</B></FONT></TD></TR></TABLE>\n";
#	print "<FONT SIZE=-1><B>Starting Bid: \$$firstbid[2]</B></FONT><BR> ";
#	foreach $bid (@bids) {
#		@thebid = split(/\[\]/,$bid);
#		$bidtime = localtime($thebid[3]);
#		print "<FONT SIZE=-1>$thebid[0] \($bidtime\) - \$$thebid[2]</FONT><BR>";
#	}
##########################

$nowbid = &parsebid($lastbid[2]);

#&sendemail('postmaster@transportuniverse.com', 'AUCTION VIEWED standard', 'nobody', $mailserver, "Someone has viewed this auction listing\n\nItem Number\:  $ARGV[1]\n$ARGV[0]\n$year, $make, $model\nCurrent Bid\:  $nowbid\nMust Bid\:  $lowbid\n\n$signature");
	
}


##############################################
# Sub: time left
# revised w/ proper english - smarter output

sub timeleft {

 ($second, $minute, $hour, $dayofmonth, $month, $year, $weekday, $dayofyear, $iddst) = localtime($_[0]); 
 ($csecond, $cminute, $chour, $cdayofmonth, $cmonth, $cyear, $cweekday, $cdayofyear, $ciddst) = localtime(time); 
############## Fixed timeleft with date for a new year ################################
## Turn of a non leap new year ##
if ($dayofyear < 31) {
if ($cmonth == 12) {
if (($cyear ne 99) or ($cyear ne 03) or ($cyear ne 07) or ($cyear ne 11)) {
$i = 365;
$dayofyear = ($dayofyear + 365);
}
}
}
### Y2K ###
if (($cmonth == 11) and ($cyear == 99)) {
$i = 365;
$dayofyear = ($dayofyear + 365);
} 
## Leap Year ###
if (($cmonth == 11) and ($cyear == 03) or ($cyear == 07) or ($cyear == 11)) {
$i = 366;
$dayofyear = ($dayofyear + 366);
} 
if ($dayofyear > $i) {
$dayofyear = $dayofyear - $i;
} 
if ($dayofyear < $cdayofyear) {
$dayofyear = $dayofyear + $i;
}
#######################################################################################
  if ($second >= $csecond) { $rsecond = ($second - $csecond); }
  else { $rsecond = (($second + 60) - $csecond);
         $minute = ($minute - 1); }

  if ($minute >= $cminute) { $rminute = ($minute - $cminute); }
  else { $rminute = (($minute + 60) - $cminute);
         $hour = ($hour - 1); }

  if ($hour >= $chour) { $rhour = ($hour - $chour); }
  else { $rhour = (($hour + 24) - $chour);
         $dayofyear = ($dayofyear - 1); }

    if ($dayofyear == $cdayofyear) {
     if($rhour < 1) {
      if($rminute < 1) {
       if ($rminute = 0) { $timeremain = "<font color=red> auction closed</font>"; }
       else { 
         $timeremain = sprintf('%02d seconds', $rsecond);
         @s = split / /, $timeremain;
         if ($s[0] eq "01") {$s[1] = "second";}
         $timeremain = "<font color=red> " . "$s[0] $s[1]"; }}

      else {
       $timeremain = sprintf('%02d minutes %02d seconds', $rminute, $rsecond);
       @s = split / /, $timeremain;
       if ($s[0] eq "01") {$s[1] = "minute";}
       if ($s[2] eq "01") {$s[3] = "second";}
       $timeremain = "<font color=red> " . "$s[0] $s[1] $s[2] $s[3]"; }}

     else {
       $timeremain = sprintf('%02d hours %02d minutes', $rhour, $rminute); 
       @s = split / /, $timeremain;
       if ($s[0] eq "01") {$s[1] = "hour";}
       if ($s[2] eq "01") {$s[3] = "minute";}
       $timeremain = "<font color=red> " . "$s[0] $s[1] $s[2] $s[3]"; }}

    else {
     $rday = ($dayofyear - $cdayofyear);
 
     if ($rday <= -1) { $timeremain = "<font color=red> auction closed</font>"; }
     else {
       $timeremain = sprintf('%02d days %02d hours +', $rday, $rhour);
       @s = split / /, $timeremain;
       if ($s[0] eq "01") {$s[1] = "day";}
       if ($s[2] eq "01") {$s[3] = "hour";}
       if ($s[2] eq "00") {($s[3], $s[2], $s[4]) = (" 1 hour","\<","");}
       $timeremain = "$s[0] $s[1] $s[2] $s[3] $s[4]"; }
     }
  return "$timeremain";
}


##############################################
# Sub: Process Bid

sub procbid {
	if (($regdir ne "") && !($newbidflag)) {
		$form{'USERNAME'} =~ s/\W//g;
		$form{'USERNAME'} = lc($form{'USERNAME'});
		$form{'USERNAME'} = ucfirst($form{'USERNAME'});
		$form{'PAGENT'} =~ s/\W//g;
		$form{'PAGENT'} = lc($form{'PAGENT'});
		$form{'PAGENT'} = ucfirst($form{'PAGENT'});
		&oops('USERNAME') unless (open(REGFILE, "$regpath$regdir/$form{'USERNAME'}.dat"));
		($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids) = <REGFILE>;
		close REGFILE;
		chomp($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids);
		&oops('PASSWORD') unless ((lc $password) eq (lc $form{'PASSWORD'}));
	}
	&oops('USERNAME') unless ($form{'USERNAME'});
	&oops('EMAIL') unless ($form{'EMAIL'} =~ /.+\@.+/);
	&oops('BID') unless ($form{'BID'} =~ /^(\d+\.?\d*|\.\d+)$/);
	$form{'BID'} = &parsebid($form{'BID'});
	&oops('ADDRESS1') unless ($form{'ADDRESS1'});
	&oops('ADDRESS2') unless ($form{'ADDRESS2'});
	&oops('ADDRESS3') unless ($form{'ADDRESS3'});
	$timenum = time;
	$thetime = localtime(time);
	&oops('ITEM') unless (open ITEM, "$basepath$form{'CATEGORY'}/$form{'ITEM'}.dat");
	($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <ITEM>;
	close ITEM;
	chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
	@lastbid = split(/\[\]/,$bids[$#bids]);
	if ((((time <= $form{'ITEM'}) || (time <= (60 * $aftermin + $form{'ITEM'}))) && ($form{'BID'} >= $lastbid[2] + $inc)) || ($newbidflag == 1)) {
		&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY'}/$form{'ITEM'}.dat");
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;

if (($cat2 ne "") && ($cat2 ne $form{'CATEGORY'})) {
open NEWITEM, ">>$basepath$cat2/$form{'ITEM'}.dat";
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;
}

if (($cat3 ne "") && ($cat3 ne $form{'CATEGORY'})) {
open NEWITEM, ">>$basepath$cat3/$form{'ITEM'}.dat";
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;
}
if (($cat4 ne "") && ($cat4 ne $form{'CATEGORY'})) {
open NEWITEM, ">>$basepath$cat4/$form{'ITEM'}.dat";
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;
}


		print "<br><center><B>Thank you, $form{'USERNAME'}, your bid has been placed on Item Number $form{'ITEM'}, for the amount of \$$form{'BID'}.</B><BR>.<br>You may want to print this notice as confirmation of your bid.<br><br><A HREF=$ENV{'SCRIPT_NAME'}\?$form{'CATEGORY'}\&$form{'ITEM'}><font color=#804000>CLICK HERE</font><BR>to return to the item</a><br><br>Or use the menu on the left to further navigate the sites\n";

if ($cat2 eq "") { $item2 eq ""; } else { $item2 = "$form{'ITEM'}"; }
if ($cat3 eq "") { $item3 eq ""; } else { $item3 = "$form{'ITEM'}"; }
if ($cat4 eq "") { $item4 eq ""; } else { $item4 = "$form{'ITEM'}"; }


		$flag=0;
		foreach $userbid(@userbids) {
			$flag=1 if ("$form{'CATEGORY'}$form{'ITEM'}" eq $userbid);
		}
		if ($flag==0 && $regdir ne "") {
		&oops('USERNAME') unless (open(REGFILE, ">>$regpath$regdir/$form{'USERNAME'}.dat"));
			print REGFILE "\n$form{'CATEGORY'}$form{'ITEM'}\[\]$cat2$item2\[\]$cat3$item3\[\]$cat4$item4";
			close REGFILE;
		}
		#&sendemail($lastbid[1], 'TRANSPORT UNIVERSE A bid has been placed!', 'nobody', $mailserver, "A higher bid has been placed  on $title\!  If you are a bidder on this auction, you have been outbid.  If you want to place a higher bid, please go to\:\n\n\thttp://$scripturl$ENV{'SCRIPT_NAME'}\?$form{'CATEGORY'}\&$form{'ITEM'}\n\nThe current high bid is \$$form{'BID'}.\n$signature\n") if (($newbidflag != 1) && $scripturl);





#&sendemail('postmaster@transportuniverse.com', ' AUCTION BID ON', 'nobody', $mailserver, "A bid has been placed on the AUCTION site\nTITLE\: $form{'TITLE'}\n\nVISIT\: http://$scripturl$ENV{'SCRIPT_NAME'}?$form{'CATEGORY'}\&$form{'ITEM'}\n\nTHIS BID IS\: \$$form{'BID'}.\nBIDDER IS\: $lastbid[1]\n$signature\n");



	}
	else {
		print "Either the auction is closed or your bid is too low.<BR>Hit the back button and reload to get the latest auction statistics, then please try again!\n";
	}
}



##############################################
# Sub: Process New Item Price

sub thankyou {
	if (($regdir ne "") && !($newbidflag)) {
		$form{'USERNAME'} =~ s/\W//g;
		$form{'USERNAME'} = lc($form{'USERNAME'});
		$form{'USERNAME'} = ucfirst($form{'USERNAME'});
		$form{'PAGENT'} =~ s/\W//g;
		$form{'PAGENT'} = lc($form{'PAGENT'});
		$form{'PAGENT'} = ucfirst($form{'PAGENT'});
		&oops('USERNAME') unless (open(REGFILE, "$regpath$regdir/$form{'USERNAME'}.dat"));
		($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids) = <REGFILE>;
		close REGFILE;
		chomp($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids);
		&oops('PASSWORD') unless ((lc $password) eq (lc $form{'PASSWORD'}));
	$filenumba = $form{'ITEM'};
	$filenumba =~ s/\D//g;

	}
	&oops('USERNAME') unless ($form{'USERNAME'});
	&oops('EMAIL') unless ($form{'EMAIL'} =~ /.+\@.+/);
	&oops('PRICE') unless ($form{'BID'} =~ /^(\d+\.?\d*|\.\d+)$/);
	$form{'BID'} = &parsebid($form{'BID'});
	&oops('ADDRESS1') unless ($form{'ADDRESS1'});
	&oops('ADDRESS2') unless ($form{'ADDRESS2'});
	&oops('ADDRESS3') unless ($form{'ADDRESS3'});
	$timenum = time;
	$thetime = localtime(time);
	&oops('ITEM') unless (open ITEM, "$basepath$form{'CATEGORY'}/$form{'ITEM'}.dat");
	($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <ITEM>;
	close ITEM;
	chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
	@lastbid = split(/\[\]/,$bids[$#bids]);
	if ((((time <= $form{'ITEM'}) || (time <= (60 * $aftermin + $lastbid[3]))) && ($form{'BID'} >= $lastbid[2] + $inc)) || ($newbidflag == 1)) {
		&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY'}/$form{'ITEM'}.dat");
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;
	#############  WRITE LINE TO SEARCH DATABASE  ############################
	$url = "http://www.transportuniverse.com/cgi-transportuniverse/auction.cgi\?$form{'CATEGORY'}\&$form{'ITEM'}";
	open DATFILE, ">>/u1/www/transportuniverse/db2/super.txt";
	print DATFILE "\|$pic\| \|$year\|$make\|$model\|$vin\|$interior\|$exterior\|$mileage\|$price\|USD\|$zip\|$country\|$state\|$city\|$item\|0\|$url\|$title\|\n";
	close DATFILE;
	#####################################################################
if ($form{'CATEGORY2'} ne "") {
		&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY2'}/$form{'ITEM'}.dat");
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;

}
if ($form{'CATEGORY3'} ne "") {
		&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY3'}/$form{'ITEM'}.dat");
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;

}
if ($form{'CATEGORY4'} ne "") {
		&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY4'}/$form{'ITEM'}.dat");
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;

}
print "<table width=504 border=0 align=center><tr><td width=252 align=center><B>$form{'USERNAME'}</b>, your Item Number is <A HREF=$ENV{'SCRIPT_NAME'}\?$form{'CATEGORY'}\&$form{'ITEM'}><font color=#804000><b>$form{'ITEM'}</B></FONT></A>.<BR>Your item has been listied in the following categories:<br><font color=#804000>$category{$form{'CATEGORY'}}<br>$category{$form{'CATEGORY2'}}<BR>$category{$form{'CATEGORY3'}}<br>$category{$form{'CATEGORY4'}}</font><BR>You may wish to print this notice as confirmation of your Auction Listing.<br></td><td width=252 align=center><TABLE BORDER=1><tr><td><table width=250 valign=center><tr><TD ALIGN=center WIDTH=250><Font Size=2><A HREF=$ENV{'SCRIPT_NAME'}\?$form{'CATEGORY'}\&$form{'ITEM'}><font color=#804000><img src=/images/live1.jpg border=0><B><BR>CLICK HERE TO VIEW YOUR LISTING.</A><BR><BR>FROM THERE YOU SHOULD ADD A FREE COMPREHENSIVE CONDITION REPORT FOR YOUR LISTING</font><BR><BR>Attract serious interest from serious buyers by providing them with the essential details found in one our exclusive reports.</B></FONT></td></TR></table></td></tr></table></td></tr></table>\n"; 

if ($form{'CATEGORY2'} eq "") { $item2 eq ""; } else { $item2 = "$form{'ITEM'}"; }
if ($form{'CATEGORY3'} eq "") { $item3 eq ""; } else { $item3 = "$form{'ITEM'}"; }
if ($form{'CATEGORY4'} eq "") { $item4 eq ""; } else { $item4 = "$form{'ITEM'}"; }


		$flag=0;
		foreach $userbid(@userbids) {
			$flag=1 if ("$form{'CATEGORY'}$form{'ITEM'}" eq $userbid);
		}
		if ($flag==0 && $regdir ne "") {
			&oops('USERNAME') unless (open(REGFILE, ">>$regpath$regdir/$form{'USERNAME'}.dat"));
			print REGFILE "\n$form{'CATEGORY'}$form{'ITEM'}\[\]$form{'CATEGORY2'}$item2\[\]$form{'CATEGORY3'}$item3\[\]$form{'CATEGORY4'}$item4";
			close REGFILE;
		
	
		}
		$bob = 1;	}
	else {
		print "Either the auction is closed or your bid is too low.<BR>Hit the back button and reload to get the latest auction stats, then try again!\n";
	}
}



##############################################

# Sub: Close Auction

# Is now used from dispitem
# ended items do not autorelist.

sub closeit {

	if ($ARGV[0] ne $closedir) {
		# We'll use the @firstbid and @lastbid info defined in &dispitem
		if ($closedir) {
			umask(000);  # UNIX file permission junk
			mkdir("$basepath$closedir", 0777) unless (-d "$basepath$closedir");		
			print "Please notify  Transport Universe administration that this item cannot be copied to the closed directory even though it is closed.\n" unless &movefile("$basepath$ARGV[0]/$ARGV[1].dat", "$basepath$closedir/$ARGV[0]$ARGV[1].dat");		
		}
		else {
			print "Please notify the Transport Universe administration that this item cannot be removed even though it is closed.\n" unless unlink("$basepath$ARGV[0]/$ARGV[1].dat");
		}

		if ($lastbid[2] >= $reserve) {
                    &sendemail($lastbid[1], "Transport Universe Live Auction Close: $title", $firstbid[1], $mailserver, "Congratulations!  You are the winner of Transport Universe Auction Item Number $ARGV[1].\nYour winning bid was \$$lastbid[2].\n\nPlease contact the seller to make arrangements for payment and shipping:\n\n$firstbid[4]\n$firstbid[5]\n$firstbid[6]\n$firstbid[1]\n$signature\n");
		}

		else {
			#&sendemail($lastbid[1], "Transport Universe Auction Close: $title", $firstbid[1], $mailserver, "Notice\:  You were the high bidder on auction number $ARGV[1].\nYour bid was \$$lastbid[2].\n\nUnfortunately, your bid did not meet the seller\'s reserve price...\n$signature\n");
		}

		&sendemail($firstbid[1], "Transport Universe Auction Close: $title", $lastbid[1], $mailserver, "Auction Number $ARGV[1] Is Now Closed.\nThe high bid was \$$lastbid[2] (Your reserve was: \$$reserve)Please consider Relisting your item again.\n$signature\n");
	}
}


##############################################

# Sub: Remove Item



sub remitem {

	if ($ARGV[3] eq $adminpass) {

		if (unlink("$basepath$ARGV[0]/$ARGV[1].dat")) {

			print "File Successfully Removed!\n";

		}

		else {

			print "File Could Not Be Removed!\n";

		}

	}

	else {

		print "Sorry...  Incorrect administrator password for delete!\n";

	}

}


##############################
# Sub: Add New Item


sub newitem {

$inc = "1.00";
	if ($form{'REPOST'}) {
		if (open (THEFILE, "$basepath$closedir/$form{'REPOST'}.dat")) {
			($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <THEFILE>;
			$title =~ s/\"//g;  # quotes cause problems for a text input field
		close THEFILE;
		}
	}
	print <<"EOF";
<FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST><a name="list"></a>
<INPUT TYPE=HIDDEN NAME=action VALUE=new><center><font
  color="$colortablehead"><strong>
<p align="center"><font size="5">SELL YOUR ITEM WITH LIVE AUCTIONS</font></strong></font>
  </center>

<font size=4>
<BR>

<A HREF="http://www.transportuniverse.com/cgi-transportuniverse/l-reg.cgi?1&1&u">CLICK
HERE FOR FREE AND EASY REGISTRATION</A>&nbsp;
<br>
<a href="#fees">CLICK HERE TO SEE LIVE AUCTION LISTING FEES</a><br><br>
<b>Remember, all listings under \$5000 are free!</b>
<div align="center">
  <center>

  <table border="4" width="622" height="139" bgcolor="#F9F9F2">

    <tr>
      <TD VALIGN=middle height="43" align="center" colspan="2" width="606"><B>Title:&nbsp; </B><input type="text" name="TITLE" size="50" maxsize="50">
	<br>Place descriptive words in your title such as NEW, CUSTOM, RARE, TAKE OVER LEASE, etc.
	<br>When buyers use our comprehensive search, they often include such terms to find specific vehicles.
	<br><b>EXAMPLE: </B><B> 2000 Dodge Viper NO MILEAGE?! Custom Show winner.</B>
      </td>
    </tr>

    <tr>
      <TD VALIGN=middle width="300" height="39" align="right"><b>Make:&nbsp; </b><input type="text" name="MAKE" size="25"></TD><TD VALIGN=middle width="300" height="39" align="right"><b>Model: </b><input type="text" name="MODEL" size="25"></TD>
    </tr>
  <tr>
      <TD width="300" height="39" VALIGN="middle" align="right"><font size="4">Year:<b>&nbsp;
        </b><input type="text" name="YEAR" size="12" maxlength="4"></font></TD><TD width="300" height="39" VALIGN="middle" align="right"><b>Price:</b>
        \$<input type="text" name="BID" size="12"></TD>
    </tr>

  <tr>
      <TD width="300" height="39" VALIGN="middle" align="right"><font size="4">Bid Increment:<b>&nbsp;
        </b>\$<input type="text" name="INC" size="12" value="100"></font></TD><TD width="300" height="39" VALIGN="middle" align="right"><b>Reserve:</b>
        \$<input type="text" name="RESERVE" size="12" value="0"></TD>
    </tr>


  <tr>
      <TD width="300" height="39" VALIGN="middle" align="right"><b>Mileage:</b>&nbsp;
        <input type="text" name="MILEAGE" size="12"></TD><TD width="294" height="39" VALIGN="middle" align="right">
        <b>VIN# / Model# / Stock#:</b>&nbsp; <input type="text" name="VIN" size="12"></TD>
  </tr>
    <tr>
      <TD width="300" height="39" VALIGN="middle" align="right"><font size="4">Exterior
        Color:
              <b> </b><input type="text" name="EXTERIOR" size="12"></font></TD><TD width="294" height="39" VALIGN="middle" align="right">
        <font size="4">Interior Color:<b> &nbsp;</b><input type="text" name="INTERIOR" size="12"></font></TD>
    </tr>
    <tr>
      <TD VALIGN=TOP width="300" height="43" align="right">
        <p align="center"><b>Actual location of this item:</b></p>
        <table border="0" width="100%">
          <tr>
            <td width="50%" align="right"><b>Town/City:</b></td>
            <td width="50%"><input type="text" name="CITY" size="20"></td>
          </tr>
          <tr>
            <td width="50%" align="right"><b>State/Province:</b></td>
            <td width="50%"><input type="text" name="STATE" size="20"></td>
          </tr>
          <tr>
            <td width="50%" align="right"><b>Country:</b></td>
            <td width="50%"><input type="text" name="COUNTRY" size="20"></td>
          </tr>
          <tr>
            <td width="50%" align="right"><b>Zip Code:</b></td>
            <td width="50%"><input type="text" name="ZIP" size="20"></td>
          </tr>
        </table>
      </TD><TD VALIGN=TOP width="300" height="43" align="center"><B>Contact
        Information:<br>
        <br>
        </B><TEXTAREA NAME=CONTACT ROWS=4 COLS=35></TEXTAREA><br>
        How will buyers contact you for purchase or information?</TD>
    </tr>
    <tr>
      <TD VALIGN=middle height="43" align="center" colspan="2" width="606"><FONT SIZE=4><B>MULTIPLE CATEGORY LISTING</B></FONT> 



<br>Choose up to four categories that represent this item<br>
EOF

print "<SELECT NAME=CATEGORY><OPTION SELECTED><\/OPTION>";
	foreach $key (sort keys %category) {
		if ($key =~ /_main/i) {
			print "";
		}
		else {
			print "<OPTION VALUE=\"$key\">$category{$key}</OPTION>\n";
		}
	}

print "<\/SELECT><font color=red><b>\*Required\n</b></font><br>\n";

print "<SELECT NAME=CATEGORY2><OPTION SELECTED><\/OPTION>\n";
	foreach $key (sort keys %category) {
		if ($key =~ /_main/i) {
			print "";
		}
		else {
			print "<OPTION VALUE=\"$key\">$category{$key}</OPTION>\n";
		}
	}

print "<\/SELECT>&nbsp;&nbsp;&nbsp;&nbsp;Optional<br>\n";

print "<SELECT NAME=CATEGORY3><OPTION SELECTED><\/OPTION>\n";
	foreach $key (sort keys %category) {
		if ($key =~ /_main/i) {
			print "";
		}
		else {
			print "<OPTION VALUE=\"$key\">$category{$key}</OPTION>\n";
		}
	}

print "<\/SELECT>&nbsp;&nbsp;&nbsp;&nbsp;Optional<br>\n";

print "<SELECT NAME=CATEGORY4><OPTION SELECTED><\/OPTION>\n";
	foreach $key (sort keys %category) {
		if ($key =~ /_main/i) {
			print "";
		}
		else {
			print "<OPTION VALUE=\"$key\">$category{$key}</OPTION>\n";
		}
	}

print "<\/SELECT>&nbsp;&nbsp;&nbsp;&nbsp;Optional<br></TD></tr>\n";


#--Image Upload----------------------------------------#
if ($ARGV[0] eq 'uploaddone') { 
	$form{'IMAGEUPLOAD'} = "YES";
	if ($ARGV[2] ne '') { 
		$form{'EXTENSION'} = $ARGV[2];
		print "<INPUT TYPE=HIDDEN NAME=EXTENSION VALUE=$ARGV[2]>"; 
	}
	$image = $ARGV[1];
	print "<INPUT TYPE=HIDDEN NAME=IMAGEUPLOAD VALUE=YES>"; 
}
else {
	$form{'IMAGEUPLOAD'} = "NO";
	print "<INPUT TYPE=HIDDEN NAME=IMAGEUPLOAD VALUE=NO>"; 
	$image = "NONE" if $form{'picture'};
	$image = $form{'pictureurl'} if $form{'pictureurl'};
}
print "<TR><TD VALIGN=TOP ALIGN=CENTER colspan=2><B>Image:  </B> ";
print "<INPUT NAME=IMAGE VALUE=\"$image\" TYPE=HIDDEN SIZE=50> $image</TD></TR>";
#--Image Upload END------------------------------------#

print <<"EOF";

    <tr>
      <TD VALIGN=middle width="300" height="43" align="center"><b>Description:</b><br>
        
        <TEXTAREA NAME=DESCRIPTION ROWS=4 COLS=35></TEXTAREA></TD><TD VALIGN=middle width="300" height="43" align="center">
        <div align="center">
          <center>
          <table border="0" width="100%">
            <tr>
              <td width="45%" align="right"><B>Your UserName:</b></td>
              <td width="55%"><INPUT NAME=USERNAME SIZE=20 MAXLENGTH=30></td>
            </tr>
            <tr>
              <td width="45%" align="right"><b>Your Password:</b></td>
              <td width="55%"><INPUT NAME=PASSWORD TYPE=PASSWORD SIZE=20></td>
            </tr>
            <tr>
              <td width="45%" align="right"><b>Agent ID Name:</b></td>
              <td width="55%"><INPUT NAME=PAGENT SIZE=20></td>
            </tr>
          </table>
          </center>
        </div>
      </TD>
    </tr>
  </table>
  </center>
</div>
<p align="center">
<INPUT TYPE=SUBMIT VALUE=PREVIEW><BR><BR>
</form>

<div align="center">
<a name="fees"></a>

  <table border="0" cellpadding="0" cellspacing="0" height="269" width="382">
    <tr>
                <td width="454" height="269">
                  <div align="right">
                    <table border="0" cellpadding="0" cellspacing="0"
                    width="408" height="202">
                      <tr>
                        <td width="409" align="center" height="33"
                        valign="middle" bgcolor="$colortablehead"><font color="#FFFFFF"><b><u>Live Auction Fees
                          </u></b></font></td>
                      </tr>
                      <tr>
                        <td width="409" align="center" height="169"
                        valign="middle" bgcolor="$colortablehead">
                          <table width="409" border="1" height="159"
                          bordercolor="#808080" bordercolorlight="#C0C0C0">
                            <tr>
                              <td align="middle" bgcolor="#808080" valign="middle"
                              width="250" height="30">
                                <p align="center"><strong><font color="#FFFFFF">Selling
                                Price</font></strong></p>
                              </td>
                              <td align="center" bgcolor="#808080" width="145"
                              height="30" valign="middle">
                                <p align="center"><strong><font color="#FFFFFF">Fee</font></strong></p>
                              </td>
                            </tr>
                            <tr>
                              <td align="left" width="250" height="19"
                              bgcolor="#FFFFFF">\$0.01&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                TO&nbsp;&nbsp;&nbsp; \$5000</td>
                              <td align="right" width="145" height="19"
                              bgcolor="#FFFFFF">
                                <p align="center">FREE!</p>
                              </td>
                            </tr>
                            <tr>
                              <td align="left" width="250" height="19"
                              bgcolor="#FFFFFF">\$5,000.01&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                TO&nbsp;&nbsp;&nbsp; \$50,000</td>
                              <td align="right" width="145" height="19"
                              bgcolor="#FFFFFF">
                                <p align="center">\$9.95</p>
                              </td>
                            </tr>
                            <tr>
                              <td align="left" height="19" width="250"
                              bgcolor="#FFFFFF">\$50,000.01&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                TO&nbsp;&nbsp;&nbsp; \$100,000</td>
                              <td align="right" height="19" width="145"
                              bgcolor="#FFFFFF">
                                <p align="center">\$19.95</p>
                              </td>
                            </tr>
                            <tr>
                              <td align="left" width="250" height="17"
                              bgcolor="#FFFFFF">\$100,000.01&nbsp;&nbsp;&nbsp;
                                TO&nbsp;&nbsp;&nbsp; \$1,000,000</td>
                              <td align="right" width="145" height="17"
                              bgcolor="#FFFFFF">
                                <p align="center">\$29.95</p>
                              </td>
                            </tr>
                            <tr>
                              <td align="left" width="250" height="19"
                              bgcolor="#FFFFFF">\$1,000,000.01&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                AND UP</td>
                              <td align="right" width="145" height="19"
                              bgcolor="#FFFFFF">
                                <p align="center">\$49.95</p>
                              </td>
                            </tr>
                          </table><a href="#list"><font color=#ffffff><b>CLICK HERE TO LIST YOUR ITEM NOW!</b></font></a>
                        </td>
                      </tr>
                    </table>  
                  </div>
                </td>
    </tr>
  </table>
</div>
</font>

EOF

}



##############################################
# Sub: Preview

sub preview {

	$nowtime = localtime(time);
	$closetime = localtime($form{'ITEM'});
#--Image Upload----------------------------------------#
# $image = "<TD><IMG SRC=$form{'IMAGE'}></TD>" if ($form{'IMAGE'});
if ($form{'IMAGEUPLOAD'} eq 'NO') {
	$image = $form{'IMAGE'} if ($form{'IMAGE'});
	$image = "" if ($form{'IMAGE'} eq 'http://');
	$image = "" if ($form{'IMAGE'} eq 'NONE');
}
if ($form{'IMAGEUPLOAD'} eq 'YES') {
	$image = "<img src=$imageuploadurl/$form{'IMAGE'}>";
};
#--Image Upload END------------------------------------#
	$desc = "<TD align=left>$form{'DESCRIPTION'}</TD>" if ($form{'DESCRIPTION'});
	$cont = "<TD align=left>$form{'CONTACT'}</TD>" if ($form{'CONTACT'});

	      print "<H2>PREVIEW</H2>\n";

	print "<TABLE WIDTH=550 border=0><TR><TD width=320 valign=top><TABLE BORDER=0 width=100%><TR BGCOLOR=$colortablehead><TD align=center><B><font color=#ffffff>$form{'TITLE'}</font></B></TD></TR><TR BGCOLOR=$colortablebody><TD><B>Category1: $form{'CATEGORY'}</B><BR><B>Category2: $form{'CATEGORY2'}</B><BR><B>Category3: $form{'CATEGORY3'}</B> <BR><B>Category4: $form{'CATEGORY4'}</B></TD></TR><TR BGCOLOR=$colortablebody><TD><B>Location:</B> $form{'CITY'}&nbsp;&nbsp;$form{'STATE'}&nbsp;&nbsp;$form{'COUNTRY'}</TD></TR><TR BGCOLOR=$colortablebody><TD><B>Auction Closes:</B> $closetime<BR><FONT SIZE=-2>Or $aftermin minutes after last bid...</FONT></TD></TR><TR BGCOLOR=$colortablebody><TD><B>Starting Bid:</B> \$$form{'BID'}</TD></TR></TABLE></TD>
<td width=230 align=center valign=top><B><FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST><INPUT TYPE=SUBMIT VALUE=\"POST THIS AD\"><BR><BR>If this is satisfactory, Or click the  BACK button on your browser to edit the item.  Please fill in all fields. You may have to re-enter your password.<br>Thank You.<INPUT TYPE=HIDDEN NAME=FROMPREVIEW VALUE=1></B></center><BR><BR><BR>\n";

	foreach $key (keys %form) {
		$form{$key} =~ s/\>/\[greaterthansign\]/gs;
		$form{$key} =~ s/\</\[lessthansign\]/gs;
		$form{$key} =~ s/\"/\[quotes\]/gs;
		print "<INPUT TYPE=hidden NAME=\"$key\" VALUE=\"$form{$key}\">\n";
	}
	print "</FORM></td></TR></TABLE>\n";
print "<table border=0 width=50\% align=center><TR><TD BGCOLOR=$colortablehead align=center><FONT SIZE=+1 color=white><B>Contact Information </B></FONT></TD></TR><tr><td>   </td></tr><tr><blockquote><p>$cont</p></FONT></B></I></U></H1></H2></H3></H4></H5><br></blockquote></TR></TABLE><Table border=0 width=100\% align=center><TR><TD BGCOLOR=$colortablehead align=center><FONT SIZE=+1 COLOR=#FFFFFF><B>Description </B></FONT></TD></TR><tr><td>   </td></tr><tr><blockquote><p>$desc</p></FONT></B></I></U></H1></H2></H3></H4></H5><br></blockquote></TR></TABLE><br>";



	print "<table align=center width=550><tr><td align=center>$image</td></tr></table>\n";

	
}##############################################

# Sub: Process New Item


sub procnew {
	if ($regdir ne "") {
		$form{'USERNAME'} =~ s/\W//g;
		$form{'USERNAME'} = lc($form{'USERNAME'});
		$form{'USERNAME'} = ucfirst($form{'USERNAME'});
		$form{'PAGENT'} =~ s/\W//g;
		$form{'PAGENT'} = lc($form{'PAGENT'});
		$form{'PAGENT'} = ucfirst($form{'PAGENT'});
		&oops('USERNAME') unless (open(REGFILE, "$regpath$regdir/$form{'USERNAME'}.dat"));
		($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids) = <REGFILE>;
		close REGFILE;
		chomp($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids);
		&oops('PASSWORD') unless ((lc $password) eq (lc $form{'PASSWORD'}));
	}

#--Image Upload----------------------------------------#
$form{'IMAGE'} = "" if ($form{'IMAGE'} eq "NONE");
#--Image Upload END------------------------------------#

	$form{'DAYS'} = 90;
	&oops('MAKE') unless ($form{'MAKE'});
	&oops('MODEL') unless ($form{'MODEL'});
#	&oops('VIN') unless ($form{'VIN'});
	&oops('YEAR') unless ($form{'YEAR'});
#	&oops('ZIP CODE') unless ($form{'ZIP'});
	&oops('CITY') unless ($form{'CITY'});
	&oops('STATE') unless ($form{'STATE'});
	&oops('COUNTRY') unless ($form{'COUNTRY'});
	&oops('DESCRIPTION') unless ($form{'DESCRIPTION'});
	&oops('CONTACT') unless ($form{'CONTACT'});
	&oops('PRICE') unless ($form{'BID'} =~ /^(\d+\.?\d*|\.\d+)$/);
	$form{'ITEM'} = ($form{'DAYS'} * 86400 + time);
	$form{'ITEM'} = ($form{'DAYS'} * 86400 + time) until (!(-f "$basepath$form{'CATEGORY'}/$form{'ITEM'}.dat"));

	if ($form{'FROMPREVIEW'}) {
		foreach $key (keys %form) {
			$form{$key} =~ s/\[greaterthansign\]/\>/gs;
			$form{$key} =~ s/\[lessthansign\]/\</gs;
			$form{$key} =~ s/\[quotes\]/\"/gs;
				}

$form{'TYPE'} = "auction";
#--Image Upload----------------------------------------#
	$realbin = "http://www.transportuniverse.com/super/uploadedpictures";
	if ($form{'IMAGEUPLOAD'} eq 'YES') {
	$picyes = "Y";
	$image = $form{'IMAGE'};
	$image2 = ($form{'ITEM'} . "." . $form{'EXTENSION'});
	$form{'IMAGE'} = ($realbin . '/' . $form{'ITEM'} . "." . $form{'EXTENSION'});
	&oops('copy image file') unless copy("/u1/www/transportuniverse/www/super/picturebin/$image", "/u1/www/transportuniverse/www/super/uploadedpictures/$image2");
	&oops('unlink image file') unless unlink("/u1/www/transportuniverse/www/super/picturebin/$image");
	#--Image Upload Charge---------------------------------#
	#--Remove this section if not using AccountFirst-------#
	########if ($uploadcharge ne '0') { &apply_transaction($form{'USERNAME'}, "File upload $image", $uploadcharge, "Thank you", 1, 1, 0, 0); }
	#--Image Upload Charge END-----------------------------#
	}
	else { $picyes = " "; }
#--Image Upload End ----------------------------------#

if ($form{'CATEGORY4'} ne "") {
mkdir("$basepath$form{'CATEGORY4'}/temp" , 0777);
		&oops('ITEM') unless (open(NEWAUCTION, ">$basepath$form{'CATEGORY4'}/temp/$form{'ITEM'}.dat"));
		print NEWAUCTION "$form{'ITEM'}\nT\.U\.\n$form{'TYPE'}\n$form{'CATEGORY'}\n$form{'CATEGORY2'}\n$form{'CATEGORY3'}\n$form{'CATEGORY4'}\n$form{'USERNAME'}\n$form{'YEAR'}\n$form{'MAKE'}\n$form{'MODEL'}\n$form{'VIN'}\n$form{'MILEAGE'}\n$form{'INTERIOR'}\n$form{'EXTERIOR'}\n$form{'BID'}\n$form{'CURRENCY'}\n$form{'RESERVE'}\n$form{'INC'}\n$form{'CITY'}\n$form{'STATE'}\n$form{'COUNTRY'}\n$form{'ZIP'}\n \n$picyes\n$form{'IMAGE'}\n$form{'IMAGE2'}\n$form{'IMAGE3'}\n$form{'IMAGE4'}\n$form{'TITLE'}\n$form{'CONTACT'}\n$form{'DESCRIPTION'}";
		close NEWAUCTION;
}

if ($form{'CATEGORY3'} ne "") {
mkdir("$basepath$form{'CATEGORY3'}/temp" , 0777);
		&oops('ITEM') unless (open(NEWAUCTION, ">$basepath$form{'CATEGORY3'}/temp/$form{'ITEM'}.dat"));
		print NEWAUCTION "$form{'ITEM'}\nT\.U\.\n$form{'TYPE'}\n$form{'CATEGORY'}\n$form{'CATEGORY2'}\n$form{'CATEGORY3'}\n$form{'CATEGORY4'}\n$form{'USERNAME'}\n$form{'YEAR'}\n$form{'MAKE'}\n$form{'MODEL'}\n$form{'VIN'}\n$form{'MILEAGE'}\n$form{'INTERIOR'}\n$form{'EXTERIOR'}\n$form{'BID'}\n$form{'CURRENCY'}\n$form{'RESERVE'}\n$form{'INC'}\n$form{'CITY'}\n$form{'STATE'}\n$form{'COUNTRY'}\n$form{'ZIP'}\n \n$picyes\n$form{'IMAGE'}\n$form{'IMAGE2'}\n$form{'IMAGE3'}\n$form{'IMAGE4'}\n$form{'TITLE'}\n$form{'CONTACT'}\n$form{'DESCRIPTION'}";
		close NEWAUCTION;
}

if ($form{'CATEGORY2'} ne "") {
mkdir("$basepath$form{'CATEGORY2'}/temp" , 0777);
		&oops('ITEM') unless (open(NEWAUCTION, ">$basepath$form{'CATEGORY2'}/temp/$form{'ITEM'}.dat"));
		print NEWAUCTION "$form{'ITEM'}\nT\.U\.\n$form{'TYPE'}\n$form{'CATEGORY'}\n$form{'CATEGORY2'}\n$form{'CATEGORY3'}\n$form{'CATEGORY4'}\n$form{'USERNAME'}\n$form{'YEAR'}\n$form{'MAKE'}\n$form{'MODEL'}\n$form{'VIN'}\n$form{'MILEAGE'}\n$form{'INTERIOR'}\n$form{'EXTERIOR'}\n$form{'BID'}\n$form{'CURRENCY'}\n$form{'RESERVE'}\n$form{'INC'}\n$form{'CITY'}\n$form{'STATE'}\n$form{'COUNTRY'}\n$form{'ZIP'}\n \n$picyes\n$form{'IMAGE'}\n$form{'IMAGE2'}\n$form{'IMAGE3'}\n$form{'IMAGE4'}\n$form{'TITLE'}\n$form{'CONTACT'}\n$form{'DESCRIPTION'}";
		close NEWAUCTION;;

}

if ($form{'CATEGORY'} ne "") {
mkdir("$basepath$form{'CATEGORY'}/temp" , 0777);
		&oops('ITEM') unless (open(NEWAUCTION, ">$basepath$form{'CATEGORY'}/temp/$form{'ITEM'}.dat"));
		print NEWAUCTION "$form{'ITEM'}\nT\.U\.\n$form{'TYPE'}\n$form{'CATEGORY'}\n$form{'CATEGORY2'}\n$form{'CATEGORY3'}\n$form{'CATEGORY4'}\n$form{'USERNAME'}\n$form{'YEAR'}\n$form{'MAKE'}\n$form{'MODEL'}\n$form{'VIN'}\n$form{'MILEAGE'}\n$form{'INTERIOR'}\n$form{'EXTERIOR'}\n$form{'BID'}\n$form{'CURRENCY'}\n$form{'RESERVE'}\n$form{'INC'}\n$form{'CITY'}\n$form{'STATE'}\n$form{'COUNTRY'}\n$form{'ZIP'}\n \n$picyes\n$form{'IMAGE'}\n$form{'IMAGE2'}\n$form{'IMAGE3'}\n$form{'IMAGE4'}\n$form{'TITLE'}\n$form{'CONTACT'}\n$form{'DESCRIPTION'}";
		close NEWAUCTION;
}



#&sendemail('postmaster@transportuniverse.com', ' Auction Ad Posted', 'nobody', $mailserver, "A listing has been placed in the TEMP bin on the AUCTION site.\n\nUSER NAME\: $form{'USERNAME'}\nTITLE\: $form{'TITLE'}\n\nVISIT\: http\:\/\/www.transportuniverse.com\/cgi-transportuniverse\/auction.cgi?$form{'CATEGORY'}\&$form{'ITEM'}\n\nPRICE is \$$form{'BID'}.\nThis listing has been placed in the following categories\:\n$form{'CATEGORY'}\n$form{'CATEGORY2'}\n$form{'CATEGORY3'}\n$form{'CATEGORY4'}\n\n$signature");

		$newbidflag=1;

$startprice = $form{'BID'};
if ($password eq "ismedit") { $startprice = 0; }
if ($startprice > 5000) { &proccessor; }

else { 

&oops('ITEM') unless (open(NEWAUCTION, ">$basepath$form{'CATEGORY'}/$form{'ITEM'}.dat"));

		print NEWAUCTION "$form{'ITEM'}\nT\.U\.\n$form{'TYPE'}\n$form{'CATEGORY'}\n$form{'CATEGORY2'}\n$form{'CATEGORY3'}\n$form{'CATEGORY4'}\n$form{'USERNAME'}\n$form{'YEAR'}\n$form{'MAKE'}\n$form{'MODEL'}\n$form{'VIN'}\n$form{'MILEAGE'}\n$form{'INTERIOR'}\n$form{'EXTERIOR'}\n$form{'BID'}\n$form{'CURRENCY'}\n$form{'RESERVE'}\n$form{'INC'}\n$form{'CITY'}\n$form{'STATE'}\n$form{'COUNTRY'}\n$form{'ZIP'}\n \n$picyes\n$form{'IMAGE'}\n$form{'IMAGE2'}\n$form{'IMAGE3'}\n$form{'IMAGE4'}\n$form{'TITLE'}\n$form{'CONTACT'}\n$form{'DESCRIPTION'}";
		close NEWAUCTION;


&oops('ITEM') unless (open(NEWAUCTION, ">$basepath$form{'CATEGORY2'}/$form{'ITEM'}.dat"));

		print NEWAUCTION "$form{'ITEM'}\nT\.U\.\n$form{'TYPE'}\n$form{'CATEGORY'}\n$form{'CATEGORY2'}\n$form{'CATEGORY3'}\n$form{'CATEGORY4'}\n$form{'USERNAME'}\n$form{'YEAR'}\n$form{'MAKE'}\n$form{'MODEL'}\n$form{'VIN'}\n$form{'MILEAGE'}\n$form{'INTERIOR'}\n$form{'EXTERIOR'}\n$form{'BID'}\n$form{'CURRENCY'}\n$form{'RESERVE'}\n$form{'INC'}\n$form{'CITY'}\n$form{'STATE'}\n$form{'COUNTRY'}\n$form{'ZIP'}\n \n$picyes\n$form{'IMAGE'}\n$form{'IMAGE2'}\n$form{'IMAGE3'}\n$form{'IMAGE4'}\n$form{'TITLE'}\n$form{'CONTACT'}\n$form{'DESCRIPTION'}";
		close NEWAUCTION;

&oops('ITEM') unless (open(NEWAUCTION, ">$basepath$form{'CATEGORY3'}/$form{'ITEM'}.dat"));

		print NEWAUCTION "$form{'ITEM'}\nT\.U\.\n$form{'TYPE'}\n$form{'CATEGORY'}\n$form{'CATEGORY2'}\n$form{'CATEGORY3'}\n$form{'CATEGORY4'}\n$form{'USERNAME'}\n$form{'YEAR'}\n$form{'MAKE'}\n$form{'MODEL'}\n$form{'VIN'}\n$form{'MILEAGE'}\n$form{'INTERIOR'}\n$form{'EXTERIOR'}\n$form{'BID'}\n$form{'CURRENCY'}\n$form{'RESERVE'}\n$form{'INC'}\n$form{'CITY'}\n$form{'STATE'}\n$form{'COUNTRY'}\n$form{'ZIP'}\n \n$picyes\n$form{'IMAGE'}\n$form{'IMAGE2'}\n$form{'IMAGE3'}\n$form{'IMAGE4'}\n$form{'TITLE'}\n$form{'CONTACT'}\n$form{'DESCRIPTION'}";
		close NEWAUCTION;

&oops('ITEM') unless (open(NEWAUCTION, ">$basepath$form{'CATEGORY4'}/$form{'ITEM'}.dat"));

		print NEWAUCTION "$form{'ITEM'}\nT\.U\.\n$form{'TYPE'}\n$form{'CATEGORY'}\n$form{'CATEGORY2'}\n$form{'CATEGORY3'}\n$form{'CATEGORY4'}\n$form{'USERNAME'}\n$form{'YEAR'}\n$form{'MAKE'}\n$form{'MODEL'}\n$form{'VIN'}\n$form{'MILEAGE'}\n$form{'INTERIOR'}\n$form{'EXTERIOR'}\n$form{'BID'}\n$form{'CURRENCY'}\n$form{'RESERVE'}\n$form{'INC'}\n$form{'CITY'}\n$form{'STATE'}\n$form{'COUNTRY'}\n$form{'ZIP'}\n \n$picyes\n$form{'IMAGE'}\n$form{'IMAGE2'}\n$form{'IMAGE3'}\n$form{'IMAGE4'}\n$form{'TITLE'}\n$form{'CONTACT'}\n$form{'DESCRIPTION'}";
		close NEWAUCTION;




# # # # # # # # # # # # # # # # # # # # # # # # # # # 
#List all paid registrations in /IDs/paythese/  to see what agents are due payment
#
$iddir = "IDs";
if (-e "/u1/www/transportuniverse/agents/$iddir/$form{'PAGENT'}.dat") {

open(AGENTFILE, "/u1/www/transportuniverse/agents/$iddir/$form{'PAGENT'}.dat");
	($password, $email, $name, $address1, $address2, $phone, $referal) = <AGENTFILE>;
		close AGENTFILE;
		chomp($password, $email, $name, $address1, $address2, $phone, $referal);

	open NOPAY, ">>/u1/www/transportuniverse/agents/$iddir/paythese/$form{'PAGENT'}.dat";
			print NOPAY "0\[\]$referal\[\]auction\[\]$form{'ITEM'}\[\]$form{'USERNAME'}\[\]$form{'CATEGORY'}  $form{'CATEGORY2'}  $form{'CATEGORY3'}  $form{'CATEGORY4'}\n";
			close NOPAY;

	open NOPAYAGENT, ">>/u1/www/transportuniverse/agents/$iddir/$form{'PAGENT'}.dat";
			print NOPAYAGENT "0\[\]$referal\[\]auction\[\]$form{'ITEM'}\[\]$form{'USERNAME'}\[\]$form{'CATEGORY'}  $form{'CATEGORY2'}  $form{'CATEGORY3'}  $form{'CATEGORY4'}\n";
			close NOPAYAGENT;
}
#
##################################
		$newbidflag=1;
&thankyou; }
	}
	else {
		&preview;
	}
}

##############################################
# Sub: parse bid

sub parsebid {
	$_[0] =~ s/\,//g; 
	@bidamt = split(/\./, $_[0]);
	$bidamt[0] = "0" if (!($bidamt[0]));
	$bidamt[0] = int($bidamt[0]);
	$bidamt[1] = substr($bidamt[1], 0, 2);
	$bidamt[1] = "00" if (length($bidamt[1]) == 0);
	$bidamt[1] = "$bidamt[1]0" if (length($bidamt[1]) == 1);
	return "$bidamt[0].$bidamt[1]";
}

##############################################
# Sub: Oops!

sub oops {
print "<BR><HR><B><CENTER><BR><BR><FONT COLOR=BLACK>Please be sure to enter the proper information in the <FONT COLOR=RED> $_[0]</FONT> section.</FONT><FONT COLOR=BLACK></FONT><BR><BR><I>Please hit your browser's</I> BACK <I>button to try again!</I></CENTER></B><HR>\n";
exit;
}




##############################################
# Sub: Movefile(file1, file2)

sub movefile {
	($firstfile, $secondfile) = @_;
	return 0 unless open(FIRSTFILE,$firstfile);
	@lines=<FIRSTFILE>;
	close FIRSTFILE;
	return 0 unless open(SECONDFILE,">$secondfile");
	foreach $line (@lines) {
		print SECONDFILE $line;
	}
	close SECONDFILE;
	return 0 unless unlink($firstfile);
	return 1;
}
##############################################

# SUB: Send E-mail


sub sendemail {
	use Socket;
	$TO=$_[0];  @TO=split('\0',$TO);
	$SUBJECT=$_[1];
	$REPLYTO=$_[2];
	$REMOTE = $_[3];
	$THEMESSAGE = $_[4];
	if ($REMOTE =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {
		$addr = pack('C4', $1, $2, $3, $4);
	}
	else { die("Bad IP address: $!"); }
	$port = 25 unless $port;
	$port = getservbyname($port,'tcp') if $port =~ /\D/;
	$proto = getprotobyname('tcp');
	socket(S, PF_INET, SOCK_STREAM, $proto) or die("Socket failed: $!");
	$sockaddr = 'S n a4 x8';      # shouldn't this be in Socket.pm?
	connect(S, pack($sockaddr, AF_INET, $port, $addr)) or die("Unable to connect: $!");

	select(S); $| = 1; select(STDOUT);
	$a=<S>;
	print S "HELO ${SERVERNAME}\n";
	$a=<S>;
	print S "MAIL FROM:postmaster\@transportuniverse\.com\n";
	$a=<S>;
	print S "RCPT TO:<$TO[0]>\n";
	$a=<S>;
	if ($#TO > 0) { foreach (1..$#TO) { print S "RCPT TO: $TO[$_]\n";$a=<S>; }
		}
	print S "DATA \n";
	$a=<S>;
	print S "To: $TO[0]\n";
	if ($#TO > 0) { foreach (1..$#TO) { print S "Cc: $TO[$_]\n"; }
		}
	print S "Subject: $SUBJECT\n";
	
      # Print the body
	print S "$THEMESSAGE\n";
	print S ".\n";
	$a=<S>;
	print S "QUIT";
	close (S);
}


##############################################
# Sub: Get Form Data

sub get_form_data {
	$buffer = "";
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	@pairs=split(/&/,$buffer);
	foreach $pair (@pairs)
	{
		@a = split(/=/,$pair);
		$name=$a[0];
		$value=$a[1];
		$value =~ s/\+/ /g;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$value =~ s/~!/ ~!/g;
		$value =~ s/[\n\r]/ /sg;  #remove \n
		$value =~ s/\[\]//g;  #remove []
		push (@data,$name);
		push (@data, $value);
	}
	%form=@data;
	%form;
}


##############################################
# Sub: File Lock
# This locks files when bidding takes place

sub filelock {
	flock (NEWITEM, 2);
	seek(NEWITEM, 0, 2);
}



##############################################
# Sub: Seller edit auction

sub selleredit {
&oops('USERNAME') unless ($form{'USERNAME'});
&oops('PASSWORD') unless ($form{'PASSWORD'});
$form{'USERNAME'} =~ s/\W//g;
$form{'USERNAME'} = lc($form{'USERNAME'});
$form{'USERNAME'} = ucfirst($form{'USERNAME'});
open REGFILE, "$regpath$regdir/$form{'USERNAME'}.dat";
($password,$email,$add1,$add2,$add3,@junk) = <REGFILE>;
chomp($password,$email,$add1,$add2,$add3,@junk);
close REGFILE;
open THEFILE, "$basepath$form{'CAT'}/$form{'ITEM'}.dat";
($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <THEFILE>;
$title =~ s/\"//g;  # quotes cause problems for a text input field
chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
close THEFILE;
@firstbid = split(/\[\]/,$bids[0]);
@lastbid = split(/\[\]/,$bids[$#bids]);
if ($firstbid[0] eq $form{'USERNAME'}) {
  if (lc($password) eq lc($form{'PASSWORD'})) {
print <<"EOF";
    <FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST>
    <CENTER><FONT FACE="Arial" SIZE=5>Add to Auction</FONT></CENTER>
    <CENTER><TABLE WIDTH=85% BORDER=1 BGCOLOR=$colortablebody>
    <INPUT TYPE=HIDDEN NAME=action VALUE=selled>
    <INPUT TYPE=HIDDEN NAME=ITEM VALUE=$form{'ITEM'}>
    <INPUT TYPE=HIDDEN NAME=CAT VALUE=$form{'CAT'}>
    <TR><TD VALIGN=TOP><B>Title/Item Name:<BR></B>No HTML</TD><TD>$title</TD></TR>
    <TR><TD VALIGN=TOP><B>Description:<BR></B>This is the description originally placed with the auction!</TD><TD>$desc</TD></TR>
	<TR><TD VALIGN=TOP><B>New Text:<BR></B>Anything you would like to add to your auction.</TD><TD><TEXTAREA NAME=NEWDESC ROWS=5 COLS=45 WRAP=HARD></TEXTAREA></TD></TR>
    <TR><TD VALIGN=TOP><B>Offered By:</B></TD><TD>$firstbid[0]</TD></TR>
    <TR><TD VALIGN=TOP><B>Current High Bid:</B></TD><TD>\$$lastbid[2]</TD></TR>
    <TR><TD VALIGN=TOP><B>Auction Reserve Price:<BR></B>You are not obligated to sell below this price.</TD><TD>\$$reserve
    <TR><TD VALIGN=TOP><B>Bid Increment:</B></TD><TD>\$$inc</TD></TR></TABLE></CENTER>
    <CENTER><INPUT TYPE=SUBMIT VALUE=Submit></CENTER>
    </FORM> 
EOF
if ($firstbid[0] eq $lastbid[0]) {
print <<"EOF";
<FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST>
<INPUT TYPE=HIDDEN NAME=action VALUE=selldel>
<INPUT TYPE=HIDDEN NAME=CAT VALUE=$form{'CAT'}>
<INPUT TYPE=HIDDEn NAME=ITEM VALUE=$form{'ITEM'}>
<CENTER>
<TABLE BORDER=0 WIDTH=85%>
<TR>
<TD>
<FONT FACE="Arial" SIZE=2>
This auction has no bids.  You have the option of deleting it if you wish.
</FONT>
</TD>
<TD>
<CENTER>
<INPUT TYPE=SUBMIT VALUE=Delete>
</CENTER>
</TD>
</TR>
</TABLE>
</CENTER>
</FORM>
EOF
}

}
else {
print "<center>\n";
print "Incorrect Password!Please Try, Again\n";
print "</center>\n";
}
}
else {
print "<center>\n";
print "Only the seller of this Auction may make modifications to the Listing!\n";
print "</center>\n";
}
}

##############################################
# Sub: Process Modified Auction 

sub sellerchange {
&oops('ITEM') unless ($form{'ITEM'});
$form{'ITEM'} =~ s/\W//g;
&oops('ITEM') unless (open(THEFILE, "$basepath$form{'CAT'}/$form{'ITEM'}.dat"));
($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <THEFILE>;
close THEFILE;
chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
@firstbid = split(/\[\]/,$bids[0]);
@lastbid = split(/\[\]/,$bids[$#bids]);
$form{'IMAGE'} = $image if !($form{'IMAGE'});
$commtime = localtime(time);
if ($form{'NEWDESC'} ne "") {
$desc1 = $desc;
$desc1 .= "<BR>";
$desc1 .= "<B>Added by the Seller on $commtime\:</B><BR> $form{'NEWDESC'}";
}
else {
$desc1 = $desc;
}
&oops('ITEM') unless (open NEWITEM, ">$basepath$form{'CAT'}/$form{'ITEM'}.dat");
print NEWITEM "$title\n$reserve\n$inc\n$desc1\n$loca\n$image\n$image2\n$image3\n$image4\$cat1\n$cat2\n$cat3\n$cat4";
foreach $bad (@bids) {
	@thebid = split(/\[\]/,$bad);
	$bidtime = localtime($thebid[3]);
	print NEWITEM "\n$thebid[0]\[\]$thebid[1]\[\]$thebid[2]\[\]$thebid[3]\[\]$thebid[4]\[\]$thebid[5]\[\]$thebid[6]\[\]$thebid[7]";
	$message = "This item has a bidding history that has not changed!";
}
close NEWITEM;
print "<CENTER>\n";
print "$form{'TITLE'} has been successfully changed.<BR>\n";
print $message;
print "</CENTER>\n";


#&sendemail('postmaster@transportuniverse.com', ' AUCTION EDITED BY SELLER', 'nobody', $mailserver, "AN AUCTION LISTING HAS BEEN EDITED\nTITLE\: $title\n\nVISIT\: http://$scripturl$ENV{'SCRIPT_NAME'}?$form{'CAT'}/$form{'ITEM'}.dat\n$signature\n");




}

##############################################
# Sub: Remove Item

sub selldel1 {
	 if (unlink("$basepath$form{'CAT'}/$form{'ITEM'}.dat")) {
			print "<CENTER>\n";
			print "<FONT FACE=\"Arial\" SIZE=2>\n";
            print "Your auction has been deleted!\n";
			print "</FONT></CENTER>\n";
		}
		else {
		    print "<CENTER>\n";
			print "<FONT FACE=\"Arial\" SIZE=2>\n";
			print "File Could Not Be Removed!\n";
			print "</FONT></CENTER>\n";
		}

#&sendemail('postmaster@transportuniverse.com', ' AUCTION DELETED BY SELLER', 'nobody', $mailserver, "AN AUCTION LISTING HAS BEEN DELETED\nTITLE\: $title\n\nVISIT\: http://$scripturl$ENV{'SCRIPT_NAME'}?$form{'CAT'}/$form{'ITEM'}.dat\n$signature\n");




}

##############################################
# Sub: Seller add engineer report
# This allows the seller to add a report to the item.			p.s.  of course it works...
# 

sub addreport {
&oops('USERNAME') unless ($form{'USERNAME'});
&oops('PASSWORD') unless ($form{'PASSWORD'});
$form{'USERNAME'} =~ s/\W//g;
$form{'USERNAME'} = lc($form{'USERNAME'});
$form{'USERNAME'} = ucfirst($form{'USERNAME'});
open REGFILE, "$regpath$regdir/$form{'USERNAME'}.dat";
($password,$email,$add1,$add2,$add3,@junk) = <REGFILE>;
chomp($password,$email,$add1,$add2,$add3,@junk);
close REGFILE;
open THEFILE, "$basepath$form{'CAT'}/$form{'ITEM'}.dat";
($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <THEFILE>;
$title =~ s/\"//g;  # quotes cause problems for a text input field
chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
close THEFILE;


	open DATFILE, ">$basepath$form{'CAT'}/$form{'ITEM'}.dat";
	&filelock if ($flock);
	print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\nY\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n@bids\n";
	close DATFILE;


if ($cat2 ne "") {
open DATFILE, ">$basepath$cat2/$form{'ITEM'}.dat";
&filelock if ($flock);
print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\nY\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n@bids\n";
	close DATFILE;
} 

if ($cat3 ne "") {
open DATFILE, ">$basepath$cat3/$form{'ITEM'}.dat";
&filelock if ($flock);
print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\nY\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n@bids\n";
	close DATFILE;
} 

if ($cat4 ne "") {
open DATFILE, ">$basepath$cat4/$form{'ITEM'}.dat";
&filelock if ($flock);
print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\nY\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n@bids\n";
	close DATFILE;
} 

@firstbid = split(/\[\]/,$bids[0]);
@lastbid = split(/\[\]/,$bids[$#bids]);
$reporttype = $form{'reporttype'};
$numba = $form{'ITEM'};
if ($firstbid[0] eq $form{'USERNAME'}) {
  if (lc($password) eq lc($form{'PASSWORD'})) {

if ($reporttype=~ m/land/) { &addland; }
elsif ($reporttype=~ m/sea/) { &addsea; }
elsif ($reporttype=~ m/air/) { &addair; }
elsif ($reporttype=~ m/condition/) { &addcondition; }

else { print "not working yet\n\n"; } 


}
else {
print "<center>\n";
print "Incorrect Password!\n";
print "</center>\n";
}
}
else {
print "<center>\n";
print "Only the seller may make modifications to the listing!\n";
print "</center>\n";
}


}



#################################
sub Parse_Form {

	
	if ($ENV{'REQUEST_METHOD'} eq 'GET') {
		@pairs = split(/&/, $ENV{'QUERY_STRING'});
	} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
		read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
		@pairs = split(/&/, $buffer);
		
		if ($ENV{'QUERY_STRING'}) {
			@getpairs =split(/&/, $ENV{'QUERY_STRING'});
			push(@pairs,@getpairs);
			}
	} else {
		print "Content-type: text/html\n\n";
		print "<P>Use Post or Get";
	}

	foreach $pair (@pairs) {
		($key, $value) = split (/=/, $pair);
		$key =~ tr/+/ /;
		$key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	
		$value =~s/<!--(.|\n)*-->//g;
	
		if ($formdata{$key}) {
			$formdata{$key} .= ", $value";
		} else {
			$formdata{$key} = $value;
		}
	}
}	





#################################
sub ErrorMessage {
	print "Content-type: text/html\n\n";
	print "The server can't open the file. It either doesn't exist or the permissions are wrong. \n";
	exit;
}

#################################



##############################################
# Sub: Process Item Listing and go to Payment Form
#

sub proccessor {
	if (($regdir ne "") && !($newbidflag)) {
		$form{'USERNAME'} =~ s/\W//g;
		$form{'USERNAME'} = lc($form{'USERNAME'});
		$form{'USERNAME'} = ucfirst($form{'USERNAME'});
		$form{'PAGENT'} =~ s/\W//g;
		$form{'PAGENT'} = lc($form{'PAGENT'});
		$form{'PAGENT'} = ucfirst($form{'PAGENT'});
		&oops('USERNAME') unless (open(REGFILE, "$regpath$regdir/$form{'USERNAME'}.dat"));
		($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids) = <REGFILE>;
		close REGFILE;
		chomp($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids);
		&oops('PASSWORD') unless ((lc $password) eq (lc $form{'PASSWORD'}));
	}
	&oops('USERNAME') unless ($form{'USERNAME'});
	&oops('EMAIL') unless ($form{'EMAIL'} =~ /.+\@.+/);
	&oops('BID') unless ($form{'BID'} =~ /^(\d+\.?\d*|\.\d+)$/);
	$form{'BID'} = &parsebid($form{'BID'});
	&oops('ADDRESS1') unless ($form{'ADDRESS1'});
	&oops('ADDRESS2') unless ($form{'ADDRESS2'});
	&oops('ADDRESS3') unless ($form{'ADDRESS3'});
	$timenum = time;
	$thetime = localtime(time);
	&oops('ITEM') unless (open ITEM, "$basepath$form{'CATEGORY'}/temp/$form{'ITEM'}.dat");
	($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <ITEM>;
	close ITEM;
	chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
	@lastbid = split(/\[\]/,$bids[$#bids]);
	if ((((time <= $form{'ITEM'}) || (time <= (60 * $aftermin + $lastbid[3]))) && ($form{'BID'} >= $lastbid[2] + $inc)) || ($newbidflag == 1)) {
		&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY'}/temp/$form{'ITEM'}.dat");
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;
if ($form{'CATEGORY2'} ne "") {
		&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY2'}/temp/$form{'ITEM'}.dat");
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;
}
if ($form{'CATEGORY3'} ne "") {
		&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY3'}/temp/$form{'ITEM'}.dat");
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;
}
if ($form{'CATEGORY4'} ne "") {
		&oops('ITEM') unless (open NEWITEM, ">>$basepath$form{'CATEGORY4'}/temp/$form{'ITEM'}.dat");
		&filelock if ($flock);
		print NEWITEM "\n$form{'USERNAME'}\[\]$form{'EMAIL'}\[\]$form{'BID'}\[\]$timenum\[\]$form{'ADDRESS1'}\[\]$form{'ADDRESS2'}\[\]$form{'ADDRESS3'}";
		close NEWITEM;
}
		$flag=0;
		foreach $userbid(@userbids) {
			$flag=1 if ("$form{'CATEGORY'}$form{'ITEM'}" eq $userbid);
		}
		if ($flag==0 && $regdir ne "") {
			&oops('USERNAME') unless (open(REGFILE, ">>$regpath$regdir/$form{'USERNAME'}.dat"));
			print REGFILE "\n$form{'CATEGORY'}$form{'ITEM'}\[\]$form{'CATEGORY2'}$form{'ITEM'}\[\]$form{'CATEGORY3'}$form{'ITEM'}\[\]$form{'CATEGORY4'}$form{'ITEM'}";
			close REGFILE;

		}

	}
	else {
		print "Either the auction is closed or your bid is too low.<BR>Hit the back button and reload to get the latest auction stats, then try again!\n";
	}

##################################################
#EXPERIMENT ALL TRASH AND NO STAR
#
$totaled = $form{'BID'};
$reserv = $form{'RESERVE'};

if (($totaled <= 5000) && ($reserv <= 5000)) { $total = 0.00; $payagent = 0.00; } 
elsif ((($totaled > 5000) && ($totaled <= 50000)) || (($reserv > 5000) && ($reserv <= 50000))) { $total = 9.95; $payagent = 5.00; }
elsif ((($totaled  > 50000) && ($totaled <= 100000)) || (($reserv  > 50000) && ($reserv <= 100000)))  { $total = 19.95;  $payagent = 10.00; }
elsif ((($totaled > 100000) && ($totaled <= 1000000)) || (($reserv > 100000) && ($reserv <= 1000000))) { $total = 29.95;  $payagent = 15.00; }
elsif (($totaled > 1000000) || ($reserv > 1000000)) { $total = 49.95;  $payagent = 25.00; }
else { print "please click your browser's BACK button and check all fields\n\n"; }


# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
#   writes the payment info into the Agents /IDs/waiting file
#
$iddir = "IDs";

if (-e "/u1/www/transportuniverse/agents/$iddir/$form{'PAGENT'}.dat") {

open(AGENTFILE, "/u1/www/transportuniverse/agents/$iddir/$form{'PAGENT'}.dat");
	($password, $email, $name, $address1, $address2, $phone, $referal) = <AGENTFILE>;
		close AGENTFILE;
		chomp($password, $email, $name, $address1, $address2, $phone, $referal);

			&oops('AGENTWAITING') unless (open AGENTWAITING, ">/u1/www/transportuniverse/agents/$iddir/waiting/$form{'ITEM'}$form{'PAGENT'}.dat");
print AGENTWAITING "$payagent\n$referal\nauction\n$form{'ITEM'}\n$form{'USERNAME'}\n";
			close AGENTWAITING;
}
####################################



print<<"EOF";
<HTML>
<HEAD>
	<TITLE>TRANSPORT UNIVERSE</TITLE>
</HEAD>
<body>


EOF

print "<BR><center><h2>\$$total is the total cost of your listing.</h2><br>Click the CONTINUE button below to make your payment on our Secure Server.  You will have the option of paying by Visa, MasterCard, American Express, or by check.<br></center>\n\n";
###########################################
$formnumber = $form{'ITEM'};
$formuser = $form{'USERNAME'};
$formcategory = $form{'CATEGORY'};
$formcategory2 = $form{'CATEGORY2'};
$formcategory3 = $form{'CATEGORY3'};
$formcategory4 = $form{'CATEGORY4'};
$formsite = auction;
$formtitle = $form{'TITLE'};
$formprice = $totaled;
$formagent = $form{'PAGENT'};

print<<"EOF";
<CENTER>
<form method="POST" action="http://www.transportuniverse.com/cgi-transportuniverse/payment.cgi">
<input type="hidden" name="chargetotal" value="$total">
<input type="hidden" name="formnumber" value="$formnumber">
<input type="hidden" name="formuser" value="$formuser">
<input type="hidden" name="formcategory" value="$formcategory">
<input type="hidden" name="formcategory2" value="$formcategory2">
<input type="hidden" name="formcategory3" value="$formcategory3">
<input type="hidden" name="formcategory4" value="$formcategory4">
<input type="hidden" name="formsite" value="$formsite">
<input type="hidden" name="formtitle" value="$formtitle">
<input type="hidden" name="formprice" value="$formprice">
<input type="hidden" name="formagent" value="$formagent">
<input type="hidden" name="formpayagent" value="$payagent">
<input type="hidden" name="formreferal" value="$referal">
<input type="submit" value="CONTINUE">
</form>
</CENTER><BR><BR>

EOF

print "</BODY></HTML>\n";

#
#
#####



}







##################################################
#Sub accepted to post an item if CC is accepted
#

sub accepted {

&Parse_Form;

open REGFILE, "$regpath$regdir/$form{'PALIAS'}.dat";
($password,$email,$add1,$add2,$add3,@junk) = <REGFILE>;
chomp($password,$email,$add1,$add2,$add3,@junk);
@data = <REGFILE>;       
close REGFILE;
#######################  @firstbid = split(/\[\]/,$bids[0]);
@lineiwant = split(/\[\]/,$junk[-1]);

foreach $dog (@lineiwant) {
$fileiwant = $dog;
$fileiwant =~ s/\D//g;	
$catiwant = $dog;
$catiwant =~ s/[0-9]//g;


	
######################## open .txt file and convert to .dat file #######################

open TXTFILE, "$basepath$catiwant/temp/$fileiwant.dat";
($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <TXTFILE>;
$title =~ s/\"//g;  # quotes cause problems for a text input field
chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
close TXTFILE;



	open DATFILE, ">$basepath$catiwant/$fileiwant.dat";
	&filelock if ($flock);
	print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\n$report\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n@bids\n";
	close DATFILE;

		close DATFILE;

	@lastbid = split(/\[\]/,$bids[$#bids]);

	#############  WRITE LINE TO SEARCH DATABASE  ############################
	$url = "http://www.transportuniverse.com/cgi-transportuniverse/auction.cgi\?$catiwant\&$fileiwant";
	open DATFILE, ">>/u1/www/transportuniverse/db2/super.txt";
	print DATFILE "\|$pic\| \|$year\|$make\|$model\|$vin\|$interior\|$exterior\|$mileage\|$price\|USD\|$zip\|$country\|$state\|$city\|$item\|0\|$url\|$title\|\n";
	close DATFILE;
	#####################################################################


}



#&sendemail('postmaster@transportuniverse.com', 'PAID AUCTION LISTING POSTED', 'nobody', $mailserver, "A PAID listing has been placed on the AUCTION site\n\nTITLE\:  $form{'PTITLE'}\n\nVISIT\:  http://$scripturl$ENV{'SCRIPT_NAME'}\?$form{'PCATEGORY'}\&$fileiwant\n\nOPENING BID OR RESERVE is \$$form{'PPRICE'}.\n\nThis listing has been placed in the following categories\:\n$form{'PCATEGORY'}   $form{'PCATEGORY2'}   $form{'PCATEGORY3'}   $form{'PCATEGORY4'}\n$signature\n");
######################  end of conversion   #######################



print "<table width=504 border=0 align=center><tr><td width=252 align=center><B>$form{'PALIAS'}</b>, your Item Number is <A HREF=$ENV{'SCRIPT_NAME'}\?$form{'PCATEGORY'}\&$form{'PITEM'}><font color=#804000><b>$form{'PITEM'}</B></FONT></A>.<BR>Your item has been listied in the following categories:<br><font color=#804000>$category{$form{'PCATEGORY'}}<br>$category{$form{'PCATEGORY2'}}<BR>$category{$form{'PCATEGORY3'}}<br>$category{$form{'PCATEGORY4'}}</font><BR>You may wish to print this notice as confirmation of your Auction Listing.<br></td><td width=252 align=center><TABLE BORDER=1><tr><td><table width=250 valign=center><tr><TD ALIGN=center WIDTH=250><Font Size=2><A HREF=$ENV{'SCRIPT_NAME'}\?$form{'PCATEGORY'}\&$form{'PITEM'}><font color=#804000><img src=/images/live1.jpg border=0><B><BR>CLICK HERE TO VIEW YOUR LISTING.</A><BR><BR>FROM THERE YOU SHOULD ADD A FREE COMPREHENSIVE CONDITION REPORT FOR YOUR LISTING</font><BR><BR>Attract serious interest from serious buyers by providing them with the essential details found in one our exclusive reports.</B></FONT></td></TR></table></td></tr></table></td></tr></table>\n"; 

# # # # # # # # # # # # # # # # # # # # # # # # # # # 
#List all paid registrations in /IDs/paythese/  to see what agents are due payment
#Format is:   payout[]referal[]site[]itemnumber[]lister[]category1[]category2[]category3[]category4
$iddir = "IDs";
if (-e "/u1/www/transportuniverse/agents/$iddir/$form{'PAGENT'}.dat") {

open AGENTPAID, "/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PAGENT'}.dat";
($payout,$referal,$trantype,$itemnumber,$lister) = <AGENTPAID>;
chomp($payout,$referal,$trantype,$itemnumber,$lister);
close AGENTPAID;

		open NEWPAY, ">>/u1/www/transportuniverse/agents/$iddir/paythese/$form{'PAGENT'}.dat";
			print NEWPAY "$payout\[\]$referal\[\]$trantype\[\]$itemnumber\[\]$lister\[\]$form{'PCATEGORY'}\[\]$form{'PCATEGORY2'}\[\]$form{'PCATEGORY3'}\[\]$form{'PCATEGORY4'}\n";
			close NEWPAY;

		open NEWPAYAGENT, ">>/u1/www/transportuniverse/agents/$iddir/$form{'PAGENT'}.dat";
			print NEWPAYAGENT "$payout\[\]$referal\[\]$trantype\[\]$itemnumber\[\]$lister\[\]$form{'PCATEGORY'}\[\]$form{'PCATEGORY2'}\[\]$form{'PCATEGORY3'}\[\]$form{'PCATEGORY4'}\n";
			close NEWPAYAGENT;

unlink("/u1/www/transportuniverse/agents/$iddir/waiting/$form{'PITEM'}$form{'PAGENT'}.dat");

}
#
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

}


##############################################
# Sub: Automate Close Auctions 1.1
# This allows admin to close all items that
# have passed their closing time, w/o having
# to go to each item seperately

sub autoclose {
 foreach $key (sort keys %category) {
   opendir THEDIR, "$basepath$key" || die "Unable to open directory: $!";
	@allfiles = readdir THEDIR;
	closedir THEDIR;
	  foreach $file (sort { int($a) <=> int($b) } @allfiles) {
	    if (time > $file) {
	      if (-T "$basepath$key/$file") {
		open THEFILE, "$basepath$key/$file";
		($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <THEFILE>;
		chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
		@firstbid = split(/\[\]/,$bids[0]);
		@lastbid = split(/\[\]/,$bids[$#bids]);
		$nowtime = localtime(time);
		$closetime = localtime($file);
		foreach $bid (@bids) {
			@thebid = split(/\[\]/,$bid);
			$bidtime = localtime($thebid[3]);
		}
		close THEFILE;
			if ($key ne $closedir) {

########################################################
#              PUT AUTO RELIST HERE...
########################################################
sleep 2;

$oldreport = $file;
$oldreport =~  s/\.dat//;
$oldreport = $oldreport . "r";

$repost = 90; # Auction length in days
$doit =0; # Set to 0 initially

if (($lastbid[2] < $reserve) && ($reserve > 0) && ($firstbid[0] ne $lastbid[0])) {
$doit = 1;
$new = ($repost * 86400 + time);
$newreport = $new . "r";
rename("u1/www/transportuniverse/reports/$oldreport.txt", "u1/www/transportuniverse/reports/$newreport.txt");

	open DATFILE, ">$basepath$cat1/$new.dat";
	&filelock if ($flock);
	print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\n$report\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n$thebid[0]\[\]$thebid[1]\[\]$thebid[2]\[\]$thebid[3]\[\]$thebid[4]\[\]$thebid[5]\[\]$thebid[6]\[\]$thebid[7]\n";
	close DATFILE;
unlink($cat1/$file);

if ($cat2 ne "") {
	open DATFILE, ">$basepath$cat2/$new.dat";
	&filelock if ($flock);
	print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\n$report\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n$thebid[0]\[\]$thebid[1]\[\]$thebid[2]\[\]$thebid[3]\[\]$thebid[4]\[\]$thebid[5]\[\]$thebid[6]\[\]$thebid[7]\n";
	close DATFILE;
unlink ($cat2/$file);
}

if ($cat3 ne "") {
	open DATFILE, ">$basepath$cat3/$new.dat";
	&filelock if ($flock);
	print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\n$report\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n$thebid[0]\[\]$thebid[1]\[\]$thebid[2]\[\]$thebid[3]\[\]$thebid[4]\[\]$thebid[5]\[\]$thebid[6]\[\]$thebid[7]\n";
	close DATFILE;
unlink ($cat3/$file);
}

if ($cat4 ne "") {
	open DATFILE, ">$basepath$cat4/$new.dat";
	&filelock if ($flock);
	print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\n$report\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n$thebid[0]\[\]$thebid[1]\[\]$thebid[2]\[\]$thebid[3]\[\]$thebid[4]\[\]$thebid[5]\[\]$thebid[6]\[\]$thebid[7]\n";
	close DATFILE;
unlink ($cat4/$file);
}

}

if ($firstbid[0] eq $lastbid[0]) {
$doit = 1;
$new = ($repost * 86400 + time);
$newreport = $new . "r";

rename("u1/www/transportuniverse/reports/$oldreport.txt", "u1/www/transportuniverse/reports/$newreport.txt");

	open DATFILE, ">$basepath$cat1/$new.dat";
	&filelock if ($flock);
	print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\n$report\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n$thebid[0]\[\]$thebid[1]\[\]$thebid[2]\[\]$thebid[3]\[\]$thebid[4]\[\]$thebid[5]\[\]$thebid[6]\[\]$thebid[7]\n";
	close DATFILE;
unlink($cat1/$file);

if ($cat2 ne "") {
	open DATFILE, ">$basepath$cat2/$new.dat";
	&filelock if ($flock);
	print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\n$report\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n$thebid[0]\[\]$thebid[1]\[\]$thebid[2]\[\]$thebid[3]\[\]$thebid[4]\[\]$thebid[5]\[\]$thebid[6]\[\]$thebid[7]\n";
	close DATFILE;
unlink ($cat2/$file);
}

if ($cat3 ne "") {
	open DATFILE, ">$basepath$cat3/$new.dat";
	&filelock if ($flock);
	print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\n$report\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n$thebid[0]\[\]$thebid[1]\[\]$thebid[2]\[\]$thebid[3]\[\]$thebid[4]\[\]$thebid[5]\[\]$thebid[6]\[\]$thebid[7]\n";
	close DATFILE;
unlink ($cat3/$file);
}

if ($cat4 ne "") {
	open DATFILE, ">$basepath$cat4/$new.dat";
	&filelock if ($flock);
	print DATFILE "$item\n$site\n$type\n$cat1\n$cat2\n$cat3\n$cat4\n$seller\n$year\n$make\n$model\n$vin\n$mileage\n$interior\n$exterior\n$price\n$currency\n$reserve\n$inc\n$city\n$state\n$country\n$zip\n$report\n$pic\n$image\n$image2\n$image3\n$image4\n$title\n$cont\n$desc\n$thebid[0]\[\]$thebid[1]\[\]$thebid[2]\[\]$thebid[3]\[\]$thebid[4]\[\]$thebid[5]\[\]$thebid[6]\[\]$thebid[7]\n";
	close DATFILE;
unlink ($cat4/$file);
}

}


	#############  WRITE LINE TO SEARCH DATABASE  ############################
	$url = "http://www.transportuniverse.com/cgi-transportuniverse/auction.cgi\?$catiwant\&$fileiwant";
	open DATFILE, ">>/u1/www/transportuniverse/db2/relisted.txt";
	print DATFILE "\|$pic\| \|$year\|$make\|$model\|$vin\|$interior\|$exterior\|$mileage\|$price\|USD\|$zip\|$country\|$state\|$city\|$new\|0\|$url\|$title\|\n";
	close DATFILE;
	#####################################################################

if ($doit == 1) {
$resend = "
Hello $firstbid[0],

The auction you posted on Transport Universe has ended.
Either you received no bids or your reserve was not met.
Your item will be automatically relisted at no charge to you.
The only change is a new item number that is listed below.

Title : $title
Categories:
$cat1
$cat2
$cat3
$cat4
New Item number : $new

If wish to change your ad in length or content, simply follow the link
below to your item, and choose use the MODIFY AUCTION option.

If you wish to stop the auction and remove your listing, simply REPLY
to this email with DELETE AUCTION as the subject.

Link to your item description:
http://$scripturl$ENV{'SCRIPT_NAME'}\?$cat1\&$new

";

#&sendemail($firstbid[1],"Relist of your T.U. Auction", "nobody", $mailserver, "$resend\n$signature"); 



#&sendemail('postmaster@transportuniverse.com', ' AUCTION ENDED NO WINNER', 'nobody', $mailserver, "SELLER\;  $firstbid[0]\nITEM\:  http://$scripturl$ENV{'SCRIPT_NAME'}\?$cat1\&$file\nRELISTED AS\:  http://$scripturl$ENV{'SCRIPT_NAME'}\?$cat1\&$new\n$signature\n");



}




########################################################
#              END AUTO RELIST HERE...
########################################################

					if ($closedir) {
					umask(000);  # UNIX file permission junk
					mkdir("$basepath$closedir", 0777) unless (-d "$basepath$closedir");		
					print "Please notify Transport Universe admin that this item cannot be copied to the closed directory even though it is closed.\n" unless &movefile("$basepath$key/$file", "$basepath$closedir/$key$file");				
				#	print "<H3>$category{$key}\: $title closed</H3><BR>";
					$numauct = $file;
					$numauct =~ s/\.dat//;  #makes it just the number, rather than number.dat 
				}
				        else {
                                print "Please notify the site admin that this item cannot be removed even though it is closed.\n" unless unlink("$basepath$key/$file");
                                }
				if (($lastbid[2] >= $reserve) && ($lastbid[0] ne $firstbid[0])) {
                    &sendemail($lastbid[1], "Transport Universe Live Auction Close: $title", $firstbid[1], $mailserver, "Congratulations!  You are the winner of Transport Universe Auction Item Number $ARGV[1].\nYour winning bid was \$$lastbid[2].\n\nPlease contact the seller to make arrangements for payment and shipping:\n\n$firstbid[1]\n\$signature\n");
					
$reservemsg = "\nThe winning bid was \$$lastbid[2] (Your reserve was: \$$reserve).\n\nPlease contact the high bidder to make any necessary arrangements:\n\n$lastbid[4]\n$lastbid[5]\n$lastbid[6]\n$lastbid[1] ";

&sendemail($firstbid[1], "Auction Close: $title", "Winner <$lastbid[1]>", $mailserver, "Auction Number $numauct Is Now Closed.\nThe high bid was \$$lastbid[2] (Your reserve was: \$$reserve).\n\n$reservemsg\n\nPlease contact the high bidder to make any necessary arrangements:\n\n$lastbid[4]\n$lastbid[5]\n$lastbid[6]\n$lastbid[1]\n$signature\n");

#&sendemail('postmaster@transportuniverse.com', ' AUCTION ENDED WITH WINNER', 'nobody', $mailserver, "SELLER\;  $firstbid[0]\nITEM\:  http://$scripturl$ENV{'SCRIPT_NAME'}\?key\&$file\nWINNER\:  $lastbid[0]\nWINNING BID\:  \$$lastbid[2]\n$signature\n");

				}
				else {
					if ($firstbid[2] ne $lastbid[2]) {
					&sendemail($lastbid[1], "Transport Universe Auction Close: $title", $firstbid[1], $mailserver, "Notice\:  You were the high bidder on auction number $ARGV[1].\nYour bid was \$$lastbid[2].\n\nUnfortunately, your bid did not meet the seller\'s reserve price.  If the seller chooses to relist this item, you may bid again at the following address\:\n\nhttp://$scripturl$ENV{'SCRIPT_NAME'}\?$key\&$new\n$signature\n");
					$bob=1;
					}
					else {
					$bob=1;
					}
				}
				

			}
		}
	 }
           }
     }
}







######################################
######################################
#
#   new toys i'm trying out...

##############################################
# Sub: Display List Of All Auctions

sub listall {
	print "<font size=6 color=$colortablehead><b>All Auction Listings</b></font>\n";
	print "<TABLE BORDER=0>\n";
	print "<TR BGCOLOR=$colortablehead><TD ALIGN=CENTER width=100><B> </B></TD><TD ALIGN=CENTER width=40><B> </B></TD><TD ALIGN=CENTER><B><font color=white face=\"verdana\">VEHICLE</font></B></TD><TD ALIGN=CENTER><B><font color=white face=\"verdana\">YEAR</font></B></TD><TD ALIGN=CENTER colspan=2><B><font color=white face=\"verdana\">LOCATION</font></B></TD><TD ALIGN=CENTER><B><font color=white face=\"verdana\">PRICE</font></B></TD></TR>\n";


foreach $key (sort keys %category) {
opendir THEDIR, "$basepath$key" || die "Unable to open directory: $!";
@allfiles = readdir THEDIR;
closedir THEDIR;
foreach $file (sort { int($b) <=> int($a) } @allfiles) {

########################## ADDON: Select alternating row color.
if ($i % 2 == 1) { $colortablebody = $odd_row_color; } else { $colortablebody = $even_row_color; } $i++; $ii++;
########################### END: Select alternating row color.

			if (-T "$basepath$key/$file") {
			open THEFILE, "$basepath$key/$file";
			($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids) = <THEFILE>;
			close THEFILE;
			chomp($item, $site, $type, $cat1, $cat2, $cat3, $cat4, $seller, $year, $make, $model, $vin, $mileage, $interior, $exterior, $price, $currency, $reserve, $inc, $city, $state, $country, $zip, $report, $pic, $image, $image2, $image3, $image4, $title, $cont, $desc, @bids);
			@lastbid = split(/\[\]/,$bids[$#bids]);
			$file =~ s/\.dat//;
			@closetime = localtime($file);
			$closetime[4]++;

$thm = $item . "thm\.jpg";
$piciconpath = "<IMG SRC=\"http\:\/\/www.transportuniverse.com\/images\/camera.gif\" align=bottom>";
if (-e "/u1/www/transportuniverse/www/thm/$thm") { $piciconpath = "<IMG SRC=\"http\:\/\/www.transportuniverse.com\/thm\/$thm\" align=bottom>"; }
$reporticonpath = "<IMG SRC=\"http\:\/\/www.transportuniverse.com\/images\/report.jpg\" align=bottom>";
$camera="";
$camera =$piciconpath if (($pic eq "Y") || ($image ne ""));
$report =$reporticonpath if ($report eq "Y");
$link = "<a href=\"http\:\/\/www.transportuniverse.com\/cgi-transportuniverse\/auction.cgi\?$key\&$file\"><font size=-2 face=verdana>$make $model</font></a>";

print "<TR BGCOLOR=$colortablebody><TD align=center>$camera</TD><TD>$report</TD><TD><font size=\"-2\" face = \"verdana\">$link<br>$title</font></TD><TD align=center><font size=\"-2\" face = \"verdana\">$year</font></TD><TD align=center><font size=\"-2\" face = \"verdana\">$state</font></TD><TD align=center><font size=\"-2\" face = \"verdana\">$country</font></TD><TD><font size=\"-2\" face = \"verdana\">\$$price</font></TD></TR>\n";
		}
print "<br><br>\n";	}
}
	print "</TABLE><br>\n";



}


###########################################
#------------------------------------------------------#
# Sub Upload Form for uploading an image file
#------------------------------------------------------#
sub uploadform {
#------------------------------------------------------#

if ($allowupload == 0) {
	&newitem;
	exit 0;
}

if ($uploadcharge ne '0') { $chargetext = "There is a \$$uploadcharge charge for file uploads"; }
if ($uploadcharge eq '0') { $chargetext = "This service is free"; }

print <<"EOF";

<center><font
  color="$colortablehead"><font face="Verdana" size="5">SELL YOUR ITEM WITH LIVE AUCTIONS</font></font>
<p align="center"><b><font face="Verdana" size="2">The most important step you
can take towards selling your item<br>
is to include a picture with your listing.&nbsp; We never charge you to<br>
add photos to your description!&nbsp; In fact, if you are unable to use<br>
our free upload service, please <a href="#help1">mail us your photos</a> to the
address<br>
below and we will be happy to add them to your item's description!</font></b></p>
</center>

<form ENCTYPE="multipart/form-data" method="post" action="uploado.pl">

  <div align="center"><center><a name="return1"></a><table border="1" width="560" cellpadding="3" cellspacing="0">
    <tr>
      <td bgcolor="#efefef" align="center"><font face="Verdana"><b><font size="5"><u>FREE IMAGE
        UPLOAD</u></font><font size="3"><br>
        <br>
      </font>
        <font size="2">
        If You Have An
        Image On Your Computer, Disk, or CD, Click the Browse Button Below To
        Select Your Image For Free Automatic Upload.</font><font size="3"><br>
      </font>
        </b>
        <font size="2"><br>Images must be in .jpg or .gif format.&nbsp; For
        help with this process,&nbsp;<a href="#help1"><font color="#0000FF"><span
        style="background-color: #FFFFFF"><b>CLICK HERE</b></span></font></a><br>
      <br>
      The picture upload requires Netscape 3.0 or higher, or Internet Explorer (IE) 3.02 or
      higher.</font></font></td>
    </tr>
    <tr>
      <td><table border="0" width="100%">
        <tr>
          <td width="10%" nowrap><font face="Verdana" size="2"><b>Picture File</b></font>: </td>
          <td width="90%" nowrap><input type="file" name="UploadedFile" size="40"></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td><font face="Verdana" size="2">Click <input type="submit" value="Continue"> to upload your
        picture and continue the item listing process.</font></td>
    </tr>
  </table>
  </center></div>
</form>


<p align="center"><font face="Verdana"><font color="#FF0000" size="6">OR</font>
<br>
</font>
<form method="post" action="$ENV{'SCRIPT_NAME'}">
  <input type="hidden" name="picture" value="none"><div align="center"><center><table
  border="1" width="560" cellpadding="3" cellspacing="0">
    <tr>
      <td align="center" width="191"><font color="#FF0000" size="5" face="Verdana">NO
        IMAGE?</font></td>
      <td align="center" width="353"><font face="Verdana" size="2"><b>If You Do Not Have a Picture,
        Click <input type="submit" value="HERE"><br>
 to list your item without adding a picture.</b></font></td>
    </tr>
  </table>
  </center></div>
</form>
<p align="center"><b><font
color="$colortablehead" size="5"><br>
</font></b>
<a name="help1"></a>
<font face="Verdana" size="4">Please send all photos to:</font><b><font
color="$colortablehead" size="4" face="Verdana"><br>
TRANSPORT UNIVERSE PHOTOS<br>
Box 366 Pittsfield, New Hampshire 03263
</font><font
color="#FF0000" size="5"><br>
</font><font size="5">
<br>
<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" width="560">
    <tr>
      <td align="center"><b><font size="5"><u><font face="Verdana">Image Upload Help</font></u><font face="Verdana"><br>
        <br>
        </font>
        </font></b></font><font face="Verdana" size="2">When you click on the Browse button, a window will open
        allowing you to look at the files on your computer.&nbsp; This window is
        local to your system and is not viewable or accessible to anyone
        else.&nbsp; Use this window to locate the image you wish to upload and
        store on our server.&nbsp; The window will display files on your hard
        drive.&nbsp; You can use the drop-down menu to select other drives for
        photos that may be on a diskette or a CD.&nbsp; When you locate the
        image, double-click on it, or select it and click on the &quot;<u>O</u>pen&quot;
        button.&nbsp; The name of the file will then appear in the Picture File
        box.&nbsp; Click the &quot;Continue&quot; button directly below the
        Picture File box to continue on to the item information page.<br>
        <br>
        Image Upload is a free service provided by Transport Universe.&nbsp;
        Adding an image to your item's description page dramatically increases
        the effectiveness of your listing.&nbsp; Buyers want to see what they
        are buying!&nbsp; An image in conjunction with our free <a
        href="http://www.transportuniverse.com/l-reports.html"><font color=blue>Item Condition
        Report</font></a> will provide buyers with every detail they need to make that
        all-important decision to buy <b><u>YOUR</u></b> item!</font><font size="5"><font face="Verdana"><br><BR>
      </font>
        <div align="center">
          <table border="1" cellpadding="4" cellspacing="0">
            <tr>
              <td align="center" BGCOLOR=#EFEEDC><a href="#return1"><FONT COLOR=BLUE face="Verdana"><B>Click here to return and Sell Your Item</B></FONT></a></td>
            </tr>
          </table>
        </div>
      </font>
        <p><font face="Verdana" size="3">
        If you need further assistance with the Image Upload process, please
        contact us at:<br>
        <a href="mailto:service\@transportuniverse.com">service\@transportuniverse.com</a></font></td>
    </tr>
  </table>
  </center>
</div>
</b>



EOF
}
#------------------------------------------------------#


#############################   it ain't Mozart...
sub qonvert 
{
print "what\?\n";
}
#######################################################################