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
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.
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.
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.
23 #include <gdk/gdkkeysyms.h>
24 #include <gtk/gtkwidget.h>
25 #include <gtk/gtkvbox.h>
26 #include <gtk/gtkbox.h>
27 #include <gtk/gtktable.h>
28 #include <gtk/gtkentry.h>
29 #include <gtk/gtklabel.h>
30 #include <gtk/gtknotebook.h>
31 #include <gtk/gtktogglebutton.h>
32 #include <gtk/gtkcheckbutton.h>
48 #include "prefs_account.h"
49 #include "mainwindow.h"
50 #include "stock_pixmap.h"
74 GtkWidget *organization;
76 GtkWidget *mailbox_name;
78 GtkWidget *smtp_server;
81 GtkWidget *recv_server;
82 GtkWidget *recv_username;
83 GtkWidget *recv_password;
86 GtkWidget *smtp_use_ssl;
87 GtkWidget *recv_use_ssl;
90 gboolean create_mailbox;
96 static void wizard_write_config(WizardWindow *wizard)
98 gboolean mailbox_ok = FALSE;
99 PrefsAccount *prefs_account = prefs_account_new();
100 GList *account_list = NULL;
101 GtkWidget *menu, *menuitem;
103 if (wizard->create_mailbox) {
104 mailbox_ok = setup_write_mailbox_path(wizard->mainwin,
105 gtk_entry_get_text(GTK_ENTRY(wizard->mailbox_name)));
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)));
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));
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;
138 prefs_account->ssl_pop = SSL_TUNNEL;
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();
148 static GtkWidget* create_page (WizardWindow *wizard, const char * title)
156 vbox = gtk_vbox_new (FALSE, 6);
157 gtk_container_set_border_width (GTK_CONTAINER(vbox), 10);
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);
170 /* pack the titlebar */
171 gtk_box_pack_start (GTK_BOX(vbox), hbox, FALSE, FALSE, 0);
173 /* pack the separator */
174 gtk_box_pack_start (GTK_BOX(vbox), gtk_hseparator_new(), FALSE, FALSE, 0);
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);
185 create_page_with_text (WizardWindow *wizard, const char * title,
191 page = create_page (wizard, title);
192 label = gtk_label_new (text);
193 gtk_box_pack_start (GTK_BOX(page), label, TRUE, TRUE, 0);
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); \
208 static gchar *get_default_email_addr(void)
210 gchar *domain_name = g_strdup(get_domain_name());
212 if (strchr(domain_name, '.') != strrchr(domain_name, '.')
213 && strlen(strchr(domain_name, '.')) > 6) {
214 gchar *tmp = g_strdup(strchr(domain_name, '.')+1);
218 result = g_strdup_printf("%s@%s",
225 static gchar *get_default_server(WizardWindow * wizard, const gchar *type)
227 gchar *domain_name = g_strdup(get_domain_name());
230 if (strchr(domain_name, '.') != strrchr(domain_name, '.')
231 && strlen(strchr(domain_name, '.')) > 6) {
232 gchar *tmp = g_strdup(strchr(domain_name, '.')+1);
235 } else if (strchr(domain_name, '.') == NULL) {
236 /* only hostname found, use email suffix */
238 mail = gtk_editable_get_chars(GTK_EDITABLE(wizard->email), 0, -1);
240 if (strlen (mail) && strstr(mail, "@")) {
242 domain_name = g_strdup(strstr(mail, "@")+1);
246 result = g_strdup_printf("%s.%s",
252 static void wizard_email_changed(GtkWidget *widget, gpointer data)
254 WizardWindow *wizard = (WizardWindow *)data;
255 RecvProtocol protocol;
257 protocol = GPOINTER_TO_INT
258 (g_object_get_data(G_OBJECT(wizard->recv_type), MENU_VAL_ID));
260 text = get_default_server(wizard, "smtp");
261 gtk_entry_set_text(GTK_ENTRY(wizard->smtp_server), text);
264 if (protocol == A_POP3) {
265 text = get_default_server(wizard, "pop");
266 gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
269 text = get_default_server(wizard, "imap");
270 gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
275 static GtkWidget* user_page (WizardWindow * wizard)
277 GtkWidget *table = gtk_table_new(3,2, FALSE);
281 gtk_table_set_row_spacings(GTK_TABLE(table), 4);
282 gtk_table_set_col_spacings(GTK_TABLE(table), 8);
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++;
289 wizard->email = gtk_entry_new();
290 text = get_default_email_addr();
291 gtk_entry_set_text(GTK_ENTRY(wizard->email), text);
293 GTK_TABLE_ADD_ROW_AT(table, _("Your email address:"),
294 wizard->email, i); i++;
296 wizard->organization = gtk_entry_new();
297 GTK_TABLE_ADD_ROW_AT(table, _("Your organization:"),
298 wizard->organization, i); i++;
300 g_signal_connect(G_OBJECT(wizard->email), "changed",
301 G_CALLBACK(wizard_email_changed),
306 static GtkWidget* mailbox_page (WizardWindow * wizard)
308 GtkWidget *table = gtk_table_new(1,2, FALSE);
311 gtk_table_set_row_spacings(GTK_TABLE(table), 4);
312 gtk_table_set_col_spacings(GTK_TABLE(table), 8);
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++;
322 static GtkWidget* smtp_page (WizardWindow * wizard)
324 GtkWidget *table = gtk_table_new(1,2, FALSE);
328 gtk_table_set_row_spacings(GTK_TABLE(table), 4);
329 gtk_table_set_col_spacings(GTK_TABLE(table), 8);
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);
335 GTK_TABLE_ADD_ROW_AT(table, _("SMTP server address:"),
336 wizard->smtp_server, i); i++;
340 static void wizard_protocol_changed(GtkMenuItem *menuitem, gpointer data)
342 WizardWindow *wizard = (WizardWindow *)data;
343 RecvProtocol protocol;
345 protocol = GPOINTER_TO_INT
346 (g_object_get_data(G_OBJECT(menuitem), MENU_VAL_ID));
348 if (protocol == A_POP3) {
349 text = get_default_server(wizard, "pop");
350 gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
353 text = get_default_server(wizard, "imap");
354 gtk_entry_set_text(GTK_ENTRY(wizard->recv_server), text);
359 static GtkWidget* recv_page (WizardWindow * wizard)
361 GtkWidget *table = gtk_table_new(5,2, FALSE);
362 GtkWidget *menu = gtk_menu_new();
367 gtk_table_set_row_spacings(GTK_TABLE(table), 4);
368 gtk_table_set_col_spacings(GTK_TABLE(table), 8);
370 wizard->recv_type = gtk_option_menu_new();
372 MENUITEM_ADD (menu, menuitem, _("POP3"), A_POP3);
373 g_signal_connect(G_OBJECT(menuitem), "activate",
374 G_CALLBACK(wizard_protocol_changed),
376 MENUITEM_ADD (menu, menuitem, _("IMAP"), A_IMAP4);
377 g_signal_connect(G_OBJECT(menuitem), "activate",
378 G_CALLBACK(wizard_protocol_changed),
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++;
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);
388 GTK_TABLE_ADD_ROW_AT(table, _("Server address:"),
389 wizard->recv_server, i); i++;
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++;
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++;
405 static GtkWidget* ssl_page (WizardWindow * wizard)
407 GtkWidget *table = gtk_table_new(2,2, FALSE);
410 gtk_table_set_row_spacings(GTK_TABLE(table), 4);
411 gtk_table_set_col_spacings(GTK_TABLE(table), 8);
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++;
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);
428 wizard_response_cb (GtkDialog * dialog, int response, gpointer data)
430 WizardWindow * wizard = (WizardWindow *)data;
431 int current_page, num_pages;
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)
438 wizard->finished = TRUE;
439 wizard->result = FALSE;
440 gtk_widget_destroy (GTK_WIDGET(dialog));
442 else if (response == FINISHED)
444 wizard_write_config(wizard);
445 wizard->finished = TRUE;
446 wizard->result = TRUE;
447 gtk_widget_destroy (GTK_WIDGET(dialog));
451 if (response == GO_BACK)
453 if (current_page > 0)
454 gtk_notebook_set_current_page (
455 GTK_NOTEBOOK(wizard->notebook),
458 else if (response == GO_FORWARD)
460 if (current_page < (num_pages-1))
461 gtk_notebook_set_current_page (
462 GTK_NOTEBOOK(wizard->notebook),
466 gtk_dialog_set_response_sensitive (dialog, GO_BACK,
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));
476 gboolean run_wizard(MainWindow *mainwin, gboolean create_mailbox) {
477 WizardWindow *wizard = g_new0(WizardWindow, 1);
484 wizard->mainwin = mainwin;
485 wizard->create_mailbox = create_mailbox;
487 gtk_widget_hide(mainwin->window);
489 wizard->window = gtk_dialog_new_with_buttons (_("New User"),
491 GTK_STOCK_GO_BACK, GO_BACK,
492 GTK_STOCK_GO_FORWARD, GO_FORWARD,
493 GTK_STOCK_SAVE, FINISHED,
494 GTK_STOCK_QUIT, CANCEL,
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),
502 gtk_dialog_set_response_sensitive(GTK_DIALOG(wizard->window),
504 gtk_dialog_set_response_sensitive(GTK_DIALOG(wizard->window),
506 gtk_dialog_set_response_sensitive(GTK_DIALOG(wizard->window),
508 gtk_dialog_set_response_sensitive(GTK_DIALOG(wizard->window),
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);
517 wizard->pages = NULL;
520 page = create_page(wizard, _("Welcome to Sylpheed-Claws."));
522 wizard->pages = g_slist_append(wizard->pages, page);
523 widget = stock_pixmap_widget(wizard->window,
524 STOCK_PIXMAP_SYLPHEED_LOGO);
526 gtk_box_pack_start (GTK_BOX(page), widget, FALSE, FALSE, 0);
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);
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);
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);
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);
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);
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);
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);
571 gtk_widget_show_all (wizard->window);
573 while (!wizard->finished)
574 gtk_main_iteration();
576 result = wizard->result;
580 gtk_widget_show(mainwin->window);