#======================================================#
# EveryAuction Addon
# Mail Auction To A Friend Add-On v1.2 
#======================================================#
# PiTA - Park In The Alley Software (Auction-Script.com)
#======================================================#
# Author: Splatt 07/19/99
# 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
#======================================================#

#------------------------------------------------------#
# Rename this file to justmail.pl, put in your CGI-BIN
# directory where auction.cgi is located.
#------------------------------------------------------#

#------------------------------------------------------#
# !! CHANGES NEEDED TO AUCTION.CGI !!
#------------------------------------------------------#
#
# Add this statement: require "justmail.pl";
#
# Find this section in the beginning of the main code:
#
# &get_form_data; # parse arguments from post
# @ARGV = split(/\\*\&/, $ENV{'QUERY_STRING'});
# $ARGV[0] =~ s/\W//g;
# $ARGV[1] =~ s/\D//g;
#
#------------------------------------------------------#
#
# If it's not already, rem out the last line so it looks like this:
#
# &get_form_data; # parse arguments from post
# @ARGV = split(/\\*\&/, $ENV{'QUERY_STRING'});
# $ARGV[0] =~ s/\W//g;
# #$ARGV[1] =~ s/\D//g;
#
#------------------------------------------------------#
# 
# Add the following lines AFTER the "elsif ($form{'searchstring'}) { &procsearch; }" statement
#
#
# # MailTo Add-on ##############################
# elsif ($form{'action'} eq 'mailto') { &mailtosend; }
# elsif ($ARGV[0] eq 'mailto') { &mailto; }
# # End Add-on #################################
#
#------------------------------------------------------#
#
# Use a link similar to the one below to call the subroutine from the dispitem subroutine:
#
# print "<a href=$ENV{'SCRIPT_NAME'}\?mailto\&$ARGV[0]\&$ARGV[1]>(mail this auction to a friend)</a>\n";
#
#------------------------------------------------------#


#------------------------------------------------------#
# Add-On Sub: Mail Auction To A Friend
# This sub gets the form input info for mailing the auction
#------------------------------------------------------#
sub mailto {
	open THEFILE, "$basepath$ARGV[1]/$ARGV[2].dat";
	($title, $reserve, $inc, $desc, $image, @bids) = <THEFILE>;
	close THEFILE;
	chomp($title, $reserve, $inc, $desc, $image, @bids);
	@firstbid = split(/\[\]/,$bids[0]);
	@lastbid = split(/\[\]/,$bids[$#bids]);
print <<"EOF";
 <div align="center"><center>
 <table border="1" cellspacing="0" width="100%" bgcolor="$colortablehead">
  <tr>
    <td align="center" width="100%"><font size="4" color="#000000"><b>Mail This Auction To A Friend</b></font></td>
  </tr>
  <tr>
    <td align="center" width="100%"><font size="4" color="#000000"><b>$title</b></font></td>
  </tr>
  <tr>
    <td align="center" width="100%"><font size="3" color="#000000"><b>Item #$ARGV[2]</b></font></td>
  </tr>
 </table>
 </center></div>
 <FONT FACE=\"Arial\">
 <div align="center"><center>
 <FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST>
 <INPUT TYPE=HIDDEN NAME=action VALUE=mailto>
 <INPUT TYPE=HIDDEN NAME=ITEM VALUE=$ARGV[2]>
 <INPUT TYPE=HIDDEN NAME=CATEGORY VALUE="$ARGV[1]">
 <INPUT TYPE=HIDDEN NAME=BID VALUE=$lastbid[2]>
 <INPUT TYPE=HIDDEN NAME=TITLE VALUE="$title">
 <DIV ALIGN=CENTER>
 <TABLE WIDTH=80% BORDER=1 BGCOLOR=$colortablebody>
 <TR BGCOLOR=$colortablehead><TD><B><CENTER><A HREF=$ENV{'SCRIPT_NAME'}?1\&1\&u>Registration</A> is required for this procedure!</B></CENTER></TD></TR></TABLE>
 <TABLE WIDTH=80% BORDER=1 BGCOLOR=$colortablebody>
 <TR><TD><B>Your User Name:<BR></B><FONT SIZE=-2>Must be valid.</FONT></TD><TD><INPUT NAME=ALIAS TYPE=TEXT SIZE=30 MAXLENGTH=30></TD></TR>
 <TR><TD><B>Your Password:<BR></B><FONT SIZE=-2>Must be valid.</FONT></TD><TD><INPUT NAME=PASSWORD TYPE=PASSWORD SIZE=30></TD></TR>
 <TR><TD><B>Email Auction To:<BR></B><FONT SIZE=-2>Email address you wish to send the auction to. Will not be verified!!</FONT></TD>
 <TD><INPUT NAME=EMAILADD TYPE=TEXT SIZE=20>  <INPUT TYPE=SUBMIT VALUE="SUBMIT"><INPUT TYPE=RESET VALUE="CLEAR"></TD></TR>
 <TR><TD><B>Optional Message:<BR></B><FONT SIZE=-2>Optional personal message added to the default message sent!</FONT></TD>
 <TD><textarea NAME="MESSAGE" ROWS="5" COLS="50">I saw this item for sale at $sitename and thought that you might be interested.</textarea>
 </div></TD></TR></TABLE>
EOF
}
#------------------------------------------------------#

#------------------------------------------------------#
# Add-On Sub: Mail Auction To A Friend
# This sub checks user name and sends the mail
#------------------------------------------------------#
sub mailtosend {
    $form{'ALIAS'} =~ s/\W//g;
    $form{'ALIAS'} = lc($form{'ALIAS'});
    $form{'ALIAS'} = ucfirst($form{'ALIAS'});
    &oops('not a registered user') unless (open(REGFILE, "$basepath$regdir/$form{'ALIAS'}.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('incorrect password') unless ((lc $password) eq (lc $form{'PASSWORD'}));

$mailto1 = "
 Hello,

 A user at $sitename, $form{'ALIAS'}, has forwarded
 this auction to you:

 $form{'MESSAGE'}

 The item information posted is as follows :

   Item number :  $form{'ITEM'}
   Item Title  :  $form{'TITLE'}
   Current Bid :  \$$form{'BID'}
   URL Below   :
   http://$scripturl$ENV{'SCRIPT_NAME'}\?$form{'CATEGORY'}\&$form{'ITEM'}

 Thank you and please tell a friend about us!
 Sincerely,
 $sitename
";

&sendemail($form{'EMAILADD'},'FWD Auction #' . $form{'ITEM'}, 'nobody', $mailserver, $mailto1);

print <<"EOF";
   <CENTER><FONT SIZE="2">
   Auction# $form{'ITEM'} was sent to $form{'EMAILADD'}.
   <BR>
   Click <A HREF="http://$scripturl$ENV{'SCRIPT_NAME'}\?$form{'CATEGORY'}\&$form{'ITEM'}">here</A> to return to the auction.
   </CENTER></FONT>
EOF
}
#------------------------------------------------------#
1;