#======================================================#
# EveryAuction Addon
# Upload A Picture Add-On v1.1b
#======================================================#
# PiTA - Park In The Alley Software (Auction-Script.com)
#======================================================#
# Author: Splatt 11/20/00
# justguns.com auction-script.com compalley.com
#------------------------------------------------------#
# Unauthorized redistribution is prohibited!!!
# The latest version of my addons can be found at:
# www.auction-script.com/addons
#======================================================#


#======================================================#
# INSTALL INSTRUCTIONS
#======================================================#
#======================================================#
# NOTES:
# - Give all directories needed full rights.
# - The file will be renamed to the category + item number
#   For example, if the item number was 12345678
#   and the category was computers, the final file name
#   would be computers12345678.gif.
#   I did this to be able to delete the file when the
#   auction closed, however that's not implemented yet.
# - Put the upload.pl file in the same cgi-bin directory
#   as your auction.cgi file.
#======================================================#


#======================================================#
#======================================================#
# Changes needed to AUCTION.CGI
#======================================================#
#======================================================#
# In your auction.cgi require and use section add the
# following section.
# (if you do not have that section, put these near the top)

#-Image Upload-----------------------------------------#
# NOTE: The $imageuploaddir MUST match the $basedir var
# in the upload.pl code except for the trailing slash,
# it also MUST be under your auctions base directory 
# otherwise you will get a permission error when trying 
# to write to it.
#
# allowupload    - You might want to turn it off someday
# uploadcharge   - If you are using AF you can charge for this
# imageuploaddir - Destination directory for storage
# imageuploadurl - URL pointing to storage directory
#------------------------------------------------------#
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 = '/usr/www/auction/uploadedpictures';
$imageuploadurl = "http://www.yourdomain.com/auction/uploadedpictures";
#--Image Upload END------------------------------------#


#======================================================#
#======================================================#
# Now create the $imageuploaddir directory giving full rights
#======================================================#
#======================================================#



#======================================================#
# Search for the following line:
 
$ARGV[1] =~ s/\D//g;

#======================================================#
# Then REPLACE that line with the following section:

#--Image Upload----------------------------------------#
# $ARGV[1] =~ s/\D//g;
#--Image Upload END------------------------------------#



#======================================================#
# Search for the following line:
 
elsif ($ARGV[2] eq 'n') { &newitem; }


#======================================================#
# Then REPLACE that line with the following section:

#--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------------------------------------#



#======================================================#
# In your newitem sub search for this line:

<TR><TD VALIGN=TOP><B>Image URL:<BR></B>Optional, should be no larger than 200x200</TD><TD><INPUT NAME=IMAGE VALUE=\"$image\" TYPE=TEXT SIZE=50 VALUE="http://"></TD></TR>


#======================================================#
# Then REPLACE that line with the following section:

EOF
#--Image Upload----------------------------------------#
# <TR><TD VALIGN=TOP><B>Image URL:<BR></B>Optional, should be no larger than 200x200</TD><TD><INPUT NAME=IMAGE VALUE=\"$image\" TYPE=TEXT SIZE=50 VALUE="http://"></TD></TR>
</TD><TD><INPUT NAME=IMAGE VALUE=\"$image\" TYPE=TEXT SIZE=50 VALUE="http://"></TD></TR>
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><B>Image:<BR></B>";
print "<TD><INPUT NAME=IMAGE VALUE=\"$image\" TYPE=HIDDEN SIZE=50>$image</TD></TR>";
#--Image Upload END------------------------------------#
print <<"EOF";




#======================================================#
# In your preview sub search for this line:

$image = "<TD><IMG SRC=$form{'IMAGE'}></TD>" if ($form{'IMAGE'});


#======================================================#
# Then REPLACE that line with the following section:

#--Image Upload----------------------------------------#
# $image = "<TD><IMG SRC=$form{'IMAGE'}></TD>" if ($form{'IMAGE'});
if ($form{'IMAGEUPLOAD'} eq 'NO') {
	$image = "<TD><IMG SRC=$form{'IMAGE'}></TD>" if ($form{'IMAGE'});
	$image = "" if ($form{'IMAGE'} eq 'http://');
	$image = "" if ($form{'IMAGE'} eq 'NONE');
}
if ($form{'IMAGEUPLOAD'} eq 'YES') {
	$image = "<TD><IMG SRC=$imageuploadurl/$form{'IMAGE'}></TD>";
};
#--Image Upload END------------------------------------#



#======================================================#
# In your preview sub search for this line:

print "</FORM>\n";


#======================================================#
# Then paste the following section BELOW that:

#--Image Upload----------------------------------------#
print "<INPUT TYPE=HIDDEN NAME=EXTENSION VALUE=$form{'EXTENSION'}>"; 
#--Image Upload END------------------------------------#



#======================================================#
# In your procnew sub search for this line:

$form{'IMAGE'} = "" if ($form{'IMAGE'} eq "http://");


#======================================================#
# Then paste the following section BELOW that:

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



#======================================================#
# In your procnew sub search for this section:

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


#======================================================#
# Then paste the following section BELOW that:

#--Image Upload----------------------------------------#
if ($form{'IMAGEUPLOAD'} eq 'YES') {
	$image = $form{'IMAGE'};
	$image2 = ($form{'CATEGORY'} . $form{'ITEM'} . "." . $form{'EXTENSION'});
	$form{'IMAGE'} = ($imageuploadurl . '/' . $form{'CATEGORY'} . $form{'ITEM'} . "." . $form{'EXTENSION'});
	&oops('copy image file') unless copy("$imageuploaddir/$image", "$imageuploaddir/$image2");
	&oops('unlink image file') unless unlink("$imageuploaddir/$image");

	#--Image Upload Charge---------------------------------#
	#--Remove this section if not using AccountFirst-------#
	if ($uploadcharge ne '0') {
		&apply_transaction($form{'ALIAS'}, "File upload $image", $uploadcharge, "Thank you", 1, 1, 0, 0); 
	}
	#--Image Upload Charge END-----------------------------#

}
#--Image Upload END------------------------------------#



#======================================================#
#======================================================#
# Paste the following section at the bottom of your
# auction.cgi 
#======================================================#
#======================================================#


#------------------------------------------------------#
# 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";

<TABLE WIDTH=100% BORDER=1 BGCOLOR=$colortableheadtwo>
<TR><TD VALIGN=TOP><FONT SIZE=3><B><CENTER>Add New Auction Item</FONT></TD></TR></TABLE></B></CENTER>
<br><font size=2 face=Arial><strong>Are you adding a picture to the item?</font></strong>

<form method="post" action="$ENV{'SCRIPT_NAME'}">
  <input type="hidden" name="picture" value="none"><div align="center"><center><table
  border="1" width="80%" cellpadding="3" cellspacing="0">
    <tr>
      <td bgcolor="#efefef"><b><font size="3">If You Do Not Have a Picture</font></b></td>
    </tr>
    <tr>
      <td><font size="3"><b>Click <input type="submit" value="Continue"> to continue the item
      listing process without adding a picture.</b></font></td>
    </tr>
  </table>
  </center></div>
</form>

<form method="post" action="$ENV{'SCRIPT_NAME'}">
  <div align="center"><center><table border="1" width="80%" cellpadding="3" cellspacing="0">
    <tr>
      <td bgcolor="#efefef"><font size="3"><b>Enter Your Picture URL</b><br>
      </font><font size="2">If you have a picture that is hosted on a Web server, you can enter
      the URL of the image file in the field below.&nbsp; </font></td>
    </tr>
    <tr>
      <td><table border="0" width="100%">
        <tr>
          <td width="10%" nowrap>Picture URL: </td>
          <td width="90%"><input type="text" name="pictureurl" size="50" value="http://"></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td><font size="3"><b>Click <input type="submit" value="Continue"> to use the above
      Picture URL and continue the item listing process.</b></font></td>
    </tr>
  </table>
  </center></div>
</form>

<form ENCTYPE="multipart/form-data" method="post" action="upload.pl">
  <div align="center"><center><table border="1" width="80%" cellpadding="3" cellspacing="0">
    <tr>
      <td bgcolor="#efefef"><font size="3"><b>Upload Your Picture</b><br>
      </font><font size="2">$chargetext<br>If you have a picture on your hard drive that you would like to
      upload and add to your item listing, you can click the 'Browse' button and select the file
      from your hard drive.<br>
      <br>
      The picture upload requires Netscape 3.0 or higher, or Internet Explorer (IE) 3.02 or
      higher. IE 3.02 users need to download and install a file from Microsoft to use the
      picture upload. <a href="http://www.microsoft.com/msdownload/ieplatform/iewin95/04.htm">Click
      here</a> to download this file.</font></td>
    </tr>
    <tr>
      <td><table border="0" width="100%">
        <tr>
          <td width="10%" nowrap>Picture File: </td>
          <td width="90%" nowrap><input type="file" name="UploadedFile" size="40"></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td><font size="3"><b>Click <input type="submit" value="Continue"> to upload your files
      and continue the item listing process.</b></font></td>
    </tr>
  </table>
  </center></div>
</form>
EOF
}
#------------------------------------------------------#