	# sending mail, postfix SMTP version

	# mail is piped back to postfix through a specific port
	my $rv;
	use Net::SMTP;
	my $SMTP_HANDLE = Net::SMTP->new("127.0.0.1:$smtp_port",
				Hello => 'localhost',
				Timeout => 30,
				Debug => 0
				);
	if (!defined($SMTP_HANDLE)) {
		do_log(0,"Failure to open local SMTP port");
		do_exit($REGERR, __LINE__);
	}
	$SMTP_HANDLE->mail($SENDER);
	$SMTP_HANDLE->to(@RECIPS);
	$SMTP_HANDLE->data();
	while (<$fh>) {
		next if ($seen_xheader == 0 && m/^$X_HEADER_TAG:/o);
		if ($seen_xheader == 0 && m/\A\r?\n\Z/) {
			$SMTP_HANDLE->datasend("$X_HEADER_TAG" . ": " . "$X_HEADER_LINE\n");
			$seen_xheader = 1;
		}
		$SMTP_HANDLE->datasend($_);
	}
	# Returns true for success
	$rv = $SMTP_HANDLE->quit;
	if (!$rv) {
		do_log(0,"smtp quit returns $rv");
		do_exit($REGERR, __LINE__);
	}
	do_exit(0, __LINE__);

# End postfix                    
