#!/usr/bin/perl



## NO NEED TO EDIT THIS FILE ##


sub sdsmtp {


	$msgSubject = "Online Registration Form - " . "$formdata{'subject'}";


		$nl = "\n";
		$msgMessage = "";

	$msgMessage=$msgMessage.$formdata{'message'}.$nl.$nl.$nl;
	$msgMessage=$msgMessage."This registration form was submitted by ";
	$msgMessage=$msgMessage.$POSTER_email."    Ip address:  ".$ENV{'REMOTE_ADDR'};
	$msgMessage=$msgMessage."   ".$D_month." ".$L_day.", ".$year;
	$msgMessage=$msgMessage." at ".$L_hour.":".$L_min.$nightday.$nl;
	$msgMessage=$msgMessage."-------------------------------------------------------------------------".$nl.$nl;


	for ($numsort = 0; $numsort < @sortfields; $numsort++) {
	$sfield = $sortfields[$numsort];
	${'sfieldvalue'} = $formdata{"$sfield"};
	${'sfield'} = "$sfield";

	## CHECK BLANK FIELDS ##
	if ($PRNT_blankfields eq "2" && ! ${'sfieldvalue'}) {
	}else{
	$msgMessage .= "${'sfield'}:   ${'sfieldvalue'} \n\n";
        } ## END CHECK BLANK FIELDS ##



  $msgformat = "text/plain";



$mail_return = "$mail_sendto";

eval { require(Net::SMTP)};
if ($@) {
print "Failed to load";
exit;
}

##check to see if send email results##
    if ($send_email_results eq "1") {
$smtp = Net::SMTP->new($smtp_server); # connect to an SMTP server #
 # use the sender's address here #
if ($send_from_poster eq "1") {
	$smtp->mail($POSTER_email);
}else{
	$smtp->mail($FROM_results_email);
}
$smtp->to ($mail_sendto); # recipient's address #
$smtp->data(); # Start the mail #

$smtp->datasend("To: ".$mail_sendto."\n");

if ($send_from_poster eq "1") {
	$smtp->datasend("From: $POSTER_email\n"); 
}else{
	$smtp->datasend("From: $FROM_results_email\n"); 
}
$smtp->datasend("Subject: $msgSubject\n"); 
$plain_msgformat = "text/plain";
$smtp->datasend("Content-Type: ".$plain_msgformat);
$smtp->datasend("\n\n");
$smtp->datasend($msgMessage."\n"); 
$smtp->datasend("\n"); 
$smtp->datasend("\n"); 
$smtp->datasend("\n"); 
$smtp->datasend("\n");

$smtp->dataend(); # Finish sending the mail #
$smtp->quit; # Close the SMTP connection #



} ## END sdsmtp #

return 1;