text: /*********************************************************************
   *
   *	Simple Mail Transfer Protocol (SMTP) Client
   *	Module for Microchip TCP/IP Stack
   *   -Provides ability to send Emails
   *	 -Reference: RFC 2821
   *
   *********************************************************************
   * FileName:        SMTP.c
   * Dependencies:    TCP, ARP, DNS, Tick
   * Processor:       PIC18, PIC24F, PIC24H, dsPIC30F, dsPIC33F, PIC32
   * Compiler:        Microchip C32 v1.05 or higher
   *					Microchip C30 v3.12 or higher
   *					Microchip C18 v3.30 or higher
   *					HI-TECH PICC-18 PRO 9.63PL2 or higher
   * Company:         Microchip Technology, Inc.
   *
   * Software License Agreement
   *
   * Copyright (C) 2002-2009 Microchip Technology Inc.  All rights
   * reserved.
   *
   * Microchip licenses to you the right to use, modify, copy, and
   * distribute:
   * (i)  the Software when embedded on a Microchip microcontroller or
   *      digital signal controller product ("Device") which is
   *      integrated into Licensee's product; or
   * (ii) ONLY the Software driver source files ENC28J60.c, ENC28J60.h,
   *		ENCX24J600.c and ENCX24J600.h ported to a non-Microchip device
   *		used in conjunction with a Microchip ethernet controller for
   *		the sole purpose of interfacing with the ethernet controller.
   *
   * You should refer to the license agreement accompanying this
   * Software for additional information regarding your rights and
   * obligations.
   *
   * THE SOFTWARE AND DOCUMENTATION ARE PROVIDED "AS IS" WITHOUT
   * WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING WITHOUT
   * LIMITATION, ANY WARRANTY OF MERCHANTABILITY, FITNESS FOR A
   * PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT SHALL
   * MICROCHIP BE LIABLE FOR ANY INCIDENTAL, SPECIAL, INDIRECT OR
   * CONSEQUENTIAL DAMAGES, LOST PROFITS OR LOST DATA, COST OF
   * PROCUREMENT OF SUBSTITUTE GOODS, TECHNOLOGY OR SERVICES, ANY CLAIMS
   * BY THIRD PARTIES (INCLUDING BUT NOT LIMITED TO ANY DEFENSE
   * THEREOF), ANY CLAIMS FOR INDEMNITY OR CONTRIBUTION, OR OTHER
   * SIMILAR COSTS, WHETHER ASSERTED ON THE BASIS OF CONTRACT, TORT
   * (INCLUDING NEGLIGENCE), BREACH OF WARRANTY, OR OTHERWISE.
   *
   *
   * Author               Date    Comment
   *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   * Howard Schlunder     3/03/06	Original
   * Howard Schlunder		11/2/06	Vastly improved for release
   ********************************************************************/
  #define __SMTP_C
  
  #include "TCPIPConfig.h"
  
  #if defined(STACK_USE_SMTP_CLIENT)
  
  #include "TCPIP Stack/TCPIP.h"
  
  
  /****************************************************************************
    Section:
  	SMTP Client Configuration Parameters
    ***************************************************************************/
  #define SMTP_PORT					25					// Default port to use when unspecified
  #define SMTP_SERVER_REPLY_TIMEOUT	(TICK_SECOND*8)		// How long to wait before assuming the connection has been dropped (default 8 seconds)
  
  
  /****************************************************************************
    Section:
  	SMTP Client Public Variables
    ***************************************************************************/
  // The global set of SMTP_POINTERS.
  // Set these parameters after calling SMTPBeginUsage successfully.
  SMTP_POINTERS SMTPClient;	
  
  /****************************************************************************
    Section:
  	SMTP Client Internal Variables
    ***************************************************************************/
  static IP_ADDR SMTPServer;						// IP address of the remote SMTP server
  static TCP_SOCKET MySocket = INVALID_SOCKET;	// Socket currently in use by the SMTP client
  
  // State machine for the CR LF Period replacement
  // Used by SMTPPut to transparently replace "\r\n." with "\r\n.."
  static union
  {
  	BYTE *Pos;
  	enum
  	{
  		CR_PERIOD_SEEK_CR = 0,		// Idle state, waiting for '\r'
  		CR_PERIOD_SEEK_LF,			// "\r" has been written, so check next byte for '\n'
  		CR_PERIOD_SEEK_PERIOD,		// "\r\n" has been written, so check next byte for '.'
  		CR_PERIOD_NEED_INSERTION	// "\r\n." has been written, so an additional '.'
  									//   must be written before the next byte.
  	} State;
  } CRPeriod;
  
  // State of the transport for the SMTP Client
  static enum
  {
  	TRANSPORT_HOME = 0,			// Idle state
  	TRANSPORT_BEGIN,			// Preparing to make connection
  	TRANSPORT_NAME_RESOLVE,		// Resolving the SMTP server address
  	TRANSPORT_OBTAIN_SOCKET,	// Obtaining a socket for the SMTP connection
  	#if defined(STACK_USE_SSL_CLIENT)
  	TRANSPORT_SECURING_SOCKET,	// Securing the socket for the SMTP over SSL connection
  	#endif
  	TRANSPORT_SOCKET_OBTAINED,	// SMTP connection successful
  	TRANSPORT_CLOSE				// STMP socket is closed
  } TransportState = TRANSPORT_HOME;
  
  // Message state machine for the SMTP Client
  static enum
  {
  	SMTP_HOME = 0,				// Idle start state for SMTP client (application is preparing message)
  	SMTP_HELO,					// HELO is being sent to server
  	SMTP_HELO_ACK,				// Received an ACK for the HELO
  	SMTP_AUTH_LOGIN,			// Requesting to log in
  	SMTP_AUTH_LOGIN_ACK,		// Log in request accepted
  	SMTP_AUTH_USERNAME,			// Sending user name
  	SMTP_AUTH_USERNAME_ACK,		// User name accepted
  	SMTP_AUTH_PASSWORD,			// Sending password
  	SMTP_AUTH_PASSWORD_ACK,		// Password was accepted
  	SMTP_MAILFROM,				// Sending inital MAIL FROM command
  	SMTP_MAILFROM_ACK,			// MAIL FROM was accepted
  	SMTP_RCPTTO_INIT,			// Preparing to send RCPT TO
  	SMTP_RCPTTO,				// Sending RCPT TO command
  	SMTP_RCPTTO_ACK,			// RCPT TO was accepted
  	SMTP_RCPTTO_ISDONE,			// Done sending RCPT TO commands
  	SMTP_RCPTTOCC_INIT,			// Preparing to send RCPT TO CC commands
  	SMTP_RCPTTOCC,				// Sending RCPT TO CC commands
  	SMTP_RCPTTOCC_ACK,			// RCPT TO CC was accepted
  	SMTP_RCPTTOCC_ISDONE,		// Done sending RCPT TO CC
  	SMTP_RCPTTOBCC_INIT,		// Preparing to send RCPT TO BCC commands
  	SMTP_RCPTTOBCC,				// Sending RCPT TO BCC commands
  	SMTP_RCPTTOBCC_ACK,			// RCPT TO BCC was accepted
  	SMTP_RCPTTOBCC_ISDONE,		// Done sending RCPT TO BCC
  	SMTP_DATA,					// Sending DATA command
  	SMTP_DATA_ACK,				// DATA command accpted
  	SMTP_DATA_HEADER,			// Sending message headers
  	SMTP_DATA_BODY_INIT,		// Preparing for message body
  	SMTP_DATA_BODY,				// Sending message body
  	SMTP_DATA_BODY_ACK,			// Message body accepted
  	SMTP_QUIT_INIT,				// Sending QUIT command
  	SMTP_QUIT					// QUIT accepted, connection closing
  } SMTPState;
  
  // State machine for writing the SMTP message headers
  static enum
  {
  	PUTHEADERS_FROM_INIT = 0,	// Preparing to send From header
  	PUTHEADERS_FROM,			// Sending From header
  	PUTHEADERS_TO_INIT,			// Preparing to send To header
  	PUTHEADERS_TO,				// Sending To header
  	PUTHEADERS_CC_INIT,			// Preparing to send CC header
  	PUTHEADERS_CC,				// Sending CC header
  	PUTHEADERS_SUBJECT_INIT,	// Preparing to send Subject header
  	PUTHEADERS_SUBJECT,			// Sending Subject header
  	PUTHEADERS_OTHER_INIT,		// Preparing to send additional headers
  	PUTHEADERS_OTHER,			// Sending additional headers
  	PUTHEADERS_DONE				// Done writing all headers
  } PutHeadersState;
  
  // State machine for parsing incoming responses
  static enum
  {
  	RX_BYTE_0 = 0,
  	RX_BYTE_1,
  	RX_BYTE_2,
  	RX_BYTE_3,
  	RX_SEEK_CR,
  	RX_SEEK_LF
  } RXParserState;
  
  // Internal flags used by the SMTP Client
  static union
  {
  	BYTE Val;
  	struct
  	{
  		unsigned char RXSkipResponse:1;
  		unsigned char SMTPInUse:1;
  		unsigned char SentSuccessfully:1;
  		unsigned char ReadyToStart:1;
  		unsigned char ReadyToFinish:1;
  		unsigned char ConnectedOnce:1;
  		unsigned char filler:2;
  	} bits;
  } SMTPFlags = {0x00};
  	
  // Response code from server when an error exists
  static WORD ResponseCode;
  
  /****************************************************************************
    Section:
  	SMTP Client Internal Function Prototypes
    ***************************************************************************/
  static BYTE *FindEmailAddress(BYTE *str, WORD *wLen);
  static ROM BYTE *FindROMEmailAddress(ROM BYTE *str, WORD *wLen);
  
  /****************************************************************************
    Section:
  	SMTP Function Implementations
    ***************************************************************************/
  
  /*****************************************************************************
    Function:
  	BOOL SMTPBeginUsage(void)
  
    Summary:
  	Requests control of the SMTP client module.
  
    Description:
  	Call this function before calling any other SMTP Client APIs.  This 
  	function obtains a lock on the SMTP Client, which can only be used by
  	one stack application at a time.  Once the application is finished
  	with the SMTP client, it must call SMTPEndUsage to release control
  	of the module to any other waiting applications.
  	
  	This function initializes all the SMTP state machines and variables
  	back to their default state.
  
    Precondition:
  	None
  
    Parameters:
  	None
  
    Return Values:
  	TRUE - The application has successfully obtained control of the module
  	FALSE - The SMTP module is in use by another application.  Call 
  		SMTPBeginUsage again later, after returning to the main program loop
    ***************************************************************************/
  BOOL SMTPBeginUsage(void)
  {
  	if(SMTPFlags.bits.SMTPInUse)
  		return FALSE;
  
  	SMTPFlags.Val = 0x00;
  	SMTPFlags.bits.SMTPInUse = TRUE;
  	TransportState = TRANSPORT_BEGIN;
  	RXParserState = RX_BYTE_0;
  	SMTPState = SMTP_HOME;
  	memset((void*)&SMTPClient, 0x00, sizeof(SMTPClient));
  	SMTPClient.ServerPort = SMTP_PORT;
  		
  	return TRUE;
  }
  
  /*****************************************************************************
    Function:
  	WORD SMTPEndUsage(void)
  
    Summary:
  	Releases control of the SMTP client module.
  
    Description:
  	Call this function to release control of the SMTP client module once
  	an application is finished using it.  This function releases the lock
  	obtained by SMTPBeginUsage, and frees the SMTP client to be used by 
  	another application.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	None
  
    Return Values:
  	SMTP_SUCCESS - A message was successfully sent
  	SMTP_RESOLVE_ERROR - The SMTP server could not be resolved
  	SMTP_CONNECT_ERROR - The connection to the SMTP server failed or was
  		prematurely terminated
  	1-199 and 300-399 - The last SMTP server response code
    ***************************************************************************/
  WORD SMTPEndUsage(void)
  {
  	if(!SMTPFlags.bits.SMTPInUse)
  		return 0xFFFF;
  
  	// Release the DNS module, if in use
  	if(TransportState == TRANSPORT_NAME_RESOLVE)
  		DNSEndUsage();
  	
  	// Release the TCP socket, if in use
  	if(MySocket != INVALID_SOCKET)
  	{
  		TCPDisconnect(MySocket);
  		MySocket = INVALID_SOCKET;
  	}
  	
  	// Release the SMTP module
  	SMTPFlags.bits.SMTPInUse = FALSE;
  	TransportState = TRANSPORT_HOME;
  
  	if(SMTPFlags.bits.SentSuccessfully)
  	{
  		return 0;
  	}
  	else
  	{
  		return ResponseCode;
  	}
  }
  
  /*****************************************************************************
    Function:
  	void SMTPTask(void)
  
    Summary:
  	Performs any pending SMTP client tasks
  
    Description:
  	This function handles periodic tasks associated with the SMTP client,
  	such as processing initial connections and command sequences.
  
    Precondition:
  	None
  
    Parameters:
  	None
  
    Returns:
  	None
  
    Remarks:
  	This function acts as a task (similar to one in an RTOS).  It
  	performs its task in a co-operative manner, and the main application
  	must call this function repeatedly to ensure that all open or new
  	connections are served in a timely fashion.
    ***************************************************************************/
  void SMTPTask(void)
  {
  	BYTE			i;
  	WORD			w;
  	BYTE			vBase64Buffer[4];
  	static DWORD	Timer;
  	static BYTE		RXBuffer[4];
  	static ROM BYTE *ROMStrPtr, *ROMStrPtr2;
  	static BYTE 	*RAMStrPtr;
  	static WORD		wAddressLength;
  
  	switch(TransportState)
  	{
  		case TRANSPORT_HOME:
  			// SMTPBeginUsage() is the only function which will kick 
  			// the state machine into the next state
  			break;
  
  		case TRANSPORT_BEGIN:
  			// Wait for the user to program all the pointers and then 
  			// call SMTPSendMail()
  			if(!SMTPFlags.bits.ReadyToStart)
  				break;
  
  			// Obtain ownership of the DNS resolution module
  			if(!DNSBeginUsage())
  				break;
  
  			// Obtain the IP address associated with the SMTP mail server
  			if(SMTPClient.Server.szRAM || SMTPClient.Server.szROM)
  			{
  				if(SMTPClient.ROMPointers.Server)
  					DNSResolveROM(SMTPClient.Server.szROM, DNS_TYPE_A);
  				else
  					DNSResolve(SMTPClient.Server.szRAM, DNS_TYPE_A);
  			}
  			else
  			{
  				// If we don't have a mail server, try to send the mail 
  				// directly to the destination SMTP server
  				if(SMTPClient.To.szRAM && !SMTPClient.ROMPointers.To)
  				{
  					SMTPClient.Server.szRAM = (BYTE*)strchr((char*)SMTPClient.To.szRAM, '@');
  					SMTPClient.ROMPointers.Server = 0;
  				}
  				else if(SMTPClient.To.szROM && SMTPClient.ROMPointers.To)
  				{
  					SMTPClient.Server.szROM = (ROM BYTE*)strchrpgm((ROM char*)SMTPClient.To.szROM, '@');
  					SMTPClient.ROMPointers.Server = 1;
  				}
  
  				if(!(SMTPClient.Server.szRAM || SMTPClient.Server.szROM))
  				{
  					if(SMTPClient.CC.szRAM && !SMTPClient.ROMPointers.CC)
  					{
  						SMTPClient.Server.szRAM = (BYTE*)strchr((char*)SMTPClient.CC.szRAM, '@');
  						SMTPClient.ROMPointers.Server = 0;
  					}
  					else if(SMTPClient.CC.szROM && SMTPClient.ROMPointers.CC)
  					{
  						SMTPClient.Server.szROM = (ROM BYTE*)strchrpgm((ROM char*)SMTPClient.CC.szROM, '@');
  						SMTPClient.ROMPointers.Server = 1;
  					}
  				}
  
  				if(!(SMTPClient.Server.szRAM || SMTPClient.Server.szROM))
  				{
  					if(SMTPClient.BCC.szRAM && !SMTPClient.ROMPointers.BCC)
  					{
  						SMTPClient.Server.szRAM = (BYTE*)strchr((char*)SMTPClient.BCC.szRAM, '@');
  						SMTPClient.ROMPointers.Server = 0;
  					}
  					else if(SMTPClient.BCC.szROM && SMTPClient.ROMPointers.BCC)
  					{
  						SMTPClient.Server.szROM = (ROM BYTE*)strchrpgm((ROM char*)SMTPClient.BCC.szROM, '@');
  						SMTPClient.ROMPointers.Server = 1;
  					}
  				}
  
  				// See if we found a hostname anywhere which we could resolve
  				if(!(SMTPClient.Server.szRAM || SMTPClient.Server.szROM))
  				{
  					DNSEndUsage();
  					ResponseCode = SMTP_RESOLVE_ERROR;
  					TransportState = TRANSPORT_HOME;
  					break;
  				}
  
  				// Skip over the @ sign and resolve the host name
  				if(SMTPClient.ROMPointers.Server)
  				{
  					SMTPClient.Server.szROM++;
  					DNSResolveROM(SMTPClient.Server.szROM, DNS_TYPE_MX);
  				}
  				else
  				{
  					SMTPClient.Server.szRAM++;
  					DNSResolve(SMTPClient.Server.szRAM, DNS_TYPE_MX);
  				}
  			}
  			
  			Timer = TickGet();
  			TransportState++;
  			break;
  
  		case TRANSPORT_NAME_RESOLVE:
  			// Wait for the DNS server to return the requested IP address
  			if(!DNSIsResolved(&SMTPServer))
  			{
  				// Timeout after 6 seconds of unsuccessful DNS resolution
  				if(TickGet() - Timer > 6*TICK_SECOND)
  				{
  					ResponseCode = SMTP_RESOLVE_ERROR;
  					TransportState = TRANSPORT_HOME;
  					DNSEndUsage();
  				}
  				break;
  			}
  
  			// Release the DNS module, we no longer need it
  			if(!DNSEndUsage())
  			{
  				// An invalid IP address was returned from the DNS 
  				// server.  Quit and fail permanantly if host is not valid.
  				ResponseCode = SMTP_RESOLVE_ERROR;
  				TransportState = TRANSPORT_HOME;
  				break;
  			}
  
  			TransportState++;
  			// No need to break here
  
  		case TRANSPORT_OBTAIN_SOCKET:
  			// Connect a TCP socket to the remote SMTP server
  			MySocket = TCPOpen(SMTPServer.Val, TCP_OPEN_IP_ADDRESS, SMTPClient.ServerPort, TCP_PURPOSE_DEFAULT);
  			
  			// Abort operation if no TCP sockets are available
  			// If this ever happens, add some more 
  			// TCP_PURPOSE_DEFAULT sockets in TCPIPConfig.h
  			if(MySocket == INVALID_SOCKET)
  				break;
  
  			TransportState++;
  			Timer = TickGet();
  			// No break; fall into TRANSPORT_SOCKET_OBTAINED
  			
  		#if defined(STACK_USE_SSL_CLIENT)
  		case TRANSPORT_SECURING_SOCKET:		
  			if(!TCPIsConnected(MySocket))
  			{
  				// Don't stick around in the wrong state if the
  				// server was connected, but then disconnected us.
  				// Also time out if we can't establish the connection 
  				// to the SMTP server
  				if((LONG)(TickGet()-Timer) > (LONG)(SMTP_SERVER_REPLY_TIMEOUT))
  				{
  					ResponseCode = SMTP_CONNECT_ERROR;
  					TransportState = TRANSPORT_CLOSE;
  				}
  
  				break;
  			}
  			SMTPFlags.bits.ConnectedOnce = TRUE;
  			
  			// Start SSL if needed for this connection
  			if(SMTPClient.UseSSL && !TCPStartSSLClient(MySocket,NULL))
  				break;
  			
  			// Move on to main state
  			Timer = TickGet();
  			TransportState++;
  			break;		
  		#endif
  
  		case TRANSPORT_SOCKET_OBTAINED:
  			if(!TCPIsConnected(MySocket))
  			{
  				// Don't stick around in the wrong state if the
  				// server was connected, but then disconnected us.
  				// Also time out if we can't establish the connection 
  				// to the SMTP server
  				if(SMTPFlags.bits.ConnectedOnce || ((LONG)(TickGet()-Timer) > (LONG)(SMTP_SERVER_REPLY_TIMEOUT)))
  				{
  					ResponseCode = SMTP_CONNECT_ERROR;
  					TransportState = TRANSPORT_CLOSE;
  				}
  
  				break;
  			}
  			SMTPFlags.bits.ConnectedOnce = TRUE;
  			
  			#if defined(STACK_USE_SSL_CLIENT)
  			// Make sure the SSL handshake has completed
  			if(SMTPClient.UseSSL && TCPSSLIsHandshaking(MySocket))
  				break;
  			#endif
  
  			// See if the server sent us anything
  			while(TCPIsGetReady(MySocket))
  			{
  				TCPGet(MySocket, &i);
  				switch(RXParserState)
  				{
  					case RX_BYTE_0:
  					case RX_BYTE_1:
  					case RX_BYTE_2:
  						RXBuffer[RXParserState] = i;
  						RXParserState++;
  						break;
  	
  					case RX_BYTE_3:
  						switch(i)
  						{
  							case ' ':
  								SMTPFlags.bits.RXSkipResponse = FALSE;
  								RXParserState++;
  								break;
  							case '-':
  								SMTPFlags.bits.RXSkipResponse = TRUE;
  								RXParserState++;
  								break;
  							case '\r':
  								RXParserState = RX_SEEK_LF;
  								break;
  						}
  						break;
  	
  					case RX_SEEK_CR:
  						if(i == '\r')
  							RXParserState++;
  						break;
  	
  					case RX_SEEK_LF:
  						// If we received the whole command
  						if(i == '\n')
  						{
  							RXParserState = RX_BYTE_0;
  
  							if(!SMTPFlags.bits.RXSkipResponse)
  							{
  								// The server sent us a response code
  								// Null terminate the ASCII reponse code so we can convert it to an integer
  								RXBuffer[3] = 0;
  								ResponseCode = atoi((char*)RXBuffer);
  
  								// Handle the response
  								switch(SMTPState)
  								{
  									case SMTP_HELO_ACK:
  										if(ResponseCode >= 200u && ResponseCode <= 299u)
  										{
  											if(SMTPClient.Username.szRAM || SMTPClient.Username.szROM)
  												SMTPState = SMTP_AUTH_LOGIN;
  											else
  												SMTPState = SMTP_MAILFROM;
  										}
  										else
  											SMTPState = SMTP_QUIT_INIT;
  										break;
  
  
  									case SMTP_AUTH_LOGIN_ACK:
  									case SMTP_AUTH_USERNAME_ACK:
  										if(ResponseCode == 334u)
  											SMTPState++;
  										else
  											SMTPState = SMTP_QUIT_INIT;
  										break;
  
  									case SMTP_AUTH_PASSWORD_ACK:
  										if(ResponseCode == 235u)
  											SMTPState++;
  										else
  											SMTPState = SMTP_QUIT_INIT;
  										break;
  
  									case SMTP_HOME:
  									case SMTP_MAILFROM_ACK:
  									case SMTP_RCPTTO_ACK:
  									case SMTP_RCPTTOCC_ACK:
  									case SMTP_RCPTTOBCC_ACK:
  										if(ResponseCode >= 200u && ResponseCode <= 299u)
  											SMTPState++;
  										else
  											SMTPState = SMTP_QUIT_INIT;
  										break;
  							
  									case SMTP_DATA_ACK:
  										if(ResponseCode == 354u)
  											SMTPState++;
  										else
  											SMTPState = SMTP_QUIT_INIT;
  										break;
  							
  									case SMTP_DATA_BODY_ACK:
  										if(ResponseCode >= 200u && ResponseCode <= 299u)
  											SMTPFlags.bits.SentSuccessfully = TRUE;
  							
  										SMTPState = SMTP_QUIT_INIT;
  										break;
  
  									// Default case needed to supress compiler diagnostics
  									default:
  										break;
  								}
  							}
  						}
  						else if(i != '\r')
  							RXParserState--;
  	
  						break;
  				}
  			}
  
  			// Generate new data in the TX buffer, as needed, if possible
  			if(TCPIsPutReady(MySocket) < 64u)
  				break;
  
  			switch(SMTPState)
  			{
  				case SMTP_HELO:
  					if(SMTPClient.Username.szROM == NULL)
  						TCPPutROMString(MySocket, (ROM BYTE*)"HELO MCHPBOARD\r\n");
  					else
  						TCPPutROMString(MySocket, (ROM BYTE*)"EHLO MCHPBOARD\r\n");
  					TCPFlush(MySocket);
  					SMTPState++;
  					break;
  
  				case SMTP_AUTH_LOGIN:
  					// Note: This state is only entered from SMTP_HELO_ACK if the application 
  					// has specified a Username to use (either SMTPClient.Username.szROM or 
  					// SMTPClient.Username.szRAM is non-NULL)
  					TCPPutROMString(MySocket, (ROM BYTE*)"AUTH LOGIN\r\n");
  					TCPFlush(MySocket);
  					SMTPState++;
  					break;
  
  				case SMTP_AUTH_USERNAME:
  					// Base 64 encode and transmit the username.
  					if(SMTPClient.ROMPointers.Username)
  					{
  						ROMStrPtr = SMTPClient.Username.szROM;
  						w = strlenpgm((ROM char*)ROMStrPtr);
  					}
  					else
  					{
  						RAMStrPtr = SMTPClient.Username.szRAM;
  						w = strlen((char*)RAMStrPtr);
  					}
  
  					while(w)
  					{
  						i = 0;
  						while((i < w) && (i < sizeof(vBase64Buffer)*3/4))
  						{
  							if(SMTPClient.ROMPointers.Username)
  								vBase64Buffer[i] = *ROMStrPtr++;
  							else
  								vBase64Buffer[i] = *RAMStrPtr++;
  							i++;
  						}
  						w -= i;					
  						Base64Encode(vBase64Buffer, i, vBase64Buffer, sizeof(vBase64Buffer));
  						TCPPutArray(MySocket, vBase64Buffer, sizeof(vBase64Buffer));
  					}
  					TCPPutROMString(MySocket, (ROM BYTE*)"\r\n");
  					TCPFlush(MySocket);
  					SMTPState++;
  					break;
  
  				case SMTP_AUTH_PASSWORD:
  					// Base 64 encode and transmit the password
  					if(SMTPClient.ROMPointers.Password)
  					{
  						ROMStrPtr = SMTPClient.Password.szROM;
  						w = strlenpgm((ROM char*)ROMStrPtr);
  					}
  					else
  					{
  						RAMStrPtr = SMTPClient.Password.szRAM;
  						w = strlen((char*)RAMStrPtr);
  					}
  
  					while(w)
  					{
  						i = 0;
  						while((i < w) && (i < sizeof(vBase64Buffer)*3/4))
  						{
  							if(SMTPClient.ROMPointers.Password)
  								vBase64Buffer[i] = *ROMStrPtr++;
  							else
  								vBase64Buffer[i] = *RAMStrPtr++;
  							i++;
  						}
  						w -= i;					
  						Base64Encode(vBase64Buffer, i, vBase64Buffer, sizeof(vBase64Buffer));
  						TCPPutArray(MySocket, vBase64Buffer, sizeof(vBase64Buffer));
  					}
  					TCPPutROMString(MySocket, (ROM BYTE*)"\r\n");
  					TCPFlush(MySocket);
  					SMTPState++;
  					break;
  
  				case SMTP_MAILFROM:
  					// Send MAIL FROM header.  Note that this is for the SMTP server validation, 
  					// not what actually will be displayed in the recipients mail client as a 
  					// return address.
  					TCPPutROMString(MySocket, (ROM BYTE*)"MAIL FROM:<");
  					if(SMTPClient.ROMPointers.From)
  					{
  						ROMStrPtr = FindROMEmailAddress(SMTPClient.From.szROM, &wAddressLength);
  						TCPPutROMArray(MySocket, ROMStrPtr, wAddressLength);
  					}
  					else
  					{
  						RAMStrPtr = FindEmailAddress(SMTPClient.From.szRAM, &wAddressLength);
  						TCPPutArray(MySocket, RAMStrPtr, wAddressLength);
  					}
  					TCPPutROMString(MySocket, (ROM BYTE*)">\r\n");
  					TCPFlush(MySocket);
  					SMTPState++;
  					break;
  
  				case SMTP_RCPTTO_INIT:
  					// See if there are any (To) recipients to process
  					if(SMTPClient.To.szRAM && !SMTPClient.ROMPointers.To)
  					{
  						RAMStrPtr = FindEmailAddress(SMTPClient.To.szRAM, &wAddressLength);
  						if(wAddressLength)
  						{
  							SMTPState = SMTP_RCPTTO;
  							break;
  						}
  					}
  					if(SMTPClient.To.szROM && SMTPClient.ROMPointers.To)
  					{
  						ROMStrPtr = FindROMEmailAddress(SMTPClient.To.szROM, &wAddressLength);
  						if(wAddressLength)
  						{
  							SMTPState = SMTP_RCPTTO;
  							break;
  						}
  					}
  					
  					SMTPState = SMTP_RCPTTOCC_INIT;
  					break;
  
  				case SMTP_RCPTTO:
  				case SMTP_RCPTTOCC:
  				case SMTP_RCPTTOBCC:
  					TCPPutROMString(MySocket, (ROM BYTE*)"RCPT TO:<");
  					if(	(SMTPClient.ROMPointers.To  && (SMTPState == SMTP_RCPTTO)) || 
  						(SMTPClient.ROMPointers.CC  && (SMTPState == SMTP_RCPTTOCC)) || 
  						(SMTPClient.ROMPointers.BCC && (SMTPState == SMTP_RCPTTOBCC)) )
  						TCPPutROMArray(MySocket, ROMStrPtr, wAddressLength);
  					else
  						TCPPutArray(MySocket, RAMStrPtr, wAddressLength);
  					TCPPutROMString(MySocket, (ROM BYTE*)">\r\n");
  					TCPFlush(MySocket);
  					SMTPState++;
  					break;
  
  				case SMTP_RCPTTO_ISDONE:
  					// See if we have any more (To) recipients to process
  					// If we do, we must roll back a couple of states
  					if(SMTPClient.ROMPointers.To)
  						ROMStrPtr = FindROMEmailAddress(ROMStrPtr+wAddressLength, &wAddressLength);
  					else
  						RAMStrPtr = FindEmailAddress(RAMStrPtr+wAddressLength, &wAddressLength);
  	
  					if(wAddressLength)
  					{
  						SMTPState = SMTP_RCPTTO;
  						break;
  					}
  
  					// All done with To field
  					SMTPState++;
  					//No break
  
  				case SMTP_RCPTTOCC_INIT:
  					// See if there are any Carbon Copy (CC) recipients to process
  					if(SMTPClient.CC.szRAM && !SMTPClient.ROMPointers.CC)
  					{
  						RAMStrPtr = FindEmailAddress(SMTPClient.CC.szRAM, &wAddressLength);
  						if(wAddressLength)
  						{
  							SMTPState = SMTP_RCPTTOCC;
  							break;
  						}
  					}
  					if(SMTPClient.CC.szROM && SMTPClient.ROMPointers.CC)
  					{
  						ROMStrPtr = FindROMEmailAddress(SMTPClient.CC.szROM, &wAddressLength);
  						if(wAddressLength)
  						{
  							SMTPState = SMTP_RCPTTOCC;
  							break;
  						}
  					}
  					
  					SMTPState = SMTP_RCPTTOBCC_INIT;
  					break;
  
  				case SMTP_RCPTTOCC_ISDONE:
  					// See if we have any more Carbon Copy (CC) recipients to process
  					// If we do, we must roll back a couple of states
  					if(SMTPClient.ROMPointers.CC)
  						ROMStrPtr = FindROMEmailAddress(ROMStrPtr+wAddressLength, &wAddressLength);
  					else
  						RAMStrPtr = FindEmailAddress(RAMStrPtr+wAddressLength, &wAddressLength);
  
  					if(wAddressLength)
  					{
  						SMTPState = SMTP_RCPTTOCC;
  						break;
  					}
  
  					// All done with CC field
  					SMTPState++;
  					//No break
  
  				case SMTP_RCPTTOBCC_INIT:
  					// See if there are any Blind Carbon Copy (BCC) recipients to process
  					if(SMTPClient.BCC.szRAM && !SMTPClient.ROMPointers.BCC)
  					{
  						RAMStrPtr = FindEmailAddress(SMTPClient.BCC.szRAM, &wAddressLength);
  						if(wAddressLength)
  						{
  							SMTPState = SMTP_RCPTTOBCC;
  							break;
  						}
  					}
  					if(SMTPClient.BCC.szROM && SMTPClient.ROMPointers.BCC)
  					{
  						ROMStrPtr = FindROMEmailAddress(SMTPClient.BCC.szROM, &wAddressLength);
  						if(wAddressLength)
  						{
  							SMTPState = SMTP_RCPTTOBCC;
  							break;
  						}
  					}
  
  					// All done with BCC field
  					SMTPState = SMTP_DATA;
  					break;
  
  				case SMTP_RCPTTOBCC_ISDONE:
  					// See if we have any more Blind Carbon Copy (CC) recipients to process
  					// If we do, we must roll back a couple of states
  					if(SMTPClient.ROMPointers.BCC)
  						ROMStrPtr = FindROMEmailAddress(ROMStrPtr+wAddressLength, &wAddressLength);
  					else
  						RAMStrPtr = FindEmailAddress(RAMStrPtr+wAddressLength, &wAddressLength);
  
  					if(wAddressLength)
  					{
  						SMTPState = SMTP_RCPTTOBCC;
  						break;
  					}
  
  					// All done with BCC field
  					SMTPState++;
  					//No break
  
  				case SMTP_DATA:
  					TCPPutROMString(MySocket, (ROM BYTE*)"DATA\r\n");
  					SMTPState++;
  					PutHeadersState = PUTHEADERS_FROM_INIT;
  					TCPFlush(MySocket);
  					break;
  
  				case SMTP_DATA_HEADER:
  					while((PutHeadersState != PUTHEADERS_DONE) && (TCPIsPutReady(MySocket) > 64u))
  					{
  						switch(PutHeadersState)
  						{
  							case PUTHEADERS_FROM_INIT:
  								if(SMTPClient.From.szRAM || SMTPClient.From.szROM)
  								{
  									PutHeadersState = PUTHEADERS_FROM;
  									TCPPutROMString(MySocket, (ROM BYTE*)"From: ");
  								}
  								else
  								{
  									PutHeadersState = PUTHEADERS_TO_INIT;
  								}
  								break;
  								
  							case PUTHEADERS_FROM:
  								if(SMTPClient.ROMPointers.From)
  								{
  									SMTPClient.From.szROM = TCPPutROMString(MySocket, SMTPClient.From.szROM);
  									if(*SMTPClient.From.szROM == 0u)
  										PutHeadersState = PUTHEADERS_TO_INIT;
  								}
  								else
  								{
  									SMTPClient.From.szRAM = TCPPutString(MySocket, SMTPClient.From.szRAM);
  									if(*SMTPClient.From.szRAM == 0u)
  										PutHeadersState = PUTHEADERS_TO_INIT;
  								}
  								break;
  
  							case PUTHEADERS_TO_INIT:
  								if(SMTPClient.To.szRAM || SMTPClient.To.szROM)
  								{
  									PutHeadersState = PUTHEADERS_TO;
  									TCPPutROMString(MySocket, (ROM BYTE*)"\r\nTo: ");
  								}
  								else
  								{
  									PutHeadersState = PUTHEADERS_CC_INIT;
  								}
  								break;
  								
  							case PUTHEADERS_TO:
  								if(SMTPClient.ROMPointers.To)
  								{
  									SMTPClient.To.szROM = TCPPutROMString(MySocket, SMTPClient.To.szROM);
  									if(*SMTPClient.To.szROM == 0u)
  										PutHeadersState = PUTHEADERS_CC_INIT;
  								}
  								else
  								{
  									SMTPClient.To.szRAM = TCPPutString(MySocket, SMTPClient.To.szRAM);
  									if(*SMTPClient.To.szRAM == 0u)
  										PutHeadersState = PUTHEADERS_CC_INIT;
  								}
  								break;
  
  							case PUTHEADERS_CC_INIT:
  								if(SMTPClient.CC.szRAM || SMTPClient.CC.szROM)
  								{
  									PutHeadersState = PUTHEADERS_CC;
  									TCPPutROMString(MySocket, (ROM BYTE*)"\r\nCC: ");
  								}
  								else
  								{
  									PutHeadersState = PUTHEADERS_SUBJECT_INIT;
  								}
  								break;
  								
  							case PUTHEADERS_CC:
  								if(SMTPClient.ROMPointers.CC)
  								{
  									SMTPClient.CC.szROM = TCPPutROMString(MySocket, SMTPClient.CC.szROM);
  									if(*SMTPClient.CC.szROM == 0u)
  										PutHeadersState = PUTHEADERS_SUBJECT_INIT;
  								}
  								else
  								{
  									SMTPClient.CC.szRAM = TCPPutString(MySocket, SMTPClient.CC.szRAM);
  									if(*SMTPClient.CC.szRAM == 0u)
  										PutHeadersState = PUTHEADERS_SUBJECT_INIT;
  								}
  								break;
  
  							case PUTHEADERS_SUBJECT_INIT:
  								if(SMTPClient.Subject.szRAM || SMTPClient.Subject.szROM)
  								{
  									PutHeadersState = PUTHEADERS_SUBJECT;
  									TCPPutROMString(MySocket, (ROM BYTE*)"\r\nSubject: ");
  								}
  								else
  								{
  									PutHeadersState = PUTHEADERS_OTHER_INIT;
  								}
  								break;
  								
  							case PUTHEADERS_SUBJECT:
  								if(SMTPClient.ROMPointers.Subject)
  								{
  									SMTPClient.Subject.szROM = TCPPutROMString(MySocket, SMTPClient.Subject.szROM);
  									if(*SMTPClient.Subject.szROM == 0u)
  										PutHeadersState = PUTHEADERS_OTHER_INIT;
  								}
  								else
  								{
  									SMTPClient.Subject.szRAM = TCPPutString(MySocket, SMTPClient.Subject.szRAM);
  									if(*SMTPClient.Subject.szRAM == 0u)
  										PutHeadersState = PUTHEADERS_OTHER_INIT;
  								}
  								break;
  
  							case PUTHEADERS_OTHER_INIT:
  								TCPPutROMArray(MySocket, (ROM BYTE*)"\r\n", 2);
  								if(SMTPClient.OtherHeaders.szRAM || SMTPClient.OtherHeaders.szROM)
  								{
  									PutHeadersState = PUTHEADERS_OTHER;
  								}
  								else
  								{
  									TCPPutROMArray(MySocket, (ROM BYTE*)"\r\n", 2);
  									PutHeadersState = PUTHEADERS_DONE;
  									SMTPState++;
  								}
  								break;
  								
  							case PUTHEADERS_OTHER:
  								if(SMTPClient.ROMPointers.OtherHeaders)
  								{
  									SMTPClient.OtherHeaders.szROM = TCPPutROMString(MySocket, SMTPClient.OtherHeaders.szROM);
  									if(*SMTPClient.OtherHeaders.szROM == 0u)
  									{
  										TCPPutROMArray(MySocket, (ROM BYTE*)"\r\n", 2);
  										PutHeadersState = PUTHEADERS_DONE;
  										SMTPState++;
  									}
  								}
  								else
  								{
  									SMTPClient.OtherHeaders.szRAM = TCPPutString(MySocket, SMTPClient.OtherHeaders.szRAM);
  									if(*SMTPClient.OtherHeaders.szRAM == 0u)
  									{
  										TCPPutROMArray(MySocket, (ROM BYTE*)"\r\n", 2);
  										PutHeadersState = PUTHEADERS_DONE;
  										SMTPState++;
  									}
  								}
  								break;
  							
  							// Default case needed to supress compiler diagnostics
  							default:
  								break;
  						}
  					}
  					TCPFlush(MySocket);
  					break;
  		
  				case SMTP_DATA_BODY_INIT:
  					SMTPState++;
  					RAMStrPtr = SMTPClient.Body.szRAM;
  					ROMStrPtr2 = (ROM BYTE*)"\r\n.\r\n";
  					CRPeriod.Pos = NULL;
  					if(RAMStrPtr)
  						CRPeriod.Pos = (BYTE*)strstrrampgm((char*)RAMStrPtr, (ROM char*)"\r\n.");
  					// No break here
  		
  				case SMTP_DATA_BODY:
  					if(SMTPClient.Body.szRAM || SMTPClient.Body.szROM)
  					{
  						if(*ROMStrPtr2)
  						{
  							// Put the application data, doing the transparancy replacement of "\r\n." with "\r\n.."
  							while(CRPeriod.Pos)
  							{
  								CRPeriod.Pos += 3;
  								RAMStrPtr += TCPPutArray(MySocket, RAMStrPtr, CRPeriod.Pos-RAMStrPtr);
  								if(RAMStrPtr == CRPeriod.Pos)
  								{
  									if(!TCPPut(MySocket, '.'))
  									{
  										CRPeriod.Pos -= 3;
  										break;
  									}
  								}
  								else
  								{
  									CRPeriod.Pos -= 3;
  									break;
  								}
  								CRPeriod.Pos = (BYTE*)strstrrampgm((char*)RAMStrPtr, (ROM char*)"\r\n.");
  							}
  							
  							// If we get down here, either all replacements have been made or there is no remaining space in the TCP output buffer
  							RAMStrPtr = TCPPutString(MySocket, RAMStrPtr);
  							ROMStrPtr2 = TCPPutROMString(MySocket, ROMStrPtr2);
  							TCPFlush(MySocket);
  						}
  					}
  					else
  					{
  						if(SMTPFlags.bits.ReadyToFinish)
  						{
  							if(*ROMStrPtr2)
  							{
  								ROMStrPtr2 = TCPPutROMString(MySocket, ROMStrPtr2);
  								TCPFlush(MySocket);
  							}
  		
  						}
  					}
  
  					if(*ROMStrPtr2 == 0u)
  					{
  						SMTPState++;
  					}
  					break;
  		
  				case SMTP_QUIT_INIT:
  					SMTPState++;
  					ROMStrPtr = (ROM BYTE*)"QUIT\r\n";
  					// No break here
  
  				case SMTP_QUIT:
  					if(*ROMStrPtr)
  					{
  						ROMStrPtr = TCPPutROMString(MySocket, ROMStrPtr);
  						TCPFlush(MySocket);
  					}
  
  					if(*ROMStrPtr == 0u)
  					{
  						TransportState = TRANSPORT_CLOSE;
  					}
  					break;
  				
  				// Default case needed to supress compiler diagnostics
  				default:
  					break;
  			}
  			break;
  
  		case TRANSPORT_CLOSE:
  			// Close the socket so it can be used by other modules
  			TCPDisconnect(MySocket);
  			MySocket = INVALID_SOCKET;
  
  			// Go back to doing nothing
  			TransportState = TRANSPORT_HOME;
  			break;
  	}
  }
  
  /*****************************************************************************
    Function:
  	void SMTPSendMail(void)
  
    Summary:
  	Initializes the message sending process.
  
    Description:
  	This function starts the state machine that performs the actual
  	transmission of the message.  Call this function after all the fields
  	in SMTPClient have been set.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	None
  
    Returns:
  	None
    ***************************************************************************/
  void SMTPSendMail(void)
  {
  	SMTPFlags.bits.ReadyToStart = TRUE;
  }
  
  /*****************************************************************************
    Function:
  	BOOL SMTPIsBusy(void)
  
    Summary:
  	Determines if the SMTP client is busy.
  
    Description:
  	Call this function to determine if the SMTP client is busy performing
  	background tasks.  This function should be called after any call to 
  	SMTPSendMail, SMTPPutDone to determine if the stack has finished
  	performing its internal tasks.  It should also be called prior to any
  	call to SMTPIsPutReady to verify that the SMTP client has not
  	prematurely disconnected.  When this function returns FALSE, the next
  	call should be to SMTPEndUsage to release the module and obtain the
  	status code for the operation.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	None
  
    Return Values:
  	TRUE - The SMTP Client is busy with internal tasks or sending an 
  		on-the-fly message.
  	FALSE - The SMTP Client is terminated and is ready to be released.
    ***************************************************************************/
  BOOL SMTPIsBusy(void)
  {
  	return TransportState != TRANSPORT_HOME;
  }
  
  /*****************************************************************************
    Function:
  	WORD SMTPIsPutReady(void)
  
    Summary:
  	Determines how much data can be written to the SMTP client.
  
    Description:
  	Use this function to determine how much data can be written to the SMTP 
  	client when generating an on-the-fly message.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call, and an on-the-fly 
  	message is being generated.  This requires that SMTPSendMail was called
  	with SMTPClient.Body set to NULL.
  
    Parameters:
  	None
  
    Returns:
  	The number of free bytes the SMTP TX FIFO.
  
    Remarks:
  	This function should only be called externally when the SMTP client is
  	generating an on-the-fly message.  (That is, SMTPSendMail was called
  	with SMTPClient.Body set to NULL.)
    ***************************************************************************/
  WORD SMTPIsPutReady(void)
  {
  	if(SMTPState != SMTP_DATA_BODY)
  		return 0;
  
  	return TCPIsPutReady(MySocket);	
  }
  
  /*****************************************************************************
    Function:
  	BOOL SMTPPut(BYTE c)
  
    Description:
  	Writes a single byte to the SMTP client.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	c - The byte to be written
  
    Return Values:
  	TRUE - The byte was successfully written
  	FALSE - The byte was not written, most likely because the buffer was full
  
    Remarks:
  	This function should only be called externally when the SMTP client is
  	generating an on-the-fly message.  (That is, SMTPSendMail was called
  	with SMTPClient.Body set to NULL.)
    ***************************************************************************/
  BOOL SMTPPut(BYTE c)
  {
  	if(CRPeriod.State == CR_PERIOD_NEED_INSERTION)
  	{
  		if(TCPPut(MySocket, '.'))
  			CRPeriod.State = CR_PERIOD_SEEK_CR;
  		else
  			return FALSE;
  	}
  
  	switch(CRPeriod.State)
  	{
  		case CR_PERIOD_SEEK_CR:
  			if(c == '\r')
  				CRPeriod.State++;
  			break;
  
  		case CR_PERIOD_SEEK_LF:
  			if(c == '\n')
  				CRPeriod.State++;
  			else if(c != '\r')
  				CRPeriod.State--;
  			break;
  
  		case CR_PERIOD_SEEK_PERIOD:
  			if(c == '.')
  				CRPeriod.State++;	// CR_PERIOD_NEED_INSERTION
  			else if(c == '\r')
  				CRPeriod.State--;
  			else
  				CRPeriod.State = CR_PERIOD_SEEK_CR;
  			break;
  		
  		// Default case needed to supress compiler diagnostics 
  		// (CR_PERIOD_NEED_INSERTION state already handled above)
  		default:
  			break;
  	}
  
  	if(!TCPPut(MySocket, c))
  		return FALSE;
  
  	return TRUE;
  }
  
  /*****************************************************************************
    Function:
  	WORD SMTPPutArray(BYTE* Data, WORD Len)
  
    Description:
  	Writes a series of bytes to the SMTP client.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	Data - The data to be written
  	Len - How many bytes should be written
  
    Returns:
  	The number of bytes written.  If less than Len, then the TX FIFO became
  	full before all bytes could be written.
  	
    Remarks:
  	This function should only be called externally when the SMTP client is
  	generating an on-the-fly message.  (That is, SMTPSendMail was called
  	with SMTPClient.Body set to NULL.)
  	
    Internal:
  	SMTPPut must be used instead of TCPPutArray because "\r\n." must be
  	transparently replaced by "\r\n..".
    ***************************************************************************/
  WORD SMTPPutArray(BYTE* Data, WORD Len)
  {
  	WORD result = 0;
  
  	while(Len--)
  	{
  		if(SMTPPut(*Data++))
  		{
  			result++;
  		}
  		else
  		{
  			Data--;
  			break;
  		}
  	}
  
  	return result;
  }
  
  /*****************************************************************************
    Function:
  	WORD SMTPPutROMArray(ROM BYTE* Data, WORD Len)
  
    Description:
  	Writes a series of bytes from ROM to the SMTP client.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	Data - The data to be written
  	Len - How many bytes should be written
  
    Returns:
  	The number of bytes written.  If less than Len, then the TX FIFO became
  	full before all bytes could be written.
  	
    Remarks:
  	This function should only be called externally when the SMTP client is
  	generating an on-the-fly message.  (That is, SMTPSendMail was called
  	with SMTPClient.Body set to NULL.)
  	
    	This function is aliased to SMTPPutArray on non-PIC18 platforms.
  	
    Internal:
  	SMTPPut must be used instead of TCPPutArray because "\r\n." must be
  	transparently replaced by "\r\n..".
    ***************************************************************************/
  #if defined(__18CXX)
  WORD SMTPPutROMArray(ROM BYTE* Data, WORD Len)
  {
  	WORD result = 0;
  
  	while(Len--)
  	{
  		if(SMTPPut(*Data++))
  		{
  			result++;
  		}
  		else
  		{
  			Data--;
  			break;
  		}
  	}
  
  	return result;
  }
  #endif
  
  /*****************************************************************************
    Function:
  	WORD SMTPPutString(BYTE* Data)
  
    Description:
  	Writes a string to the SMTP client.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	Data - The data to be written
  
    Returns:
  	The number of bytes written.  If less than the length of Data, then the 
  	TX FIFO became full before all bytes could be written.
  	
    Remarks:
  	This function should only be called externally when the SMTP client is
  	generating an on-the-fly message.  (That is, SMTPSendMail was called
  	with SMTPClient.Body set to NULL.)
  	
    Internal:
  	SMTPPut must be used instead of TCPPutString because "\r\n." must be
  	transparently replaced by "\r\n..".
    ***************************************************************************/
  WORD SMTPPutString(BYTE* Data)
  {
  	WORD result = 0;
  
  	while(*Data)
  	{
  		if(SMTPPut(*Data++))
  		{
  			result++;
  		}
  		else
  		{
  			Data--;
  			break;
  		}
  	}
  
  	return result;
  }
  
  /*****************************************************************************
    Function:
  	WORD SMTPPutROMString(ROM BYTE* Data)
  
    Description:
  	Writes a string from ROM to the SMTP client.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	Data - The data to be written
  
    Returns:
  	The number of bytes written.  If less than the length of Data, then the 
  	TX FIFO became full before all bytes could be written.
  	
    Remarks:
  	This function should only be called externally when the SMTP client is
  	generating an on-the-fly message.  (That is, SMTPSendMail was called
  	with SMTPClient.Body set to NULL.)
  	
    	This function is aliased to SMTPPutString on non-PIC18 platforms.
  	
    Internal:
  	SMTPPut must be used instead of TCPPutString because "\r\n." must be
  	transparently replaced by "\r\n..".
    ***************************************************************************/
  #if defined(__18CXX)
  WORD SMTPPutROMString(ROM BYTE* Data)
  {
  	WORD result = 0;
  
  	while(*Data)
  	{
  		if(SMTPPut(*Data++))
  		{
  			result++;
  		}
  		else
  		{
  			Data--;
  			break;
  		}
  	}
  
  	return result;
  }
  #endif
  
  /*****************************************************************************
    Function:
  	void SMTPFlush(void)
  
    Description:
  	Flushes the SMTP socket and forces all data to be sent.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	None
  
    Returns:
  	None
  	
    Remarks:
  	This function should only be called externally when the SMTP client is
  	generating an on-the-fly message.  (That is, SMTPSendMail was called
  	with SMTPClient.Body set to NULL.)
    ***************************************************************************/
  void SMTPFlush(void)
  {
  	TCPFlush(MySocket);
  }
  
  /*****************************************************************************
    Function:
  	void SMTPPutDone(void)
  
    Description:
  	Indicates that the on-the-fly message is complete.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call, and the SMTP client is
  	generated an on-the-fly message.  (That is, SMTPSendMail was called
  	with SMTPClient.Body set to NULL.)
  
    Parameters:
  	None
  
    Returns:
  	None
    ***************************************************************************/
  void SMTPPutDone(void)
  {
  	SMTPFlags.bits.ReadyToFinish = TRUE;
  }
  
  /*****************************************************************************
    Function:
  	static BYTE *FindEmailAddress(BYTE *str, WORD *wLen)
  
    Summary:
  	Searches a string for an e-mail address.
  
    Description:
  	This function locates an e-mail address in a string.  It is used 
  	internally by the SMTP client to parse out the actual address from
  	the From and To strings so that the MAIL FROM and RCPT TO commands
  	can be sent to the SMTP server.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	str - The string in which to search for an e-mail address
  	wLen - the length of str
  
    Returns:
  	A pointer to the e-mail address
    ***************************************************************************/
  static BYTE *FindEmailAddress(BYTE *str, WORD *wLen)
  {
  	BYTE *lpStart;
  	BYTE c;
  	union
  	{
  		BYTE Val;
  		struct
  		{
  			BYTE FoundOpenBracket	: 1;
  			BYTE FoundAt			: 1;
  		} bits;
  	} ParseStates;
  
  	lpStart = str;
  	*wLen = 0x0000;
  	ParseStates.Val = 0x00;
  
  	while((c = *str++))
  	{	
  		if(c == '<')
  		{
  			ParseStates.bits.FoundOpenBracket = 1;
  			lpStart = str;
  			*wLen = -1;
  		}
  		else if(c == '@')
  			ParseStates.bits.FoundAt = 1;
  
  
  		if(	!ParseStates.bits.FoundOpenBracket &&
  			!ParseStates.bits.FoundAt &&
  			(c == ' ' || c == ','))
  		{
  			lpStart = str;
  			continue;
  		}
  		else if(c == ',')
  			break;
  
  		if(ParseStates.bits.FoundOpenBracket && ParseStates.bits.FoundAt)
  		{
  			if(c == '>')
  				break;
  		}
  		
  		// Advance to next character
  		*wLen += 1;
  	}
  
  	if(!ParseStates.bits.FoundAt)
  		*wLen = 0;
  
  	return lpStart;
  }
  
  /*****************************************************************************
    Function:
  	static ROM BYTE *FindROMEmailAddress(ROM BYTE *str, WORD *wLen)
  
    Summary:
  	Searches a ROM string for an e-mail address.
  
    Description:
  	This function locates an e-mail address in a string.  It is used 
  	internally by the SMTP client to parse out the actual address from
  	the From and To strings so that the MAIL FROM and RCPT TO commands
  	can be sent to the SMTP server.
  
    Precondition:
  	SMTPBeginUsage returned TRUE on a previous call.
  
    Parameters:
  	str - The ROM string in which to search for an e-mail address
  	wLen - the length of str
  
    Returns:
  	A pointer to the e-mail address
    ***************************************************************************/
  static ROM BYTE *FindROMEmailAddress(ROM BYTE *str, WORD *wLen)
  {
  	ROM BYTE *lpStart;
  	BYTE c;
  	union
  	{
  		BYTE Val;
  		struct
  		{
  			BYTE FoundOpenBracket	: 1;
  			BYTE FoundAt			: 1;
  		} bits;
  	} ParseStates;
  
  	lpStart = str;
  	*wLen = 0x0000;
  	ParseStates.Val = 0x00;
  
  	while((c = *str++))
  	{	
  		if(c == '<')
  		{
  			ParseStates.bits.FoundOpenBracket = 1;
  			lpStart = str;
  			*wLen = -1;
  		}
  		else if(c == '@')
  			ParseStates.bits.FoundAt = 1;
  
  
  		if(	!ParseStates.bits.FoundOpenBracket &&
  			!ParseStates.bits.FoundAt &&
  			(c == ' ' || c == ','))
  		{
  			lpStart = str;
  			continue;
  		}
  		else if(c == ',')
  			break;
  
  		if(ParseStates.bits.FoundOpenBracket && ParseStates.bits.FoundAt)
  		{
  			if(c == '>')
  				break;
  		}
  		
  		// Advance to next character
  		*wLen += 1;
  	}
  
  	if(!ParseStates.bits.FoundAt)
  		*wLen = 0;
  
  	return lpStart;
  }
  
  #endif //#if defined(STACK_USE_SMTP_CLIENT)
  