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 | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 32 | * $Id: email.c,v 1.19 2005/05/04 23:47:39 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" |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 41 | #include "petsciiconv.h" |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 42 | #include "loader.h" |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 43 | #include "tcpip.h" |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 44 | |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 45 | #include "ctk-textentry-multiline.h" |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 46 | |
oliverschmidt | 764c474 | 2004-12-22 09:38:24 +0000 | [diff] [blame] | 47 | #include "email-conf.h" |
| 48 | |
oliverschmidt | 317947c | 2004-12-23 10:33:24 +0000 | [diff] [blame] | 49 | #include <string.h> |
| 50 | |
oliverschmidt | 764c474 | 2004-12-22 09:38:24 +0000 | [diff] [blame] | 51 | #define MAIL_WIDTH EMAIL_CONF_WIDTH |
| 52 | #define MAIL_HEIGHT EMAIL_CONF_HEIGHT |
| 53 | /* |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 54 | #define MAIL_WIDTH 37 |
oliverschmidt | 764c474 | 2004-12-22 09:38:24 +0000 | [diff] [blame] | 55 | #define MAIL_HEIGHT 17 |
| 56 | */ |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 57 | |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 58 | #if (MAIL_WIDTH - 9) < 39 |
| 59 | #define TEXTENTRY_WIDTH (MAIL_WIDTH - 9) |
oliverschmidt | 317947c | 2004-12-23 10:33:24 +0000 | [diff] [blame] | 60 | #else |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 61 | #define TEXTENTRY_WIDTH 39 |
oliverschmidt | 317947c | 2004-12-23 10:33:24 +0000 | [diff] [blame] | 62 | #endif |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 63 | |
| 64 | static struct ctk_menu menu; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 65 | unsigned char menuitem_compose, menuitem_setup, menuitem_quit; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 66 | |
| 67 | /* The main window. */ |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 68 | static struct ctk_window composewindow; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 69 | |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 70 | static struct ctk_separator sep1 = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 71 | {CTK_SEPARATOR(0, MAIL_HEIGHT + 3, MAIL_WIDTH + 1)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 72 | static struct ctk_label statuslabel = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 73 | {CTK_LABEL(6, MAIL_HEIGHT + 4, MAIL_WIDTH - 12, 1, "")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 74 | |
| 75 | |
| 76 | static struct ctk_label tolabel = |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 77 | {CTK_LABEL(0, 0, 3, 1, "To:")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 78 | static char to[40]; |
| 79 | static struct ctk_textentry totextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 80 | {CTK_TEXTENTRY(8, 0, TEXTENTRY_WIDTH, 1, to, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 81 | |
| 82 | static struct ctk_label cclabel = |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 83 | {CTK_LABEL(0, 1, 3, 1, "Cc:")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 84 | static char cc[40]; |
| 85 | static struct ctk_textentry cctextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 86 | {CTK_TEXTENTRY(8, 1, TEXTENTRY_WIDTH, 1, cc, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 87 | |
| 88 | static struct ctk_label subjectlabel = |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 89 | {CTK_LABEL(0, 2, 8, 1, "Subject:")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 90 | static char subject[40]; |
| 91 | static struct ctk_textentry subjecttextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 92 | {CTK_TEXTENTRY(8, 2, TEXTENTRY_WIDTH, 1, subject, 39)}; |
adamdunkels | 01e7ba1 | 2003-08-11 23:01:56 +0000 | [diff] [blame] | 93 | |
| 94 | static char mail[MAIL_WIDTH * MAIL_HEIGHT]; |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 95 | struct ctk_textentry mailtextentry = |
| 96 | {CTK_TEXTENTRY_INPUT(0, 3, MAIL_WIDTH - 1, MAIL_HEIGHT, mail, MAIL_WIDTH - 1, \ |
| 97 | ctk_textentry_multiline_input)}; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 98 | |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 99 | |
| 100 | static struct ctk_button sendbutton = |
oliverschmidt | 764c474 | 2004-12-22 09:38:24 +0000 | [diff] [blame] | 101 | {CTK_BUTTON(0, MAIL_HEIGHT + 4, 4, "Send")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 102 | static struct ctk_button erasebutton = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 103 | {CTK_BUTTON(MAIL_WIDTH - 6, MAIL_HEIGHT + 4, 5, "Erase")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 104 | |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 105 | /* The "Really erase message?" dialog. */ |
| 106 | static struct ctk_window erasedialog; |
| 107 | static struct ctk_label erasedialoglabel1 = |
| 108 | {CTK_LABEL(2, 1, 22, 1, "Really erase message?")}; |
| 109 | static struct ctk_label erasedialoglabel2 = |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 110 | {CTK_LABEL(0, 2, 26, 1, "All contents will be lost.")}; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 111 | static struct ctk_button eraseyesbutton = |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 112 | {CTK_BUTTON(4, 4, 3, "Yes")}; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 113 | static struct ctk_button erasenobutton = |
adamdunkels | c880903 | 2003-04-11 20:13:33 +0000 | [diff] [blame] | 114 | {CTK_BUTTON(18, 4, 2, "No")}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 115 | |
| 116 | /* The setup window. */ |
| 117 | static struct ctk_window setupwindow; |
| 118 | static struct ctk_label fromaddresslabel = |
| 119 | {CTK_LABEL(0, 0, 25, 1, "Name and e-mail address")}; |
| 120 | static char fromaddress[40]; |
| 121 | static struct ctk_textentry fromaddresstextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 122 | {CTK_TEXTENTRY(0, 1, 26, 1, fromaddress, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 123 | |
| 124 | static struct ctk_label smtpserverlabel = |
| 125 | {CTK_LABEL(0, 3, 20, 1, "Outgoing mailserver")}; |
| 126 | static char smtpserver[40]; |
| 127 | static struct ctk_textentry smtpservertextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 128 | {CTK_TEXTENTRY(0, 4, 26, 1, smtpserver, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 129 | |
| 130 | static struct ctk_label pop3serverlabel = |
| 131 | {CTK_LABEL(0, 6, 20, 1, "Incoming mailserver")}; |
| 132 | static char pop3server[40]; |
| 133 | static struct ctk_textentry pop3servertextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 134 | {CTK_TEXTENTRY(0, 7, 26, 1, pop3server, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 135 | |
| 136 | static struct ctk_label pop3userlabel = |
| 137 | {CTK_LABEL(0, 9, 20, 1, "Mailserver username")}; |
| 138 | static char pop3user[40]; |
| 139 | static struct ctk_textentry pop3usertextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 140 | {CTK_TEXTENTRY(0, 10, 26, 1, pop3user, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 141 | |
| 142 | static struct ctk_label pop3passwordlabel = |
| 143 | {CTK_LABEL(0, 12, 20, 1, "Mailserver password")}; |
| 144 | static char pop3password[40]; |
| 145 | static struct ctk_textentry pop3passwordtextentry = |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 146 | {CTK_TEXTENTRY(0, 13, 26, 1, pop3password, 39)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 147 | |
| 148 | |
| 149 | static struct ctk_button setupokbutton = |
| 150 | {CTK_BUTTON(24, 15, 2, "Ok")}; |
| 151 | |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 152 | /* |
adamdunkels | 78c03dc | 2003-04-09 13:45:05 +0000 | [diff] [blame] | 153 | static DISPATCHER_SIGHANDLER(email_sighandler, s, data); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 154 | static struct dispatcher_proc p = |
adamdunkels | 78c03dc | 2003-04-09 13:45:05 +0000 | [diff] [blame] | 155 | {DISPATCHER_PROC("E-mail client", NULL, email_sighandler, smtp_appcall)}; |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 156 | static ek_id_t id; |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 157 | */ |
| 158 | EK_EVENTHANDLER(email_eventhandler, ev, data); |
| 159 | EK_PROCESS(p, "E-mail client", EK_PRIO_NORMAL, |
| 160 | email_eventhandler, NULL, NULL); |
| 161 | static ek_id_t id = EK_ID_NONE; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 162 | |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 163 | /*-----------------------------------------------------------------------------------*/ |
| 164 | static void |
adamdunkels | 0137b44 | 2003-04-08 23:27:33 +0000 | [diff] [blame] | 165 | email_quit(void) |
adamdunkels | 1cd53bd | 2003-04-08 19:24:55 +0000 | [diff] [blame] | 166 | { |
| 167 | ctk_window_close(&setupwindow); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 168 | ctk_window_close(&composewindow); |
adamdunkels | 1cd53bd | 2003-04-08 19:24:55 +0000 | [diff] [blame] | 169 | ctk_menu_remove(&menu); |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 170 | ek_exit(); |
adamdunkels | 1cd53bd | 2003-04-08 19:24:55 +0000 | [diff] [blame] | 171 | id = EK_ID_NONE; |
| 172 | LOADER_UNLOAD(); |
| 173 | } |
| 174 | /*-----------------------------------------------------------------------------------*/ |
adamdunkels | 8bb5cca | 2003-08-24 22:41:31 +0000 | [diff] [blame] | 175 | LOADER_INIT_FUNC(email_init, arg) |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 176 | { |
adamdunkels | 8bb5cca | 2003-08-24 22:41:31 +0000 | [diff] [blame] | 177 | arg_free(arg); |
| 178 | |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 179 | if(id == EK_ID_NONE) { |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 180 | id = ek_start(&p); |
| 181 | } else { |
| 182 | ctk_window_open(&composewindow); |
| 183 | } |
| 184 | } |
| 185 | /*-----------------------------------------------------------------------------------*/ |
| 186 | static void |
| 187 | applyconfig(void) |
| 188 | { |
| 189 | u16_t addr[2]; |
| 190 | char *cptr; |
| 191 | |
| 192 | for(cptr = smtpserver; *cptr != ' ' && *cptr != 0; ++cptr); |
| 193 | *cptr = 0; |
| 194 | |
| 195 | if(uiplib_ipaddrconv(smtpserver, (unsigned char *)addr)) { |
| 196 | smtp_configure("contiki", addr); |
| 197 | } |
| 198 | } |
| 199 | /*-----------------------------------------------------------------------------------*/ |
| 200 | static void |
| 201 | prepare_message(void) |
| 202 | { |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 203 | /* Convert fields to ASCII. */ |
| 204 | petsciiconv_toascii(to, sizeof(to)); |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 205 | petsciiconv_toascii(cc, sizeof(cc)); |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 206 | petsciiconv_toascii(subject, sizeof(subject)); |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 207 | petsciiconv_toascii(mail, sizeof(mail)); |
| 208 | } |
| 209 | /*-----------------------------------------------------------------------------------*/ |
| 210 | static void |
| 211 | erase_message(void) |
| 212 | { |
| 213 | memset(to, 0, sizeof(to)); |
| 214 | memset(cc, 0, sizeof(cc)); |
| 215 | memset(subject, 0, sizeof(subject)); |
| 216 | memset(mail, 0, sizeof(mail)); |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 217 | } |
| 218 | /*-----------------------------------------------------------------------------------*/ |
| 219 | /*static |
| 220 | DISPATCHER_SIGHANDLER(email_sighandler, s, data)*/ |
| 221 | EK_EVENTHANDLER(email_eventhandler, ev, data) |
| 222 | { |
| 223 | struct ctk_widget *w; |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 224 | EK_EVENTHANDLER_ARGS(ev, data); |
| 225 | |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 226 | if(ev == tcpip_event) { |
| 227 | smtp_appcall(data); |
| 228 | } else if(ev == EK_EVENT_INIT) { |
| 229 | |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 230 | /* Create the "Really erase message?" dialog. */ |
| 231 | ctk_dialog_new(&erasedialog, 26, 6); |
| 232 | CTK_WIDGET_ADD(&erasedialog, &erasedialoglabel1); |
| 233 | CTK_WIDGET_ADD(&erasedialog, &erasedialoglabel2); |
| 234 | CTK_WIDGET_ADD(&erasedialog, &eraseyesbutton); |
| 235 | CTK_WIDGET_ADD(&erasedialog, &erasenobutton); |
| 236 | CTK_WIDGET_FOCUS(&erasedialog, &erasenobutton); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 237 | |
| 238 | /* Create setup window. */ |
| 239 | ctk_window_new(&setupwindow, 28, 16, "E-mail setup"); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 240 | |
| 241 | CTK_WIDGET_ADD(&setupwindow, &fromaddresslabel); |
| 242 | CTK_WIDGET_ADD(&setupwindow, &fromaddresstextentry); |
| 243 | CTK_WIDGET_ADD(&setupwindow, &smtpserverlabel); |
| 244 | CTK_WIDGET_ADD(&setupwindow, &smtpservertextentry); |
| 245 | CTK_WIDGET_ADD(&setupwindow, &pop3serverlabel); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 246 | /* CTK_WIDGET_ADD(&setupwindow, &pop3servertextentry);*/ |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 247 | CTK_WIDGET_ADD(&setupwindow, &pop3userlabel); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 248 | /* CTK_WIDGET_ADD(&setupwindow, &pop3usertextentry);*/ |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 249 | CTK_WIDGET_ADD(&setupwindow, &pop3passwordlabel); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 250 | /* CTK_WIDGET_ADD(&setupwindow, &pop3passwordtextentry);*/ |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 251 | CTK_WIDGET_ADD(&setupwindow, &setupokbutton); |
| 252 | |
| 253 | CTK_WIDGET_FOCUS(&setupwindow, &fromaddresstextentry); |
| 254 | |
| 255 | |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 256 | /* Create compose window. */ |
| 257 | |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 258 | ctk_window_new(&composewindow, MAIL_WIDTH + 1, MAIL_HEIGHT + 5, "Compose e-mail"); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 259 | |
| 260 | CTK_WIDGET_ADD(&composewindow, &tolabel); |
| 261 | CTK_WIDGET_ADD(&composewindow, &cclabel); |
| 262 | CTK_WIDGET_ADD(&composewindow, &subjectlabel); |
| 263 | |
| 264 | CTK_WIDGET_ADD(&composewindow, &totextentry); |
| 265 | CTK_WIDGET_FOCUS(&composewindow, &totextentry); |
| 266 | CTK_WIDGET_ADD(&composewindow, &cctextentry); |
| 267 | CTK_WIDGET_ADD(&composewindow, &subjecttextentry); |
| 268 | |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 269 | CTK_WIDGET_ADD(&composewindow, &mailtextentry); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 270 | |
| 271 | CTK_WIDGET_ADD(&composewindow, &sep1); |
| 272 | CTK_WIDGET_ADD(&composewindow, &statuslabel); |
| 273 | |
| 274 | CTK_WIDGET_ADD(&composewindow, &sendbutton); |
| 275 | CTK_WIDGET_ADD(&composewindow, &erasebutton); |
| 276 | |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 277 | erase_message(); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 278 | |
| 279 | /* Create and add the menu */ |
| 280 | ctk_menu_new(&menu, "E-mail"); |
| 281 | menuitem_setup = ctk_menuitem_add(&menu, "Setup"); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 282 | menuitem_compose = ctk_menuitem_add(&menu, "Compose"); |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 283 | menuitem_quit = ctk_menuitem_add(&menu, "Quit"); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 284 | ctk_menu_add(&menu); |
| 285 | |
| 286 | /* Attach listeners to signals. */ |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 287 | /* dispatcher_listen(ctk_signal_widget_activate); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 288 | dispatcher_listen(ctk_signal_menu_activate); |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 289 | dispatcher_listen(ctk_signal_window_close); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 290 | |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 291 | dispatcher_listen(ctk_signal_keypress);*/ |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 292 | |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 293 | /* Open setup window */ |
| 294 | ctk_window_open(&setupwindow); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 295 | |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 296 | } else if(ev == ctk_signal_widget_activate) { |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 297 | w = (struct ctk_widget *)data; |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 298 | if(w == (struct ctk_widget *)&sendbutton) { |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 299 | prepare_message(); |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 300 | smtp_send(to, cc, fromaddress, subject, mail, MAIL_WIDTH, MAIL_HEIGHT); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 301 | ctk_label_set_text(&statuslabel, "Sending message..."); |
adamdunkels | e9354c4 | 2003-06-30 20:39:53 +0000 | [diff] [blame] | 302 | CTK_WIDGET_REDRAW(&statuslabel); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 303 | } else if(w == (struct ctk_widget *)&erasebutton) { |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 304 | ctk_dialog_open(&erasedialog); |
| 305 | } else if(w == (struct ctk_widget *)&eraseyesbutton) { |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 306 | erase_message(); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 307 | ctk_dialog_close(); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 308 | } else if(w == (struct ctk_widget *)&erasenobutton) { |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 309 | ctk_dialog_close(); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 310 | } else if(w == (struct ctk_widget *)&setupokbutton) { |
| 311 | applyconfig(); |
| 312 | ctk_window_close(&setupwindow); |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 313 | ctk_window_open(&composewindow); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 314 | } |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 315 | } else if(ev == ctk_signal_menu_activate) { |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 316 | if((struct ctk_menu *)data == &menu) { |
adamdunkels | 3a30cde | 2003-08-11 22:23:24 +0000 | [diff] [blame] | 317 | if(menu.active == menuitem_compose) { |
| 318 | ctk_window_open(&composewindow); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 319 | } else if(menu.active == menuitem_setup) { |
| 320 | ctk_window_open(&setupwindow); |
adamdunkels | 8af703e | 2003-04-08 11:50:20 +0000 | [diff] [blame] | 321 | } else if(menu.active == menuitem_quit) { |
adamdunkels | 0137b44 | 2003-04-08 23:27:33 +0000 | [diff] [blame] | 322 | email_quit(); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 323 | } |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 324 | } |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 325 | } else if(ev == EK_EVENT_REQUEST_EXIT) { |
adamdunkels | 0137b44 | 2003-04-08 23:27:33 +0000 | [diff] [blame] | 326 | email_quit(); |
adamdunkels | f2f8cb2 | 2004-07-04 11:35:07 +0000 | [diff] [blame] | 327 | } |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 328 | } |
| 329 | /*-----------------------------------------------------------------------------------*/ |
| 330 | void |
| 331 | smtp_done(unsigned char error) |
| 332 | { |
adamdunkels | 01e7ba1 | 2003-08-11 23:01:56 +0000 | [diff] [blame] | 333 | if(error == SMTP_ERR_OK) { |
| 334 | ctk_label_set_text(&statuslabel, "Mail sent"); |
oliverschmidt | 1f615e4 | 2005-05-04 23:47:39 +0000 | [diff] [blame^] | 335 | erase_message(); |
adamdunkels | 01e7ba1 | 2003-08-11 23:01:56 +0000 | [diff] [blame] | 336 | ctk_window_open(&composewindow); |
| 337 | } else { |
| 338 | ctk_label_set_text(&statuslabel, "Mail error"); |
| 339 | } |
adamdunkels | e9354c4 | 2003-06-30 20:39:53 +0000 | [diff] [blame] | 340 | CTK_WIDGET_REDRAW(&statuslabel); |
adamdunkels | ca9ddcb | 2003-03-19 14:13:31 +0000 | [diff] [blame] | 341 | } |
| 342 | /*-----------------------------------------------------------------------------------*/ |