maillip.c

基于S3C4510的家庭网关的通讯进程程序源码

/***************************************************************
文件名：maillip.c 
功能：采集数据的传输
完成日期：2004.7.18
 **************************************************************/
#include <sys/types.h>
#include <sys/socket.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <time.h>
#include <sys/time.h>
#include <stdlib.h>
#include <stdarg.h>		
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>
#include <netdb.h>
#include <errno.h>
#include <malloc.h>

#include "mm.h"

/***************************************************************
base64编码程序
***************************************************************/
unsigned char *encode(unsigned char *src,int srclen)
{
 int n,buflen,i,j;
 int pading=0;
 unsigned char *buf;
 unsigned char *dst; 

 buf=src;
 buflen=n=srclen;
 if(n%3!=0)  /* pad with '=' by using a temp buffer */
 {
  pading=1;
  buflen=n+3-n%3;
  buf=malloc(buflen+1);
  memset(buf,0,(buflen+1));
  memcpy(buf,src,n);
  for(i=0;i<3-n%3;i++)
   buf[n+i]='=';
 }
 dst=malloc(buflen*4/3+1);
 memset(dst,0,(buflen*4/3+1));
 for(i=0,j=0;i<buflen;i+=3,j+=4)
 {
  dst[j]=(buf[i]&0xFC)>>2;
  dst[j+1]=((buf[i]&0x03)<<4) + ((buf[i+1]&0xF0)>>4);
  dst[j+2]=((buf[i+1]&0x0F)<<2) + ((buf[i+2]&0xC0)>>6);
  dst[j+3]=buf[i+2]&0x3F; 
 }
 for(i=0;i<buflen*4/3;i++) /* map 6 bit value to base64 ASCII character */
  dst[i]=ch64[dst[i]];
 if(pading)
  free(buf);
 return dst;
}

/***************************************************************
base64解码程序
***************************************************************/
unsigned char *decode(unsigned char *src)
{
 int n;
 int i=0;
 int j=0;
 int k=0;
 int length;
 unsigned char *p;
 unsigned char *dst; 
 length=strlen(ch64);
 n=strlen(src);
 for(i=0;i<n;i++) 
 {
  p=strchr(ch64,src[i]);
  if(!p)
  {
   break;
  }

  for(k=0;k<length;k++)
  {
   if(src[i]==ch64[k])
    {
      src[i]=k;
     break;
     }
  }

 }
 dst=malloc(n*3/4+1);
 memset(dst,0,(n*3/4+1));
 for(i=0,j=0;i<n;i+=4,j+=3)
 {
  dst[j]=(src[i]<<2) + ((src[i+1]&0x30)>>4);
  dst[j+1]=((src[i+1]&0x0F)<<4) + ((src[i+2]&0x3C)>>2);
  dst[j+2]=((src[i+2]&0x03)<<6) + src[i+3];
 }
 return dst;
}

/***************************************************************
邮件地址空间分配及赋值
***************************************************************/
char * smtp_fill_in_addresses(char * source_string)
	{
	char * retval;
	retval = (char *)malloc(strlen(source_string)+1);
	if (retval != NULL)
	   {
	   //copy source into variable space!
	   strcpy(retval,source_string);
	   }
	return(retval);
	} 	
	
/***************************************************************
清楚邮件信息
***************************************************************/	
void smtp_clear(SMTP * smtp)
   {
   if (smtp == NULL) return;
	smtp->strSmtpServer = "";
	smtp->strMessageBody = "";
	smtp->strSubject = "";
	//this is the e-mail address of the sender
	smtp->strSenderUserId = "";
	smtp->strFullSenderUserId = "";
	//Desitination addresses
	smtp->strDestUserIds = "";
	smtp->strFullDestUserIds = "";
	smtp->strRplyPathUserId = "";
	//this is who the return receipt goes back to
	smtp->strRrcptUserId = "";
	//override the name of the mailing function with this field
	smtp->strMailerName = "";
	//add a comment here if necessary
	smtp->strMsgComment = "";	
	} 
	
/***************************************************************
输出邮件的相关信息
***************************************************************/	
void smtp_print(SMTP * smtp)
   {
	smtp->strSmtpServer;
	smtp->strMessageBody;
	smtp->strSubject;
	printf("SenderUserId: %s\n\r",smtp->strSenderUserId);
	printf("DestUserIds: %s \n\r",smtp->strDestUserIds);
	smtp->strRrcptUserId;
   }

/***************************************************************
邮件信息的格式和发送、发送邮件前邮件信息空间地址分配及赋值
发送成功返回1，失败返回0
***************************************************************/

int smtp_send_mail (SMTP *smtp, int show_progress)
   {
   int iCnt,x,retval;
   char strRetBuff[513];
   char *strRcptUserIds;

   /* The following tells the mail server who to send it to. */
   iCnt = 0;
   strRcptUserIds = (char *) malloc (strlen (smtp->strDestUserIds) +1);                                     	
   if (strRcptUserIds == NULL)
   	{		
   	return(-100);
   	} 
	//concatenate the destuserids, the ccuserids, and the bccuserids
    sprintf (strRcptUserIds, "%s", smtp->strDestUserIds);

   while (1)
     	{
      getstrfld (strRcptUserIds, iCnt++, 0, ",;", strRetBuff);

      if (*strRetBuff)
         {
		   if (show_progress)
		   	printf("Recipient %d %s\n\r",iCnt,strRetBuff);
         }
        else
         break;
		} 	
	iCnt--;			
   free (strRcptUserIds);
	
	for (x = 1;x<=iCnt;x++)
	   {
	   //send a message for each recipient...
	   retval = smtp_send_mail_func(smtp,x,show_progress);  //调用发送函数
	   if (retval) break;
	   }
	
	return (retval);
	} 

/***************************************************************
发送函数
***************************************************************/	
int smtp_send_mail_func (SMTP *smtp,int recipient_index, int show_progress)
   {
   int iCnt;
   int iSocket;
   char strOut[514], strRetBuff[513];
   char computer[256];
   char *strRcptUserIds;
   int rply;
	iSocket = smtp_connect(smtp);
	if (iSocket <0) return (-1);	
   if (getreply (iSocket, smtp) > 400 || iSocket < 1)
       return -1;

   /* Format a SMTP meassage header.  */
   /* Just say hello to the mail server. */
   gethostname(&computer[0],255); //get back the name of this computer
   xstrcpy (strOut, "HELO ", computer, "\n", NULL);
   smtp_send_data (iSocket, strOut);
   if (getreply (iSocket, smtp) > 400)
	return -2;

   /* Tell the mail server who the message is from. */
   xstrcpy (strOut, "MAIL FROM:<", smtp->strSenderUserId, ">\n", NULL);
   smtp_send_data (iSocket, strOut);
   if (getreply (iSocket, smtp) > 400)
       return -3;
   strRcptUserIds = (char *) malloc (strlen (smtp->strDestUserIds) +1);
   if (strRcptUserIds == NULL)
   	{		
   	return(-100);
   	} 

	//concatenate the destuserids, the ccuserids, and the bccuserids
   sprintf (strRcptUserIds, "%s", smtp->strDestUserIds);
   /* The following tells the mail server who to send it to. */
	//Loop for each recipient
   iCnt = 0;	
   while (1)
     	{
      getstrfld (strRcptUserIds, iCnt++, 0, ",;", strRetBuff);

      if (*strRetBuff)
         {
         if (recipient_index == iCnt)
            {
            xstrcpy (strOut, "RCPT TO:<", strRetBuff, ">\r\n", NULL);
            smtp_send_data (iSocket, strOut);
            if (getreply (iSocket, smtp) > 400)
               return -4;
            } //end if matching recipient index
         }
        else
         break;
		} 

	
   free (strRcptUserIds);

   /* Now give it the Subject and the message to send. */	
   smtp_send_data (iSocket, "DATA\r\n");
   if (getreply (iSocket, smtp) > 400)
       return -5;

   /* Set the date and time of the message. */
   xstrcpy ( strOut, "Date: ", encode_mime_time (date_now (), time_now ()),
             " \r\n", NULL );
   smtp_send_data (iSocket, strOut);

   /* The following shows all who it was sent to. */
   if ( smtp->strFullDestUserIds && *smtp->strFullDestUserIds )
		{
      replacechrswith (smtp->strFullDestUserIds, ";", ',');
      xstrcpy (strOut, "To: ", smtp->strFullDestUserIds, "\r\n", NULL);
		}
     else
		{
      replacechrswith (smtp->strDestUserIds, ";", ',');
      xstrcpy (strOut, "To: ", smtp->strDestUserIds, "\r\n", NULL);
		} //end if FullDestUserIds not Null

   // Set up the Reply-To path. 
   //If there is no setting for  the reply-to, stick in the e-mail address of
   //the sender.
   if (!smtp->strRplyPathUserId || !*smtp->strRplyPathUserId)
      smtp->strRplyPathUserId = smtp->strSenderUserId;

   //if the reply address is not surrounded by <>, add them.
   if ( (strstr( smtp->strRplyPathUserId, "<" ) != (char *)NULL) &&
        (strstr( smtp->strRplyPathUserId, ">" ) != (char *)NULL) )
   	{
      xstrcat (strOut, "Reply-To:", smtp->strRplyPathUserId, "\r\n", NULL);
     	}
     else
     	{
      xstrcat (strOut, "Reply-To:<", smtp->strRplyPathUserId, ">\r\n", NULL);
     	} //end if RplyPathUserId has <>

   //indicate the sender of the message.
   //If we have a FullSenderUserID, us it, otherwise use the SenderUserId
   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);
     	} 

   smtp_send_data (iSocket, strOut);

   *strOut = '\0';

   if (smtp->strRrcptUserId && *smtp->strRrcptUserId)
   	xstrcat (strOut, "Return-Receipt-To:", smtp->strRrcptUserId, ">\r\n",
      		NULL);

   //indicate the mailing function.
   //If the caller is overriding, use the name supplied, otherwise
   //send the name of this function.
   if (smtp->strMailerName && *smtp->strMailerName)
   	xstrcat (strOut, "X-Mailer: ", smtp->strMailerName, "\r\n", NULL);
     else
      xstrcat (strOut, "X-Mailer: ", SMTP_MAILER_NAME, "\r\n", NULL);

   /* Set the mime version. */
   strcat (strOut, "MIME-Version: 1.0\r\n");
   strcat (strOut,
   "Content-Type: Multipart/Mixed; boundary=\"Message-Boundary-21132\"\r\n");	
   smtp_send_data (iSocket, strOut);

   /* Write out any message comment included. */
   xstrcpy (strOut, "Comments: ", smtp->strMsgComment, "\r\n", NULL);

   /* Send the subject and message body. */
   xstrcat (strOut, "Subject:", smtp->strSubject, "\r\n", NULL);
   smtp_send_data (iSocket, strOut);
   	
   //reset strOut
   *strOut = '\0';

   /* Keep rfc822 in mind with all the sections. */