364 lines
11 KiB
C
364 lines
11 KiB
C
/*
|
|
* 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 Contiki desktop environment for the C64.
|
|
*
|
|
*
|
|
*/
|
|
|
|
|
|
#include "contiki.h"
|
|
#include "ctk/ctk.h"
|
|
#include "smtp.h"
|
|
#include "lib/petsciiconv.h"
|
|
|
|
#include "ctk/ctk-textentry-multiline.h"
|
|
|
|
|
|
#include <string.h>
|
|
|
|
#ifdef EMAIL_CONF_WIDTH
|
|
#define MAIL_WIDTH EMAIL_CONF_WIDTH
|
|
#else
|
|
#define MAIL_WIDTH 37
|
|
#endif
|
|
|
|
#ifdef EMAIL_CONF_HEIGHT
|
|
#define MAIL_HEIGHT EMAIL_CONF_HEIGHT
|
|
#else
|
|
#define MAIL_HEIGHT 17
|
|
#endif
|
|
|
|
#ifdef EMAIL_CONF_ERASE
|
|
#define MAIL_ERASE EMAIL_CONF_ERASE
|
|
#else
|
|
#define MAIL_ERASE 1
|
|
#endif
|
|
|
|
#if (MAIL_WIDTH - 9) < 39
|
|
#define TEXTENTRY_WIDTH (MAIL_WIDTH - 9)
|
|
#else
|
|
#define TEXTENTRY_WIDTH 39
|
|
#endif
|
|
|
|
static struct ctk_menu menu;
|
|
unsigned char menuitem_compose, menuitem_setup, menuitem_quit;
|
|
|
|
/* The main window. */
|
|
static struct ctk_window composewindow;
|
|
|
|
static struct ctk_separator sep1 =
|
|
{CTK_SEPARATOR(0, MAIL_HEIGHT + 3, MAIL_WIDTH + 1)};
|
|
static struct ctk_label statuslabel =
|
|
{CTK_LABEL(7, MAIL_HEIGHT + 4, MAIL_WIDTH - 14, 1, "")};
|
|
|
|
|
|
static struct ctk_label tolabel =
|
|
{CTK_LABEL(0, 0, 3, 1, "To:")};
|
|
static char to[40];
|
|
static struct ctk_textentry totextentry =
|
|
{CTK_TEXTENTRY(8, 0, TEXTENTRY_WIDTH, 1, to, 39)};
|
|
|
|
static struct ctk_label cclabel =
|
|
{CTK_LABEL(0, 1, 3, 1, "Cc:")};
|
|
static char cc[40];
|
|
static struct ctk_textentry cctextentry =
|
|
{CTK_TEXTENTRY(8, 1, TEXTENTRY_WIDTH, 1, cc, 39)};
|
|
|
|
static struct ctk_label subjectlabel =
|
|
{CTK_LABEL(0, 2, 8, 1, "Subject:")};
|
|
static char subject[40];
|
|
static struct ctk_textentry subjecttextentry =
|
|
{CTK_TEXTENTRY(8, 2, TEXTENTRY_WIDTH, 1, subject, 39)};
|
|
|
|
static char mail[MAIL_WIDTH * MAIL_HEIGHT];
|
|
struct ctk_textentry mailtextentry =
|
|
{CTK_TEXTENTRY_INPUT(0, 3, MAIL_WIDTH - 1, MAIL_HEIGHT, mail, MAIL_WIDTH - 1, \
|
|
ctk_textentry_multiline_input)};
|
|
|
|
static struct ctk_button sendbutton =
|
|
{CTK_BUTTON(0, MAIL_HEIGHT + 4, 4, "Send")};
|
|
|
|
#if MAIL_ERASE
|
|
static struct ctk_button erasebutton =
|
|
{CTK_BUTTON(MAIL_WIDTH - 6, MAIL_HEIGHT + 4, 5, "Erase")};
|
|
|
|
/* The "Really erase message?" dialog. */
|
|
static struct ctk_window erasedialog;
|
|
static struct ctk_label erasedialoglabel1 =
|
|
{CTK_LABEL(2, 1, 22, 1, "Really erase message?")};
|
|
static struct ctk_label erasedialoglabel2 =
|
|
{CTK_LABEL(0, 2, 26, 1, "All contents will be lost.")};
|
|
static struct ctk_button eraseyesbutton =
|
|
{CTK_BUTTON(4, 4, 3, "Yes")};
|
|
static struct ctk_button erasenobutton =
|
|
{CTK_BUTTON(18, 4, 2, "No")};
|
|
#endif /* MAIL_ERASE */
|
|
|
|
/* The setup window. */
|
|
static struct ctk_window setupwindow;
|
|
static struct ctk_label fromaddresslabel =
|
|
{CTK_LABEL(0, 0, 25, 1, "Name and e-mail address")};
|
|
static char fromaddress[40];
|
|
static struct ctk_textentry fromaddresstextentry =
|
|
{CTK_TEXTENTRY(0, 1, 26, 1, fromaddress, 39)};
|
|
|
|
static struct ctk_label smtpserverlabel =
|
|
{CTK_LABEL(0, 3, 20, 1, "Outgoing mailserver")};
|
|
static char smtpserver[40];
|
|
static struct ctk_textentry smtpservertextentry =
|
|
{CTK_TEXTENTRY(0, 4, 26, 1, smtpserver, 39)};
|
|
|
|
/*
|
|
static struct ctk_label pop3serverlabel =
|
|
{CTK_LABEL(0, 6, 20, 1, "Incoming mailserver")};
|
|
static char pop3server[40];
|
|
static struct ctk_textentry pop3servertextentry =
|
|
{CTK_TEXTENTRY(0, 7, 26, 1, pop3server, 39)};
|
|
*/
|
|
|
|
/*
|
|
static struct ctk_label pop3userlabel =
|
|
{CTK_LABEL(0, 9, 20, 1, "Mailserver username")};
|
|
static char pop3user[40];
|
|
static struct ctk_textentry pop3usertextentry =
|
|
{CTK_TEXTENTRY(0, 10, 26, 1, pop3user, 39)};
|
|
*/
|
|
|
|
/*
|
|
static struct ctk_label pop3passwordlabel =
|
|
{CTK_LABEL(0, 12, 20, 1, "Mailserver password")};
|
|
static char pop3password[40];
|
|
static struct ctk_textentry pop3passwordtextentry =
|
|
{CTK_TEXTENTRY(0, 13, 26, 1, pop3password, 39)};
|
|
*/
|
|
|
|
static struct ctk_button setupokbutton =
|
|
/* {CTK_BUTTON(24, 15, 2, "Ok")};*/
|
|
{CTK_BUTTON(24, 6, 2, "Ok")};
|
|
|
|
PROCESS(email_process, "E-mail client");
|
|
|
|
AUTOSTART_PROCESSES(&email_process);
|
|
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static void
|
|
email_quit(void)
|
|
{
|
|
ctk_window_close(&setupwindow);
|
|
ctk_window_close(&composewindow);
|
|
ctk_menu_remove(&menu);
|
|
process_exit(&email_process);
|
|
LOADER_UNLOAD();
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static void
|
|
applyconfig(void)
|
|
{
|
|
uip_ipaddr_t addr;
|
|
uip_ipaddr_t *addrptr;
|
|
char *cptr;
|
|
|
|
for(cptr = smtpserver; *cptr != ' ' && *cptr != 0; ++cptr);
|
|
*cptr = 0;
|
|
|
|
addrptr = &addr;
|
|
#if UIP_UDP
|
|
if(uiplib_ipaddrconv(smtpserver, &addr) == 0) {
|
|
if(resolv_lookup(smtpserver, &addrptr) != RESOLV_STATUS_CACHED) {
|
|
resolv_query(smtpserver);
|
|
ctk_label_set_text(&statuslabel, "Resolving host...");
|
|
return;
|
|
}
|
|
}
|
|
#else /* UIP_UDP */
|
|
uiplib_ipaddrconv(smtpserver, &addr);
|
|
#endif /* UIP_UDP */
|
|
smtp_configure("contiki", addrptr);
|
|
|
|
petsciiconv_toascii(fromaddress, sizeof(fromaddress));
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static void
|
|
prepare_message(void)
|
|
{
|
|
/* Convert fields to ASCII. */
|
|
petsciiconv_toascii(to, sizeof(to));
|
|
petsciiconv_toascii(cc, sizeof(cc));
|
|
petsciiconv_toascii(subject, sizeof(subject));
|
|
petsciiconv_toascii(mail, sizeof(mail));
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
static void
|
|
erase_message(void)
|
|
{
|
|
CTK_TEXTENTRY_CLEAR(&totextentry);
|
|
CTK_TEXTENTRY_CLEAR(&cctextentry);
|
|
CTK_TEXTENTRY_CLEAR(&subjecttextentry);
|
|
CTK_TEXTENTRY_CLEAR(&mailtextentry);
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
PROCESS_THREAD(email_process, ev, data)
|
|
{
|
|
struct ctk_widget *w;
|
|
|
|
PROCESS_BEGIN();
|
|
|
|
#if MAIL_ERASE
|
|
/* Create the "Really erase message?" dialog. */
|
|
ctk_dialog_new(&erasedialog, 26, 6);
|
|
CTK_WIDGET_ADD(&erasedialog, &erasedialoglabel1);
|
|
CTK_WIDGET_ADD(&erasedialog, &erasedialoglabel2);
|
|
CTK_WIDGET_ADD(&erasedialog, &eraseyesbutton);
|
|
CTK_WIDGET_ADD(&erasedialog, &erasenobutton);
|
|
CTK_WIDGET_FOCUS(&erasedialog, &erasenobutton);
|
|
#endif /* MAIL_ERASE */
|
|
|
|
/* Create setup window. */
|
|
/* ctk_window_new(&setupwindow, 28, 16, "E-mail setup");*/
|
|
ctk_window_new(&setupwindow, 28, 7, "E-mail setup");
|
|
|
|
CTK_WIDGET_ADD(&setupwindow, &fromaddresslabel);
|
|
CTK_WIDGET_ADD(&setupwindow, &fromaddresstextentry);
|
|
CTK_WIDGET_ADD(&setupwindow, &smtpserverlabel);
|
|
CTK_WIDGET_ADD(&setupwindow, &smtpservertextentry);
|
|
/* CTK_WIDGET_ADD(&setupwindow, &pop3serverlabel);*/
|
|
/* CTK_WIDGET_ADD(&setupwindow, &pop3servertextentry);*/
|
|
/* CTK_WIDGET_ADD(&setupwindow, &pop3userlabel);*/
|
|
/* CTK_WIDGET_ADD(&setupwindow, &pop3usertextentry);*/
|
|
/* CTK_WIDGET_ADD(&setupwindow, &pop3passwordlabel);*/
|
|
/* CTK_WIDGET_ADD(&setupwindow, &pop3passwordtextentry);*/
|
|
CTK_WIDGET_ADD(&setupwindow, &setupokbutton);
|
|
|
|
CTK_WIDGET_FOCUS(&setupwindow, &fromaddresstextentry);
|
|
|
|
|
|
/* Create compose window. */
|
|
ctk_window_new(&composewindow, MAIL_WIDTH + 1, MAIL_HEIGHT + 5, "Compose e-mail");
|
|
|
|
CTK_WIDGET_ADD(&composewindow, &tolabel);
|
|
CTK_WIDGET_ADD(&composewindow, &cclabel);
|
|
CTK_WIDGET_ADD(&composewindow, &subjectlabel);
|
|
|
|
CTK_WIDGET_ADD(&composewindow, &totextentry);
|
|
CTK_WIDGET_FOCUS(&composewindow, &totextentry);
|
|
CTK_WIDGET_ADD(&composewindow, &cctextentry);
|
|
CTK_WIDGET_ADD(&composewindow, &subjecttextentry);
|
|
|
|
CTK_WIDGET_ADD(&composewindow, &mailtextentry);
|
|
|
|
CTK_WIDGET_ADD(&composewindow, &sep1);
|
|
CTK_WIDGET_ADD(&composewindow, &statuslabel);
|
|
|
|
CTK_WIDGET_ADD(&composewindow, &sendbutton);
|
|
#if MAIL_ERASE
|
|
CTK_WIDGET_ADD(&composewindow, &erasebutton);
|
|
#endif /* MAIL_ERASE */
|
|
|
|
erase_message();
|
|
|
|
/* Create and add the menu */
|
|
ctk_menu_new(&menu, "E-mail");
|
|
menuitem_setup = ctk_menuitem_add(&menu, "Setup");
|
|
menuitem_compose = ctk_menuitem_add(&menu, "Compose");
|
|
menuitem_quit = ctk_menuitem_add(&menu, "Quit");
|
|
ctk_menu_add(&menu);
|
|
|
|
/* Open setup window */
|
|
ctk_window_open(&setupwindow);
|
|
|
|
while(1) {
|
|
|
|
PROCESS_WAIT_EVENT();
|
|
|
|
if(ev == tcpip_event) {
|
|
smtp_appcall(data);
|
|
} else if(ev == ctk_signal_widget_activate) {
|
|
w = (struct ctk_widget *)data;
|
|
if(w == (struct ctk_widget *)&sendbutton) {
|
|
prepare_message();
|
|
smtp_send(to, cc, fromaddress, subject, mail, MAIL_WIDTH, MAIL_HEIGHT);
|
|
ctk_label_set_text(&statuslabel, "Sending message...");
|
|
CTK_WIDGET_REDRAW(&statuslabel);
|
|
#if MAIL_ERASE
|
|
} else if(w == (struct ctk_widget *)&erasebutton) {
|
|
ctk_dialog_open(&erasedialog);
|
|
} else if(w == (struct ctk_widget *)&eraseyesbutton) {
|
|
erase_message();
|
|
ctk_dialog_close();
|
|
} else if(w == (struct ctk_widget *)&erasenobutton) {
|
|
ctk_dialog_close();
|
|
#endif /* MAIL_ERASE */
|
|
} else if(w == (struct ctk_widget *)&setupokbutton) {
|
|
applyconfig();
|
|
ctk_window_close(&setupwindow);
|
|
ctk_window_open(&composewindow);
|
|
}
|
|
} else if(ev == ctk_signal_menu_activate) {
|
|
if((struct ctk_menu *)data == &menu) {
|
|
if(menu.active == menuitem_compose) {
|
|
ctk_window_open(&composewindow);
|
|
} else if(menu.active == menuitem_setup) {
|
|
ctk_window_open(&setupwindow);
|
|
} else if(menu.active == menuitem_quit) {
|
|
email_quit();
|
|
}
|
|
}
|
|
#if UIP_UDP
|
|
} else if(ev == resolv_event_found) {
|
|
if(strcmp(data, smtpserver) == 0) {
|
|
if(resolv_lookup(smtpserver, NULL) == RESOLV_STATUS_CACHED) {
|
|
applyconfig();
|
|
ctk_label_set_text(&statuslabel, "");
|
|
} else {
|
|
ctk_label_set_text(&statuslabel, "Host not found");
|
|
}
|
|
CTK_WIDGET_REDRAW(&statuslabel);
|
|
}
|
|
#endif /* UIP_UDP */
|
|
} else if(ev == PROCESS_EVENT_EXIT) {
|
|
email_quit();
|
|
}
|
|
}
|
|
PROCESS_END();
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|
|
void
|
|
smtp_done(unsigned char error)
|
|
{
|
|
if(error == SMTP_ERR_OK) {
|
|
ctk_label_set_text(&statuslabel, "Mail sent");
|
|
erase_message();
|
|
ctk_window_open(&composewindow);
|
|
} else {
|
|
ctk_label_set_text(&statuslabel, "Mail error");
|
|
}
|
|
CTK_WIDGET_REDRAW(&statuslabel);
|
|
}
|
|
/*-----------------------------------------------------------------------------------*/
|