#======================================================#
# EveryAuction Addon
# NT SMTP Sendemail Sub v0.90
#------------------------------------------------------#
#======================================================#
# PiTA - Park In The Alley Software (Auction-Script.com)
#======================================================#
# Author: Splatt 03/07/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
#======================================================#

#------------------------------------------------------#
# INSTALL INSTRUCTIONS:
#------------------------------------------------------#
# Place the sendmail.pm file in your CGI-BIN directory.
# This file can be found at www.compalley.com/addons
#------------------------------------------------------#
# Add the following line near the top of your auction.cgi
# file: 
# use sendmail;
#------------------------------------------------------#
# The above assumes that your @INC includes your CGI-BIN
# directory.
#------------------------------------------------------#

#------------------------------------------------------#
# Copy the code below and replace your existing 
# sendemail sub with it.
#------------------------------------------------------#

#------------------------------------------------------#
# SUB: Send EMail uses sendmail.pm
# Added this because original didn't work on NT
#
# Takes:
# (To, Subject, Reply-To, IP ADDRESS of SMTP host, Message)
#------------------------------------------------------#
sub sendemail {
#------------------------------------------------------#
	$TO=$_[0];  @TO=split('\0',$TO);
	$SUBJECT=$_[1];
	$REPLYTO=$_[2];
	$REMOTE = $_[3];
	$THEMESSAGE = $_[4];

	$sm = new SendMail($mailserver);
	$sm->setDebug($sm->OFF);
	$sm->From($mailfrom);
	$sm->Subject($SUBJECT);
	$sm->To($TO[0]);
	$sm->setMailBody($THEMESSAGE);

	if ($sm->sendMail() != 0) {
	  print $sm->{'error'}."MAIL ERROR!!\n";
	  # exit -1;
	  # exit 0;	
	}

	print "\n\n";
	# exit 0;
	return 0;
}
#------------------------------------------------------#