#!/usr/bin/perl


## NO NEED TO EDIT THIS FILE ##


sub sdsmail {
     


	$MAIL_all_lines = "The form below was submited by $POSTER_email form Ip address: $ENV{'REMOTE_ADDR'} on $D_month $L_day, $year at $L_hour:$L_min $nightday \n";
	$MAIL_all_lines = "$MAIL_all_lines -------------------------------------------------------------------------\n\n";
	$MAIL_all_lines = "$MAIL_all_lines$MAIL_filed_lines";

	## INJECTION PREVETION ##
	$MAIL_all_lines =~ s/\r\n/\n/g;
	$MAIL_all_lines =~ s/\r//g;
	$MAIL_all_lines =~ s/To:/To;/g;
	$MAIL_all_lines =~ s/Cc:/Cc;/g;
	$MAIL_all_lines =~ s/From:/From;/g;
	$MAIL_all_lines =~ s/Subject:/Subject;/g;
	## END INJECTION PREVETION ##



				##   S T A R T   M A I L   H E A D E R S   ##
				$MAIL_headers = "To: $FINAL_sendto\n";
				if ($send_from_poster eq "1") {
				$MAIL_headers = $MAIL_headers."From: $formdata{'email'}\n";
				}else{
				$MAIL_headers = $MAIL_headers."From: $FROM_results_email\n";
				}
				$MAIL_headers = $MAIL_headers."Subject: $formdata{'subject'}\n";

			$PREDEFINED_mail_contents = "$MAIL_headers$MAIL_all_lines\n\n";

			open(MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
			print MAIL "$PREDEFINED_mail_contents\n\n";
			close MAIL;



}

return 1;