/[winpt]/trunk/Src/wptKeyserverDlg.cpp
ViewVC logotype

Diff of /trunk/Src/wptKeyserverDlg.cpp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 32 by twoaday, Mon Oct 24 08:03:48 2005 UTC revision 225 by twoaday, Tue Jun 6 13:37:59 2006 UTC
# Line 1  Line 1 
1  /* wptKeyserverDlg.cpp - Keyserver dialog  /* wptKeyserverDlg.cpp - Keyserver dialog
2   *      Copyright (C) 2000-2005 Timo Schulz   *      Copyright (C) 2000-2006 Timo Schulz
3   *   *      Copyright (C) 2005, 2006 g10 Code GmbH
4   * This file is part of WinPT.   *
5   *   * This file is part of WinPT.
6   * WinPT is free software; you can redistribute it and/or modify   *
7   * it under the terms of the GNU General Public License as published by   * WinPT is free software; you can redistribute it and/or modify
8   * the Free Software Foundation; either version 2 of the License, or   * it under the terms of the GNU General Public License as published by
9   * (at your option) any later version.   * the Free Software Foundation; either version 2 of the License, or
10   *   * (at your option) any later version.
11   * WinPT is distributed in the hope that it will be useful,   *
12   * but WITHOUT ANY WARRANTY; without even the implied warranty of   * WinPT is distributed in the hope that it will be useful,
13   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the   * but WITHOUT ANY WARRANTY; without even the implied warranty of
14   * GNU General Public License for more details.   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15   *   * GNU General Public License for more details.
16   * You should have received a copy of the GNU General Public License   *
17   * along with WinPT; if not, write to the Free Software Foundation,   * You should have received a copy of the GNU General Public License
18   * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA   * along with WinPT; if not, write to the Free Software Foundation,
19   */   * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
20     */
21  #include <windows.h>  #ifdef HAVE_CONFIG_H
22  #include <commctrl.h>  #include <config.h>
23  #include <malloc.h>  #endif
24    
25  #include "../resource.h"  #include <windows.h>
26  #include "wptKeyserver.h"  #include <commctrl.h>
27  #include "wptErrors.h"  #include <ctype.h>
28  #include "wptTypes.h"  
29  #include "wptCommonCtl.h"  #include "resource.h"
30  #include "wptNLS.h"  #include "wptKeyserver.h"
31  #include "wptW32API.h"  #include "wptErrors.h"
32  #include "wptVersion.h"  #include "wptTypes.h"
33  #include "wptGPG.h"  #include "wptCommonCtl.h"
34  #include "wptKeyManager.h"  #include "wptNLS.h"
35  #include "wptContext.h" /* for passphrase_s */  #include "wptW32API.h"
36  #include "wptDlgs.h"  #include "wptVersion.h"
37    #include "wptGPG.h"
38    #include "wptGPGME.h"
39  #define MAX_KEYSIZE 70000  #include "wptContext.h" /* for passphrase_s */
40    #include "wptKeyManager.h"
41  char * get_reg_entry_keyserver (const char *);  #include "wptDlgs.h"
42  int set_reg_entry_keyserver (const char *, const char *);  #include "wptUTF8.h"
43    
44    
45  static void  char* get_reg_entry_keyserver (const char *);
46  hkp_err_box (HWND dlg, const char * host, u16 port, int rc)  int set_reg_entry_keyserver (const char *, const char *);
47  {  
48      const char *err = kserver_strerror();  /* Symbolic column IDs */
49    enum { KS_COL_NAME = 0, KS_COL_PORT };
50      log_box( _("Keyserver"), MB_ERR, "%s:%d: %s", host, port, winpt_strerror (rc));  
51      if (err)  /* Callback context to modify (add, edit) keyserver items. */
52          msg_box (dlg, err, wsock_strerror (), MB_ERR);  struct keyserver_rec_s {
53  } /* hkp_err_box */      char name[200];     /* hostname */
54        int  proto;         /* protocol */
55        int  port;          /* used port */
56  int      bool mode;          /* true = edit */
57  hkp_send_key (HWND dlg, const char *kserver, u16 port, const char *pattern)      bool cancel;
58  {  };
59      gpgme_ctx_t c;  typedef struct keyserver_rec_s *keyserver_rec_t;
60      gpgme_data_t keydata;  
61      gpgme_error_t ec;  
62      char *rawkey = NULL, msg[1024];  /* Print out keyserver error and a possible Winsock error. */
63      size_t n;  static void
64      int rc;  hkp_err_box (HWND dlg, const char *host, WORD port, int rc)
65        {
66      ec = gpgme_new( &c );      const char *err = kserver_strerror ();
67      if( ec )      const char *ws_err = wsock_strerror ();
68          BUG( NULL );      
69      gpgme_set_armor (c, 1);      if (ws_err && strlen (ws_err) > 0)
70      ec = gpgme_data_new( &keydata );          log_box (_("Keyserver"), MB_ERR, "%s:%d: %s", host, port, ws_err);
71      if( ec )      else
72          BUG( NULL );          log_box (_("Keyserver"), MB_ERR, "%s:%d: %s\n%s",
73      rc = (int) gpgme_op_export( c, pattern, 0, keydata );                   host, port, winpt_strerror (rc), err? err : "");
74      if( rc ) {  }
75          msg_box( dlg, gpgme_strerror( (gpgme_error_t)rc ), _("Export"), MB_ERR );  
76          goto leave;  
77      }  /* Send the extracted key with keyid @pattern to the
78      rawkey = gpgme_data_release_and_get_mem (keydata, &n);     keyserver @kserver (port @port).
79      rc = kserver_sendkey (kserver, port, rawkey, n);     Return value: 0 on success. */
80      if (rc) {  int
81          hkp_err_box (dlg, kserver, port, rc);  hkp_send_key (HWND dlg, const char *kserver, WORD port, const char *pattern)
82          goto leave;  {
83      }      GPGME *gpg;
84            gpgme_error_t ec;
85      _snprintf (msg, sizeof (msg) -1, _("Key '%s' successfully sent"), pattern);      char *rawkey = NULL;
86      status_box (dlg, msg, _("GnuPG status"));      char msg[256];
87            
88  leave:      gpg = new GPGME ();
89      gpgme_release (c);      gpg->setArmor (true);
90      if (rawkey)      ec = gpg->exportToBuffer (pattern, &rawkey);
91          gpgme_free (rawkey);      if (ec) {
92      return rc;          msg_box (dlg, gpgme_strerror (ec), _("Export"), MB_ERR);
93  } /* hkp_send_key */          goto leave;
94        }
95        op_begin ();
96  int      ec = kserver_sendkey (kserver, port, rawkey, strlen (rawkey));
97  hkp_recv_key (HWND dlg, const char *kserver, u16 port,      op_end ();
98                const char *pattern, int proto, int flags)      if (ec) {
99  {          hkp_err_box (dlg, kserver, port, ec);
100      gpgme_ctx_t ctx;          goto leave;
101      gpgme_data_t keydata;      }
102      gpgme_error_t ec;      
103      gpgme_import_result_t import_res;      _snprintf (msg, sizeof (msg) -1, _("Key '%s' successfully sent"), pattern);
104      int rc;      status_box (dlg, msg, _("GnuPG status"));
105      char *rawkey = NULL, msg[384];      
106        leave:
107      rawkey = new char[MAX_KEYSIZE];      delete gpg;
108      if (!rawkey)      free_if_alloc (rawkey);
109          BUG (0);      return ec? -1 : 0;
110      memset (rawkey, 0, MAX_KEYSIZE);  }
111      if( proto == KSPROTO_LDAP ) {  
112          rc = ldap_recvkey( kserver, pattern, rawkey, MAX_KEYSIZE-1 );  
113          if( rc ) {  
114              msg_box( dlg, _("LDAP key import failed.\n"  /* Show all received keys from the keyserver. */
115                              "Please make sure you have an online connection"  static void
116                              " and gpgkeys_ldap.exe is installed"),  show_imported_keys (gpgme_import_result_t res)
117                              _("Keyserver"), MB_ERR );  {
118              free_if_alloc( rawkey );      gpgme_import_status_t t;
119              return rc;      gpgme_key_t key;
120          }      gpgme_data_t msg;
121      }      gpgme_ctx_t ctx;
122      else if (proto == KSPROTO_FINGER) {      gpgme_error_t err;
123          rc = finger_recvkey (kserver, pattern, rawkey, MAX_KEYSIZE-1);      const char *s;
124          if (rc) {      char *p, *uid;
125              log_box (_("Keyserver"), MB_ERR, _("Finger key import failed: %s\n"),      size_t n=0;
126                       winpt_strerror (rc));  
127              free_if_alloc (rawkey);      if (!res)
128              return rc;          return;
129          }  
130      }      err = gpgme_data_new (&msg);
131      else if( ( rc = kserver_recvkey( kserver, port, kserver_check_keyid( pattern ),      if (err)
132                                       rawkey, MAX_KEYSIZE-1 ) ) ) {          BUG (NULL);
133          hkp_err_box (dlg, kserver, port, rc);      err = gpgme_new (&ctx);
134          free_if_alloc (rawkey);      if (err)
135          return rc;          BUG (NULL);
136      }      if (res->considered > 1) {
137      else {          s = _("WARNING: multiple keys matched request.\n\n");
138          if( !strstr( rawkey, "BEGIN PGP PUBLIC KEY BLOCK" ) ) {          gpgme_data_write (msg, s, strlen (s));
139              msg_box( dlg, _("This is not a valid OpenPGP key."), _("Keyserver"), MB_ERR );      }
140              goto leave;  
141          }      if (res->unchanged == res->considered)
142          ec = gpgme_new( &ctx );          s = _("Key(s) successfully received but nothing was changed.");
143          if( ec )      else
144              BUG( NULL );          s = _("Key(s) sucessfully received and imported.");
145          gpgme_data_new_from_mem( &keydata, rawkey, strlen( rawkey ), 1 );      gpgme_data_write (msg, s, strlen (s));
146          rc = gpgme_op_import( ctx, keydata );      gpgme_data_write (msg, "\n\n", 2);
147          if( rc ) {  
148              msg_box( dlg, gpgme_strerror( (gpgme_error_t)rc ), _("Import"), MB_ERR );      for (t=res->imports; t; t = t->next) {
149              goto leave;          if (!gpgme_get_key (ctx, t->fpr, &key, 0)) {
150          }              s = uid = utf8_to_native (key->uids->uid);
151          import_res = gpgme_op_import_result (ctx);              gpgme_data_write (msg, s, strlen (s));
152      }              gpgme_data_write (msg, "\n", 1);
153                    gpgme_key_release (key);
154      /* if we use the refresh mode, a lot of keys will be fetched and thus only              free (uid);
155         a summarize at the end is presented and not for each key. */          }
156      if (!(flags & KM_KS_REFRESH)) {      }
157          if (import_res->new_user_ids == 0) {      gpgme_data_write (msg, "\0", 1);
158              _snprintf (msg, DIM (msg)-1,      p = gpgme_data_release_and_get_mem (msg, &n);
159                         _("Key '%s' successfully received but nothing was changed."), pattern );      if (p != NULL) {
160              status_box (dlg, msg, _("GnuPG Status"));          msg_box (NULL, p, _("Imported Keys"), MB_INFO);
161              rc = WPTERR_GENERAL;          gpgme_free (p);
162              goto leave;      }
163          }      gpgme_release (ctx);
164          _snprintf (msg, DIM (msg)-1, _("Key '%s' sucessfully received and imported."), pattern);  }
165          status_box (dlg, msg, _("GnuPG Status"));  
166      }  
167        /* Receive a key from the keyserver @kserver (port @port)
168  leave:     with the pattern @pattern.
169      free_if_alloc (rawkey);     Return value: 0 on success. */
170      gpgme_release (ctx);  static int
171      gpgme_data_release (keydata);  keyserver_recv_key (HWND dlg, const char *kserver, WORD port,
172                        const char *pattern, int proto, int flags,
173      return rc;                      char **r_fpr)
174  } /* hkp_recv_key */  {
175        gpgme_ctx_t ctx = NULL;
176        gpgme_data_t keydata = NULL;
177  #define my_iskeychar(a) ( ( (a) >='0' && (a) <= '9' ) || ( (a) >= 'A' && (a) <= 'F' ) )      gpgme_import_result_t import_res = NULL;
178        gpgme_error_t err;
179  static int      char *rawkey = NULL;
180  check_pattern( const char *pattern )      int keylen = 0;
181  {      int rc;
182      int rc = 1;  
183            if (proto == KSPROTO_LDAP) {
184      /* Whitespace are not allowed! */          rc = ldap_recvkey (kserver, pattern, &rawkey, &keylen);
185      if( strchr( pattern, ' ') ) {          if (rc) {
186          rc = WPTERR_GENERAL;              msg_box (dlg, _("LDAP key import failed.\n"
187          goto leave;                              "Please make sure you have an online connection"
188      }                              " and gpgkeys_ldap.exe is installed"),
189                                    _("Keyserver"), MB_ERR);
190      if( (( strstr( pattern, "0x" ) ) && ( strlen( pattern ) == 10 ) )              free_if_alloc (rawkey);
191           || (strstr(pattern, "0x")) && ( strlen( pattern )  == 18 ) ) {              return rc;
192          rc = 0;          }
193          goto leave;      }
194      }      else if (proto == KSPROTO_FINGER) {
195                rc = finger_recvkey (kserver, pattern, &rawkey, &keylen);
196      if( (( my_iskeychar( pattern[0] )) && ( strlen( pattern )  == 8 ) )          if (rc) {
197           || (my_iskeychar(pattern[0])) && ( strlen( pattern ) == 16) ) {              log_box (_("Keyserver"), MB_ERR,
198          rc = 0;                       _("Finger key import failed: %s\n"), winpt_strerror (rc));
199          goto leave;              free_if_alloc (rawkey);
200      }              return rc;
201                }
202      if( ( strchr( pattern, '@' ) ) && ( strlen( pattern ) >= 3 ) ) {      }
203          rc = 0;      else if ((rc = kserver_recvkey (kserver, port,
204          goto leave;                                      kserver_check_keyid (pattern),
205      }                                      &rawkey, &keylen))) {
206                hkp_err_box (dlg, kserver, port, rc);
207  leave:          free_if_alloc (rawkey);
208      return rc;          return rc;
209  } /* check_pattern */      }
210    
211        if (!strstr (rawkey, "BEGIN PGP PUBLIC KEY BLOCK")) {
212  static void          msg_box (dlg, _("This is not a valid OpenPGP key."),
213  set_proxy (HWND dlg)              _("Keyserver"), MB_ERR);
214  {          goto leave;
215      char proxy[384];      }
216      int port = 0;      if (gpgme_new (&ctx))
217                BUG (NULL);
218      strcpy (proxy, "HTTP proxy: ");      gpgme_data_new_from_mem (&keydata, rawkey, strlen (rawkey), 1);
219      if (kserver_get_proxy (&port)) {      err = gpgme_op_import (ctx, keydata);
220          char t[256];      if (err) {
221          const char *http = kserver_get_proxy (&port);          msg_box (dlg, gpgme_strerror (err), _("Import"), MB_ERR);
222          _snprintf (t, sizeof (t) - 1, "\"%s:%d\"", http, port);          goto leave;
223          strcat (proxy, t);      }
224      }      import_res = gpgme_op_import_result (ctx);
225      else      if (import_res && r_fpr)
226          strcat( proxy, "none" );          *r_fpr = m_strdup (import_res->imports->fpr);
227      SetDlgItemText( dlg, IDC_KEYSERVER_PROXY, proxy );      
228  } /* set_proxy */      /* if we use the refresh mode, a lot of keys will be fetched and thus only
229           a summarize at the end is presented and not for each key. */
230        if (!(flags & KM_KS_REFRESH)) {
231  static int inline          show_imported_keys (import_res);
232  kserver_get_pos (listview_ctrl_t lv)          if (import_res && import_res->unchanged == import_res->considered) {
233  {              rc = WPTERR_GENERAL; /* no keys updated. */
234      if (listview_count_items (lv, 0) == 1)              goto leave;
235          return 0;          }
236      return listview_get_curr_pos (lv);      }
237  }  
238    leave:
239        free_if_alloc (rawkey);
240  static u16 inline      gpgme_release (ctx);
241  kserver_get_port (listview_ctrl_t lv)      gpgme_data_release (keydata);
242  {  
243      char buf[16];      return rc;
244    }
245      listview_get_item_text (lv, kserver_get_pos (lv), 3, buf, 15);  
246      return (u16)strtoul (buf, NULL, 10);  
247  }  /* Alias for keyserver_recv_key but without the ability to return
248       the fingerprint of the key. */
249  static void  int
250  load_default_ks (listview_ctrl_t lv)  hkp_recv_key (HWND dlg, const char *kserver, WORD port,
251  {                const char *pattern, int proto, int flags)
252      char * p, buf[192];  {
253      int i;      return keyserver_recv_key (dlg, kserver, port, pattern,
254                                   proto, flags, NULL);
255      p = get_reg_entry_keyserver ("Default");  }
256      if (!p)  
257          return;  int
258      for( i = 0; i < listview_count_items( lv, 0 ); i++ ) {  hkp_recv_key2 (HWND dlg, const char *kserver, WORD port,
259          listview_get_item_text( lv, i, 0, buf, sizeof (buf)-1 );                 const char *pattern, int proto, char **r_fpr)
260          if( !strncmp( p, buf, strlen( p ) ) ) {  {
261              listview_add_sub_item( lv, i, 2, "x" );      return keyserver_recv_key (dlg, kserver, port, pattern,
262              break;                                 proto, 0, r_fpr);
263          }  }
264      }  
265      free_if_alloc (p);  
266  } /* load_default_ks */  /* Check if the given pattern are either a valid
267       email address, a {long, short} keyid or a fingerprint.
268       Return 0 on success. */
269  static int  static int
270  save_default_ks (listview_ctrl_t lv)  check_pattern (const char *pattern)
271  {  {    
272      char buf[192], port[32];      size_t i;
273      int idx, i;    
274        if (strchr (pattern, ' '))
275      idx = listview_get_curr_pos( lv );          return WPTERR_GENERAL; /* do not allow white spaces. */
276      if( idx == -1 ) {      
277          msg_box( NULL, _("Please select one of the servers."), _("Keyserver"), MB_ERR );      if (strchr (pattern, '@') && strlen (pattern) >= 3 &&
278          return -1;          !check_email_address (pattern))
279      }          return 0;
280      listview_get_item_text( lv, idx, 1, buf, sizeof (buf)-1 );  
281      if( *buf != 'H' ) {      if (strstr (pattern, "0x"))
282          msg_box( NULL, _("Only HTTP keyserver can be used."), _("Keyserver"), MB_ERR );          pattern += 2;
283          return -1;      if (strlen (pattern) != 8 &&
284      }          strlen (pattern) != 16 &&
285      for (i = 0; i < listview_count_items( lv, 0 ); i++)          strlen (pattern) != 40)
286          listview_add_sub_item (lv, i, 2, "");          return WPTERR_GENERAL;
287      listview_add_sub_item (lv, idx, 2, "x");  
288      listview_get_item_text (lv, idx, 0, buf, sizeof (buf)-1);      for (i=0; i < strlen (pattern); i++) {
289      set_reg_entry_keyserver ("Default", buf);          if (!isxdigit (pattern[i]))
290      i = kserver_get_port (lv);              return WPTERR_GENERAL;
291      sprintf (port, "%d", i);      }
292      set_reg_entry_keyserver ("Default_Port", port);      return 0;
293      keyserver_set_default (buf, (u16)i);  }
294      return 0;  
295  } /* save_default_ks */  
296    /* Return human readable name for the proxy protocol. */
297    static const char*
298  int  name_from_proto (int proto)
299  keyserver_list_build (listview_ctrl_t *r_lv, HWND hwnd)  {
300  {      const char *s;
301      struct listview_column_s keyserver[] = {  
302          {0, 160, (char *)_("DNS Name")},              switch (proto) {
303          {1,  52, (char *)_("Protocol")},      case PROXY_PROTO_NONE:      s = ""; break;
304          {2,  46, (char *)_("Default")},      case PROXY_PROTO_HTTP:      s = "HTTP"; break;
305          {3,  46, (char *)_("Port")},      case PROXY_PROTO_SOCKS5:    s = "SOCKS5"; break;
306          {0,   0, NULL}      default:                    s = "HTTP"; break;
307      };      }
308      listview_ctrl_t lv;      return s;
309      char buf[32];  }
310      int j;  
311    
312      listview_new (&lv);      static int inline
313      lv->ctrl = hwnd;        kserver_get_pos (listview_ctrl_t lv)
314      for (j=0; keyserver[j].fieldname; j++)  {
315          listview_add_column (lv, &keyserver[j]);              if (listview_count_items (lv, 0) == 1)
316      for (j = 0; j<MAX_KEYSERVERS; j++) {          return 0;
317          if (!server[j].used)      return listview_get_curr_pos (lv);
318              continue;  }
319          listview_add_item (lv, " ");  
320          listview_add_sub_item (lv, 0, 0, server[j].name);  
321          switch (server[j].proto) {  static WORD inline
322          case KSPROTO_HTTP:  kserver_get_port (listview_ctrl_t lv)
323              listview_add_sub_item( lv, 0, 1, "H" ); break;  {
324          case KSPROTO_LDAP:      char buf[16];
325              listview_add_sub_item( lv, 0, 1, "L" ); break;  
326          case KSPROTO_FINGER:      listview_get_item_text (lv, kserver_get_pos (lv), KS_COL_PORT, buf, 15);
327              listview_add_sub_item( lv, 0, 1, "F" ); break;      return (WORD)strtoul (buf, NULL, 10);
328          }  }
329          sprintf (buf, "%d", server[j].port);  
330          listview_add_sub_item (lv, 0, 3, buf);  
331      }  static void
332      load_default_ks (lv);  set_default_ks (listview_ctrl_t lv)
333      if (listview_count_items (lv, 0) == 0) {  {
334          listview_add_item (lv, "");      char *p, buf[200];
335          listview_add_sub_item (lv, 0, 0, DEF_HKP_KEYSERVER);      int i;
336          listview_add_sub_item (lv, 0, 1, "H");  
337      }      p = get_reg_entry_keyserver ("Default");
338      listview_set_ext_style (lv);      if (!p)
339      *r_lv = lv;          return;
340      return 0;      for (i=0; i < listview_count_items (lv, 0); i++) {
341  }          listview_get_item_text (lv, i, KS_COL_NAME, buf, sizeof (buf)-1);      
342            if (!stricmp (buf, p)) {        
343                listview_select_one (lv, i);
344  BOOL CALLBACK              break;
345  keyserver_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)          }
346  {      }
347      static listview_ctrl_t lv = NULL;      free_if_alloc (p);
348      static int lv_idx = 0;  }
349      int rc, proto_nr = 0;  
350      char kserver[128], pattern[128];  
351      char proto[16];      /* Save the selected keyserver from @lv as the default server. */
352      keyserver_ctx ksc;  static int
353        save_default_ks (listview_ctrl_t lv)
354      switch ( msg ) {  {
355      case WM_INITDIALOG:      char buf[192], port[32];
356      #ifndef LANG_DE      int idx, i;  
357          SetWindowText (dlg, _("Keyserver Access"));  
358          SetDlgItemText (dlg, IDC_KEYSERVER_RECV, _("&Receive"));      idx = listview_get_curr_pos (lv);
359          SetDlgItemText (dlg, IDC_KEYSERVER_SEND,      if (idx == -1) {
360                          _("Send key (default is receiving)"));          msg_box (NULL, _("Please select one of the servers."), _("Keyserver"), MB_ERR);
361          SetDlgItemText (dlg, IDC_KEYSERVER_INFO,          return -1;
362                          _("Please enter the key ID or email address you search for"));      }
363          SetDlgItemText (dlg, IDC_KEYSERVER_INDEX, _("&Search"));      listview_get_item_text (lv, idx, KS_COL_NAME, buf, sizeof (buf)-1);
364          SetDlgItemText (dlg, IDC_KEYSERVER_PROXSETT, _("C&hange"));      if (strnicmp (buf, "http", 4) && strnicmp (buf, "hkp", 3)) {
365          SetDlgItemText (dlg, IDC_KEYSERVER_DEFAULT, _("Set &default"));          msg_box (NULL, _("Only HTTP keyserver can be used."),
366      #endif                   _("Keyserver"), MB_ERR);
367          set_proxy (dlg);          return -1;
368          keyserver_list_build (&lv, GetDlgItem (dlg, IDC_KEYSERVER_LIST));      }
369          center_window (dlg, NULL);      set_reg_entry_keyserver ("Default", buf);
370          SetForegroundWindow (dlg);      i = kserver_get_port (lv);
371          return TRUE;      sprintf (port, "%d", i);
372                set_reg_entry_keyserver ("Default_Port", port);
373      case WM_NOTIFY:      keyserver_set_default (buf, (WORD)i);
374          NMHDR *notify;      return 0;
375          notify = (NMHDR *)lparam;  }
376          if( notify && notify->code == NM_CLICK  
377              && notify->idFrom == IDC_KEYSERVER_LIST )  
378              lv_idx = listview_get_curr_pos( lv );  int
379          return TRUE;  keyserver_list_build (listview_ctrl_t *r_lv, HWND hwnd)
380            {
381      case WM_DESTROY:      struct listview_column_s keyserver[] = {
382          if( lv ) {          {0, 180, (char *)_("DNS Name")},
383              listview_release( lv );          {1,  55, (char *)_("Port")},
384              lv = NULL;          {0,   0, NULL}
385          }      };
386          lv_idx = 0;      HICON ico[1];
387          return FALSE;      listview_ctrl_t lv;
388                char buf[32];
389      case WM_SYSCOMMAND:      int j;
390          if( LOWORD( wparam ) == SC_CLOSE )  
391              EndDialog( dlg, TRUE );      ico[0] = LoadIcon (glob_hinst, (LPCTSTR)IDI_COMPUTER);
392          return FALSE;      listview_new (&lv, hwnd);    
393                for (j=0; keyserver[j].fieldname; j++)
394      case WM_COMMAND:          listview_add_column (lv, &keyserver[j]);
395          switch( LOWORD( wparam ) ) {      listview_set_image_list (lv, 16, 16, ico, 1);
396          case IDC_KEYSERVER_PROXSETT:      for (j = 0; j<MAX_KEYSERVERS; j++) {
397              dialog_box_param( glob_hinst, (LPCTSTR)IDD_WINPT_KEYSERVER_PROXY, glob_hwnd,          if (!server[j].used)
398                                keyserver_proxy_dlg_proc, NULL,              continue;
399                                _("Proxy Settings"), IDS_WINPT_KEYSERVER_PROXY );          listview_add_item_image (lv, " ", 0);
400              set_proxy( dlg );          listview_add_sub_item (lv, 0, KS_COL_NAME, server[j].name);
401              return TRUE;          sprintf (buf, "%d", server[j].port);
402                        listview_add_sub_item (lv, 0, KS_COL_PORT, buf);
403          case IDC_KEYSERVER_INDEX:      }
404              if (!lv_idx) {      if (listview_count_items (lv, 0) == 0) {
405                  lv_idx = kserver_get_pos (lv);          listview_add_item (lv, "");
406                  if (lv_idx == -1) {          listview_add_sub_item (lv, 0, KS_COL_NAME, DEF_HKP_KEYSERVER);
407                      msg_box (dlg, _("Please select one of the keyservers."), _("Keyserver"), MB_INFO);      }
408                      return FALSE;      listview_set_ext_style (lv);
409                  }      *r_lv = lv;
410              }      return 0;
411              listview_get_item_text (lv, lv_idx, 1, proto, sizeof (proto)-1);  }
412              if (*proto == 'L') {  
413                  msg_box( dlg, _("This is not implemented yet!"), _("Keyserver"), MB_ERR );  
414                  return FALSE;  static void
415              }  keyserver_remove (listview_ctrl_t lv)
416              listview_get_item_text (lv, lv_idx, 0, kserver, sizeof (kserver)-1);  {
417              if (!GetDlgItemText (dlg, IDC_KEYSERVER_SEARCH, pattern, sizeof (pattern)-1)) {      char name[100];
418                  msg_box (dlg, _("Please enter the search pattern."), _("Keyserver"), MB_INFO);      int pos = listview_get_curr_pos (lv);
419                  return FALSE;      int i;
420              }  
421              ksc.name = kserver;      listview_get_item_text (lv, pos, KS_COL_NAME, name, sizeof (name)-1);
422              ksc.pattern = pattern;      for (i=0; i < MAX_KEYSERVERS; i++) {
423              ksc.port = kserver_get_port (lv);          if (server[i].name && stricmp (server[i].name, name) == 0)
424              DialogBoxParam( glob_hinst, (LPCSTR)IDD_WINPT_HKPSEARCH, dlg,              server[i].used = 0;
425                              hkpsearch_dlg_proc, (LPARAM) &ksc );      }
426              return TRUE;      listview_del_item (lv, pos);
427                }
428          case IDC_KEYSERVER_RECV:  
429              memset (&kserver, 0, sizeof (kserver));  
430              if (!lv_idx) {  static void
431                  lv_idx = kserver_get_pos (lv);  keyserver_edit (listview_ctrl_t lv, keyserver_rec_t ctx)
432                  if (lv_idx == -1) {  {
433                      msg_box( dlg, _("Please select one of the keyservers."), _("Keyserver"), MB_INFO );      char buf[16];
434                      return FALSE;      bool fnd = false;
435                  }      int i;
436              }  
437              listview_get_item_text( lv, lv_idx, 1, proto, sizeof (proto)-1 );      for (i=0; i < MAX_KEYSERVERS; i++) {
438              proto_nr = KSPROTO_HTTP;          if (server[i].name && stricmp (server[i].name, ctx->name) == 0) {
439              if( *proto == 'L' )              fnd = true;
440                  proto_nr = KSPROTO_LDAP;              break;
441              else if( *proto == 'F' )          }
442                  proto_nr = KSPROTO_FINGER;      }
443              listview_get_item_text( lv, lv_idx, 0, kserver, sizeof (kserver)-1 );      if (!fnd)
444              if( !GetDlgItemText( dlg, IDC_KEYSERVER_SEARCH, pattern, sizeof (pattern)-1 ) ) {          return;
445                  msg_box( dlg, _("Please enter the search pattern."), _("Keyserver"), MB_INFO );      server[i].port = ctx->port;
446                  return FALSE;  
447              }      i = listview_get_curr_pos (lv);
448              if( proto_nr == KSPROTO_LDAP && strchr( pattern, '@' ) ) {      sprintf (buf, "%d", ctx->port);
449                  msg_box( dlg, _("Only keyids are allowed."), _("LDAP Keyserver"), MB_INFO );      listview_add_sub_item (lv, i, KS_COL_NAME, ctx->name);
450                  return FALSE;      listview_add_sub_item (lv, i, KS_COL_PORT, buf);
451              }  }
452              else if (proto_nr == KSPROTO_FINGER) {  
453                  if (strchr (pattern, '@') || strchr (pattern, ' ')) {  static void
454                      msg_box (dlg, _("Only enter the name of the user."), _("FINGER Keyserver"), MB_INFO);  keyserver_add (listview_ctrl_t lv, keyserver_rec_t ctx)
455                      return FALSE;  {
456                  }      char buf[16];
457              }      bool fnd = false;
458              else if( check_pattern( pattern ) ) {      int i;
459                  msg_box( dlg, _("Only email addresses or keyids are allowed."), _("HKP Keyserver"), MB_INFO );  
460                  return FALSE;      for (i=0; i < MAX_KEYSERVERS; i++) {
461              }          if (server[i].used == 0) {
462              rc = hkp_recv_key (dlg, kserver, kserver_get_port (lv), pattern, proto_nr, 0);              fnd = true;
463              if (!rc)              break;
464                  keycache_set_reload (1);          }
465              return TRUE;      }
466        if (!fnd) {
467          case IDC_KEYSERVER_DEFAULT:          msg_box (NULL, _("No space for new keyserver entry"),
468              save_default_ks( lv );                   _("Keyserver"), MB_ERR);
469              break;          return;
470                    }
471          case IDCANCEL:      free_if_alloc (server[i].name);
472              EndDialog( dlg, FALSE );      server[i].name = m_strdup (ctx->name);
473              return FALSE;      server[i].port = ctx->port;
474          }      server[i].proto = ctx->proto;
475          break;      server[i].used = 1;
476      }  
477            sprintf (buf, "%d", ctx->port);
478      return FALSE;      listview_add_item (lv, " ");
479  } /* keyserver_dlg_proc */      listview_add_sub_item (lv, 0, KS_COL_NAME, ctx->name);
480        listview_add_sub_item (lv, 0, KS_COL_PORT, buf);
481    }
482    
483    
484    static void
485    fill_keyserv_types (HWND dlg)
486    {
487        HWND h = GetDlgItem (dlg, IDC_KSERVADD_TYPES);
488        combox_add_string (h, _("HKP Keyserver"));
489        combox_add_string (h, _("LDAP Keyserver"));
490        combox_add_string (h, _("Finger Keyserver"));
491        SendMessage (h, CB_SETCURSEL, 0, 0);
492    }
493    
494    
495    /* Dialog box procedure for modify keyservers. */
496    BOOL CALLBACK
497    keyserver_modify_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)
498    {
499        static keyserver_rec_t ctx;
500        char tmp[128];
501    
502        switch (msg) {
503        case WM_INITDIALOG:
504            fill_keyserv_types (dlg);
505            ctx = (keyserver_rec_t)lparam;
506            if (ctx->mode) {
507                SendDlgItemMessage (dlg, IDC_KSERVADD_TYPES, CB_SETCURSEL, ctx->proto, 0);
508                SetDlgItemText (dlg, IDC_KSERVADD_HOST, ctx->name);
509                SetDlgItemInt (dlg, IDC_KSERVADD_PORT, ctx->port, FALSE);
510                EnableWindow (GetDlgItem (dlg, IDC_KSERVADD_HOST), FALSE);
511                EnableWindow (GetDlgItem (dlg, IDC_KSERVADD_TYPES), FALSE);
512            }
513            else
514                SetDlgItemInt (dlg, IDC_KSERVADD_PORT, 11371, FALSE);      
515            SetWindowText (dlg, _("Edit Keyserver"));
516            SetDlgItemText (dlg, IDOK, _("&Add"));
517            SetDlgItemText (dlg, IDCANCEL, _("&Cancel"));
518            SetDlgItemText (dlg, IDC_KSERVADD_TYPEINF, _("Type:"));
519            SetDlgItemText (dlg, IDC_KSERVADD_PORTINF, _("Port:"));
520            SetDlgItemText (dlg, IDC_KSERVADD_HOSTINF, _("Host name:"));
521            SetForegroundWindow (dlg);
522            break;
523    
524        case WM_COMMAND:
525            switch (LOWORD (wparam)) {
526            case IDOK:
527                if (!GetDlgItemText (dlg, IDC_KSERVADD_HOST, tmp, sizeof (tmp)-1)) {
528                    msg_box (dlg, _("Please enter a host name"), _("Keyserver"), MB_ERR);
529                    return FALSE;
530                }      
531                ctx->port = GetDlgItemInt (dlg, IDC_KSERVADD_PORT, NULL, FALSE);
532                if (ctx->port > 65535) {
533                    msg_box (dlg, _("Invalid port, valid numbers are < 65535"), _("Keyserver"), MB_ERR);
534                    return FALSE;
535                }
536                ctx->proto = SendDlgItemMessage (dlg, IDC_KSERVADD_TYPES, CB_GETCURSEL, 0, 0);
537                ctx->cancel = false;
538                ctx->name[0] = '\0';
539                if (!strstr (tmp, "://")) {
540                    switch (ctx->proto) {
541                    case KSPROTO_HTTP: strcpy (ctx->name, "http://"); break;
542                    case KSPROTO_LDAP: strcpy (ctx->name, "ldap://"); break;
543                    case KSPROTO_FINGER:strcpy (ctx->name, "finger://"); break;
544                    }
545                }
546                strcat (ctx->name, tmp);
547                ctx->cancel = false;
548                EndDialog (dlg, TRUE);
549                break;
550    
551            case IDCANCEL:
552                ctx->cancel = true;
553                EndDialog (dlg, FALSE);
554                break;
555            }
556            break;
557        }
558    
559        return FALSE;
560    }
561    
562    /* Dialog box procedure to access keyservers. */
563    BOOL CALLBACK
564    keyserver_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)
565    {
566        static listview_ctrl_t lv = NULL;
567        static int lv_idx = 0;
568        keyserver_ctx ksc;
569        struct keyserver_rec_s edit;
570        char kserver[128], pattern[128];
571        char proto[16], *fpr = NULL;
572        int rc, proto_nr = 0;
573        
574        switch (msg) {
575        case WM_INITDIALOG:
576            SetWindowText (dlg, _("Keyserver Access"));
577            SetDlgItemText (dlg, IDC_KEYSERVER_RECV, _("&Receive"));
578            SetDlgItemText (dlg, IDC_KEYSERVER_SEND,
579                            _("Send key (default is receiving)"));
580            SetDlgItemText (dlg, IDC_KEYSERVER_INFO,
581                            _("Please enter the key ID or email address you search for"));
582            SetDlgItemText (dlg, IDC_KEYSERVER_INDEX, _("&Search"));
583            SetDlgItemText (dlg, IDC_KEYSERVER_PROXSETT, _("C&hange proxy"));
584            SetDlgItemText (dlg, IDC_KEYSERVER_DEFAULT, _("Set &default"));
585            SetDlgItemText (dlg, IDCANCEL, _("&Close"));
586            
587            keyserver_list_build (&lv, GetDlgItem (dlg, IDC_KEYSERVER_LIST));
588            set_default_ks (lv);
589            center_window (dlg, NULL);
590            SetForegroundWindow (dlg);
591            return TRUE;
592            
593        case WM_NOTIFY:
594            NMHDR *notify;
595            notify = (NMHDR *)lparam;
596            if (!notify)
597                break;
598            if (notify->code == NM_CLICK
599                && notify->idFrom == IDC_KEYSERVER_LIST)
600                lv_idx = listview_get_curr_pos (lv);
601            else if (notify->code == NM_RCLICK &&
602                     notify->idFrom == IDC_KEYSERVER_LIST) {
603                POINT p;
604                GetCursorPos (&p);
605                HMENU hm, pop;
606                hm = LoadMenu (glob_hinst, (LPCTSTR)IDR_WINPT_KEYSERVER_CTX);
607                pop = GetSubMenu (hm, 0);
608                set_menu_text (pop, ID_KSERVCTX_ADD, _("&Add"));
609                set_menu_text (pop, ID_KSERVCTX_DEL, _("&Remove"));
610                set_menu_text (pop, ID_KSERVCTX_EDIT, _("&Edit"));
611                TrackPopupMenu (pop, 0, p.x, p.y, 0, dlg, NULL);
612                DestroyMenu (hm);
613                DestroyMenu (pop);
614            }
615            else if (notify->code == LVN_ITEMCHANGED &&
616                     ((LPNMLISTVIEW)lparam)->uNewState) {
617                listview_get_item_text (lv, listview_get_curr_pos (lv),
618                                        KS_COL_NAME, kserver, sizeof (kserver)-1);
619                if (!strnicmp (kserver, "ldap://", 7))
620                    EnableWindow (GetDlgItem (dlg, IDC_KEYSERVER_INDEX), FALSE);
621                else
622                    EnableWindow (GetDlgItem (dlg, IDC_KEYSERVER_INDEX), TRUE);
623            }
624            return TRUE;
625            
626        case WM_DESTROY:
627            if (lv) {
628                listview_release (lv);
629                lv = NULL;
630            }
631            lv_idx = 0;
632            return FALSE;
633            
634        case WM_SYSCOMMAND:
635            if (LOWORD (wparam) == SC_CLOSE)
636                EndDialog (dlg, TRUE);
637            return FALSE;  
638    
639        case WM_COMMAND:
640            switch (LOWORD (wparam)) {
641            case IDC_KEYSERVER_PROXSETT:
642                dialog_box_param (glob_hinst, (LPCTSTR)IDD_WINPT_KEYSERVER_PROXY,
643                                  dlg, keyserver_proxy_dlg_proc, 0,
644                                  _("Proxy Settings"), IDS_WINPT_KEYSERVER_PROXY);
645                return TRUE;
646                
647            case IDC_KEYSERVER_INDEX:
648                if (!lv_idx)
649                    lv_idx = kserver_get_pos (lv);
650                
651                if (!GetDlgItemText (dlg, IDC_KEYSERVER_SEARCH, pattern, sizeof (pattern)-1)) {
652                    msg_box (dlg, _("Please enter the search pattern."),
653                             _("Keyserver"), MB_INFO);
654                    return FALSE;
655                }
656    
657                if (lv_idx != -1) {
658                    listview_get_item_text (lv, lv_idx, KS_COL_NAME,
659                                            kserver, sizeof (kserver)-1);
660                    ksc.name = kserver;
661                    ksc.port = kserver_get_port (lv);
662                }
663                else {
664                    ksc.name = DEF_HKP_KEYSERVER;
665                    ksc.port = HKP_PORT;
666                }
667                ksc.pattern = pattern;
668                DialogBoxParam (glob_hinst, (LPCSTR)IDD_WINPT_HKPSEARCH, dlg,
669                                hkpsearch_dlg_proc, (LPARAM) &ksc);
670                return TRUE;
671                
672            case IDC_KEYSERVER_RECV:
673                memset (&kserver, 0, sizeof (kserver));
674                if (!lv_idx) {
675                    lv_idx = kserver_get_pos (lv);
676                    if (lv_idx == -1) {
677                        msg_box (dlg, _("Please select one of the keyservers."),
678                                _("Keyserver"), MB_INFO);
679                        return FALSE;
680                    }
681                }
682                listview_get_item_text (lv, lv_idx, KS_COL_NAME,
683                                        proto, sizeof (proto)-1);
684                proto_nr = KSPROTO_HTTP;
685                if (!strnicmp  (proto, "ldap", 4))
686                    proto_nr = KSPROTO_LDAP;
687                else if (!strnicmp (proto, "finger", 6))
688                    proto_nr = KSPROTO_FINGER;
689                listview_get_item_text (lv, lv_idx, KS_COL_NAME,
690                                        kserver, sizeof (kserver)-1);
691                if (!GetDlgItemText(dlg, IDC_KEYSERVER_SEARCH,
692                                    pattern, sizeof (pattern)-1)) {
693                    msg_box (dlg, _("Please enter the search pattern."),
694                             _("Keyserver"), MB_INFO);
695                    return FALSE;
696                }
697                if (proto_nr == KSPROTO_LDAP && strchr (pattern, '@')) {
698                    msg_box (dlg, _("Only keyids are allowed."),
699                             _("Keyserver"), MB_INFO);
700                    return FALSE;
701                }
702                else if (proto_nr == KSPROTO_FINGER) {
703                    if (strchr (pattern, '@') || strchr (pattern, ' ')) {
704                        msg_box (dlg, _("Only enter the name of the user."),
705                                 _("Keyserver"), MB_INFO);
706                        return FALSE;
707                    }
708                }
709                else if (check_pattern (pattern)) {
710                    msg_box (dlg, _("Only email addresses or keyids are allowed."),
711                            _("Keyserver"), MB_INFO);
712                    return FALSE;
713                }
714                rc = keyserver_recv_key (dlg, kserver, kserver_get_port (lv),
715                                         pattern, proto_nr, 0,
716                                         &fpr);
717                if (!rc && fpr != NULL) {
718                    keycache_update (0, fpr);
719                    free_if_alloc (fpr);
720                }
721                return TRUE;
722    
723            case IDC_KEYSERVER_DEFAULT:
724                save_default_ks (lv);
725                break;
726    
727            case ID_KSERVCTX_ADD:
728                memset (&edit, 0, sizeof (edit));
729                edit.mode = false;
730                dialog_box_param (glob_hinst, (LPCTSTR)IDD_WINPT_KEYSERVER_ADD, dlg,
731                                    keyserver_modify_dlg_proc,
732                                    (LPARAM)&edit, _("Edit Keyserver"), 0);
733                if (!edit.cancel)
734                    keyserver_add (lv, &edit);
735                return TRUE;
736    
737            case ID_KSERVCTX_EDIT:
738                memset (&edit, 0, sizeof (edit));
739                edit.mode = true;
740                listview_get_item_text (lv, lv_idx, KS_COL_NAME,
741                                        edit.name, sizeof (edit.name)-1);
742                listview_get_item_text (lv, lv_idx, KS_COL_PORT, pattern, 32);
743                edit.port = atoi (pattern);
744                if (!strnicmp (edit.name, "hkp", 3) || !strnicmp (edit.name, "http", 4))
745                    edit.proto = KSPROTO_HTTP;
746                else if (!strnicmp (edit.name, "ldap", 4))
747                    edit.proto = KSPROTO_LDAP;
748                else
749                    edit.proto = KSPROTO_FINGER;
750                dialog_box_param (glob_hinst, (LPCTSTR)IDD_WINPT_KEYSERVER_ADD, dlg,
751                                    keyserver_modify_dlg_proc,
752                                    (LPARAM)&edit, _("Edit Keyserver"), 0);
753                if (!edit.cancel)
754                    keyserver_edit (lv, &edit);
755                break;
756    
757            case ID_KSERVCTX_DEL:
758                keyserver_remove (lv);
759                return TRUE;
760                
761            case IDCANCEL:
762                EndDialog (dlg, FALSE);
763                return FALSE;
764            }
765            break;
766        }
767        
768        return FALSE;
769    }

Legend:
Removed from v.32  
changed lines
  Added in v.225

[email protected]
ViewVC Help
Powered by ViewVC 1.1.26