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