www.pudn.com > UIP09_ADSP-BF537_Blackfin_org.zip > smtp.c
/**
* \addtogroup exampleapps
* @{
*/
/**
* \defgroup smtp SMTP E-mail sender
* @{
*
* The Simple Mail Transfer Protocol (SMTP) as defined by RFC821 is
* the standard way of sending and transfering e-mail on the
* Internet. This simple example implementation is intended as an
* example of how to implement protocols in uIP, and is able to send
* out e-mail but has not been extensively tested.
*/
/**
* \file
* SMTP example implementation
* \author Adam Dunkels
*/
/*
* Copyright (c) 2002, Adam Dunkels.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. The name of the author may not be used to endorse or promote
* products derived from this software without specific prior
* written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
* This file is part of the uIP TCP/IP stack.
*
* $Id: smtp.c,v 1.1.2.7 2003/10/07 13:47:50 adam Exp $
*
*/
#include "uip.h"
#include "smtp.h"
#include "smtp-strings.h"
#include
#define STATE_SEND_NONE 0
#define STATE_SEND_HELO 1
#define STATE_SEND_MAIL_FROM 2
#define STATE_SEND_RCPT_TO 3
#define STATE_SEND_DATA 4
#define STATE_SEND_DATA_HEADERS 5
#define STATE_SEND_DATA_MESSAGE 6
#define STATE_SEND_DATA_END 7
#define STATE_SEND_QUIT 8
#define STATE_SEND_DONE 9
static char *localhostname;
static u16_t smtpserver[2];
#define ISO_nl 0x0a
#define ISO_cr 0x0d
#define ISO_period 0x2e
#define ISO_2 0x32
#define ISO_3 0x33
#define ISO_4 0x34
#define ISO_5 0x35
/*-----------------------------------------------------------------------------------*/
static void
senddata(struct smtp_state *s)
{
char *textptr;
if(s->textlen != 0 &&
s->textlen == s->sendptr) {
return;
}
textptr = (char *)uip_appdata;
switch(s->state) {
case STATE_SEND_HELO:
/* Create HELO message. */
strcpy(textptr, smtp_helo);
textptr += sizeof(smtp_helo) - 1;
strcpy(textptr, localhostname);
textptr += strlen(localhostname);
*textptr = ISO_cr;
++textptr;
*textptr = ISO_nl;
++textptr;
/* printf("s->sendptr %d\n", s->sendptr);*/
if(s->sendptr == 0) {
s->textlen = textptr - (char *)uip_appdata;
/* printf("s->textlen %d\n", s->textlen);*/
}
textptr = (char *)uip_appdata;
break;
case STATE_SEND_MAIL_FROM:
/* Create MAIL FROM message. */
strcpy(textptr, smtp_mail_from);
textptr += sizeof(smtp_mail_from) - 1;
strcpy(textptr, s->from);
textptr += strlen(s->from);
*textptr = ISO_cr;
++textptr;
*textptr = ISO_nl;
++textptr;
if(s->sendptr == 0) {
s->textlen = textptr - (char *)uip_appdata;
}
textptr = (char *)uip_appdata;
break;
case STATE_SEND_RCPT_TO:
/* Create RCPT_TO message. */
strcpy(textptr, smtp_rcpt_to);
textptr += sizeof(smtp_rcpt_to) - 1;
strcpy(textptr, s->to);
textptr += strlen(s->to);
*textptr = ISO_cr;
++textptr;
*textptr = ISO_nl;
++textptr;
if(s->sendptr == 0) {
s->textlen = textptr - (char *)uip_appdata;
}
textptr = (char *)uip_appdata;
break;
case STATE_SEND_DATA:
strcpy(textptr, smtp_data);
textptr += sizeof(smtp_data) - 1;
*textptr = ISO_cr;
++textptr;
*textptr = ISO_nl;
++textptr;
if(s->sendptr == 0) {
s->textlen = textptr - (char *)uip_appdata;
}
textptr = (char *)uip_appdata;
break;
case STATE_SEND_DATA_HEADERS:
/* Create mail headers-> */
strcpy(textptr, smtp_to);
textptr += sizeof(smtp_to) - 1;
strcpy(textptr, s->to);
textptr += strlen(s->to);
*textptr = ISO_cr;
++textptr;
*textptr = ISO_nl;
++textptr;
strcpy(textptr, smtp_from);
textptr += sizeof(smtp_from) - 1;
strcpy(textptr, s->from);
textptr += strlen(s->from);
*textptr = ISO_cr;
++textptr;
*textptr = ISO_nl;
++textptr;
strcpy(textptr, smtp_subject);
textptr += sizeof(smtp_subject) - 1;
strcpy(textptr, s->subject);
textptr += strlen(s->subject);
*textptr = ISO_cr;
++textptr;
*textptr = ISO_nl;
++textptr;
if(s->sendptr == 0) {
s->textlen = textptr - (char *)uip_appdata;
}
textptr = (char *)uip_appdata;
break;
case STATE_SEND_DATA_MESSAGE:
textptr = s->msg;
if(s->sendptr == 0) {
s->textlen = s->msglen;
}
break;
case STATE_SEND_DATA_END:
*textptr = ISO_cr;
++textptr;
*textptr = ISO_nl;
++textptr;
*textptr = ISO_period;
++textptr;
*textptr = ISO_cr;
++textptr;
*textptr = ISO_nl;
++textptr;
if(s->sendptr == 0) {
s->textlen = 5;
}
textptr = (char *)uip_appdata;
break;
case STATE_SEND_QUIT:
strcpy(textptr, smtp_quit);
textptr += sizeof(smtp_quit) - 1;
*textptr = ISO_cr;
++textptr;
*textptr = ISO_nl;
++textptr;
if(s->sendptr == 0) {
s->textlen = textptr - (char *)uip_appdata;
}
textptr = (char *)uip_appdata;
break;
default:
return;
}
textptr += s->sendptr;
if(s->textlen - s->sendptr > uip_mss()) {
s->sentlen = uip_mss();
} else {
s->sentlen = s->textlen - s->sendptr;
}
/* textptr[s->sentlen] = 0;
printf("Senidng '%s'\n", textptr);*/
uip_send(textptr, s->sentlen);
}
/*-----------------------------------------------------------------------------------*/
static void
acked(struct smtp_state *s)
{
s->sendptr += s->sentlen;
s->sentlen = 0;
if(s->sendptr == s->textlen) {
switch(s->state) {
case STATE_SEND_DATA_HEADERS:
s->state = STATE_SEND_DATA_MESSAGE;
s->sendptr = s->textlen = 0;
break;
case STATE_SEND_DATA_MESSAGE:
s->state = STATE_SEND_DATA_END;
s->sendptr = s->textlen = 0;
break;
case STATE_SEND_DATA_END:
s->state = STATE_SEND_QUIT;
s->sendptr = s->textlen = 0;
break;
case STATE_SEND_QUIT:
s->state = STATE_SEND_DONE;
smtp_done(SMTP_ERR_OK);
uip_close();
break;
}
}
}
/*-----------------------------------------------------------------------------------*/
static void
newdata(struct smtp_state *s)
{
if(*(char *)uip_appdata == ISO_5) {
smtp_done(1);
uip_abort();
return;
}
/* printf("Got %d bytes: '%s'\n", uip_datalen(),
uip_appdata);*/
switch(s->state) {
case STATE_SEND_NONE:
if(strncmp((char *)uip_appdata, smtp_220, 3) == 0) {
/* printf("Newdata(): SEND_NONE, got 220, towards SEND_HELO\n");*/
s->state = STATE_SEND_HELO;
s->sendptr = 0;
}
break;
case STATE_SEND_HELO:
if(*(char *)uip_appdata == ISO_2) {
/* printf("Newdata(): SEND_HELO, got 2*, towards SEND_MAIL_FROM\n");*/
s->state = STATE_SEND_MAIL_FROM;
s->sendptr = 0;
}
break;
case STATE_SEND_MAIL_FROM:
if(*(char *)uip_appdata == ISO_2) {
/* printf("Newdata(): SEND_MAIL_FROM, got 2*, towards SEND_RCPT_TO\n"); */
/* printf("2\n");*/
s->state = STATE_SEND_RCPT_TO;
s->textlen = s->sendptr = 0;
}
break;
case STATE_SEND_RCPT_TO:
if(*(char *)uip_appdata == ISO_2) {
/* printf("2\n");*/
s->state = STATE_SEND_DATA;
s->textlen = s->sendptr = 0;
}
break;
case STATE_SEND_DATA:
if(*(char *)uip_appdata == ISO_3) {
/* printf("3\n");*/
s->state = STATE_SEND_DATA_HEADERS;
s->textlen = s->sendptr = 0;
}
break;
case STATE_SEND_DATA_HEADERS:
if(*(char *)uip_appdata == ISO_3) {
/* printf("3\n");*/
s->state = STATE_SEND_DATA_MESSAGE;
s->textlen = s->sendptr = 0;
}
break;
}
}
/*-----------------------------------------------------------------------------------*/
void
smtp_appcall(void)
{
struct smtp_state *s;
s = (struct smtp_state *)uip_conn->appstate;
if(uip_connected()) {
/* senddata();*/
return;
}
if(uip_acked()) {
acked(s);
}
if(uip_newdata()) {
newdata(s);
}
if(uip_rexmit() ||
uip_newdata() ||
uip_acked()) {
senddata(s);
} else if(uip_poll()) {
senddata(s);
}
/* if(uip_closed()) {
printf("Dnoe\n");
}*/
}
/*-----------------------------------------------------------------------------------*/
/**
* Send an e-mail.
*
* \param to The e-mail address of the receiver of the e-mail.
* \param from The e-mail address of the sender of the e-mail.
* \param subject The subject of the e-mail.
* \param msg The actual e-mail message.
* \param msglen The length of the e-mail message.
*/
/*-----------------------------------------------------------------------------------*/
unsigned char
smtp_send(char *to, char *from, char *subject,
char *msg, u16_t msglen)
{
struct uip_conn *conn;
struct smtp_state *s;
conn = uip_connect(smtpserver, HTONS(25));
if(conn == NULL) {
return 0;
}
s = conn->appstate;
s->state = STATE_SEND_NONE;
s->sentlen = s->sendptr = s->textlen = 0;
s->to = to;
s->from = from;
s->subject = subject;
s->msg = msg;
s->msglen = msglen;
return 1;
}
/*-----------------------------------------------------------------------------------*/
/**
* Specificy an SMTP server and hostname.
*
* This function is used to configure the SMTP module with an SMTP
* server and the hostname of the host.
*
* \param lhostname The hostname of the uIP host.
*
* \param server A pointer to a 4-byte array representing the IP
* address of the SMTP server to be configured.
*/
/*-----------------------------------------------------------------------------------*/
void
smtp_configure(char *lhostname, u16_t *server)
{
localhostname = lhostname;
smtpserver[0] = server[0];
smtpserver[1] = server[1];
}
/*-----------------------------------------------------------------------------------*/
/** @} */