2005-03-18 [paul] 1.0.3cvs2.5
[claws.git] / src / wizard.c
1 /*
2  * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3  * Copyright (C) 1999-2004 Hiroyuki Yamamoto
4  * This file (C) 2004 Colin Leroy
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
19  */
20 #include "defs.h"
21
22 #include <glib.h>
23 #include <glib/gi18n.h>
24 #include <gdk/gdkkeysyms.h>
25 #include <gtk/gtkwidget.h>
26 #include <gtk/gtkvbox.h>
27 #include <gtk/gtkbox.h>
28 #include <gtk/gtktable.h>
29 #include <gtk/gtkentry.h>
30 #include <gtk/gtklabel.h>
31 #include <gtk/gtknotebook.h>
32 #include <gtk/gtktogglebutton.h>
33 #include <gtk/gtkcheckbutton.h>
34 #include <gtk/gtk.h>
35
36 #include <stdio.h>
37 #include <stdlib.h>
38 #include <string.h>
39 #include <ctype.h>
40
41 #ifdef HAVE_CONFIG_H
42 #  include "config.h"
43 #endif
44
45 #include "utils.h"
46 #include "gtk/menu.h"
47 #include "account.h"
48 #include "prefs_account.h"
49 #include "mainwindow.h"
50 #include "stock_pixmap.h"
51 #include "setup.h"
52 #include "folder.h"
53 #ifdef USE_OPENSSL                      
54 #include "ssl.h"
55 #endif
56 typedef enum
57 {
58         GO_BACK,
59         GO_FORWARD,
60         CANCEL,
61         FINISHED
62 } PageNavigation;
63
64 typedef struct
65 {
66         GtkWidget *window;
67         GSList    *pages;
68         GtkWidget *notebook;
69
70         MainWindow *mainwin;
71         
72         GtkWidget *email;
73         GtkWidget *full_name;
74         GtkWidget *organization;
75
76         GtkWidget *mailbox_name;
77         
78         GtkWidget *smtp_server;
79
80         GtkWidget *recv_type;
81         GtkWidget *recv_server;
82         GtkWidget *recv_username;
83         GtkWidget *recv_password;
84
85 #ifdef USE_OPENSSL
86         GtkWidget *smtp_use_ssl;
87         GtkWidget *recv_use_ssl;
88 #endif
89         
90         gboolean create_mailbox;
91         gboolean finished;
92         gboolean result;
93
94 } WizardWindow;
95
96 static void wizard_write_config(WizardWindow *wizard)
97 {
98         gboolean mailbox_ok = FALSE;
99         PrefsAccount *prefs_account = prefs_account_new();
100         GList *account_list = NULL;
101         GtkWidget *menu, *menuitem;
102         
103         if (wizard->create_mailbox) {
104                 mailbox_ok = setup_write_mailbox_path(wizard->mainwin, 
105                                 gtk_entry_get_text(GTK_ENTRY(wizard->mailbox_name)));
106         }
107
108         prefs_account->account_name = g_strdup_printf("%s@%s",
109                                 gtk_entry_get_text(GTK_ENTRY(wizard->recv_username)),
110                                 gtk_entry_get_text(GTK_ENTRY(wizard->recv_server)));
111         prefs_account->name = g_strdup(
112                                 gtk_entry_get_text(GTK_ENTRY(wizard->full_name)));
113         prefs_account->address = g_strdup(
114                                 gtk_entry_get_text(GTK_ENTRY(wizard->email)));
115         prefs_account->organization = g_strdup(
116                                 gtk_entry_get_text(GTK_ENTRY(wizard->organization)));
117         prefs_account->smtp_server = g_strdup(
118                                 gtk_entry_get_text(GTK_ENTRY(wizard->smtp_server)));
119         prefs_account->recv_server = g_strdup(
120                                 gtk_entry_get_text(GTK_ENTRY(wizard->recv_server)));
121         prefs_account->userid = g_strdup(
122                                 gtk_entry_get_text(GTK_ENTRY(wizard->recv_username)));
123         prefs_account->passwd = g_strdup(
124                                 gtk_entry_get_text(GTK_ENTRY(wizard->recv_password)));
125
126         menu = gtk_option_menu_get_menu(GTK_OPTION_MENU(wizard->recv_type));
127         menuitem = gtk_menu_get_active(GTK_MENU(menu));
128         prefs_account->protocol = GPOINTER_TO_INT
129                         (g_object_get_data(G_OBJECT(menuitem), MENU_VAL_ID));
130
131 #ifdef USE_OPENSSL                      
132         if (gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(wizard->smtp_use_ssl)))
133                 prefs_account->ssl_smtp = SSL_TUNNEL;
134         if (gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(wizard->smtp_use_ssl))) {
135                 if (prefs_account->protocol == A_IMAP4)
136                         prefs_account->ssl_imap = SSL_TUNNEL;
137                 else
138                         prefs_account->ssl_pop = SSL_TUNNEL;
139         }
140 #endif
141
142         account_list = g_list_append(account_list, prefs_account);
143         prefs_account_write_config_all(account_list);
144         prefs_account_free(prefs_account);
145         account_read_config_all();
146 }
147
148 static GtkWidget* create_page (WizardWindow *wizard, const char * title)
149 {
150         GtkWidget *w;
151         GtkWidget *vbox;
152         GtkWidget *hbox;
153         GtkWidget *image;
154         char *title_string;
155
156         vbox = gtk_vbox_new (FALSE, 6);
157         gtk_container_set_border_width  (GTK_CONTAINER(vbox), 10);
158
159         /* create the titlebar */
160         hbox = gtk_hbox_new (FALSE, 12);
161         image = stock_pixmap_widget(wizard->window, 
162                                 STOCK_PIXMAP_SYLPHEED_ICON);
163         gtk_box_pack_start (GTK_BOX(hbox), image, FALSE, FALSE, 0);
164         title_string = g_strconcat ("<span size=\"xx-large\" weight=\"ultrabold\">", title ? title : "", "</span>", NULL);
165         w = gtk_label_new (title_string);
166         gtk_label_set_use_markup (GTK_LABEL(w), TRUE);
167         g_free (title_string);
168         gtk_box_pack_start (GTK_BOX(hbox), w, FALSE, FALSE, 0);
169
170         /* pack the titlebar */
171         gtk_box_pack_start (GTK_BOX(vbox), hbox, FALSE, FALSE, 0);
172
173         /* pack the separator */
174         gtk_box_pack_start (GTK_BOX(vbox), gtk_hseparator_new(), FALSE, FALSE, 0);
175
176         /* pack space */
177         w = gtk_alignment_new (0, 0, 0, 0);
178         gtk_widget_set_usize (w, 0, 6);
179         gtk_box_pack_start (GTK_BOX(vbox), w, FALSE, FALSE, 0);
180
181         return vbox;
182 }
183
184 static GtkWidget*
185 create_page_with_text (WizardWindow *wizard, const char * title, 
186                         const char * text)
187 {
188         GtkWidget *label;
189         GtkWidget *page;
190        
191         page = create_page (wizard, title);
192         label = gtk_label_new (text);
193         gtk_box_pack_start (GTK_BOX(page), label, TRUE, TRUE, 0);
194
195         return page;
196 }
197
198 #define GTK_TABLE_ADD_ROW_AT(table,text,entry,i) {                            \
199         GtkWidget *label = gtk_label_new(text);                               \
200         gtk_table_attach(GTK_TABLE(table), label,                             \
201                          0,1,i,i+1, GTK_EXPAND|GTK_FILL, 0, 0, 0);            \
202         if (GTK_IS_MISC(label))                                               \
203                 gtk_misc_set_alignment(GTK_MISC(label), 1, 0.5);              \
204         gtk_table_attach(GTK_TABLE(table), entry,                             \
205                          1,2,i,i+1, GTK_EXPAND|GTK_FILL, 0, 0, 0);            \
206 }
207
208 static gchar *get_default_email_addr(void)
209 {
210         gchar *domain_name = g_strdup(get_domain_name());
211         gchar *result;
212         if (strchr(domain_name, '.') != strrchr(domain_name, '.')
213         && strlen(strchr(domain_name, '.')) > 6) {
214                 gchar *tmp = g_strdup(strchr(domain_name, '.')+1);
215                 g_free(domain_name);
216                 domain_name = tmp;
217         }
218         result = g_strdup_printf("%s@%s",
219                                 g_get_user_name(),
220                                 domain_name);
221         g_free(domain_name);
222         return result;
223 }
224
225 static gchar *get_default_server(WizardWindow * wizard, const gchar *type)
226 {
227         gchar *domain_name = g_strdup(get_domain_name());
228         gchar *result;
229         
230         if (strchr(domain_name, '.') != strrchr(domain_name, '.')
231         && strlen(strchr(domain_name, '.')) > 6) {
232                 gchar *tmp = g_strdup(strchr(domain_name, '.')+1);
233                 g_free(domain_name);
234                 domain_name = tmp;
235         } else if (strchr(domain_name, '.') == NULL) {
236                 /* only hostname found, use email suffix */
237                 gchar *mail;
238                 mail = gtk_editable_get_chars(GTK_EDITABLE(wizard->email), 0, -1);
239
240                 if (strlen (mail) && strstr(mail, "@")) {
241                         g_free(domain_name);
242                         domain_name = g_strdup(strstr(mail, "@")+1);
243                 }
244                 g_free(mail);
245         }
246         result = g_strdup_printf("%s.%s",
247                                 type, domain_name);
248         g_free(domain_name);
249         return result;
250 }
251
252 static void wizard_email_changed(GtkWidget *widget, gpointer data)
253 {
254         WizardWindow *wizard = (WizardWindow *)data;
255         RecvProtocol protocol;
256         gchar *text;
257         protocol = GPOINTER_TO_INT
258                 (g_object_get_data(G_OBJECT(wizard->recv_type), MENU_VAL_ID));
259         
260         text = get_default_server(wizard, "smtp");
261         gtk_entry_set_text(GTK_ENTRY(wizard->smtp_server), text);
262         g_free(text);
263
264         if (protocol == A_POP3) {
265                 text = get_default_server(wizard, "pop");
266                 gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
267                 g_free(text);
268         } else {
269                 text = get_default_server(wizard, "imap");
270                 gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
271                 g_free(text);
272         }
273 }
274
275 static GtkWidget* user_page (WizardWindow * wizard)
276 {
277         GtkWidget *table = gtk_table_new(3,2, FALSE);
278         gchar *text;
279         gint i = 0;
280         
281         gtk_table_set_row_spacings(GTK_TABLE(table), 4);
282         gtk_table_set_col_spacings(GTK_TABLE(table), 8);
283
284         wizard->full_name = gtk_entry_new();
285         gtk_entry_set_text(GTK_ENTRY(wizard->full_name), g_get_real_name());
286         GTK_TABLE_ADD_ROW_AT(table, _("Your name:"), 
287                              wizard->full_name, i); i++;
288         
289         wizard->email = gtk_entry_new();
290         text = get_default_email_addr();
291         gtk_entry_set_text(GTK_ENTRY(wizard->email), text);
292         g_free(text);
293         GTK_TABLE_ADD_ROW_AT(table, _("Your email address:"), 
294                              wizard->email, i); i++;
295         
296         wizard->organization = gtk_entry_new();
297         GTK_TABLE_ADD_ROW_AT(table, _("Your organization:"), 
298                              wizard->organization, i); i++;
299         
300         g_signal_connect(G_OBJECT(wizard->email), "changed",
301                          G_CALLBACK(wizard_email_changed),
302                          wizard);
303         return table;
304 }
305
306 static GtkWidget* mailbox_page (WizardWindow * wizard)
307 {
308         GtkWidget *table = gtk_table_new(1,2, FALSE);
309         gint i = 0;
310         
311         gtk_table_set_row_spacings(GTK_TABLE(table), 4);
312         gtk_table_set_col_spacings(GTK_TABLE(table), 8);
313
314         wizard->mailbox_name = gtk_entry_new();
315         gtk_entry_set_text(GTK_ENTRY(wizard->mailbox_name), "Mail");
316         GTK_TABLE_ADD_ROW_AT(table, _("Mailbox name:"), 
317                              wizard->mailbox_name, i); i++;
318         
319         return table;
320 }
321
322 static GtkWidget* smtp_page (WizardWindow * wizard)
323 {
324         GtkWidget *table = gtk_table_new(1,2, FALSE);
325         gchar *text;
326         gint i = 0;
327         
328         gtk_table_set_row_spacings(GTK_TABLE(table), 4);
329         gtk_table_set_col_spacings(GTK_TABLE(table), 8);
330
331         wizard->smtp_server = gtk_entry_new();
332         text = get_default_server(wizard, "smtp");
333         gtk_entry_set_text(GTK_ENTRY(wizard->smtp_server), text);
334         g_free(text);
335         GTK_TABLE_ADD_ROW_AT(table, _("SMTP server address:"), 
336                              wizard->smtp_server, i); i++;
337         return table;
338 }
339
340 static void wizard_protocol_changed(GtkMenuItem *menuitem, gpointer data)
341 {
342         WizardWindow *wizard = (WizardWindow *)data;
343         RecvProtocol protocol;
344         gchar *text;
345         protocol = GPOINTER_TO_INT
346                 (g_object_get_data(G_OBJECT(menuitem), MENU_VAL_ID));
347         
348         if (protocol == A_POP3) {
349                 text = get_default_server(wizard, "pop");
350                 gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
351                 g_free(text);
352         } else {
353                 text = get_default_server(wizard, "imap");
354                 gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
355                 g_free(text);
356         }
357 }
358
359 static GtkWidget* recv_page (WizardWindow * wizard)
360 {
361         GtkWidget *table = gtk_table_new(5,2, FALSE);
362         GtkWidget *menu = gtk_menu_new();
363         GtkWidget *menuitem;
364         gchar *text;
365         gint i = 0;
366         
367         gtk_table_set_row_spacings(GTK_TABLE(table), 4);
368         gtk_table_set_col_spacings(GTK_TABLE(table), 8);
369
370         wizard->recv_type = gtk_option_menu_new();
371         
372         MENUITEM_ADD (menu, menuitem, _("POP3"), A_POP3);
373         g_signal_connect(G_OBJECT(menuitem), "activate",
374                          G_CALLBACK(wizard_protocol_changed),
375                          wizard);
376         MENUITEM_ADD (menu, menuitem, _("IMAP"), A_IMAP4);
377         g_signal_connect(G_OBJECT(menuitem), "activate",
378                          G_CALLBACK(wizard_protocol_changed),
379                          wizard);
380         gtk_option_menu_set_menu (GTK_OPTION_MENU (wizard->recv_type), menu);
381         GTK_TABLE_ADD_ROW_AT(table, _("Server type:"), 
382                              wizard->recv_type, i); i++;
383
384         wizard->recv_server = gtk_entry_new();
385         text = get_default_server(wizard, "pop");
386         gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
387         g_free(text);
388         GTK_TABLE_ADD_ROW_AT(table, _("Server address:"), 
389                              wizard->recv_server, i); i++;
390         
391         wizard->recv_username = gtk_entry_new();
392         gtk_entry_set_text(GTK_ENTRY(wizard->recv_username), g_get_user_name());
393         GTK_TABLE_ADD_ROW_AT(table, _("Username:"), 
394                              wizard->recv_username, i); i++;
395         
396         wizard->recv_password = gtk_entry_new();
397         gtk_entry_set_visibility(GTK_ENTRY(wizard->recv_password), FALSE);
398         GTK_TABLE_ADD_ROW_AT(table, _("Password:"), 
399                              wizard->recv_password, i); i++;
400         
401         return table;
402 }
403
404 #ifdef USE_OPENSSL
405 static GtkWidget* ssl_page (WizardWindow * wizard)
406 {
407         GtkWidget *table = gtk_table_new(2,2, FALSE);
408         gint i = 0;
409         
410         gtk_table_set_row_spacings(GTK_TABLE(table), 4);
411         gtk_table_set_col_spacings(GTK_TABLE(table), 8);
412
413         wizard->smtp_use_ssl = gtk_check_button_new_with_label(
414                                         _("Use SSL to connect to SMTP server"));
415         gtk_table_attach(GTK_TABLE(table), wizard->smtp_use_ssl,      
416                          0,1,i,i+1, GTK_EXPAND|GTK_FILL, 0, 0, 0); i++;
417         
418         wizard->recv_use_ssl = gtk_check_button_new_with_label(
419                                         _("Use SSL to connect to receiving server"));
420         gtk_table_attach(GTK_TABLE(table), wizard->recv_use_ssl,      
421                          0,1,i,i+1, GTK_EXPAND|GTK_FILL, 0, 0, 0);
422         
423         return table;
424 }
425 #endif
426
427 static void
428 wizard_response_cb (GtkDialog * dialog, int response, gpointer data)
429 {
430         WizardWindow * wizard = (WizardWindow *)data;
431         int current_page, num_pages;
432         
433         num_pages = g_slist_length(wizard->pages);
434         current_page = gtk_notebook_get_current_page (
435                                 GTK_NOTEBOOK(wizard->notebook));
436         if (response == CANCEL)
437         {
438                 wizard->finished = TRUE;
439                 wizard->result = FALSE;
440                 gtk_widget_destroy (GTK_WIDGET(dialog));
441         }
442         else if (response == FINISHED)
443         {
444                 wizard_write_config(wizard);
445                 wizard->finished = TRUE;
446                 wizard->result = TRUE;
447                 gtk_widget_destroy (GTK_WIDGET(dialog));
448         }
449         else
450         {
451                 if (response == GO_BACK)
452                 {
453                         if (current_page > 0)
454                                 gtk_notebook_set_current_page (
455                                         GTK_NOTEBOOK(wizard->notebook), 
456                                         --current_page);
457                 }
458                 else if (response == GO_FORWARD)
459                 {
460                         if (current_page < (num_pages-1))
461                                 gtk_notebook_set_current_page (
462                                         GTK_NOTEBOOK(wizard->notebook), 
463                                         ++current_page);
464                 }
465
466                 gtk_dialog_set_response_sensitive (dialog, GO_BACK, 
467                                 current_page > 0);
468                 gtk_dialog_set_response_sensitive (dialog, GO_FORWARD, 
469                                 current_page < (num_pages - 1));
470                 gtk_dialog_set_response_sensitive (dialog, FINISHED, 
471                                 current_page == (num_pages - 1));
472         }
473 }
474
475
476 gboolean run_wizard(MainWindow *mainwin, gboolean create_mailbox) {
477         WizardWindow *wizard = g_new0(WizardWindow, 1);
478         GtkWidget *page;
479         GtkWidget *widget;
480         gchar     *text;
481         GSList    *cur;
482         gboolean   result;
483         
484         wizard->mainwin = mainwin;
485         wizard->create_mailbox = create_mailbox;
486         
487         gtk_widget_hide(mainwin->window);
488         
489         wizard->window = gtk_dialog_new_with_buttons (_("New User"),
490                         NULL, 0, 
491                         GTK_STOCK_GO_BACK, GO_BACK,
492                         GTK_STOCK_GO_FORWARD, GO_FORWARD,
493                         GTK_STOCK_SAVE, FINISHED,
494                         GTK_STOCK_QUIT, CANCEL,
495                         NULL);
496
497         g_signal_connect(wizard->window, "response", 
498                           G_CALLBACK(wizard_response_cb), wizard);
499         gtk_widget_realize(wizard->window);
500         gtk_dialog_set_default_response(GTK_DIALOG(wizard->window), 
501                         GO_FORWARD);
502         gtk_dialog_set_response_sensitive(GTK_DIALOG(wizard->window), 
503                         GO_BACK, FALSE);
504         gtk_dialog_set_response_sensitive(GTK_DIALOG(wizard->window), 
505                         GO_FORWARD, TRUE);
506         gtk_dialog_set_response_sensitive(GTK_DIALOG(wizard->window), 
507                         FINISHED, FALSE);
508         gtk_dialog_set_response_sensitive(GTK_DIALOG(wizard->window), 
509                         CANCEL, TRUE);
510         
511         wizard->notebook = gtk_notebook_new();
512         gtk_notebook_set_show_tabs(GTK_NOTEBOOK(wizard->notebook), FALSE);
513         gtk_notebook_set_show_border(GTK_NOTEBOOK(wizard->notebook), FALSE);
514         gtk_box_pack_start(GTK_BOX(GTK_DIALOG(wizard->window)->vbox), 
515                             wizard->notebook, TRUE, TRUE, 0);
516         
517         wizard->pages = NULL;
518         
519 /*welcome page */
520         page = create_page(wizard, _("Welcome to Sylpheed-Claws."));
521         
522         wizard->pages = g_slist_append(wizard->pages, page);
523         widget = stock_pixmap_widget(wizard->window, 
524                                 STOCK_PIXMAP_SYLPHEED_LOGO);
525
526         gtk_box_pack_start (GTK_BOX(page), widget, FALSE, FALSE, 0);
527         
528         text = g_strdup(_("Welcome to Sylpheed-Claws.\n\n"
529                           "It looks like it's the first time you use \n"
530                           "Sylpheed-Claws. So, we'll now define some basic\n"
531                           "information about yourself and your most common\n"
532                           "mail parameters; so that you can begin to use\n"
533                           "Sylpheed-Claws in less than five minutes."));
534         widget = gtk_label_new(text);
535         gtk_box_pack_start (GTK_BOX(page), widget, FALSE, FALSE, 0);
536         g_free(text);
537
538 /* user page */
539         widget = create_page (wizard, _("About You"));
540         gtk_box_pack_start (GTK_BOX(widget), user_page(wizard), FALSE, FALSE, 0);
541         wizard->pages = g_slist_append(wizard->pages, widget);
542
543 /* mailbox page */
544         if (create_mailbox) {
545                 widget = create_page (wizard, _("Saving mail on disk"));
546                 gtk_box_pack_start (GTK_BOX(widget), mailbox_page(wizard), FALSE, FALSE, 0);
547                 wizard->pages = g_slist_append(wizard->pages, widget);
548         }
549 /*smtp page */
550         widget = create_page (wizard, _("Sending mail"));
551         gtk_box_pack_start (GTK_BOX(widget), smtp_page(wizard), FALSE, FALSE, 0);
552         wizard->pages = g_slist_append(wizard->pages, widget);
553
554 /* recv+auth page */
555         widget = create_page (wizard, _("Receiving mail"));
556         gtk_box_pack_start (GTK_BOX(widget), recv_page(wizard), FALSE, FALSE, 0);
557         wizard->pages = g_slist_append(wizard->pages, widget);
558
559 /* ssl page */
560 #ifdef USE_OPENSSL
561         widget = create_page (wizard, _("Security"));
562         gtk_box_pack_start (GTK_BOX(widget), ssl_page(wizard), FALSE, FALSE, 0);
563         wizard->pages = g_slist_append(wizard->pages, widget);
564 #endif
565         
566         for (cur = wizard->pages; cur && cur->data; cur = cur->next) {
567                 gtk_notebook_append_page (GTK_NOTEBOOK(wizard->notebook), 
568                                           GTK_WIDGET(cur->data), NULL);
569         }
570         
571         gtk_widget_show_all (wizard->window);
572
573         while (!wizard->finished)
574                 gtk_main_iteration();
575
576         result = wizard->result;
577         
578         GTK_EVENTS_FLUSH();
579
580         gtk_widget_show(mainwin->window);
581         g_free(wizard);
582
583         return result;
584 }