int smtp_send_mail_ex (
SMTP *smtp)
{
FILE
*fpin;
int
iCnt;
sock_t
socket_handle;
char
message_boundary [256],
strOut [514],
strFile [256],
strUUEFile [256],
buffer [BUFFER_SIZE + 1],
*charset,
*nb_bit,
*data,
*p_buffer,
*strRcptUserIds;
Bool
old_ip_nonblock = ip_nonblock;
int
rcptUserIdsLen;
long
current_date,
current_time,
out_size,
in_size;
char
*quoted_subject = NULL,
*in_buf,
*out_buf;
/* Check required parameters */
if (smtp == NULL)
return (SMTP_ERROR_CONNECT);
if (smtp->strDestUserIds == NULL)
return (SMTP_ERROR_MISSING_DESTINATION);
if (smtp->strSubject == NULL)
return (SMTP_ERROR_MISSING_SUBJECT);
if (smtp->strSmtpServer == NULL)
return (SMTP_ERROR_MISSING_SERVER_NAME);
/* Make sure we block on socket accesses */
ip_nonblock = FALSE;
sock_init ();
/* Open up the SMTP port (25 most of the time). */
if (smtp-> connect_retry_cnt < 1)
smtp-> connect_retry_cnt = 3;
nb_bit = "7";
if (smtp-> strCharSet == NULL
|| *smtp-> strCharSet == '\0')
charset = "US-ASCII";
else
{
charset = smtp-> strCharSet;
nb_bit = "8";
if (smtp-> strSubject)
{
if (lexcmp (charset, "iso-2022-jp") == 0
|| lexcmp (charset, "shift_jis") == 0
|| lexcmp (charset, "utf-8") == 0) {
quoted_subject = encode_mimeb_string (NULL, 0,
(byte *) smtp->strSubject, charset);
}
else
quoted_subject = encode_quoted_string (NULL, 0,
(byte *) smtp->strSubject, charset);
}
}
socket_handle = connect_socket (smtp-> strSmtpServer,
"smtp", "tcp", NULL,
smtp-> connect_retry_cnt,
smtp-> retry_wait_time);
if (socket_handle == INVALID_SOCKET
|| getreply (socket_handle, smtp) > SMTP_SERVER_ERROR)
{
mem_strfree ("ed_subject);
sock_term ();
return (SMTP_ERROR_CONNECT);
}
/* Format a SMTP meassage header. */
/* Just say hello to the mail server. */
xstrcpy (strOut, "HELO ", get_hostname (), "\r\n", NULL);
send_data (socket_handle, strOut);
if (getreply (socket_handle, smtp) > SMTP_SERVER_ERROR)
{
CLEAN_SEND_MAIL;
return (SMTP_ERROR_INIT);
}
/* Tell the mail server who the message is from. */
xstrcpy (strOut, "MAIL FROM:<", smtp-> strSenderUserId, ">\r\n", NULL);
send_data (socket_handle, strOut);
if (getreply (socket_handle, smtp) > SMTP_SERVER_ERROR)
{
CLEAN_SEND_MAIL;
return (SMTP_ERROR_INVALID_SENDER);
}
rcptUserIdsLen = 0;
if (smtp-> strDestUserIds)
rcptUserIdsLen += strlen (smtp->strDestUserIds) + 1;
if (smtp-> strCcUserIds)
rcptUserIdsLen += strlen (smtp->strCcUserIds) + 1;
if (smtp-> strBccUserIds)
rcptUserIdsLen += strlen (smtp->strBccUserIds) + 1;
strRcptUserIds = (char *) mem_alloc (rcptUserIdsLen);
p_buffer = strRcptUserIds;
data = smtp-> strDestUserIds;
while (*data)
*p_buffer++ = *data++;
if (smtp-> strCcUserIds)
{
*p_buffer++ = ';';
data = smtp-> strCcUserIds;
while (*data)
*p_buffer++ = *data++;
}
if (smtp-> strBccUserIds)
{
*p_buffer++ = ';';
data = smtp-> strBccUserIds;
while (*data)
*p_buffer++ = *data++;
}
*p_buffer = '\0';
/* The following tells the mail server who to send it to. */
iCnt = 0;
if (*strRcptUserIds) {
FOREVER
{
getstrfld (strRcptUserIds, iCnt++, 0, ",;", buffer);
if (*buffer)
{
xstrcpy (strOut, "RCPT TO:<", buffer, ">\r\n", NULL);
send_data (socket_handle, strOut);
if (getreply (socket_handle, smtp) > SMTP_SERVER_ERROR)
{
CLEAN_SEND_MAIL;
return (SMTP_ERROR_INVALID_RECEIPT_USER);
}
}
else
break;
}
}
mem_free (strRcptUserIds);
/* Now give it the Subject and the message to send. */
send_data (socket_handle, "DATA\r\n");
if (getreply (socket_handle, smtp) > SMTP_SERVER_ERROR)
{
CLEAN_SEND_MAIL;
return (SMTP_ERROR_INVALID_DATA);
}
/* Set the date and time of the message. */
get_date_time_now (¤t_date, ¤t_time);
xstrcpy ( strOut, "Date: ", encode_mime_time (current_date, current_time),
" \r\n", NULL );
/* The following shows all who it was sent to. */
if ( smtp-> strFullDestUserIds && *smtp-> strFullDestUserIds )
{
replacechrswith (smtp-> strFullDestUserIds, ";", ',');
xstrcat (strOut, "To: ", smtp-> strFullDestUserIds, "\r\n", NULL);
}
else
{
replacechrswith (smtp-> strDestUserIds, ";", ',');
xstrcat (strOut, "To: ", smtp-> strDestUserIds, "\r\n", NULL);
}
/* Set up the Reply-To path. */
if (!smtp-> strRetPathUserId || !*smtp-> strRetPathUserId)
smtp-> strRetPathUserId = smtp-> strSenderUserId;
if ( strstr( smtp-> strRetPathUserId, "<" ) != NULL &&
strstr( smtp-> strRetPathUserId, ">" ) != NULL )
xstrcat (strOut, "Reply-To:", smtp-> strRetPathUserId, "\r\n", NULL);
else
xstrcat (strOut, "Reply-To:<", smtp-> strRetPathUserId, ">\r\n", NULL);
if ( smtp-> strFullSenderUserId && *smtp-> strFullSenderUserId )
{
xstrcat (strOut, "Sender: ", smtp-> strFullSenderUserId, "\r\n", NULL);
xstrcat (strOut, "From: ", smtp-> strFullSenderUserId, "\r\n", NULL);
}
else
{
xstrcat (strOut, "Sender: ", smtp-> strSenderUserId, "\r\n", NULL);
xstrcat (strOut, "From: ", smtp-> strSenderUserId, "\r\n", NULL);
}
send_data (socket_handle, strOut);
*strOut = '\0';
/* Post any CC's. */
if (smtp->strFullCcUserIds && *smtp->strFullCcUserIds)
{
replacechrswith (smtp->strFullCcUserIds, ";", ',');
xstrcat (strOut, "Cc:", smtp->strFullCcUserIds, "\r\n", NULL );
}
else
if (smtp->strCcUserIds && *smtp->strCcUserIds)
{
replacechrswith (smtp->strCcUserIds, ";", ',');
xstrcat (strOut, "Cc:", smtp->strCcUserIds, "\r\n", NULL );
}
/* Post any BCC's. */
if (smtp->strFullBccUserIds && *smtp->strFullBccUserIds)
{
replacechrswith (smtp->strFullBccUserIds, ";", ',');
xstrcat (strOut, "Bcc:", smtp->strFullBccUserIds, "\r\n", NULL);
}
else
if (smtp->strBccUserIds && *smtp->strBccUserIds)
{
replacechrswith (smtp->strBccUserIds, ";", ',');
xstrcat (strOut, "Bcc:", smtp->strBccUserIds, "\r\n", NULL);
}
/* Post any Return-Receipt-To. */
if (smtp->strRrcpUserId && *smtp->strRrcpUserId)
xstrcat (strOut, "Return-Receipt-To:", smtp->strRrcpUserId, ">\r\n",
NULL);
if (smtp->strMailerName && *smtp->strMailerName)
xstrcat (strOut, "X-Mailer: ", smtp->strMailerName, "\r\n", NULL);
else
strcat (strOut, "X-Mailer: sflmail function\r\n");
/* Set the mime version. */
get_date_time_now (¤t_date, ¤t_time);
sprintf (message_boundary, "%s.%ld.%ld", MESSAGE_BOUNDARY,
current_date, current_time);
if ( smtp->strHtmlMessageBody && *smtp->strHtmlMessageBody )
xstrcat (strOut, "MIME-Version: 1.0\r\n",
"Content-Type: multipart/alternative; boundary=\"",
message_boundary,"\"\r\n", NULL);
else
xstrcat (strOut, "MIME-Version: 1.0\r\n",
"Content-Type: Multipart/Mixed; boundary=\"",
message_boundary,"\"\r\n", NULL);
send_data (socket_handle, strOut);
*strOut = '\0';
/* Write out any message comment included. */
if (smtp->strMsgComment && *smtp->strMsgComment)
xstrcpy (strOut, "Comments: ", smtp->strMsgComment, "\r\n", NULL);
/* Send the subject and message body. */
if (quoted_subject)
xstrcat (strOut, "Subject: ", quoted_subject, "\r\n\r\n", NULL);
else
xstrcat (strOut, "Subject: ", smtp->strSubject, "\r\n\r\n", NULL);
send_data (socket_handle, strOut);
/* Keep rfc822 in mind with all the sections. */
if (smtp->strMessageBody && *smtp->strMessageBody)
{
/* check if we got html/alternate files */
if ( smtp->strHtmlMessageBody && *smtp->strHtmlMessageBody )
{
xstrcpy (strOut,
"\r\n\r\n--", message_boundary, "\r\n",
"Content-Type: text/html; charset=", charset, "\r\n",
"Content-Transfer-Encoding: 7BIT\r\n",
"Content-description: Body of message\r\n\r\n", NULL);
send_data (socket_handle, strOut);
send_body (socket_handle, smtp->strHtmlMessageBody);
send_data (socket_handle, "\r\n");
xstrcpy (strOut,
"\r\n--", message_boundary, "\r\n",
"Content-Type: text/plain; charset=", charset, "\r\n",
"Content-Transfer-Encoding: ", nb_bit, "BIT\r\n",
"Content-description: Body of message\r\n\r\n", NULL);
send_data (socket_handle, strOut);
send_body (socket_handle, smtp-> strMessageBody);
send_data (socket_handle, "\r\n");
}
else
{
xstrcpy (strOut,
"\r\n--", message_boundary, "\r\n",
"Content-Type: text/plain; charset=", charset, "\r\n",
"Content-Transfer-Encoding: ", nb_bit, "BIT\r\n",
"Content-description: Body of message\r\n\r\n", NULL);
send_data (socket_handle, strOut);
send_body (socket_handle, smtp-> strMessageBody);
send_data (socket_handle, "\r\n");
}
}
/* Include any Text type files and Attach them to the message. */
if (smtp->strTxtFiles && *smtp->strTxtFiles)
{
iCnt = 0;
FOREVER
{
getstrfld (smtp->strTxtFiles, iCnt++, 0, ",;", strFile);
strcrop (strskp (strFile));
if (*strFile)
{
fpin = fopen (strFile, "rb");
if (!fpin)
{
strcpy (smtp->strlast_smtp_message, strFile);
{
CLEAN_SEND_MAIL;
return (SMTP_ERROR_MISSING_ATTACH_FILE);
}
}
xstrcpy (strOut, "\r\n--", message_boundary, "\r\n",
"Content-Type: text/plain; charset=", charset, "\r\n",
"Content-Transfer-Encoding: ", nb_bit, "BIT\r\n",
"Content-Disposition: attachment; filename=",
getfilename (strFile), "\r\n\r\n", NULL);
send_data (socket_handle, strOut);
while (fgets (buffer, BUFFER_SIZE, fpin))
{
if (*buffer == '.')
write_TCP (socket_handle, ".", 1);
send_data (socket_handle, buffer);
}
fclose (fpin);
}
else
break;
}
}
int main (int argc, char *argv [])
{
char
*feedback,
read_buffer [LINE_MAX+1];
byte
decoded_buffer [LINE_MAX+1],
encoded_buffer [LINE_MAX+1];
size_t
return_size;
FILE
*file;
memset (read_buffer, 0, LINE_MAX+1);
memset (encoded_buffer, 0, LINE_MAX+1);
memset (decoded_buffer, 0, LINE_MAX+1);
if (argc > 1)
{
file = file_open (argv[1], 'r');
if (file != NULL)
{
while (file_read (file, read_buffer) == TRUE)
{
printf ("Read : %s\n", read_buffer);
/* Encode the buffer */
return_size = encode_base64 ((byte *) read_buffer,
encoded_buffer,
strlen (read_buffer));
printf ("Encoded : %s\n", encoded_buffer);
/* Decode the buffer */
decode_base64 (encoded_buffer, decoded_buffer, return_size);
printf ("Decoded : %s\n\n", decoded_buffer);
/* Test if error */
if (strcmp (read_buffer, (char *) decoded_buffer) != 0)
{
printf ("Error : decoded is not same as read\n");
break;
}
/* Reset the buffers */
memset (decoded_buffer, 0, LINE_MAX+1);
memset (encoded_buffer, 0, LINE_MAX+1);
}
file_close (file);
}
}
printf ("Test encode quoted string\n");
printf ("encoding this string: %s\n", TEST_FRENCH);
feedback = encode_quoted_string (NULL, 0, TEST_FRENCH, "ISO-8859-1");
if (feedback)
{
printf ("Result: %s\n", feedback);
mem_free (feedback);
}
feedback = encode_mimeb_string (NULL, 0, TEST_FRENCH, "iso-2220-jp");
if (feedback)
{
printf ("Result: %s\n", feedback);
mem_free (feedback);
}
return (EXIT_SUCCESS);
}
