2007-02-04 [colin] 2.7.2cvs20
[claws.git] / src / editldap.c
1 /*
2  * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3  * Copyright (C) 2001-2007 Match Grun and the Claws Mail team
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 2 of the License, or
8  * (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program; if not, write to the Free Software
17  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18  */
19
20 /*
21  * Edit LDAP address book data.
22  */
23
24 #ifdef HAVE_CONFIG_H
25 #  include "config.h"
26 #endif
27
28 #ifdef USE_LDAP
29
30 #include "defs.h"
31
32 #include <glib.h>
33 #include <glib/gi18n.h>
34 #include <gdk/gdkkeysyms.h>
35 #include <gtk/gtkwindow.h>
36 #include <gtk/gtksignal.h>
37 #include <gtk/gtklabel.h>
38 #include <gtk/gtkentry.h>
39 #include <gtk/gtktable.h>
40 #include <gtk/gtkbutton.h>
41
42 #include "addressbook.h"
43 #include "prefs_common.h"
44 #include "addressitem.h"
45 #include "mgutils.h"
46 #include "ldapserver.h"
47 #include "ldapctrl.h"
48 #include "ldaputil.h"
49 #include "editldap_basedn.h"
50 #include "manage_window.h"
51 #include "gtkutils.h"
52 #include "prefs_gtk.h"
53
54 #define PAGE_BASIC      0
55 #define PAGE_SEARCH     1
56 #define PAGE_EXTENDED   2
57
58 #define ADDRESSBOOK_GUESS_LDAP_NAME     "MyServer"
59 #define ADDRESSBOOK_GUESS_LDAP_SERVER   "localhost"
60
61 #define LDAPEDIT_TABLE_ROWS     6
62 #define LDAPEDIT_TABLE_COLS     3
63
64 static struct _LDAPEdit {
65         GtkWidget *window;
66         GtkWidget *notebook;
67         GtkWidget *ok_btn;
68         GtkWidget *cancel_btn;
69         GtkWidget *statusbar;
70         gint status_cid;
71         GtkWidget *entry_name;
72         GtkWidget *entry_server;
73         GtkWidget *spinbtn_port;
74         GtkWidget *entry_baseDN;
75         GtkWidget *spinbtn_timeout;
76         GtkWidget *entry_bindDN;
77         GtkWidget *entry_bindPW;
78         GtkWidget *spinbtn_maxentry;
79         GtkWidget *entry_criteria;
80         GtkWidget *spinbtn_queryage;
81         GtkWidget *check_dynsearch;
82         GtkWidget *check_matchoption;
83 #ifdef USE_LDAP_TLS
84         GtkWidget *enable_ssl;
85         GtkWidget *enable_tls;
86 #endif
87 } ldapedit;
88
89 /**
90  * Parse out individual attribute names from criteria string.
91  * \param criteria Criteria string.
92  * \ctl   Control object.
93  */
94 static gboolean editldap_validate_criteria( gchar *criteria ) {
95         gchar *ptr;
96         gchar **splitStr;
97         gint i;
98         gboolean errorFlag;
99
100         errorFlag = TRUE;
101
102         /* Replace delimiters with spaces */
103         ptr = criteria;
104         while( *ptr ) {
105                 if( *ptr == ',' || *ptr == ';' || *ptr == '|' )
106                         *ptr = ' ';
107                 ptr++;
108         }
109
110         /* Parse string */
111         splitStr = g_strsplit( criteria, " ", 0 );
112         i = 0;
113         while( TRUE ) {
114                 if( splitStr[i] ) {
115                         if( *splitStr[i] ) {
116                                 errorFlag = FALSE;
117                                 break;
118                         }
119                 }
120                 else {
121                         break;
122                 }
123                 i++;
124         }
125         g_strfreev( splitStr );
126         return errorFlag;
127 }
128
129 /*
130 * Edit functions.
131 */
132 static void edit_ldap_status_show( gchar *msg ) {
133         if( ldapedit.statusbar != NULL ) {
134                 gtk_statusbar_pop( GTK_STATUSBAR(ldapedit.statusbar), ldapedit.status_cid );
135                 if( msg ) {
136                         gtk_statusbar_push( GTK_STATUSBAR(ldapedit.statusbar),
137                                 ldapedit.status_cid, msg );
138                 }
139         }
140 }
141
142 static gboolean edit_ldap_validate( void ) {
143         gchar *str;
144         gboolean errorFlag;
145         gint page = 0;
146
147         errorFlag = FALSE;
148         str = gtk_editable_get_chars(
149                         GTK_EDITABLE(ldapedit.entry_name), 0, -1 );
150         if( *str == '\0' ) {
151                 page = PAGE_BASIC;
152                 gtk_widget_grab_focus( ldapedit.entry_name );
153                 edit_ldap_status_show( _( "A Name must be supplied." ) );
154                 errorFlag = TRUE;
155         }
156         g_free( str );
157
158         if( ! errorFlag ) {
159                 str = gtk_editable_get_chars(
160                                 GTK_EDITABLE(ldapedit.entry_server), 0, -1 );
161                 if( *str == '\0' ) {
162                         page = PAGE_BASIC;
163                         gtk_widget_grab_focus( ldapedit.entry_server );
164                         edit_ldap_status_show(
165                                 _( "A Hostname must be supplied for the server." ) );
166                         errorFlag = TRUE;
167                 }
168                 g_free( str );
169         }
170
171         if( ! errorFlag ) {
172                 str = gtk_editable_get_chars(
173                                 GTK_EDITABLE(ldapedit.entry_criteria), 0, -1 );
174                 if( editldap_validate_criteria( str ) ) {
175                         page = PAGE_SEARCH;
176                         gtk_widget_grab_focus( ldapedit.entry_criteria );
177                         edit_ldap_status_show(
178                                 _( "At least one LDAP search attribute should be supplied." ) );
179                         errorFlag = TRUE;
180                 }
181                 g_free( str );
182         }
183
184         /* Switch to page with error */
185         if( errorFlag ) {
186                 gtk_notebook_set_current_page( GTK_NOTEBOOK(ldapedit.notebook), page );
187         }
188
189         return errorFlag;
190 }
191
192 static void edit_ldap_ok( GtkWidget *widget, gboolean *cancelled ) {
193         if( ! edit_ldap_validate() ) {
194                 *cancelled = FALSE;
195                 gtk_main_quit();
196         }
197 }
198
199 static void edit_ldap_cancel( GtkWidget *widget, gboolean *cancelled ) {
200         *cancelled = TRUE;
201         gtk_main_quit();
202 }
203
204 static gint edit_ldap_delete_event( GtkWidget *widget, GdkEventAny *event, gboolean *cancelled ) {
205         *cancelled = TRUE;
206         gtk_main_quit();
207         return TRUE;
208 }
209
210 static gboolean edit_ldap_key_pressed( GtkWidget *widget, GdkEventKey *event, gboolean *cancelled ) {
211         if (event && event->keyval == GDK_Escape) {
212                 *cancelled = TRUE;
213                 gtk_main_quit();
214         }
215         return FALSE;
216 }
217
218 static void edit_ldap_server_check( void ) {
219         gchar *sHost, *sBind, *sPass;
220         gint iPort, iTime;
221         gchar *sMsg;
222         gchar *sBaseDN = NULL;
223         gint iBaseDN = 0;
224         gboolean flg;
225         gboolean tls = FALSE, ssl = FALSE;
226         GList *baseDN = NULL;
227
228         edit_ldap_status_show( "" );
229         flg = FALSE;
230         sHost = gtk_editable_get_chars( GTK_EDITABLE(ldapedit.entry_server), 0, -1 );
231         sBind = gtk_editable_get_chars( GTK_EDITABLE(ldapedit.entry_bindDN), 0, -1 );
232         sPass = gtk_editable_get_chars( GTK_EDITABLE(ldapedit.entry_bindPW), 0, -1 );
233         iPort = gtk_spin_button_get_value_as_int( GTK_SPIN_BUTTON( ldapedit.spinbtn_port ) );
234         iTime = gtk_spin_button_get_value_as_int( GTK_SPIN_BUTTON( ldapedit.spinbtn_timeout ) );
235 #ifdef USE_LDAP_TLS
236         tls = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(ldapedit.enable_tls));
237         ssl = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(ldapedit.enable_ssl));
238 #endif
239
240         g_strchomp( sHost ); g_strchug( sHost );
241         g_strchomp( sBind ); g_strchug( sBind );
242         g_strchomp( sPass ); g_strchug( sPass );
243         if( *sHost != '\0' ) {
244                 /* Test connection to server */
245                 if( ldaputil_test_connect( sHost, iPort, ssl, tls ) ) {
246                         /* Attempt to read base DN */
247                         baseDN = ldaputil_read_basedn( sHost, iPort, sBind, sPass, iTime, ssl, tls );
248                         if( baseDN ) {
249                                 GList *node = baseDN;
250                                 while( node ) {
251                                         ++iBaseDN;
252                                         if( ! sBaseDN ) {
253                                                 sBaseDN = g_strdup( node->data );
254                                         }
255                                         node = g_list_next( node );
256                                 }
257                                 mgu_free_dlist( baseDN );
258                                 baseDN = node = NULL;
259                         }
260                         flg = TRUE;
261                 }
262         }
263         g_free( sHost );
264         g_free( sBind );
265         g_free( sPass );
266
267         if( sBaseDN ) {
268                 /* Load search DN */
269                 gtk_entry_set_text(GTK_ENTRY(ldapedit.entry_baseDN), sBaseDN);
270                 g_free( sBaseDN );
271         }
272
273         /* Display appropriate message */
274         if( flg ) {
275                 sMsg = _( "Connected successfully to server" );
276         }
277         else {
278                 sMsg = _( "Could not connect to server" );
279         }
280         edit_ldap_status_show( sMsg );
281 }
282
283 static void edit_ldap_basedn_select( void ) {
284         gchar *sHost, *sBind, *sPass, *sBase;
285         gint iPort, iTime, tls = 0, ssl = 0;
286         gchar *selectDN;
287
288         sHost = gtk_editable_get_chars( GTK_EDITABLE(ldapedit.entry_server), 0, -1 );
289         sBase = gtk_editable_get_chars( GTK_EDITABLE(ldapedit.entry_baseDN), 0, -1 );
290         sBind = gtk_editable_get_chars( GTK_EDITABLE(ldapedit.entry_bindDN), 0, -1 );
291         sPass = gtk_editable_get_chars( GTK_EDITABLE(ldapedit.entry_bindPW), 0, -1 );
292         iPort = gtk_spin_button_get_value_as_int( GTK_SPIN_BUTTON( ldapedit.spinbtn_port ) );
293         iTime = gtk_spin_button_get_value_as_int( GTK_SPIN_BUTTON( ldapedit.spinbtn_timeout ) );
294 #ifdef USE_LDAP_TLS
295         tls = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(ldapedit.enable_tls));
296         ssl = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(ldapedit.enable_ssl));
297 #endif
298
299         g_strchomp( sHost ); g_strchug( sHost );
300         g_strchomp( sBind ); g_strchug( sBind );
301         g_strchomp( sPass ); g_strchug( sPass );
302         selectDN = edit_ldap_basedn_selection( sHost, iPort, sBase, iTime, sBind, sPass, ssl, tls );
303         if( selectDN ) {
304                 gtk_entry_set_text(GTK_ENTRY(ldapedit.entry_baseDN), selectDN);
305                 g_free( selectDN );
306                 selectDN = NULL;
307         }
308         g_free( sHost );
309         g_free( sBase );
310         g_free( sBind );
311         g_free( sPass );
312 }
313
314 static void edit_ldap_search_reset( void ) {
315         gtk_entry_set_text(GTK_ENTRY(ldapedit.entry_criteria), LDAPCTL_DFL_ATTR_LIST );
316 }
317
318 static void addressbook_edit_ldap_dialog_create( gboolean *cancelled ) {
319         GtkWidget *window;
320         GtkWidget *vbox;
321         GtkWidget *notebook;
322         GtkWidget *hbbox;
323         GtkWidget *ok_btn;
324         GtkWidget *cancel_btn;
325         GtkWidget *hsbox;
326         GtkWidget *statusbar;
327
328         window = gtkut_window_new(GTK_WINDOW_TOPLEVEL, "editldap");
329         gtk_widget_set_size_request(window, 450, -1);
330         gtk_container_set_border_width(GTK_CONTAINER(window), 0);
331         gtk_window_set_title(GTK_WINDOW(window), _("Edit LDAP Server"));
332         gtk_window_set_position(GTK_WINDOW(window), GTK_WIN_POS_CENTER);
333         gtk_window_set_modal(GTK_WINDOW(window), TRUE); 
334         g_signal_connect(G_OBJECT(window), "delete_event",
335                          G_CALLBACK(edit_ldap_delete_event),
336                          cancelled);
337         g_signal_connect(G_OBJECT(window), "key_press_event",
338                          G_CALLBACK(edit_ldap_key_pressed),
339                          cancelled);
340
341         vbox = gtk_vbox_new( FALSE, 6 );
342         gtk_widget_show( vbox );
343         gtk_container_add( GTK_CONTAINER( window ), vbox );
344
345         /* Notebook */
346         notebook = gtk_notebook_new();
347         gtk_widget_show( notebook );
348         gtk_box_pack_start( GTK_BOX( vbox ), notebook, TRUE, TRUE, 0 );
349         gtk_container_set_border_width( GTK_CONTAINER( notebook ), 6 );
350
351         /* Status line */
352         hsbox = gtk_hbox_new(FALSE, 0);
353         gtk_box_pack_end(GTK_BOX(vbox), hsbox, FALSE, FALSE, BORDER_WIDTH);
354         statusbar = gtk_statusbar_new();
355         gtk_box_pack_start(GTK_BOX(hsbox), statusbar, TRUE, TRUE, BORDER_WIDTH);
356
357         /* Button panel */
358         gtkut_stock_button_set_create(&hbbox, &cancel_btn, GTK_STOCK_CANCEL,
359                                       &ok_btn, GTK_STOCK_OK,
360                                       NULL, NULL);
361         gtk_box_pack_end(GTK_BOX(vbox), hbbox, FALSE, FALSE, 0);
362         gtk_widget_grab_default(ok_btn);
363
364         g_signal_connect(G_OBJECT(ok_btn), "clicked",
365                          G_CALLBACK(edit_ldap_ok), cancelled);
366         g_signal_connect(G_OBJECT(cancel_btn), "clicked",
367                          G_CALLBACK(edit_ldap_cancel), cancelled);
368
369         gtk_widget_show_all(vbox);
370
371         ldapedit.window     = window;
372         ldapedit.notebook   = notebook;
373         ldapedit.ok_btn     = ok_btn;
374         ldapedit.cancel_btn = cancel_btn;
375         ldapedit.statusbar  = statusbar;
376         ldapedit.status_cid =
377                 gtk_statusbar_get_context_id(
378                         GTK_STATUSBAR(statusbar), "Edit LDAP Server Dialog" );
379 }
380
381 static void editldap_update_port (GtkToggleButton *ssl_btn, gpointer data) {
382         gboolean val = gtk_toggle_button_get_active(ssl_btn);
383         gtk_spin_button_set_value(
384                 GTK_SPIN_BUTTON( ldapedit.spinbtn_port ), 
385                         val ? LDAPCTL_DFL_SSL_PORT:LDAPCTL_DFL_PORT );
386 }
387
388 static void addressbook_edit_ldap_page_basic( gint pageNum, gchar *pageLbl ) {
389         GtkWidget *vbox;
390         GtkWidget *table;
391         GtkWidget *label;
392         GtkWidget *entry_name;
393         GtkWidget *entry_server;
394         GtkWidget *hbox_spin;
395         GtkObject *spinbtn_port_adj;
396         GtkWidget *spinbtn_port;
397 #ifdef USE_LDAP_TLS
398         GtkWidget *enable_ssl_chkbtn, *enable_tls_chkbtn;
399 #endif
400         GtkWidget *entry_baseDN;
401         GtkWidget *check_btn;
402         GtkWidget *lookdn_btn;
403         GtkTooltips *toolTip;
404         gint top;
405
406         vbox = gtk_vbox_new( FALSE, 8 );
407         gtk_widget_show( vbox );
408         gtk_container_add( GTK_CONTAINER( ldapedit.notebook ), vbox );
409
410         label = gtk_label_new( pageLbl );
411         gtk_widget_show( label );
412         gtk_notebook_set_tab_label(
413                 GTK_NOTEBOOK( ldapedit.notebook ),
414                 gtk_notebook_get_nth_page( GTK_NOTEBOOK( ldapedit.notebook ), pageNum ), label );
415
416         table = gtk_table_new( LDAPEDIT_TABLE_ROWS, LDAPEDIT_TABLE_COLS, FALSE);
417         gtk_box_pack_start(GTK_BOX(vbox), table, FALSE, FALSE, 0);
418         gtk_container_set_border_width( GTK_CONTAINER(table), 8 );
419         gtk_table_set_row_spacings(GTK_TABLE(table), 8);
420         gtk_table_set_col_spacings(GTK_TABLE(table), 8);
421
422         /* First row */
423         top = 0;
424         label = gtk_label_new(_("Name"));
425         gtk_table_attach(GTK_TABLE(table), label, 0, 1, top, (top + 1), GTK_FILL, 0, 0, 0);
426         gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
427
428         entry_name = gtk_entry_new();
429         gtk_table_attach(GTK_TABLE(table), entry_name, 1, 2, top, (top + 1),
430                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
431
432         toolTip = gtk_tooltips_new();
433         gtk_tooltips_set_tip( toolTip, entry_name, _( 
434                 "A name that you wish to call the server." ),
435                 NULL );
436
437         /* Next row */
438         ++top;
439         label = gtk_label_new(_("Hostname"));
440         gtk_table_attach(GTK_TABLE(table), label, 0, 1, top, (top + 1), GTK_FILL, 0, 0, 0);
441         gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
442
443         entry_server = gtk_entry_new();
444         gtk_table_attach(GTK_TABLE(table), entry_server, 1, 2, top, (top + 1),
445                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
446
447         toolTip = gtk_tooltips_new();
448         gtk_tooltips_set_tip( toolTip, entry_server, _( 
449                 "This is the hostname of the server. For example, " \
450                 "\"ldap.mydomain.com\" may be appropriate for the " \
451                 "\"mydomain.com\" organization. An IP address may also be " \
452                 "used. You may specify \"localhost\" if running an LDAP " \
453                 "server on the same computer as Claws Mail." ),
454                 NULL );
455
456         /* Next row */
457         ++top;
458         label = gtk_label_new(_("Port"));
459         gtk_table_attach(GTK_TABLE(table), label, 0, 1, top, (top + 1), GTK_FILL, 0, 0, 0);
460         gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
461
462         hbox_spin = gtk_hbox_new (FALSE, 8);
463         spinbtn_port_adj = gtk_adjustment_new (389, 1, 65535, 1, 1000, 1000);
464         spinbtn_port = gtk_spin_button_new(GTK_ADJUSTMENT (spinbtn_port_adj), 1, 0);
465         gtk_box_pack_start (GTK_BOX (hbox_spin), spinbtn_port, TRUE, FALSE, 0);
466         gtk_widget_set_size_request (spinbtn_port, 64, -1);
467         gtk_spin_button_set_numeric (GTK_SPIN_BUTTON (spinbtn_port), TRUE);
468         
469 #ifdef USE_LDAP_TLS
470         enable_tls_chkbtn = gtk_check_button_new_with_label(_("TLS"));
471         enable_ssl_chkbtn = gtk_check_button_new_with_label(_("SSL"));
472         SET_TOGGLE_SENSITIVITY_REVERSE(enable_tls_chkbtn, enable_ssl_chkbtn);
473         SET_TOGGLE_SENSITIVITY_REVERSE(enable_ssl_chkbtn, enable_tls_chkbtn);
474         gtk_tooltips_set_tip( toolTip, enable_tls_chkbtn, _( 
475                 "Enable secure connection to the LDAP server via TLS."
476                 "If connection fails, be sure to check the correct "
477                 "configuration in ldap.conf (TLS_CACERTDIR and TLS_REQCERT fields)." ),
478                 NULL );
479         gtk_tooltips_set_tip( toolTip, enable_ssl_chkbtn, _( 
480                 "Enable secure connection to the LDAP server via SSL."
481                 "If connection fails, be sure to check the correct "
482                 "configuration in ldap.conf (TLS_CACERTDIR and TLS_REQCERT fields)." ),
483                 NULL );
484
485         gtk_box_pack_start (GTK_BOX (hbox_spin), enable_tls_chkbtn, TRUE, FALSE, 0);
486         gtk_box_pack_start (GTK_BOX (hbox_spin), enable_ssl_chkbtn, TRUE, FALSE, 0);
487 #endif
488
489         gtk_table_attach(GTK_TABLE(table), hbox_spin, 1, 2, top, (top + 1),
490                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
491
492         toolTip = gtk_tooltips_new();
493         gtk_tooltips_set_tip( toolTip, spinbtn_port, _( 
494                 "The port number that the server listens on. Port 389 is " \
495                 "the default." ),
496                 NULL );
497
498         check_btn = gtk_button_new_with_label( _(" Check Server "));
499         gtk_table_attach(GTK_TABLE(table), check_btn, 2, 3, top, (top + 1), GTK_FILL, 0, 3, 0);
500
501         toolTip = gtk_tooltips_new();
502         gtk_tooltips_set_tip( toolTip, check_btn, _( 
503                 "Press this button to test the connection to the server." ),
504                 NULL );
505
506         /* Next row */
507         ++top;
508         label = gtk_label_new(_("Search Base"));
509         gtk_table_attach(GTK_TABLE(table), label, 0, 1, top, (top + 1), GTK_FILL, 0, 0, 0);
510         gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
511
512         entry_baseDN = gtk_entry_new();
513         gtk_table_attach(GTK_TABLE(table), entry_baseDN, 1, 2, top, (top + 1),
514                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
515
516         toolTip = gtk_tooltips_new();
517         gtk_tooltips_set_tip( toolTip, entry_baseDN, _( 
518                 "This specifies the name of the directory to be searched " \
519                 "on the server. Examples include:\n" \
520                 "  dc=claws-mail,dc=org\n" \
521                 "  ou=people,dc=domainname,dc=com\n" \
522                 "  o=Organization Name,c=Country\n"
523                 ),
524                 NULL );
525
526         lookdn_btn = gtkut_get_browse_file_btn(_("_Browse"));
527         gtk_table_attach(GTK_TABLE(table), lookdn_btn, 2, 3, top, (top + 1), GTK_FILL, 0, 3, 0);
528
529         toolTip = gtk_tooltips_new();
530         gtk_tooltips_set_tip( toolTip, lookdn_btn, _( 
531                 "Press this button to lookup the name of available " \
532                 "directory names on the server." ),
533                 NULL );
534
535         /* Signal handlers */
536         g_signal_connect(G_OBJECT(check_btn), "clicked",
537                          G_CALLBACK(edit_ldap_server_check), NULL);
538         g_signal_connect(G_OBJECT(lookdn_btn), "clicked",
539                          G_CALLBACK(edit_ldap_basedn_select), NULL);
540
541         /* Done */
542         gtk_widget_show_all(vbox);
543
544         ldapedit.entry_name   = entry_name;
545         ldapedit.entry_server = entry_server;
546         ldapedit.spinbtn_port = spinbtn_port;
547         ldapedit.entry_baseDN = entry_baseDN;
548 #ifdef USE_LDAP_TLS
549         ldapedit.enable_ssl = enable_ssl_chkbtn;
550         ldapedit.enable_tls = enable_tls_chkbtn;
551
552         g_signal_connect(G_OBJECT(enable_ssl_chkbtn), "toggled", \
553                          G_CALLBACK(editldap_update_port), NULL); 
554 #endif                   
555 }
556
557 static void addressbook_edit_ldap_page_search( gint pageNum, gchar *pageLbl ) {
558         GtkWidget *vbox;
559         GtkWidget *table;
560         GtkWidget *label;
561         GtkWidget *entry_criteria;
562         GtkWidget *hbox_spin;
563         GtkObject *spinbtn_queryage_adj;
564         GtkWidget *spinbtn_queryage;
565         GtkWidget *check_dynsearch;
566         GtkWidget *check_matchoption;
567         GtkWidget *reset_btn;
568         GtkTooltips *toolTip;
569         gint top;
570
571         vbox = gtk_vbox_new( FALSE, 8 );
572         gtk_widget_show( vbox );
573         gtk_container_add( GTK_CONTAINER( ldapedit.notebook ), vbox );
574
575         label = gtk_label_new( pageLbl );
576         gtk_widget_show( label );
577         gtk_notebook_set_tab_label(
578                 GTK_NOTEBOOK( ldapedit.notebook ),
579                 gtk_notebook_get_nth_page( GTK_NOTEBOOK( ldapedit.notebook ), pageNum ), label );
580
581         table = gtk_table_new( LDAPEDIT_TABLE_ROWS, LDAPEDIT_TABLE_COLS, FALSE);
582         gtk_box_pack_start(GTK_BOX(vbox), table, FALSE, FALSE, 0);
583         gtk_container_set_border_width( GTK_CONTAINER(table), 8 );
584         gtk_table_set_row_spacings(GTK_TABLE(table), 8);
585         gtk_table_set_col_spacings(GTK_TABLE(table), 8);
586
587         /* First row */
588         top = 0;
589         label = gtk_label_new(_("Search Attributes"));
590         gtk_table_attach(GTK_TABLE(table), label, 0, 1, top, (top + 1), GTK_FILL, 0, 0, 0);
591         gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
592
593         entry_criteria = gtk_entry_new();
594         gtk_table_attach(GTK_TABLE(table), entry_criteria, 1, 2, top, (top + 1),
595                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
596
597         toolTip = gtk_tooltips_new();
598         gtk_tooltips_set_tip( toolTip, entry_criteria, _( 
599                 "A list of LDAP attribute names that should be searched " \
600                 "when attempting to find a name or address." ),
601                 NULL );
602
603         reset_btn = gtk_button_new_with_label( _(" Defaults "));
604         gtk_table_attach(GTK_TABLE(table), reset_btn, 2, 3, top, (top + 1), GTK_FILL, 0, 3, 0);
605
606         toolTip = gtk_tooltips_new();
607         gtk_tooltips_set_tip( toolTip, reset_btn, _( 
608                 "This resets the attribute names to a default value " \
609                 "that should find most names and addresses during a " \
610                 "name or address search process." ),
611                 NULL );
612
613         /* Next row */
614         ++top;
615         label = gtk_label_new(_("Max Query Age (secs)"));
616         gtk_table_attach(GTK_TABLE(table), label, 0, 1, top, (top + 1), GTK_FILL, 0, 0, 0);
617         gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
618
619         hbox_spin = gtk_hbox_new (FALSE, 8);
620         spinbtn_queryage_adj = gtk_adjustment_new(
621                 LDAPCTL_DFL_QUERY_AGE, 1, LDAPCTL_MAX_QUERY_AGE, 10, 1000, 1000 );
622         spinbtn_queryage = gtk_spin_button_new(GTK_ADJUSTMENT (spinbtn_queryage_adj), 1, 0);
623         gtk_box_pack_start (GTK_BOX (hbox_spin), spinbtn_queryage, FALSE, FALSE, 0);
624         gtk_widget_set_size_request (spinbtn_queryage, 64, -1);
625         gtk_spin_button_set_numeric (GTK_SPIN_BUTTON (spinbtn_queryage), TRUE);
626         gtk_table_attach(GTK_TABLE(table), hbox_spin, 1, 2, top, (top + 1),
627                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
628
629         toolTip = gtk_tooltips_new();
630         gtk_tooltips_set_tip( toolTip, spinbtn_queryage, _( 
631                 "This defines the maximum period of time (in seconds) that " \
632                 "an address search result is valid for address completion " \
633                 "purposes. Search results are stored in a cache until this " \
634                 "period of time has passed and then retired. This will " \
635                 "improve the response time when attempting to search for " \
636                 "the same name or address on subsequent address completion " \
637                 "requests. The cache will be searched in preference to " \
638                 "performing a new server search request. The default value " \
639                 "of 600 seconds (10 minutes), should be sufficient for most " \
640                 "servers. A larger value will reduce the search time for " \
641                 "subsequent searches. This is useful for servers that have " \
642                 "slow response times at the expense of more memory to cache " \
643                 "results." ),
644                 NULL );
645
646         /* Next row */
647         ++top;
648         check_dynsearch = gtk_check_button_new_with_label(
649                                 _("Include server in dynamic search") );
650         gtk_table_attach(GTK_TABLE(table), check_dynsearch, 1, 3, top, (top + 1),
651                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
652
653         toolTip = gtk_tooltips_new();
654         gtk_tooltips_set_tip( toolTip, check_dynsearch, _( 
655                 "Check this option to include this server for dynamic " \
656                 "searches when using address completion." ),
657                 NULL );
658
659         /* Next row */
660         ++top;
661         check_matchoption = gtk_check_button_new_with_label(
662                                 _("Match names 'containing' search term") );
663         gtk_table_attach(GTK_TABLE(table), check_matchoption, 1, 3, top, (top + 1),
664                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
665
666         toolTip = gtk_tooltips_new();
667         gtk_tooltips_set_tip( toolTip, check_matchoption, _( 
668                 "Searches for names and addresses can be performed either " \
669                 "using \"begins-with\" or \"contains\" search term. Check " \
670                 "this option to perform a \"contains\" search; this type of " \
671                 "search usually takes longer to complete. Note that for " \
672                 "performance reasons, address completion uses " \
673                 "\"begins-with\" for all searches against other address " \
674                 "interfaces." \
675                 ),
676                 NULL );
677
678         /* Signal handlers */
679         g_signal_connect(G_OBJECT(reset_btn), "clicked",
680                          G_CALLBACK(edit_ldap_search_reset), NULL);
681
682         /* Done */
683         gtk_widget_show_all(vbox);
684
685         ldapedit.entry_criteria    = entry_criteria;
686         ldapedit.spinbtn_queryage  = spinbtn_queryage;
687         ldapedit.check_dynsearch   = check_dynsearch;
688         ldapedit.check_matchoption = check_matchoption;
689 }
690
691 static void addressbook_edit_ldap_page_extended( gint pageNum, gchar *pageLbl ) {
692         GtkWidget *vbox;
693         GtkWidget *table;
694         GtkWidget *label;
695         GtkWidget *entry_bindDN;
696         GtkWidget *entry_bindPW;
697         GtkWidget *hbox_spin;
698         GtkObject *spinbtn_timeout_adj;
699         GtkWidget *spinbtn_timeout;
700         GtkObject *spinbtn_maxentry_adj;
701         GtkWidget *spinbtn_maxentry;
702         GtkTooltips *toolTip;
703         gint top;
704
705         vbox = gtk_vbox_new( FALSE, 8 );
706         gtk_widget_show( vbox );
707         gtk_container_add( GTK_CONTAINER( ldapedit.notebook ), vbox );
708
709         label = gtk_label_new( pageLbl );
710         gtk_widget_show( label );
711         gtk_notebook_set_tab_label(
712                 GTK_NOTEBOOK( ldapedit.notebook ),
713                 gtk_notebook_get_nth_page( GTK_NOTEBOOK( ldapedit.notebook ), pageNum ), label );
714
715         table = gtk_table_new( LDAPEDIT_TABLE_ROWS, LDAPEDIT_TABLE_COLS, FALSE);
716         gtk_box_pack_start(GTK_BOX(vbox), table, FALSE, FALSE, 0);
717         gtk_container_set_border_width( GTK_CONTAINER(table), 8 );
718         gtk_table_set_row_spacings(GTK_TABLE(table), 8);
719         gtk_table_set_col_spacings(GTK_TABLE(table), 8);
720
721         /* Next row */
722         top = 0;
723         label = gtk_label_new(_("Bind DN"));
724         gtk_table_attach(GTK_TABLE(table), label, 0, 1, top, (top + 1), GTK_FILL, 0, 0, 0);
725         gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
726
727         entry_bindDN = gtk_entry_new();
728         gtk_table_attach(GTK_TABLE(table), entry_bindDN, 1, 2, top, (top + 1),
729                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
730
731         toolTip = gtk_tooltips_new();
732         gtk_tooltips_set_tip( toolTip, entry_bindDN, _( 
733                 "The LDAP user account name to be used to connect to the server. " \
734                 "This is usually only used for protected servers. This name " \
735                 "is typically formatted as: \"cn=user,dc=claws-mail,dc=org\". " \
736                 "This is usually left empty when performing a search." ),
737                 NULL );
738
739         /* Next row */
740         ++top;
741         label = gtk_label_new(_("Bind Password"));
742         gtk_table_attach(GTK_TABLE(table), label, 0, 1, top, (top + 1), GTK_FILL, 0, 0, 0);
743         gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
744
745         entry_bindPW = gtk_entry_new();
746         gtk_table_attach(GTK_TABLE(table), entry_bindPW, 1, 2, top, (top + 1),
747                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
748         gtk_entry_set_visibility(GTK_ENTRY(entry_bindPW), FALSE);
749
750         toolTip = gtk_tooltips_new();
751         gtk_tooltips_set_tip( toolTip, entry_bindPW, _( 
752                 "The password to be used when connecting as the \"Bind DN\" " \
753                 "user." ),
754                 NULL );
755
756         /* Next row */
757         ++top;
758         label = gtk_label_new(_("Timeout (secs)"));
759         gtk_table_attach(GTK_TABLE(table), label, 0, 1, top, (top + 1), GTK_FILL, 0, 0, 0);
760         gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
761
762         hbox_spin = gtk_hbox_new (FALSE, 8);
763         spinbtn_timeout_adj = gtk_adjustment_new (0, 0, 300, 1, 10, 10);
764         spinbtn_timeout = gtk_spin_button_new(GTK_ADJUSTMENT (spinbtn_timeout_adj), 1, 0);
765         gtk_box_pack_start (GTK_BOX (hbox_spin), spinbtn_timeout, FALSE, FALSE, 0);
766         gtk_widget_set_size_request (spinbtn_timeout, 64, -1);
767         gtk_spin_button_set_numeric (GTK_SPIN_BUTTON (spinbtn_timeout), TRUE);
768         gtk_table_attach(GTK_TABLE(table), hbox_spin, 1, 2, top, (top + 1),
769                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
770
771         toolTip = gtk_tooltips_new();
772         gtk_tooltips_set_tip( toolTip, spinbtn_timeout, _( 
773                 "The timeout period in seconds." ), NULL );
774
775         /* Next row */
776         ++top;
777         label = gtk_label_new(_("Maximum Entries"));
778         gtk_table_attach(GTK_TABLE(table), label, 0, 1, top, (top + 1), GTK_FILL, 0, 0, 0);
779         gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
780
781         hbox_spin = gtk_hbox_new (FALSE, 8);
782         spinbtn_maxentry_adj = gtk_adjustment_new (0, 0, 500, 1, 10, 10);
783         spinbtn_maxentry = gtk_spin_button_new(GTK_ADJUSTMENT (spinbtn_maxentry_adj), 1, 0);
784         gtk_box_pack_start (GTK_BOX (hbox_spin), spinbtn_maxentry, FALSE, FALSE, 0);
785         gtk_widget_set_size_request (spinbtn_maxentry, 64, -1);
786         gtk_spin_button_set_numeric (GTK_SPIN_BUTTON (spinbtn_maxentry), TRUE);
787         gtk_table_attach(GTK_TABLE(table), hbox_spin, 1, 2, top, (top + 1),
788                 GTK_EXPAND|GTK_SHRINK|GTK_FILL, 0, 0, 0);
789
790         toolTip = gtk_tooltips_new();
791         gtk_tooltips_set_tip( toolTip, spinbtn_maxentry, _( 
792                 "The maximum number of entries that should be returned " \
793                 "in the search result." ),
794                 NULL );
795
796         /* Done */
797         gtk_widget_show_all(vbox);
798
799         ldapedit.entry_bindDN     = entry_bindDN;
800         ldapedit.entry_bindPW     = entry_bindPW;
801         ldapedit.spinbtn_timeout  = spinbtn_timeout;
802         ldapedit.spinbtn_maxentry = spinbtn_maxentry;
803 }
804
805 static void addressbook_edit_ldap_create( gboolean *cancelled ) {
806         gint page = 0;
807         addressbook_edit_ldap_dialog_create( cancelled );
808         addressbook_edit_ldap_page_basic( page++, _( "Basic" ) );
809         addressbook_edit_ldap_page_search( page++, _( "Search" ) );
810         addressbook_edit_ldap_page_extended( page++, _( "Extended" ) );
811         gtk_widget_show_all( ldapedit.window );
812 }
813
814 /**
815  * Format criteria list for display.
816  * \param ctl Control object.
817  * \return Formatted string, or <i>NULL</i> if no attributes found.
818  */
819 static gchar *editldap_build_criteria_list( const LdapControl *ctl ) {
820         gchar *str = NULL;
821         gchar *tmp = NULL;
822         GList *node;
823
824         node = ldapctl_get_criteria_list( ctl );
825         while( node ) {
826                 gchar *attr = node->data;
827                 if( str ) {
828                         tmp = g_strdup_printf( "%s, %s", str, attr );
829                         g_free( str );
830                         str = tmp;
831                         tmp = NULL;
832                 }
833                 else {
834                         str = g_strdup( attr );
835                 }
836                 node = g_list_next( node );
837         }
838
839         return str;
840 }
841
842 /**
843  * Parse out individual attribute names from criteria string.
844  * \param criteria Criteria string.
845  * \ctl   Control object.
846  */
847 static void editldap_parse_criteria( gchar *criteria, LdapControl *ctl ) {
848         gchar *ptr;
849         gchar **splitStr;
850         gint i;
851
852         /* Replace delimiters with spaces */
853         ptr = criteria;
854         while( *ptr ) {
855                 if( *ptr == ',' || *ptr == ';' || *ptr == '|' )
856                         *ptr = ' ';
857                 ptr++;
858         }
859
860         /* Parse string */
861         ldapctl_criteria_list_clear( ctl );
862         splitStr = g_strsplit( criteria, " ", 0 );
863         i = 0;
864         while( TRUE ) {
865                 if( splitStr[i] ) {
866                         if( *splitStr[i] ) {
867                                 ldapctl_criteria_list_add( ctl, splitStr[i] );
868                         }
869                 }
870                 else {
871                         break;
872                 }
873                 i++;
874         }
875         g_strfreev( splitStr );
876 }
877
878 /**
879  * Clear entry fields to reasonable defaults (for a new server entry).
880  */
881 static void edit_ldap_clear_fields( void ) {
882         gtk_entry_set_text(
883                 GTK_ENTRY(ldapedit.entry_name), ADDRESSBOOK_GUESS_LDAP_NAME );
884         gtk_entry_set_text(
885                 GTK_ENTRY(ldapedit.entry_server), ADDRESSBOOK_GUESS_LDAP_SERVER );
886         gtk_entry_set_text(GTK_ENTRY(ldapedit.entry_baseDN), "");
887         gtk_entry_set_text(GTK_ENTRY(ldapedit.entry_bindDN), "");
888         gtk_entry_set_text(GTK_ENTRY(ldapedit.entry_bindPW), "");
889         gtk_spin_button_set_value(
890                 GTK_SPIN_BUTTON( ldapedit.spinbtn_port ), LDAPCTL_DFL_PORT );
891         gtk_spin_button_set_value(
892                 GTK_SPIN_BUTTON( ldapedit.spinbtn_timeout ), LDAPCTL_DFL_TIMEOUT );
893         gtk_spin_button_set_value(
894                 GTK_SPIN_BUTTON( ldapedit.spinbtn_maxentry ), LDAPCTL_DFL_TIMEOUT );
895         gtk_entry_set_text(
896                 GTK_ENTRY(ldapedit.entry_criteria), LDAPCTL_DFL_ATTR_LIST );
897         gtk_spin_button_set_value(
898                 GTK_SPIN_BUTTON(ldapedit.spinbtn_queryage), LDAPCTL_DFL_QUERY_AGE );
899         gtk_toggle_button_set_active(
900                 GTK_TOGGLE_BUTTON( ldapedit.check_dynsearch), TRUE );
901         gtk_toggle_button_set_active(
902                 GTK_TOGGLE_BUTTON( ldapedit.check_matchoption), FALSE );
903 #ifdef USE_LDAP_TLS
904         gtk_toggle_button_set_active(
905                 GTK_TOGGLE_BUTTON( ldapedit.enable_ssl), FALSE );
906         gtk_toggle_button_set_active(
907                 GTK_TOGGLE_BUTTON( ldapedit.enable_tls), FALSE );
908 #endif
909 }
910
911 /**
912  * Load entry fields from server control data.
913  * \param server Server object.
914  */
915 static void edit_ldap_set_fields( LdapServer *server ) {
916         LdapControl *ctl;
917         gchar *crit;
918
919         if( ldapsvr_get_name( server ) )
920                 gtk_entry_set_text(GTK_ENTRY(ldapedit.entry_name),
921                 ldapsvr_get_name( server ) );
922
923         ctl = server->control;
924         if( ctl->hostName )
925                 gtk_entry_set_text(
926                         GTK_ENTRY(ldapedit.entry_server), ctl->hostName);
927         if( ctl->baseDN )
928                 gtk_entry_set_text(
929                         GTK_ENTRY(ldapedit.entry_baseDN), ctl->baseDN );
930         if( ctl->bindDN )
931                 gtk_entry_set_text(
932                         GTK_ENTRY(ldapedit.entry_bindDN), ctl->bindDN );
933         if( ctl->bindPass )
934                 gtk_entry_set_text(
935                         GTK_ENTRY(ldapedit.entry_bindPW), ctl->bindPass );
936         gtk_spin_button_set_value(
937                 GTK_SPIN_BUTTON(ldapedit.spinbtn_port), ctl->port );
938         gtk_spin_button_set_value(
939                 GTK_SPIN_BUTTON(ldapedit.spinbtn_timeout), ctl->timeOut );
940         gtk_spin_button_set_value(
941                 GTK_SPIN_BUTTON(ldapedit.spinbtn_maxentry), ctl->maxEntries );
942 #ifdef USE_LDAP_TLS
943         gtk_toggle_button_set_active(
944                 GTK_TOGGLE_BUTTON(ldapedit.enable_tls), ctl->enableTLS );
945         gtk_toggle_button_set_active(
946                 GTK_TOGGLE_BUTTON(ldapedit.enable_ssl), ctl->enableSSL );
947 #endif
948         /* Format criteria */
949         crit = editldap_build_criteria_list( ctl );
950         if( crit ) {
951                 gtk_entry_set_text(GTK_ENTRY(ldapedit.entry_criteria), crit );
952                 g_free( crit );
953         }
954         else {
955                 gtk_entry_set_text(GTK_ENTRY(ldapedit.entry_criteria), "" );
956         }
957         gtk_spin_button_set_value(
958                 GTK_SPIN_BUTTON(ldapedit.spinbtn_queryage), ctl->maxQueryAge );
959         gtk_toggle_button_set_active(
960                 GTK_TOGGLE_BUTTON( ldapedit.check_dynsearch), server->searchFlag );
961         gtk_toggle_button_set_active(
962                 GTK_TOGGLE_BUTTON( ldapedit.check_matchoption),
963                 ( ctl->matchingOption == LDAPCTL_MATCH_CONTAINS ) );
964 }
965
966 /**
967  * Edit LDAP server datasource that appears addressbook.
968  * \param addrIndex Address index object.
969  * \param ads       Data source adapter.
970  * \return Update data source adapter, or <code>NULL</code> if user cancelled
971  *         edit with dialog.
972  */
973 AdapterDSource *addressbook_edit_ldap(
974         AddressIndex *addrIndex, AdapterDSource *ads )
975 {
976         static gboolean cancelled;
977         gchar *sName, *sHost, *sBase, *sBind, *sPass, *sCrit;
978         gint iPort, iMaxE, iTime, iAge;
979         gboolean bSrch, bMatch;
980         AddressDataSource *ds = NULL;
981         LdapServer *server = NULL;
982         LdapControl *ctl = NULL;
983         gboolean fin, ssl = FALSE, tls = FALSE;
984
985         if (!ldapedit.window)
986                 addressbook_edit_ldap_create(&cancelled);
987         gtk_notebook_set_current_page( GTK_NOTEBOOK(ldapedit.notebook), PAGE_BASIC );
988         gtk_widget_grab_focus(ldapedit.ok_btn);
989         gtk_widget_grab_focus(ldapedit.entry_name);
990         gtk_widget_show(ldapedit.window);
991         manage_window_set_transient(GTK_WINDOW(ldapedit.window));
992
993         edit_ldap_status_show( "" );
994         if( ads ) {
995                 ds = ads->dataSource;
996                 server = ds->rawDataSource;
997                 edit_ldap_set_fields( server );
998                 gtk_window_set_title(
999                         GTK_WINDOW(ldapedit.window), _("Edit LDAP Server"));
1000         }
1001         else {
1002                 edit_ldap_clear_fields();
1003                 gtk_window_set_title(
1004                         GTK_WINDOW(ldapedit.window), _("Add New LDAP Server"));
1005         }
1006
1007         gtk_main();
1008         gtk_widget_hide(ldapedit.window);
1009         if (cancelled == TRUE) return NULL;
1010
1011         sName = gtk_editable_get_chars(
1012                         GTK_EDITABLE(ldapedit.entry_name), 0, -1 );
1013         sHost = gtk_editable_get_chars(
1014                         GTK_EDITABLE(ldapedit.entry_server), 0, -1 );
1015         sBase = gtk_editable_get_chars(
1016                         GTK_EDITABLE(ldapedit.entry_baseDN), 0, -1 );
1017         sCrit = gtk_editable_get_chars(
1018                         GTK_EDITABLE(ldapedit.entry_criteria), 0, -1 );
1019         sBind = gtk_editable_get_chars(
1020                         GTK_EDITABLE(ldapedit.entry_bindDN), 0, -1 );
1021         sPass = gtk_editable_get_chars(
1022                         GTK_EDITABLE(ldapedit.entry_bindPW), 0, -1 );
1023         iPort = gtk_spin_button_get_value_as_int(
1024                         GTK_SPIN_BUTTON( ldapedit.spinbtn_port ) );
1025         iTime = gtk_spin_button_get_value_as_int(
1026                         GTK_SPIN_BUTTON( ldapedit.spinbtn_timeout ) );
1027         iMaxE = gtk_spin_button_get_value_as_int(
1028                         GTK_SPIN_BUTTON( ldapedit.spinbtn_maxentry ) );
1029         iAge  = gtk_spin_button_get_value_as_int(
1030                         GTK_SPIN_BUTTON( ldapedit.spinbtn_queryage ) );
1031         bSrch = gtk_toggle_button_get_active(
1032                         GTK_TOGGLE_BUTTON( ldapedit.check_dynsearch ) );
1033         bMatch = gtk_toggle_button_get_active(
1034                         GTK_TOGGLE_BUTTON( ldapedit.check_matchoption ) );
1035 #ifdef USE_LDAP_TLS
1036         ssl = gtk_toggle_button_get_active(
1037                         GTK_TOGGLE_BUTTON( ldapedit.enable_ssl ) );
1038         tls = gtk_toggle_button_get_active(
1039                         GTK_TOGGLE_BUTTON( ldapedit.enable_tls ) );
1040 #endif
1041         fin = FALSE;
1042         if( *sName == '\0' ) fin = TRUE;
1043         if( *sHost == '\0' ) fin = TRUE;
1044
1045         if( ! fin ) {
1046                 /* Save changes */
1047                 if( ! ads ) {
1048                         /* New server */
1049                         server = ldapsvr_create();
1050                         ds = addrindex_index_add_datasource(
1051                                 addrIndex, ADDR_IF_LDAP, server );
1052                         ads = addressbook_create_ds_adapter(
1053                                 ds, ADDR_LDAP, NULL );
1054                 }
1055                 ctl = server->control;
1056                 addressbook_ads_set_name( ads, sName );
1057                 ldapsvr_set_name( server, sName );
1058                 ldapsvr_set_search_flag( server, bSrch );
1059                 ldapctl_set_host( ctl, sHost );
1060                 ldapctl_set_base_dn( ctl, sBase );
1061                 ldapctl_set_bind_dn( ctl, sBind );
1062                 ldapctl_set_bind_password( ctl, sPass );
1063                 ldapctl_set_port( ctl, iPort );
1064                 ldapctl_set_max_entries( ctl, iMaxE );
1065                 ldapctl_set_timeout( ctl, iTime );
1066                 ldapctl_set_max_query_age( ctl, iAge );
1067 #ifdef USE_LDAP_TLS
1068                 ldapctl_set_tls( ctl, tls );
1069                 ldapctl_set_ssl( ctl, ssl );
1070 #endif
1071                 ldapctl_set_matching_option(
1072                         ctl, bMatch ?
1073                         LDAPCTL_MATCH_CONTAINS : LDAPCTL_MATCH_BEGINWITH );
1074
1075                 /* Save attributes */
1076                 editldap_parse_criteria( sCrit, ctl );
1077
1078         }
1079         g_free( sName );
1080         g_free( sHost );
1081         g_free( sBase );
1082         g_free( sBind );
1083         g_free( sPass );
1084         g_free( sCrit );
1085
1086         return ads;
1087 }
1088
1089 #endif /* USE_LDAP */
1090
1091 /*
1092 * End of Source.
1093 */