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