adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 1 | /* |
| 2 | * Copyright (c) 2002, Adam Dunkels. |
| 3 | * All rights reserved. |
| 4 | * |
| 5 | * Redistribution and use in source and binary forms, with or without |
| 6 | * modification, are permitted provided that the following conditions |
| 7 | * are met: |
| 8 | * 1. Redistributions of source code must retain the above copyright |
| 9 | * notice, this list of conditions and the following disclaimer. |
| 10 | * 2. Redistributions in binary form must reproduce the above |
| 11 | * copyright notice, this list of conditions and the following |
| 12 | * disclaimer in the documentation and/or other materials provided |
| 13 | * with the distribution. |
adamdunkels | 06f897e | 2004-06-06 05:59:20 +0000 | [diff] [blame] | 14 | * 3. The name of the author may not be used to endorse or promote |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 15 | * products derived from this software without specific prior |
| 16 | * written permission. |
| 17 | * |
| 18 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS |
| 19 | * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED |
| 20 | * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
| 21 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY |
| 22 | * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
| 23 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE |
| 24 | * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS |
| 25 | * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, |
| 26 | * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING |
| 27 | * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS |
| 28 | * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| 29 | * |
| 30 | * This file is part of the Contiki desktop environment for the C64. |
| 31 | * |
oliverschmidt | 69cbdb3 | 2005-05-05 22:15:49 +0000 | [diff] [blame^] | 32 | * $Id: email.c,v 1.21 2005/05/05 22:15:49 oliverschmidt Exp $ |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 33 | * |
| 34 | */ |
| 35 | |
| 36 | |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 37 | #include "ek.h" |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 38 | #include "ctk.h" |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 39 | #include "smtp.h" |
adamdunkels | db300d2 | 2004-02-24 09:57:49 +0000 | [diff] [blame] | 40 | #include "uiplib.h" |
oliverschmidt | 69cbdb3 | 2005-05-05 22:15:49 +0000 | [diff] [blame^] | 41 | #include "resolv.h" |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 42 | #include "petsciiconv.h" |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 43 | #include "loader.h" |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 44 | #include "tcpip.h" |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 45 | |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 46 | #include "ctk-textentry-multiline.h" |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 47 | |
oliverschmidt | 764c474 | 2004-12-22 09:38:24 +0000 | [diff] [blame] | 48 | #include "email-conf.h" |
| 49 | |
oliverschmidt | 317947c | 2004-12-23 10:33:24 +0000 | [diff] [blame] | 50 | #include <string.h> |
| 51 | |
oliverschmidt | 764c474 | 2004-12-22 09:38:24 +0000 | [diff] [blame] | 52 | #define MAIL_WIDTH EMAIL_CONF_WIDTH |
| 53 | #define MAIL_HEIGHT EMAIL_CONF_HEIGHT |
| 54 | /* |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 55 | #define MAIL_WIDTH 37 |
oliverschmidt | 764c474 | 2004-12-22 09:38:24 +0000 | [diff] [blame] | 56 | #define MAIL_HEIGHT 17 |
| 57 | */ |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 58 | |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 59 | #if (MAIL_WIDTH - 9) < 39 |
| 60 | #define TEXTENTRY_WIDTH (MAIL_WIDTH - 9) |
oliverschmidt | 317947c | 2004-12-23 10:33:24 +0000 | [diff] [blame] | 61 | #else |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 62 | #define TEXTENTRY_WIDTH 39 |
oliverschmidt | 317947c | 2004-12-23 10:33:24 +0000 | [diff] [blame] | 63 | #endif |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 64 | |
| 65 | static struct ctk_menu menu; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 66 | unsigned char menuitem_compose, menuitem_setup, menuitem_quit; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 67 | |
| 68 | /* The main window. */ |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 69 | static struct ctk_window composewindow; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 70 | |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 71 | static struct ctk_separator sep1 = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 72 | {CTK_SEPARATOR(0, MAIL_HEIGHT + 3, MAIL_WIDTH + 1)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 73 | static struct ctk_label statuslabel = |
oliverschmidt | 69cbdb3 | 2005-05-05 22:15:49 +0000 | [diff] [blame^] | 74 | {CTK_LABEL(7, MAIL_HEIGHT + 4, MAIL_WIDTH - 14, 1, "")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 75 | |
| 76 | |
| 77 | static struct ctk_label tolabel = |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 78 | {CTK_LABEL(0, 0, 3, 1, "To:")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 79 | static char to[40]; |
| 80 | static struct ctk_textentry totextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 81 | {CTK_TEXTENTRY(8, 0, TEXTENTRY_WIDTH, 1, to, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 82 | |
| 83 | static struct ctk_label cclabel = |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 84 | {CTK_LABEL(0, 1, 3, 1, "Cc:")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 85 | static char cc[40]; |
| 86 | static struct ctk_textentry cctextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 87 | {CTK_TEXTENTRY(8, 1, TEXTENTRY_WIDTH, 1, cc, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 88 | |
| 89 | static struct ctk_label subjectlabel = |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 90 | {CTK_LABEL(0, 2, 8, 1, "Subject:")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 91 | static char subject[40]; |
| 92 | static struct ctk_textentry subjecttextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 93 | {CTK_TEXTENTRY(8, 2, TEXTENTRY_WIDTH, 1, subject, 39)}; |
adamdunkels | 01e7ba1 | 2003-08-11 23:01:56 +0000 | [diff] [blame] | 94 | |
| 95 | static char mail[MAIL_WIDTH * MAIL_HEIGHT]; |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 96 | struct ctk_textentry mailtextentry = |
| 97 | {CTK_TEXTENTRY_INPUT(0, 3, MAIL_WIDTH - 1, MAIL_HEIGHT, mail, MAIL_WIDTH - 1, \ |
| 98 | ctk_textentry_multiline_input)}; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 99 | |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 100 | |
| 101 | static struct ctk_button sendbutton = |
oliverschmidt | 764c474 | 2004-12-22 09:38:24 +0000 | [diff] [blame] | 102 | {CTK_BUTTON(0, MAIL_HEIGHT + 4, 4, "Send")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 103 | static struct ctk_button erasebutton = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 104 | {CTK_BUTTON(MAIL_WIDTH - 6, MAIL_HEIGHT + 4, 5, "Erase")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 105 | |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 106 | /* The "Really erase message?" dialog. */ |
| 107 | static struct ctk_window erasedialog; |
| 108 | static struct ctk_label erasedialoglabel1 = |
| 109 | {CTK_LABEL(2, 1, 22, 1, "Really erase message?")}; |
| 110 | static struct ctk_label erasedialoglabel2 = |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 111 | {CTK_LABEL(0, 2, 26, 1, "All contents will be lost.")}; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 112 | static struct ctk_button eraseyesbutton = |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 113 | {CTK_BUTTON(4, 4, 3, "Yes")}; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 114 | static struct ctk_button erasenobutton = |
adamdunkels | c880903 | 2003-04-11 20:13:33 +0000 | [diff] [blame] | 115 | {CTK_BUTTON(18, 4, 2, "No")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 116 | |
| 117 | /* The setup window. */ |
| 118 | static struct ctk_window setupwindow; |
| 119 | static struct ctk_label fromaddresslabel = |
| 120 | {CTK_LABEL(0, 0, 25, 1, "Name and e-mail address")}; |
| 121 | static char fromaddress[40]; |
| 122 | static struct ctk_textentry fromaddresstextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 123 | {CTK_TEXTENTRY(0, 1, 26, 1, fromaddress, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 124 | |
| 125 | static struct ctk_label smtpserverlabel = |
| 126 | {CTK_LABEL(0, 3, 20, 1, "Outgoing mailserver")}; |
| 127 | static char smtpserver[40]; |
| 128 | static struct ctk_textentry smtpservertextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 129 | {CTK_TEXTENTRY(0, 4, 26, 1, smtpserver, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 130 | |
| 131 | static struct ctk_label pop3serverlabel = |
| 132 | {CTK_LABEL(0, 6, 20, 1, "Incoming mailserver")}; |
| 133 | static char pop3server[40]; |
| 134 | static struct ctk_textentry pop3servertextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 135 | {CTK_TEXTENTRY(0, 7, 26, 1, pop3server, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 136 | |
| 137 | static struct ctk_label pop3userlabel = |
| 138 | {CTK_LABEL(0, 9, 20, 1, "Mailserver username")}; |
| 139 | static char pop3user[40]; |
| 140 | static struct ctk_textentry pop3usertextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 141 | {CTK_TEXTENTRY(0, 10, 26, 1, pop3user, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 142 | |
| 143 | static struct ctk_label pop3passwordlabel = |
| 144 | {CTK_LABEL(0, 12, 20, 1, "Mailserver password")}; |
| 145 | static char pop3password[40]; |
| 146 | static struct ctk_textentry pop3passwordtextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 147 | {CTK_TEXTENTRY(0, 13, 26, 1, pop3password, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 148 | |
| 149 | |
| 150 | static struct ctk_button setupokbutton = |
| 151 | {CTK_BUTTON(24, 15, 2, "Ok")}; |
| 152 | |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 153 | /* |
adamdunkels | 78c03dc | 2003-04-09 13:45:05 +0000 | [diff] [blame] | 154 | static DISPATCHER_SIGHANDLER(email_sighandler, s, data); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 155 | static struct dispatcher_proc p = |
adamdunkels | 78c03dc | 2003-04-09 13:45:05 +0000 | [diff] [blame] | 156 | {DISPATCHER_PROC("E-mail client", NULL, email_sighandler, smtp_appcall)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 157 | static ek_id_t id; |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 158 | */ |
| 159 | EK_EVENTHANDLER(email_eventhandler, ev, data); |
| 160 | EK_PROCESS(p, "E-mail client", EK_PRIO_NORMAL, |
| 161 | email_eventhandler, NULL, NULL); |
| 162 | static ek_id_t id = EK_ID_NONE; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 163 | |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 164 | /*-----------------------------------------------------------------------------------*/ |
| 165 | static void |
adamdunkels | 0137b44 | 2003-04-08 23:27:33 +0000 | [diff] [blame] | 166 | email_quit(void) |
adamdunkels | 1cd53bd | 2003-04-08 19:24:55 +0000 | [diff] [blame] | 167 | { |
| 168 | ctk_window_close(&setupwindow); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 169 | ctk_window_close(&composewindow); |
adamdunkels | 1cd53bd | 2003-04-08 19:24:55 +0000 | [diff] [blame] | 170 | ctk_menu_remove(&menu); |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 171 | ek_exit(); |
adamdunkels | 1cd53bd | 2003-04-08 19:24:55 +0000 | [diff] [blame] | 172 | id = EK_ID_NONE; |
| 173 | LOADER_UNLOAD(); |
| 174 | } |
| 175 | /*-----------------------------------------------------------------------------------*/ |
adamdunkels | 8bb5cca | 2003-08-24 22:41:31 +0000 | [diff] [blame] | 176 | LOADER_INIT_FUNC(email_init, arg) |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 177 | { |
adamdunkels | 8bb5cca | 2003-08-24 22:41:31 +0000 | [diff] [blame] | 178 | arg_free(arg); |
| 179 | |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 180 | if(id == EK_ID_NONE) { |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 181 | id = ek_start(&p); |
| 182 | } else { |
| 183 | ctk_window_open(&composewindow); |
| 184 | } |
| 185 | } |
| 186 | /*-----------------------------------------------------------------------------------*/ |
| 187 | static void |
| 188 | applyconfig(void) |
| 189 | { |
oliverschmidt | 69cbdb3 | 2005-05-05 22:15:49 +0000 | [diff] [blame^] | 190 | u16_t addr[2], *addrptr; |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 191 | char *cptr; |
| 192 | |
| 193 | for(cptr = smtpserver; *cptr != ' ' && *cptr != 0; ++cptr); |
| 194 | *cptr = 0; |
| 195 | |
oliverschmidt | 69cbdb3 | 2005-05-05 22:15:49 +0000 | [diff] [blame^] | 196 | addrptr = &addr[0]; |
| 197 | if(uiplib_ipaddrconv(smtpserver, (unsigned char *)addr) == 0) { |
| 198 | addrptr = resolv_lookup(smtpserver); |
| 199 | if(addrptr == NULL) { |
| 200 | resolv_query(smtpserver); |
| 201 | ctk_label_set_text(&statuslabel, "Resolving host..."); |
| 202 | return; |
| 203 | } |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 204 | } |
oliverschmidt | 69cbdb3 | 2005-05-05 22:15:49 +0000 | [diff] [blame^] | 205 | smtp_configure("contiki", addrptr); |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 206 | } |
| 207 | /*-----------------------------------------------------------------------------------*/ |
| 208 | static void |
| 209 | prepare_message(void) |
| 210 | { |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 211 | /* Convert fields to ASCII. */ |
| 212 | petsciiconv_toascii(to, sizeof(to)); |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 213 | petsciiconv_toascii(cc, sizeof(cc)); |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 214 | petsciiconv_toascii(subject, sizeof(subject)); |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 215 | petsciiconv_toascii(mail, sizeof(mail)); |
| 216 | } |
| 217 | /*-----------------------------------------------------------------------------------*/ |
| 218 | static void |
| 219 | erase_message(void) |
| 220 | { |
oliverschmidt | 4e06155 | 2005-05-05 20:57:09 +0000 | [diff] [blame] | 221 | CTK_TEXTENTRY_CLEAR(&totextentry); |
| 222 | CTK_TEXTENTRY_CLEAR(&cctextentry); |
| 223 | CTK_TEXTENTRY_CLEAR(&subjecttextentry); |
| 224 | CTK_TEXTENTRY_CLEAR(&mailtextentry); |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 225 | } |
| 226 | /*-----------------------------------------------------------------------------------*/ |
| 227 | /*static |
| 228 | DISPATCHER_SIGHANDLER(email_sighandler, s, data)*/ |
| 229 | EK_EVENTHANDLER(email_eventhandler, ev, data) |
| 230 | { |
| 231 | struct ctk_widget *w; |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 232 | EK_EVENTHANDLER_ARGS(ev, data); |
| 233 | |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 234 | if(ev == tcpip_event) { |
| 235 | smtp_appcall(data); |
| 236 | } else if(ev == EK_EVENT_INIT) { |
| 237 | |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 238 | /* Create the "Really erase message?" dialog. */ |
| 239 | ctk_dialog_new(&erasedialog, 26, 6); |
| 240 | CTK_WIDGET_ADD(&erasedialog, &erasedialoglabel1); |
| 241 | CTK_WIDGET_ADD(&erasedialog, &erasedialoglabel2); |
| 242 | CTK_WIDGET_ADD(&erasedialog, &eraseyesbutton); |
| 243 | CTK_WIDGET_ADD(&erasedialog, &erasenobutton); |
| 244 | CTK_WIDGET_FOCUS(&erasedialog, &erasenobutton); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 245 | |
| 246 | /* Create setup window. */ |
| 247 | ctk_window_new(&setupwindow, 28, 16, "E-mail setup"); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 248 | |
| 249 | CTK_WIDGET_ADD(&setupwindow, &fromaddresslabel); |
| 250 | CTK_WIDGET_ADD(&setupwindow, &fromaddresstextentry); |
| 251 | CTK_WIDGET_ADD(&setupwindow, &smtpserverlabel); |
| 252 | CTK_WIDGET_ADD(&setupwindow, &smtpservertextentry); |
oliverschmidt | 69cbdb3 | 2005-05-05 22:15:49 +0000 | [diff] [blame^] | 253 | /* CTK_WIDGET_ADD(&setupwindow, &pop3serverlabel);*/ |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 254 | /* CTK_WIDGET_ADD(&setupwindow, &pop3servertextentry);*/ |
oliverschmidt | 69cbdb3 | 2005-05-05 22:15:49 +0000 | [diff] [blame^] | 255 | /* CTK_WIDGET_ADD(&setupwindow, &pop3userlabel);*/ |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 256 | /* CTK_WIDGET_ADD(&setupwindow, &pop3usertextentry);*/ |
oliverschmidt | 69cbdb3 | 2005-05-05 22:15:49 +0000 | [diff] [blame^] | 257 | /* CTK_WIDGET_ADD(&setupwindow, &pop3passwordlabel);*/ |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 258 | /* CTK_WIDGET_ADD(&setupwindow, &pop3passwordtextentry);*/ |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 259 | CTK_WIDGET_ADD(&setupwindow, &setupokbutton); |
| 260 | |
| 261 | CTK_WIDGET_FOCUS(&setupwindow, &fromaddresstextentry); |
| 262 | |
| 263 | |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 264 | /* Create compose window. */ |
| 265 | |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 266 | ctk_window_new(&composewindow, MAIL_WIDTH + 1, MAIL_HEIGHT + 5, "Compose e-mail"); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 267 | |
| 268 | CTK_WIDGET_ADD(&composewindow, &tolabel); |
| 269 | CTK_WIDGET_ADD(&composewindow, &cclabel); |
| 270 | CTK_WIDGET_ADD(&composewindow, &subjectlabel); |
| 271 | |
| 272 | CTK_WIDGET_ADD(&composewindow, &totextentry); |
| 273 | CTK_WIDGET_FOCUS(&composewindow, &totextentry); |
| 274 | CTK_WIDGET_ADD(&composewindow, &cctextentry); |
| 275 | CTK_WIDGET_ADD(&composewindow, &subjecttextentry); |
| 276 | |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 277 | CTK_WIDGET_ADD(&composewindow, &mailtextentry); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 278 | |
| 279 | CTK_WIDGET_ADD(&composewindow, &sep1); |
| 280 | CTK_WIDGET_ADD(&composewindow, &statuslabel); |
| 281 | |
| 282 | CTK_WIDGET_ADD(&composewindow, &sendbutton); |
| 283 | CTK_WIDGET_ADD(&composewindow, &erasebutton); |
| 284 | |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 285 | erase_message(); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 286 | |
| 287 | /* Create and add the menu */ |
| 288 | ctk_menu_new(&menu, "E-mail"); |
| 289 | menuitem_setup = ctk_menuitem_add(&menu, "Setup"); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 290 | menuitem_compose = ctk_menuitem_add(&menu, "Compose"); |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 291 | menuitem_quit = ctk_menuitem_add(&menu, "Quit"); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 292 | ctk_menu_add(&menu); |
| 293 | |
| 294 | /* Attach listeners to signals. */ |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 295 | /* dispatcher_listen(ctk_signal_widget_activate); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 296 | dispatcher_listen(ctk_signal_menu_activate); |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 297 | dispatcher_listen(ctk_signal_window_close); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 298 | |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 299 | dispatcher_listen(ctk_signal_keypress);*/ |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 300 | |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 301 | /* Open setup window */ |
| 302 | ctk_window_open(&setupwindow); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 303 | |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 304 | } else if(ev == ctk_signal_widget_activate) { |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 305 | w = (struct ctk_widget *)data; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 306 | if(w == (struct ctk_widget *)&sendbutton) { |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 307 | prepare_message(); |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 308 | smtp_send(to, cc, fromaddress, subject, mail, MAIL_WIDTH, MAIL_HEIGHT); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 309 | ctk_label_set_text(&statuslabel, "Sending message..."); |
adamdunkels | e9354c4 | 2003-06-30 20:39:53 +0000 | [diff] [blame] | 310 | CTK_WIDGET_REDRAW(&statuslabel); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 311 | } else if(w == (struct ctk_widget *)&erasebutton) { |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 312 | ctk_dialog_open(&erasedialog); |
| 313 | } else if(w == (struct ctk_widget *)&eraseyesbutton) { |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 314 | erase_message(); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 315 | ctk_dialog_close(); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 316 | } else if(w == (struct ctk_widget *)&erasenobutton) { |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 317 | ctk_dialog_close(); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 318 | } else if(w == (struct ctk_widget *)&setupokbutton) { |
| 319 | applyconfig(); |
| 320 | ctk_window_close(&setupwindow); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 321 | ctk_window_open(&composewindow); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 322 | } |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 323 | } else if(ev == ctk_signal_menu_activate) { |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 324 | if((struct ctk_menu *)data == &menu) { |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 325 | if(menu.active == menuitem_compose) { |
| 326 | ctk_window_open(&composewindow); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 327 | } else if(menu.active == menuitem_setup) { |
| 328 | ctk_window_open(&setupwindow); |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 329 | } else if(menu.active == menuitem_quit) { |
adamdunkels | 0137b44 | 2003-04-08 23:27:33 +0000 | [diff] [blame] | 330 | email_quit(); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 331 | } |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 332 | } |
oliverschmidt | 69cbdb3 | 2005-05-05 22:15:49 +0000 | [diff] [blame^] | 333 | } else if(ev == resolv_event_found) { |
| 334 | if(strcmp(data, smtpserver) == 0) { |
| 335 | if(resolv_lookup(smtpserver) != NULL) { |
| 336 | applyconfig(); |
| 337 | ctk_label_set_text(&statuslabel, ""); |
| 338 | } else { |
| 339 | ctk_label_set_text(&statuslabel, "Host not found"); |
| 340 | } |
| 341 | CTK_WIDGET_REDRAW(&statuslabel); |
| 342 | } |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 343 | } else if(ev == EK_EVENT_REQUEST_EXIT) { |
adamdunkels | 0137b44 | 2003-04-08 23:27:33 +0000 | [diff] [blame] | 344 | email_quit(); |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 345 | } |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 346 | } |
| 347 | /*-----------------------------------------------------------------------------------*/ |
| 348 | void |
| 349 | smtp_done(unsigned char error) |
| 350 | { |
adamdunkels | 01e7ba1 | 2003-08-11 23:01:56 +0000 | [diff] [blame] | 351 | if(error == SMTP_ERR_OK) { |
| 352 | ctk_label_set_text(&statuslabel, "Mail sent"); |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame] | 353 | erase_message(); |
adamdunkels | 01e7ba1 | 2003-08-11 23:01:56 +0000 | [diff] [blame] | 354 | ctk_window_open(&composewindow); |
| 355 | } else { |
| 356 | ctk_label_set_text(&statuslabel, "Mail error"); |
| 357 | } |
adamdunkels | e9354c4 | 2003-06-30 20:39:53 +0000 | [diff] [blame] | 358 | CTK_WIDGET_REDRAW(&statuslabel); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 359 | } |
| 360 | /*-----------------------------------------------------------------------------------*/ |