cgi_mail.c

Go to the documentation of this file.

/******************************************************************************/
/* cgi_mail.c © Copyright 2005-2007 by Raosoft Inc. All Rights Reserved.      */
/*                                                                            */
/* You may use and modify this file for your own use, but may not distribute  */
/* it or derivative works without the prior written consent of Raosoft, Inc.  */
/*                                                                            */
/* If you choose to share your modifications with Raosoft, Inc. the company   */
/* will attempt to incorporate them into future versions of this file.        */
/*                                                                            */
/* This software is provided "as is," and Raosoft makes no warranty, express  */
/* or implied, of fitness for a particular application. Every measure has been*/
/* taken to anticipate risks inherent to computer networks, but we cannot     */
/* guarantee safety or reliability of this program in every situation.        */
/*                                                                            */
/******************************************************************************/

#include "cgi.h"

#ifdef XP_WIN
#include <winsock2.h>
#endif

int WinsockConnect(char* host, int port, unsigned int*s);

int Reply(unsigned int s)
{
  char reply[256];
  int i=0;
  for (i=0; i<256; i++)
  {
      if (!recv(s, reply+i, 1, 0))
          return 0;
      if (reply[i] == '\n')
       {
         reply[i]=0;
         break;
       }
  }

  reply[255]=0;
  return atoi(reply);
}

int SMTPSendMail(char * host,  char* subject, char* recip, char* textnote)
{
 unsigned int s;
#if defined(XP_WIN)
 WSADATA d;
#else
#define INVALID_SOCKET 0xffffffff
#endif
 int err;

#if defined(XP_WIN)
 if (WSAStartup(2, &d) != 0)     /* init winsock lib. want v2.0 */
  {
   WSACleanup();
   return 61;
  }
#endif

 err = WinsockConnect(host, 25, &s);
 if (!err)
 {
  err = 2;

  if (Reply(s) != 220) goto done;
  send(s, "HELO ", 5, 0);
  send(s, host, strlen(host), 0);
  send(s, "\r\n", 2, 0);

  if (Reply(s) != 250) goto done;

  err = 0;
  send(s, "MAIL FROM: <", 14, 0);
  send(s, recip, strlen(recip), 0);
  send(s, ">\r\nRCPT TO: <", 13, 0);
  send(s, recip, strlen(recip), 0);
  send(s, ">\r\nDATA\r\n", 9, 0);
  send(s, "Subject: ", 9, 0);
  send(s, subject, strlen(subject), 0);
  send(s, "\r\nFrom: ", 8, 0);
  send(s, recip, strlen(recip), 0);
  send(s, "\r\nTo: ", 7, 0);
  send(s, recip, strlen(recip), 0);

  if (strnicmp(textnote,"<HTML",5))
  {
   send(s, "\r\n\r\n", 4,0);
   send(s, textnote,strlen(textnote),0);
  }
  else
  {
   char*c = "\r\nMIME-Version: 1.0\r\n"
            "Content-Type: multipart/alternative; boundary=\"_Mime-Boundary_72616F\"\r\n\r\n";
   send(s,c , strlen(c),0);
   c = "  This is a multi-part message in MIME format.\r\n\r\n"
       "--_Mime-Boundary_72616F\r\n"
       "Content-Type: text/html; charset=\"utf-8\""
       "Content-Transfer-Encoding: 8bit\r\n\r\n";
   send(s,c , strlen(c),0);
   send(s, textnote,strlen(textnote),0);
   c = "\r\n--_Mime-Boundary_72616F--";
   send(s,c , strlen(c),0);
  }

 send(s, "\r\n.\r\n" , 5 , 0);

 }

done:
 if (s != INVALID_SOCKET) /* shutdown and close the socket if needed */
   {
     send(s, "QUIT\r\n" , 6 , 0);
     shutdown(s, 2);   /* shutdown both channels (read+write) */
#ifdef XP_WIN
    closesocket(s);
#endif
#ifdef XP_UNIX
    close(s);
#endif
   }

#if defined(XP_WIN)
 WSACleanup();
#endif

 return err;
}

#if defined(__WINCE__)
/* #include <mapi.h> */

int SendMail(char * recip, char * subject,
   char * textnote, char* server, char* profile, char* name, char* password)
{
/*
 personalserver.cpp overrides SendMail() for Windows CE and stand-alone servers
 by queing outbox.ezs file and sending with a background process.
*/
    return 0;
}

#elif defined(XP_WIN)
#include <winsock2.h>

#define CMC_USE_MSWIN_NT

#ifdef __BORLANDC__
#include <win32/xcmc.h>
#include <win32/xcmcext.h>
#include <win32/xcmcmsxt.h>
#else
#include "xcmc.h"
#include "xcmcext.h"
#include "xcmcmsxt.h"
#endif

#define CMC_API FAR PASCAL
#define CMC_CALLBACK CMC_API *

typedef CMC_return_code (CMC_CALLBACK PCMCLOGOFF)
             (CMC_session_id     session,
              CMC_ui_id          ui_id,
              CMC_flags          logoff_flags,
              CMC_extension      *logoff_extensions);

typedef CMC_return_code (CMC_CALLBACK PCMCLOOKUP)
             (CMC_session_id     session,
              CMC_recipient      *recipient_in,
              CMC_flags          look_up_flags,
              CMC_ui_id          ui_id,
              CMC_uint32         *count,
              CMC_recipient      **recipient_out,
              CMC_extension      *look_up_extensions);

typedef CMC_return_code (CMC_CALLBACK PCMCLOGON)
             (CMC_string         service,
              CMC_string         user,
              CMC_string         password,
              CMC_object_identifier  character_set,
              CMC_ui_id          ui_id,
              CMC_uint16         caller_cmc_version,
              CMC_flags          logon_flags,
              CMC_session_id     *session,
              CMC_extension      *logon_extensions);

typedef CMC_return_code (CMC_CALLBACK PCMCSEND)
             (CMC_session_id     session,
              CMC_message        *message,
              CMC_flags          send_flags,
              CMC_ui_id          ui_id,
              CMC_extension      *send_extensions);

typedef CMC_return_code (CMC_CALLBACK PCMCFREE)
             (CMC_buffer         memory);

int CMCSendMail(char * recip, char * subject,
   char * textnote, char* profile, char* name, char* password)
{
  PCMCLOGOFF              CMCLogoff;
  PCMCLOGON               CMCLogon;
  PCMCSEND                CMCSend;
  PCMCLOOKUP              CMCLookUp;
  PCMCFREE                CMCFree;
  CMC_session_id   cmcSessionID;
  char LibName[1024];
  HANDLE library;
  CMC_return_code cmcsts;
  CMC_recipient recipient;
  CMC_recipient * CMCReciparray=0;
  CMC_message  message;
  unsigned long int recipcount = 1;

  /* load library */

  GetProfileString("Mail", "CMCDLLNAME32", "MAPI32.DLL", LibName, 1024);
  library = LoadLibrary(LibName);
  if ((UINT) library < 32) return 31;

  /* log on */
  CMCLogoff = (PCMCLOGOFF)GetProcAddress(library,"cmc_logoff");
  CMCLogon  = (PCMCLOGON) GetProcAddress(library,"cmc_logon");
  CMCSend   = (PCMCSEND)  GetProcAddress(library,"cmc_send");
  CMCLookUp = (PCMCLOOKUP)GetProcAddress(library,"cmc_look_up");
  CMCFree   = (PCMCFREE)GetProcAddress(library,"cmc_free");

  if (!CMCLogoff || !CMCLogon || !CMCSend || !CMCFree)
  {FreeLibrary(library); return 32;}

  cmcsts = CMCLogon(profile,name,password,0,0,
                    CMC_VERSION,0,&cmcSessionID,0);

  if (cmcsts) {FreeLibrary(library); return 32;}

  /* look up address */
  recipient.name = recip;
  recipient.name_type = CMC_TYPE_UNKNOWN;
  recipient.address = NULL;
  recipient.role = CMC_ROLE_TO;
  recipient.recip_flags = 0;
  recipient.recip_extensions = NULL;
  recipient.recip_flags = CMC_RECIP_LAST_ELEMENT;

  if (CMCLookUp)
   cmcsts = CMCLookUp(cmcSessionID,
                     &recipient,
                     CMC_LOOKUP_RESOLVE_PREFIX_SEARCH,
                     0,
                     &recipcount,
                     &CMCReciparray,
                     0
                     );

  if (cmcsts)
   {
    CMCLogoff(cmcSessionID,0,0,0);
    FreeLibrary(library);
    return 33;
   }

  /* send message */

   message.message_reference  =NULL;
   message.message_type       = "CMC: IPM";
   message.subject            = subject;
   memset(&message.time_sent,0,sizeof(message.time_sent));
   message.text_note          = textnote;
   message.recipients         = CMCReciparray;
   message.attachments        = NULL;
   message.message_flags      = CMC_MSG_UNSENT;
   message.message_extensions = NULL;

  cmcsts = CMCSend(cmcSessionID,&message,0,0,0);

  if (cmcsts)
   {
    CMCFree(CMCReciparray);
    CMCLogoff(cmcSessionID,0,0,0);
    FreeLibrary(library);
    return 34;
   }

  /* log off */

  CMCFree(CMCReciparray);
  CMCLogoff(cmcSessionID,0,0,0);
  FreeLibrary(library);
  /* done */
  return 0;
}


int SendMail(char * recip, char * subject,
   char * text, char* server, char* profile, char* name, char* password)
{
 int i = 1;

     if (server)
      if (*server)
       i = SMTPSendMail(server, subject, recip, text);

     if (i != 0)
      i = CMCSendMail(recip, subject,text,profile,name,password);

 return i;
}
/*
int SendDataToEmail(CGINameValue* data, char* database,
   char * recip, char* SMTPServer, char* profile, char* name, char* password)
   {
    int i;
    int length;
    char* text, *c;
    char subject[1024];

    strcpy(subject,"EZSurvey data for ");
    strcat(subject,database);

    length = 256;

    for (i=0; data[i].name; i++)
     {
      if (data[i].name[0] == '_' || data[i].name[0] == 0) continue;
      length += strlen(data[i].name);
      length += strlen(data[i].value);
      length += 4;
     }

     text = CGIMALLOC(length);
     if (!text) return 35;
     c = stpcpy(text,"EZSurvey web data from: ");
     c = stpcpy(c,GetFieldValue(data,"HOST"));
     c = stpcpy(c,"\r\nX-DATABASE: ");
     c = stpcpy(c,database);
     c = stpcpy(c,"\r\n");

     for (i=0; data[i].name; i++)
     {
      if (data[i].name[0] == '_' || data[i].name[0] == 0) continue;
      c = stpcpy(c,data[i].name);
      c = stpcpy(c,": ");
      c = stpcpy(c,data[i].value);
      c = stpcpy(c,"\r\n");
     }

      i = SendMail(recip, subject,text,SMTPServer,profile,name,password);

     CGIFREE(text);

     return i;
   }
*/
#else /* XP_WIN */

/*
int SendDataToEmail(CGINameValue* data, char* database,
   char * recip, char* SMTPServer, char* profile, char* name, char* password)
   {
    FILE * f;
    int i;

    f = popen("sendmail -t","w");
    if (!f) f = popen(SENDMAIL " -t","w");
    if (!f) f = popen("/usr/lib/sendmail -t","w");
    if (!f) return 36;

    fprintf(f,"To: %s\n",recip);
    fprintf(f,"Subject: EZSurvey web data for %s\n\n",database);
    fprintf(f,"EZSurvey web data from: %s\r\nX-DATABASE: %s\n",
              GetFieldValue(data,"HOST"),database);

    for (i=0; data[i].name; i++)
     {
      if (data[i].name[0] == '_' || data[i].name[0] == 0) continue;
      fprintf(f,"%s: %s\n",data[i].name,data[i].value);
     }
    fprintf(f,".\nQUIT\n");

    pclose(f);

    return 0;
   }
*/

int SendMail(char * recip, char * subject,
   char * textnote, char* server, char* profile, char* name, char* password)
{
    FILE * f;

   if (server && *server)
   {
     if (!SMTPSendMail(server, subject, recip, textnote))
       return 0;
   }

    f = popen("sendmail -t","w");
    if (!f) f = popen("/usr/sbin/sendmail -t","w");
    if (!f) f = popen("/usr/lib/sendmail -t","w");
    if (!f) f = popen("/usr/lib/sbin/sendmail -t","w");
    if (!f) return 36;

    fprintf(f,"To: %s\n",recip);
    fprintf(f,"From: %s\n",recip);

  if (strnicmp(textnote,"<HTML",5)) /* standard text message */
  {
   fprintf(f,"Subject: %s\n",subject);
   fprintf(f,"\n");
   fwrite(textnote,1,strlen(textnote),f);
  }
  else /* HTML message */
  {
   char*c = "MIME-Version: 1.0\n"
            "Content-Type: multipart/alternative; boundary=\"_Mime-Boundary_72616F\"\n\n";
   fprintf(f,"Subject: %s\n",subject);
   fwrite(c ,1, strlen(c),f);
   c = "  This is a multi-part message in MIME format.\n\n";
       "--_Mime-Boundary_72616F\n"
       "Content-Type: text/html; charset=\"iso-8859-1\""
       "Content-Transfer-Encoding: 8bit\n\n";
   fwrite(c ,1, strlen(c),f);
   fwrite(textnote,1,strlen(textnote),f);
   c = "--_Mime-Boundary_72616F--\r\n";
   fwrite(c ,1, strlen(c),f);
  }

  fwrite("\n.\n",1,3,f);
  pclose(f);
  return 0;
}

#endif

Raosoft EZReport, EZSurvey, InterForm, RapidReport, Raosoft, and SurveyWin are registered trademarks of Raosoft, Inc. Page contents © 1996-2007 by Raosoft, Inc. You may use and modify this file for your own use, but may not distribute it or derivative works without the prior written consent of Raosoft, Inc. This software is provided "as is," and Raosoft makes no warranty, express or implied, of fitness for a particular application. Every measure has been taken to anticipate risks inherent to computer networks, but we cannot guarantee safety or reliability of this program in every situation.

Tel: 206-525-4025 (US) Email: raosoft@raosoft.com
http://www.raosoft.com/