trunk/Src/wptKeysigDlg.cpp

/* wptKeysigDlg.cpp - Key signature listing
 *      Copyright (C) 2001-2006 Timo Schulz
 *
 * This file is part of WinPT.
 *
 * WinPT is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 * 
 * WinPT is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with WinPT; if not, write to the Free Software Foundation, 
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
 */
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <windows.h>
#include <commctrl.h>
#include <time.h>

#include "resource.h"
#include "wptGPG.h"
#include "wptCommonCtl.h"
#include "wptContext.h" /* for passphrase_s */
#include "wptDlgs.h"
#include "wptW32API.h"
#include "wptNLS.h"
#include "wptKeylist.h"
#include "wptKeyserver.h"
#include "wptUTF8.h"
#include "wptTypes.h"
#include "wptVersion.h"
#include "wptErrors.h"
#include "wptKeyEdit.h"

static subclass_s siglist_proc;


/* Return -1 if the selected item is a signature. */
static int
is_sig (listview_ctrl_t lv, int pos)
{
    char tmpbuf[200];

    if (pos == -1)
        pos = listview_get_curr_pos (lv);
    if (pos == -1)
        return 0;
    listview_get_item_text (lv, pos, SL_COL_UID, tmpbuf, sizeof (tmpbuf)-1);
    if (*tmpbuf == ' ')
        return -1;
    return 0;
}


/* Delete the selected signature from list view @lv. The
   key is given in @key. */
static int
do_delsig (HWND dlg, listview_ctrl_t lv, winpt_key_t key)
{
    gpgme_error_t err;
    GpgKeyEdit *ke;
    char keyid[32];
    int pos, npos, id, is_selfsig=0;
    int signo=0, uidno=0;

    npos = pos = listview_get_curr_pos (lv);
    if (!is_sig (lv, -1))
        return -1;
    listview_get_item_text (lv, pos, SL_COL_KEYID, keyid, sizeof (keyid)-1);
    if (!strncmp (key->keyid, keyid+2, 8))
        is_selfsig = 1;
    
    while (pos > 0 && is_sig (lv, pos)) {
        signo++;
        pos--;
    }
    pos = npos;
    while (npos > 0) {
        if (!is_sig (lv, npos))
            uidno++;
        npos--;
    }
    uidno++;

    /* XXX: do not allow to delete the self signature */
    id = log_box (_("Key Manager"), is_selfsig? MB_WARN_ASK : MB_QUEST_ASK,
                  _("Are you really sure you want to delete this %s from\n\n"
                  "  \"%s\""), is_selfsig? _("self signature") : _("signature"),
                  key->uid);
    if (id == IDNO)
        return 0;

    ke = new GpgKeyEdit (key->keyid);
    if (!ke)
        BUG (NULL);    
    err = ke->delUseridSignature (uidno, signo);
    if (err)
        msg_box (dlg, gpgme_strerror (err), _("Key Manager"), MB_ERR);
    else
        listview_del_item (lv, pos);
    delete ke;
    if (!err)
        key->update = 1;
    return err? -1 : 0;
}


/* Initialize a datepicker control with the time given in @t. */
static void
init_datepicker_from_time (HWND picker, time_t t)
{
    SYSTEMTIME st;
    struct tm *tm;

    tm = localtime (&t);
    memset (&st, 0, sizeof st);
    st.wYear = tm->tm_year+1900;
    st.wMonth = tm->tm_mon+1;
    st.wDay = tm->tm_mday;
    DateTime_SetSystemtime (picker, GDT_VALID, &st);
}


/* Dialog box procedure to display the signature properties. */
BOOL CALLBACK
sigprops_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)
{
    gpgme_key_sig_t ks;
    winpt_key_s issuer;
    char tmpbuf[256];
    static struct {
        unsigned int exportable:1;
        unsigned int expired:1;
        unsigned int nrev:1;
        unsigned int rev:1;
        const char *alg;
        int _class;
    } ctx;
    const char *fmt_templ = _("%s %s signature");
    const char *s;

    switch (msg) {
    case WM_INITDIALOG:
        ks = (gpgme_key_sig_t)lparam;
        if (!ks)
            BUG (0);
        SetDlgItemText (dlg, IDC_SIGPROPS_EXP, _("Exportable"));
        SetDlgItemText (dlg, IDC_SIGPROPS_NREV, _("Non-revocably"));
        SetDlgItemText (dlg, IDC_SIGPROPS_EXPIRED, _("Expired"));
        SetDlgItemText (dlg, IDC_SIGPROPS_REV, _("Revoked"));
        SetDlgItemText (dlg, IDC_SIGPROPS_CLASSINF, _("Class"));
        SetDlgItemText (dlg, IDC_SIGPROPS_EXPSTR, _("Expire date"));
        SetDlgItemText (dlg, IDC_SIGPROPS_CREATSTR, _("Creation date"));
        SetDlgItemText (dlg, IDC_SIGPROPS_KEYINF, _("Issuer key"));
        SetDlgItemText (dlg, IDC_SIGPROPS_KEYIDINF, _("Issuer key ID"));
        SetDlgItemText (dlg, IDC_SIGPROPS_POLICINF, _("Policy URL"));
        SetWindowText (dlg, _("Signature Properties"));
        
        memset (&ctx, 0, sizeof ctx);
        ctx._class = ks->sig_class;
        if (ctx._class == 0)
            ctx._class = 16;    
        ctx._class -= 6;
        if (ks->pubkey_algo == GPGME_PK_DSA)
            ctx.alg = "DSA";
        else if (ks->pubkey_algo == GPGME_PK_RSA)
            ctx.alg = "RSA";
        else
            ctx.alg = "ELG";
        ctx.exportable = ks->exportable;
        _snprintf (tmpbuf, DIM (tmpbuf)-1, fmt_templ,
                   ctx.exportable? _("Exportable") : _("Non-exportable"), 
                   ctx.alg);
        SetDlgItemText (dlg, IDC_SIGPROPS_INFO, tmpbuf);
        
        _snprintf (tmpbuf, DIM (tmpbuf)-1, "0x%s", ks->keyid+8);
        SetDlgItemText (dlg, IDC_SIGPROPS_KEYID, tmpbuf);
        SetDlgItemInt (dlg, IDC_SIGPROPS_CLASS, ctx._class, FALSE);
        if (ctx.exportable)
            CheckDlgButton (dlg, IDC_SIGPROPS_EXP, BST_CHECKED);
        memset (&issuer, 0, sizeof (issuer));
        if (!winpt_get_pubkey (ks->keyid+8, &issuer))
            s = issuer.ext->uids->uid;
        else
            s = _("  user ID not found");
        SetDlgItemText (dlg, IDC_SIGPROPS_ISSUER, s);

        init_datepicker_from_time (GetDlgItem (dlg, IDC_SIGPROPS_CREATDATE),
                                    ks->timestamp);
        if (ks->expires == 0) {
            ShowWindow (GetDlgItem (dlg, IDC_SIGPROPS_EXPSTR), SW_HIDE);
            ShowWindow (GetDlgItem (dlg, IDC_SIGPROPS_EXPDATE), SW_HIDE);
        }
        else {
            init_datepicker_from_time (GetDlgItem (dlg, IDC_SIGPROPS_EXPDATE),
                                        ks->expires);
            if (time (NULL) > ks->expires)
                ctx.expired = 1;
            if (ctx.expired)
                CheckDlgButton (dlg, IDC_SIGPROPS_EXPIRED, BST_CHECKED);
        }
        if (ks->notations && !ks->notations->name && ks->notations->value)
            SetDlgItemText (dlg, IDC_SIGPROPS_POLIC, ks->notations->value);

        SetDlgItemText (dlg, IDC_SIGPROPS_EXP, _("Exportable"));
        SetDlgItemText (dlg, IDC_SIGPROPS_NREV, _("Non-revocably"));
        SetDlgItemText (dlg, IDC_SIGPROPS_REV, _("Revoked"));
        SetDlgItemText (dlg, IDC_SIGPROPS_EXPIRED, _("Expired"));
        SetWindowText (dlg, _("Signature Properties"));
        SetForegroundWindow (dlg);
        center_window (dlg, NULL);
        return TRUE;

    case WM_COMMAND:
        if (HIWORD (wparam) == BN_CLICKED) {
            /* Code to prevent the user changes the check buttons. */
            switch (LOWORD (wparam)) {
            case IDC_SIGPROPS_EXP:
                CheckDlgButton (dlg, IDC_SIGPROPS_EXP, 
                                 ctx.exportable? BST_CHECKED : BST_UNCHECKED);
                return TRUE;

            case IDC_SIGPROPS_EXPIRED:
                CheckDlgButton (dlg, IDC_SIGPROPS_EXPIRED,
                                ctx.expired? BST_CHECKED : BST_UNCHECKED);
                return TRUE;

            case IDC_SIGPROPS_REV:
                CheckDlgButton (dlg, IDC_SIGPROPS_REV,
                                ctx.rev? BST_CHECKED : BST_UNCHECKED);
                return TRUE;

            case IDC_SIGPROPS_NREV:
                CheckDlgButton (dlg, IDC_SIGPROPS_NREV,
                                ctx.nrev? BST_CHECKED : BST_UNCHECKED);
                return TRUE;
            }
        }

        switch (LOWORD (wparam)) {
        case IDOK:
            EndDialog (dlg, TRUE);
            break;

        case IDCANCEL:
            EndDialog (dlg, FALSE);
            break;
        }
    }

    return FALSE;
}


/* Subclass window procedure for the list view. */
static BOOL CALLBACK
subclass_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)
{
    listview_ctrl_t lv;
    winpt_key_t key;
    gpgme_key_sig_t ks;

    switch (msg) {
    case WM_KEYUP:
        int virt_key = (int)wparam;
        key = (winpt_key_t)siglist_proc.opaque;
        lv = key->callback.ctl;
        if (virt_key == VK_SPACE) {
            if (is_sig (lv, -1)) {
                ks = (gpgme_key_sig_t)listview_get_item2 (lv, listview_get_curr_pos (lv));
                DialogBoxParam (glob_hinst, (LPCTSTR)IDD_WINPT_SIGPROPS, dlg,
                                sigprops_dlg_proc, (LPARAM)ks);
            }
        }
        else if (virt_key == VK_DELETE)
            do_delsig (dlg, lv, key);
        break;
    }
    return CallWindowProc (siglist_proc.old, dlg, msg, wparam, lparam);
}


/* Return 1 if the list view @lv contains non-available keys. */
static int
check_for_missing_keys (listview_ctrl_t lv)
{
    int i, n;
    char id[128];
    
    n = listview_count_items (lv, 0);
    for (i = 0; i < n; i++) {
        listview_get_item_text (lv, i, SL_COL_VALID, id, sizeof (id) - 1);
        if (!strncmp (id, "NOKEY", 5))
            return 1;
    }
    
    return 0;
}


/* Receive all missing keys marked in the list @lv. */
static int
recv_missing_keys (HWND dlg, listview_ctrl_t lv)
{
    char id[128], keyid[18+1];
    int i, n, cnt=0;

    i = msg_box (dlg, _("Really receive all missing keys?"),
                 _("Key Manager"), MB_YESNO|MB_INFO);
    if (i == IDNO)
        return 0;
    
    n = listview_count_items (lv, 0);
    for (i = 0; i < n; i++) {
        listview_get_item_text (lv, i, SL_COL_VALID, id, sizeof (id) - 1);
        if (!strncmp (id, "NOKEY", 5)) {
            listview_get_item_text (lv, i, SL_COL_KEYID,
                                    keyid, sizeof (keyid) -1);
            if (!hkp_recv_key (dlg, default_keyserver,
                               default_keyserver_port, keyid, 0, 0)) {
                keycache_update (0, keyid);
                cnt++;
            }
            else
                break;
        }
    }
    return cnt;
}


/* Create a mini popup with available choices. */
static void
do_create_popup (HWND dlg)
{
    HMENU hm, sm;
    POINT p;

    GetCursorPos (&p);
    hm = LoadMenu (glob_hinst, MAKEINTRESOURCE (IDR_WINPT_KEYSIG_CTX));
    sm = GetSubMenu (hm, 0);
    set_menu_text (sm, ID_SIGCTX_PROPS, _("Signature &Properties"));
    set_menu_text (sm, ID_SIGCTX_KEYPROPS, _("Signing &Key Properties"));
    TrackPopupMenu (sm, TPM_RIGHTALIGN, p.x, p.y, 0, dlg, NULL);
    DestroyMenu (hm);
    DestroyMenu (sm);
}


/* Fetch a single key and extract the keyid from the listview
   entry at the pos @idx. */
static int
recv_single_key (HWND dlg, listview_ctrl_t lv, int idx)
{
    char keyid[32];
    int rc;

    listview_get_item_text (lv, idx, SL_COL_KEYID, keyid, DIM (keyid)-1);       
    rc = hkp_recv_key (dlg, default_keyserver, 
                       default_keyserver_port, keyid, 0, 0);
    if (!rc)
        keycache_update (0, keyid);
    return rc;
}


/* Load the key property dialog with the selected key from @lv. */
static void
do_load_keyprops (HWND dlg, listview_ctrl_t lv)
{
    winpt_key_s k;
    char keyid[32] = {0};
    char status[64] = {0}, creation[64] = {0};
    int n = listview_get_curr_pos (lv);

    listview_get_item_text (lv, n, SL_COL_VALID, status, DIM (status)-1);
    listview_get_item_text (lv, n, SL_COL_CREATE, creation, DIM (creation)-1);
    listview_get_item_text (lv, n, SL_COL_KEYID, keyid, DIM (keyid)-1);
    if (!strcmp (status, "NOKEY")) {
        int id = msg_box (dlg, _("Key not found in keyring, do you want to fetch it from the keyserver?"),
                          _("Key Manager"), MB_QUEST_ASK);
        if (id == IDNO)
            return;
        if (recv_single_key (dlg, lv, n))               
            return;
    }
    
    memset (&k, 0, sizeof k);
    if ((strlen (keyid) < 3 || winpt_get_pubkey (keyid, &k))) {
        if (strlen (creation) > 0)
            msg_box (dlg, _("Key not found in keyring."), _("Key Manager"), MB_INFO);
        return;
    }
    DialogBoxParam (glob_hinst, (LPCTSTR)IDD_WINPT_KEYPROPS, dlg,
                    keyprops_dlg_proc, (LPARAM)&k);
}


/* Dialog box procedure to list signatures. */
BOOL CALLBACK
keysig_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)
{
    static listview_ctrl_t lv = NULL;
    static struct winpt_key_s *k;
    gpgme_key_sig_t ks;
    HWND sl;
    char inf[384];
    int idx = 0;    
    
    switch (msg) {
    case WM_INITDIALOG:
        k = (winpt_key_t) lparam;
        if (!k)
            BUG (0);
        if (k->uid)
            _snprintf (inf, DIM (inf)-1, _("Signature List for \"%s\""), k->uid);
        SetWindowText (dlg, inf);
        SetDlgItemText (dlg, IDC_KEYSIG_RECVKEY, _("&Receive Key"));
        SetDlgItemText (dlg, IDC_KEYSIG_SIGPROPS, _("&Properties"));

        lv = siglist_load (GetDlgItem (dlg, IDC_KEYSIG_LIST), k->keyid);
        if (!check_for_missing_keys (lv))
            EnableWindow (GetDlgItem (dlg, IDC_KEYSIG_RECVKEY), FALSE);
        EnableWindow (GetDlgItem (dlg, IDC_KEYSIG_SIGPROPS), FALSE);
        k->callback.ctl = lv;
        sl = GetDlgItem (dlg, IDC_KEYSIG_LIST);
        siglist_proc.dlg = dlg;
        siglist_proc.opaque = k;
        siglist_proc.current = (WNDPROC)subclass_dlg_proc;
        siglist_proc.old = (WNDPROC)GetWindowLong (sl, GWL_WNDPROC);
        if (siglist_proc.old) {
            if (!SetWindowLong (sl, GWL_WNDPROC, (LONG)siglist_proc.current))  {
                msg_box (dlg, "Could not set keylist window procedure.",
                         _("Key Manager"), MB_ERR);
                BUG (0);
            }
        }
        SetForegroundWindow (dlg);
        center_window (dlg, NULL);
        return TRUE;
        
    case WM_DESTROY:
        if (lv) {
            siglist_delete (lv);
            lv = NULL;
        }
        return FALSE;

    case WM_NOTIFY:
        NMHDR *notify;
        
        notify = (NMHDR *)lparam;
        if (!notify)
            return FALSE;
        if (notify->code == NM_DBLCLK &&
            notify->idFrom == IDC_KEYSIG_LIST)
            do_load_keyprops (dlg, lv);
        if (notify->code == NM_RCLICK &&
            notify->idFrom == IDC_KEYSIG_LIST &&
            is_sig (lv, -1))
            do_create_popup (dlg);
        if (notify->code == LVN_ITEMCHANGED &&
            ((LPNMLISTVIEW)lparam)->uNewState) {
            idx = listview_get_curr_pos (lv);
            listview_get_item_text (lv, idx, SL_COL_VALID, inf, DIM (inf)-1);
            EnableWindow (GetDlgItem (dlg, IDC_KEYSIG_RECVKEY),
                          strcmp (inf, "NOKEY") == 0? TRUE: FALSE);
            EnableWindow (GetDlgItem (dlg, IDC_KEYSIG_SIGPROPS),
                          is_sig (lv, -1)? TRUE : FALSE);
        }
        if (notify->code == LVN_COLUMNCLICK) {
            NMLISTVIEW *nft = (LPNMLISTVIEW) lparam;
            int sortby = 0;
            switch (nft->iSubItem) {
            //case 0:  sortby = KEY_SORT_USERID; break;
            case 1: sortby = KEY_SORT_VALIDITY; break;
            case 2: sortby = SIG_SORT_CLASS; break;
            case 3: sortby = KEY_SORT_CREATED; break;
            case 4: sortby = KEY_SORT_KEYID; break;
            case 5: sortby = SIG_SORT_EXPIRE; break;
            case 6: sortby = KEY_SORT_ALGO; break;
            default: return TRUE;
            }
            siglist_sort (lv, sortby);
        }
        break;
        
    case WM_COMMAND:
        switch (LOWORD (wparam)) {
        case ID_SIGCTX_KEYPROPS:
            do_load_keyprops (dlg, lv);
            return TRUE;

        case ID_SIGCTX_PROPS:
            if (is_sig (lv, -1)) {
                ks = (gpgme_key_sig_t)listview_get_item2 (lv, listview_get_curr_pos (lv));
                DialogBoxParam (glob_hinst, (LPCTSTR)IDD_WINPT_SIGPROPS, dlg,
                                sigprops_dlg_proc, (LPARAM)ks);
            }
            return TRUE;

        case IDC_KEYSIG_RECVKEY:
            idx = listview_get_curr_pos (lv);
            if (idx == -1)
                recv_missing_keys (dlg, lv);
            else
                recv_single_key (dlg, lv, idx);
            return TRUE;

        case IDC_KEYSIG_SIGPROPS:
            if (is_sig (lv, -1)) {
                ks = ks = (gpgme_key_sig_t)listview_get_item2 (lv, listview_get_curr_pos (lv));
                DialogBoxParam (glob_hinst, (LPCTSTR)IDD_WINPT_SIGPROPS, dlg,
                                sigprops_dlg_proc, (LPARAM)ks);
            }
            return TRUE;
            
        case IDCANCEL:
            EndDialog (dlg, FALSE);
            return TRUE;

        case IDOK:
            EndDialog (dlg, TRUE);
            return TRUE;
        }
        break;
    }
    return FALSE;
}
1	werner	36	/* wptKeysigDlg.cpp - Key signature listing
2	twoaday	139	* Copyright (C) 2001-2006 Timo Schulz
3	werner	36	*
4			* This file is part of WinPT.
5			*
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
8			* the Free Software Foundation; either version 2 of the License, or
9			* (at your option) any later version.
10			*
11			* WinPT is distributed in the hope that it will be useful,
12			* but WITHOUT ANY WARRANTY; without even the implied warranty of
13			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14			* GNU General Public License for more details.
15			*
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,
18			* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19			*/
20	werner	42	#ifdef HAVE_CONFIG_H
21			#include <config.h>
22			#endif
23
24	werner	36	#include <windows.h>
25			#include <commctrl.h>
26			#include <time.h>
27
28	werner	47	#include "resource.h"
29	werner	36	#include "wptGPG.h"
30			#include "wptCommonCtl.h"
31			#include "wptContext.h" /* for passphrase_s */
32			#include "wptDlgs.h"
33			#include "wptW32API.h"
34			#include "wptNLS.h"
35	werner	47	#include "wptKeylist.h"
36	werner	36	#include "wptKeyserver.h"
37			#include "wptUTF8.h"
38			#include "wptTypes.h"
39			#include "wptVersion.h"
40			#include "wptErrors.h"
41			#include "wptKeyEdit.h"
42
43			static subclass_s siglist_proc;
44
45
46	twoaday	225	/* Return -1 if the selected item is a signature. */
47	werner	36	static int
48			is_sig (listview_ctrl_t lv, int pos)
49			{
50	twoaday	128	char tmpbuf[200];
51	werner	36
52			if (pos == -1)
53			pos = listview_get_curr_pos (lv);
54			if (pos == -1)
55			return 0;
56	twoaday	139	listview_get_item_text (lv, pos, SL_COL_UID, tmpbuf, sizeof (tmpbuf)-1);
57	werner	36	if (*tmpbuf == ' ')
58			return -1;
59			return 0;
60	twoaday	32	}
61	werner	36
62
63			/* Delete the selected signature from list view @lv. The
64			key is given in @key. */
65			static int
66			do_delsig (HWND dlg, listview_ctrl_t lv, winpt_key_t key)
67			{
68	twoaday	150	gpgme_error_t err;
69			GpgKeyEdit *ke;
70			char keyid[32];
71			int pos, npos, id, is_selfsig=0;
72	werner	36	int signo=0, uidno=0;
73
74			npos = pos = listview_get_curr_pos (lv);
75			if (!is_sig (lv, -1))
76			return -1;
77	twoaday	150	listview_get_item_text (lv, pos, SL_COL_KEYID, keyid, sizeof (keyid)-1);
78			if (!strncmp (key->keyid, keyid+2, 8))
79			is_selfsig = 1;
80
81	werner	36	while (pos > 0 && is_sig (lv, pos)) {
82			signo++;
83			pos--;
84			}
85			pos = npos;
86			while (npos > 0) {
87			if (!is_sig (lv, npos))
88			uidno++;
89			npos--;
90			}
91			uidno++;
92
93			/* XXX: do not allow to delete the self signature */
94	twoaday	150	id = log_box (_("Key Manager"), is_selfsig? MB_WARN_ASK : MB_QUEST_ASK,
95			_("Are you really sure you want to delete this %s from\n\n"
96			" \"%s\""), is_selfsig? _("self signature") : _("signature"),
97			key->uid);
98	werner	36	if (id == IDNO)
99			return 0;
100
101			ke = new GpgKeyEdit (key->keyid);
102			if (!ke)
103			BUG (NULL);
104			err = ke->delUseridSignature (uidno, signo);
105			if (err)
106			msg_box (dlg, gpgme_strerror (err), _("Key Manager"), MB_ERR);
107			else
108			listview_del_item (lv, pos);
109			delete ke;
110	twoaday	150	if (!err)
111			key->update = 1;
112	werner	36	return err? -1 : 0;
113			}
114
115
116	twoaday	255	/* Initialize a datepicker control with the time given in @t. */
117			static void
118			init_datepicker_from_time (HWND picker, time_t t)
119			{
120			SYSTEMTIME st;
121			struct tm *tm;
122
123			tm = localtime (&t);
124			memset (&st, 0, sizeof st);
125			st.wYear = tm->tm_year+1900;
126			st.wMonth = tm->tm_mon+1;
127			st.wDay = tm->tm_mday;
128			DateTime_SetSystemtime (picker, GDT_VALID, &st);
129			}
130
131
132	werner	36	/* Dialog box procedure to display the signature properties. */
133	twoaday	176	BOOL CALLBACK
134	werner	36	sigprops_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)
135			{
136	twoaday	207	gpgme_key_sig_t ks;
137	twoaday	208	winpt_key_s issuer;
138	werner	36	char tmpbuf[256];
139	twoaday	208	static struct {
140	werner	36	unsigned int exportable:1;
141			unsigned int expired:1;
142			unsigned int nrev:1;
143			unsigned int rev:1;
144	twoaday	176	const char *alg;
145	werner	36	int _class;
146			} ctx;
147			const char *fmt_templ = _("%s %s signature");
148	twoaday	208	const char *s;
149	werner	36
150			switch (msg) {
151			case WM_INITDIALOG:
152	twoaday	225	ks = (gpgme_key_sig_t)lparam;
153			if (!ks)
154			BUG (0);
155	twoaday	88	SetDlgItemText (dlg, IDC_SIGPROPS_EXP, _("Exportable"));
156			SetDlgItemText (dlg, IDC_SIGPROPS_NREV, _("Non-revocably"));
157			SetDlgItemText (dlg, IDC_SIGPROPS_EXPIRED, _("Expired"));
158			SetDlgItemText (dlg, IDC_SIGPROPS_REV, _("Revoked"));
159			SetDlgItemText (dlg, IDC_SIGPROPS_CLASSINF, _("Class"));
160			SetDlgItemText (dlg, IDC_SIGPROPS_EXPSTR, _("Expire date"));
161	twoaday	255	SetDlgItemText (dlg, IDC_SIGPROPS_CREATSTR, _("Creation date"));
162	twoaday	88	SetDlgItemText (dlg, IDC_SIGPROPS_KEYINF, _("Issuer key"));
163			SetDlgItemText (dlg, IDC_SIGPROPS_KEYIDINF, _("Issuer key ID"));
164	twoaday	207	SetDlgItemText (dlg, IDC_SIGPROPS_POLICINF, _("Policy URL"));
165	twoaday	225	SetWindowText (dlg, _("Signature Properties"));
166
167	werner	36	memset (&ctx, 0, sizeof ctx);
168	twoaday	176	ctx._class = ks->sig_class;
169	werner	36	if (ctx._class == 0)
170	twoaday	176	ctx._class = 16;
171			ctx._class -= 6;
172			if (ks->pubkey_algo == GPGME_PK_DSA)
173	werner	36	ctx.alg = "DSA";
174	twoaday	176	else if (ks->pubkey_algo == GPGME_PK_RSA)
175	werner	36	ctx.alg = "RSA";
176			else
177			ctx.alg = "ELG";
178	twoaday	176	ctx.exportable = ks->exportable;
179	werner	36	_snprintf (tmpbuf, DIM (tmpbuf)-1, fmt_templ,
180	twoaday	225	ctx.exportable? _("Exportable") : _("Non-exportable"),
181			ctx.alg);
182	werner	36	SetDlgItemText (dlg, IDC_SIGPROPS_INFO, tmpbuf);
183	twoaday	176
184	twoaday	208	_snprintf (tmpbuf, DIM (tmpbuf)-1, "0x%s", ks->keyid+8);
185			SetDlgItemText (dlg, IDC_SIGPROPS_KEYID, tmpbuf);
186	werner	36	SetDlgItemInt (dlg, IDC_SIGPROPS_CLASS, ctx._class, FALSE);
187			if (ctx.exportable)
188			CheckDlgButton (dlg, IDC_SIGPROPS_EXP, BST_CHECKED);
189	twoaday	208	memset (&issuer, 0, sizeof (issuer));
190			if (!winpt_get_pubkey (ks->keyid+8, &issuer))
191			s = issuer.ext->uids->uid;
192	twoaday	176	else
193	twoaday	208	s = _(" user ID not found");
194	twoaday	205	SetDlgItemText (dlg, IDC_SIGPROPS_ISSUER, s);
195	twoaday	255
196			init_datepicker_from_time (GetDlgItem (dlg, IDC_SIGPROPS_CREATDATE),
197			ks->timestamp);
198	twoaday	176	if (ks->expires == 0) {
199	werner	36	ShowWindow (GetDlgItem (dlg, IDC_SIGPROPS_EXPSTR), SW_HIDE);
200			ShowWindow (GetDlgItem (dlg, IDC_SIGPROPS_EXPDATE), SW_HIDE);
201			}
202			else {
203	twoaday	255	init_datepicker_from_time (GetDlgItem (dlg, IDC_SIGPROPS_EXPDATE),
204			ks->expires);
205			if (time (NULL) > ks->expires)
206	werner	36	ctx.expired = 1;
207			if (ctx.expired)
208			CheckDlgButton (dlg, IDC_SIGPROPS_EXPIRED, BST_CHECKED);
209			}
210	twoaday	207	if (ks->notations && !ks->notations->name && ks->notations->value)
211			SetDlgItemText (dlg, IDC_SIGPROPS_POLIC, ks->notations->value);
212
213	werner	36	SetDlgItemText (dlg, IDC_SIGPROPS_EXP, _("Exportable"));
214			SetDlgItemText (dlg, IDC_SIGPROPS_NREV, _("Non-revocably"));
215			SetDlgItemText (dlg, IDC_SIGPROPS_REV, _("Revoked"));
216			SetDlgItemText (dlg, IDC_SIGPROPS_EXPIRED, _("Expired"));
217			SetWindowText (dlg, _("Signature Properties"));
218			SetForegroundWindow (dlg);
219			center_window (dlg, NULL);
220			return TRUE;
221
222			case WM_COMMAND:
223	twoaday	208	if (HIWORD (wparam) == BN_CLICKED) {
224	twoaday	225	/* Code to prevent the user changes the check buttons. */
225	twoaday	208	switch (LOWORD (wparam)) {
226			case IDC_SIGPROPS_EXP:
227			CheckDlgButton (dlg, IDC_SIGPROPS_EXP,
228			ctx.exportable? BST_CHECKED : BST_UNCHECKED);
229			return TRUE;
230
231			case IDC_SIGPROPS_EXPIRED:
232			CheckDlgButton (dlg, IDC_SIGPROPS_EXPIRED,
233			ctx.expired? BST_CHECKED : BST_UNCHECKED);
234			return TRUE;
235
236			case IDC_SIGPROPS_REV:
237			CheckDlgButton (dlg, IDC_SIGPROPS_REV,
238			ctx.rev? BST_CHECKED : BST_UNCHECKED);
239			return TRUE;
240
241			case IDC_SIGPROPS_NREV:
242			CheckDlgButton (dlg, IDC_SIGPROPS_NREV,
243			ctx.nrev? BST_CHECKED : BST_UNCHECKED);
244			return TRUE;
245			}
246			}
247
248	werner	36	switch (LOWORD (wparam)) {
249			case IDOK:
250			EndDialog (dlg, TRUE);
251			break;
252	twoaday	176
253			case IDCANCEL:
254			EndDialog (dlg, FALSE);
255			break;
256	werner	36	}
257			}
258
259			return FALSE;
260			}
261
262
263	twoaday	225	/* Subclass window procedure for the list view. */
264	werner	36	static BOOL CALLBACK
265			subclass_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)
266			{
267			listview_ctrl_t lv;
268			winpt_key_t key;
269	twoaday	176	gpgme_key_sig_t ks;
270	werner	36
271			switch (msg) {
272			case WM_KEYUP:
273			int virt_key = (int)wparam;
274			key = (winpt_key_t)siglist_proc.opaque;
275			lv = key->callback.ctl;
276			if (virt_key == VK_SPACE) {
277	twoaday	176	if (is_sig (lv, -1)) {
278			ks = (gpgme_key_sig_t)listview_get_item2 (lv, listview_get_curr_pos (lv));
279	werner	36	DialogBoxParam (glob_hinst, (LPCTSTR)IDD_WINPT_SIGPROPS, dlg,
280	twoaday	176	sigprops_dlg_proc, (LPARAM)ks);
281			}
282	werner	36	}
283			else if (virt_key == VK_DELETE)
284			do_delsig (dlg, lv, key);
285			break;
286			}
287			return CallWindowProc (siglist_proc.old, dlg, msg, wparam, lparam);
288			}
289
290
291			/* Return 1 if the list view @lv contains non-available keys. */
292			static int
293			check_for_missing_keys (listview_ctrl_t lv)
294			{
295			int i, n;
296			char id[128];
297
298	twoaday	225	n = listview_count_items (lv, 0);
299			for (i = 0; i < n; i++) {
300	twoaday	139	listview_get_item_text (lv, i, SL_COL_VALID, id, sizeof (id) - 1);
301			if (!strncmp (id, "NOKEY", 5))
302	werner	36	return 1;
303			}
304
305			return 0;
306			}
307
308
309			/* Receive all missing keys marked in the list @lv. */
310	twoaday	150	static int
311	werner	36	recv_missing_keys (HWND dlg, listview_ctrl_t lv)
312			{
313	twoaday	150	char id[128], keyid[18+1];
314	twoaday	139	int i, n, cnt=0;
315
316			i = msg_box (dlg, _("Really receive all missing keys?"),
317			_("Key Manager"), MB_YESNO\|MB_INFO);
318			if (i == IDNO)
319	twoaday	150	return 0;
320	werner	36
321			n = listview_count_items (lv, 0);
322	twoaday	139	for (i = 0; i < n; i++) {
323			listview_get_item_text (lv, i, SL_COL_VALID, id, sizeof (id) - 1);
324			if (!strncmp (id, "NOKEY", 5)) {
325	twoaday	225	listview_get_item_text (lv, i, SL_COL_KEYID,
326	twoaday	139	keyid, sizeof (keyid) -1);
327			if (!hkp_recv_key (dlg, default_keyserver,
328	twoaday	150	default_keyserver_port, keyid, 0, 0)) {
329			keycache_update (0, keyid);
330	twoaday	139	cnt++;
331	twoaday	150	}
332	twoaday	139	else
333	werner	36	break;
334			}
335			}
336	twoaday	150	return cnt;
337	werner	36	}
338
339
340			/* Create a mini popup with available choices. */
341			static void
342			do_create_popup (HWND dlg)
343			{
344			HMENU hm, sm;
345			POINT p;
346
347			GetCursorPos (&p);
348			hm = LoadMenu (glob_hinst, MAKEINTRESOURCE (IDR_WINPT_KEYSIG_CTX));
349			sm = GetSubMenu (hm, 0);
350			set_menu_text (sm, ID_SIGCTX_PROPS, _("Signature &Properties"));
351			set_menu_text (sm, ID_SIGCTX_KEYPROPS, _("Signing &Key Properties"));
352			TrackPopupMenu (sm, TPM_RIGHTALIGN, p.x, p.y, 0, dlg, NULL);
353			DestroyMenu (hm);
354			DestroyMenu (sm);
355			}
356
357
358	twoaday	139	/* Fetch a single key and extract the keyid from the listview
359			entry at the pos @idx. */
360			static int
361			recv_single_key (HWND dlg, listview_ctrl_t lv, int idx)
362			{
363			char keyid[32];
364			int rc;
365
366			listview_get_item_text (lv, idx, SL_COL_KEYID, keyid, DIM (keyid)-1);
367			rc = hkp_recv_key (dlg, default_keyserver,
368			default_keyserver_port, keyid, 0, 0);
369			if (!rc)
370			keycache_update (0, keyid);
371			return rc;
372			}
373
374
375	werner	36	/* Load the key property dialog with the selected key from @lv. */
376			static void
377			do_load_keyprops (HWND dlg, listview_ctrl_t lv)
378			{
379			winpt_key_s k;
380			char keyid[32] = {0};
381			char status[64] = {0}, creation[64] = {0};
382			int n = listview_get_curr_pos (lv);
383
384	twoaday	139	listview_get_item_text (lv, n, SL_COL_VALID, status, DIM (status)-1);
385			listview_get_item_text (lv, n, SL_COL_CREATE, creation, DIM (creation)-1);
386			listview_get_item_text (lv, n, SL_COL_KEYID, keyid, DIM (keyid)-1);
387	werner	36	if (!strcmp (status, "NOKEY")) {
388	twoaday	139	int id = msg_box (dlg, _("Key not found in keyring, do you want to fetch it from the keyserver?"),
389	twoaday	150	_("Key Manager"), MB_QUEST_ASK);
390	twoaday	139	if (id == IDNO)
391			return;
392			if (recv_single_key (dlg, lv, n))
393			return;
394	werner	36	}
395
396	twoaday	212	memset (&k, 0, sizeof k);
397			if ((strlen (keyid) < 3 \|\| winpt_get_pubkey (keyid, &k))) {
398	werner	36	if (strlen (creation) > 0)
399			msg_box (dlg, _("Key not found in keyring."), _("Key Manager"), MB_INFO);
400			return;
401			}
402			DialogBoxParam (glob_hinst, (LPCTSTR)IDD_WINPT_KEYPROPS, dlg,
403			keyprops_dlg_proc, (LPARAM)&k);
404			}
405
406
407			/* Dialog box procedure to list signatures. */
408			BOOL CALLBACK
409			keysig_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)
410			{
411			static listview_ctrl_t lv = NULL;
412			static struct winpt_key_s *k;
413	twoaday	176	gpgme_key_sig_t ks;
414			HWND sl;
415	twoaday	204	char inf[384];
416	twoaday	176	int idx = 0;
417	werner	36
418	twoaday	139	switch (msg) {
419	werner	36	case WM_INITDIALOG:
420			k = (winpt_key_t) lparam;
421			if (!k)
422			BUG (0);
423	twoaday	208	if (k->uid)
424			_snprintf (inf, DIM (inf)-1, _("Signature List for \"%s\""), k->uid);
425	twoaday	205	SetWindowText (dlg, inf);
426	werner	36	SetDlgItemText (dlg, IDC_KEYSIG_RECVKEY, _("&Receive Key"));
427			SetDlgItemText (dlg, IDC_KEYSIG_SIGPROPS, _("&Properties"));
428	twoaday	128
429	werner	36	lv = siglist_load (GetDlgItem (dlg, IDC_KEYSIG_LIST), k->keyid);
430			if (!check_for_missing_keys (lv))
431	twoaday	41	EnableWindow (GetDlgItem (dlg, IDC_KEYSIG_RECVKEY), FALSE);
432	twoaday	129	EnableWindow (GetDlgItem (dlg, IDC_KEYSIG_SIGPROPS), FALSE);
433	werner	36	k->callback.ctl = lv;
434			sl = GetDlgItem (dlg, IDC_KEYSIG_LIST);
435			siglist_proc.dlg = dlg;
436			siglist_proc.opaque = k;
437			siglist_proc.current = (WNDPROC)subclass_dlg_proc;
438			siglist_proc.old = (WNDPROC)GetWindowLong (sl, GWL_WNDPROC);
439			if (siglist_proc.old) {
440			if (!SetWindowLong (sl, GWL_WNDPROC, (LONG)siglist_proc.current)) {
441	twoaday	141	msg_box (dlg, "Could not set keylist window procedure.",
442	werner	36	_("Key Manager"), MB_ERR);
443			BUG (0);
444			}
445			}
446			SetForegroundWindow (dlg);
447			center_window (dlg, NULL);
448			return TRUE;
449
450			case WM_DESTROY:
451	twoaday	139	if (lv) {
452			siglist_delete (lv);
453	werner	36	lv = NULL;
454			}
455			return FALSE;
456
457			case WM_NOTIFY:
458	twoaday	41	NMHDR *notify;
459	werner	36
460			notify = (NMHDR *)lparam;
461	twoaday	139	if (!notify)
462			return FALSE;
463	twoaday	225	if (notify->code == NM_DBLCLK &&
464			notify->idFrom == IDC_KEYSIG_LIST)
465	werner	36	do_load_keyprops (dlg, lv);
466	twoaday	139	if (notify->code == NM_RCLICK &&
467	twoaday	128	notify->idFrom == IDC_KEYSIG_LIST &&
468			is_sig (lv, -1))
469	werner	36	do_create_popup (dlg);
470	twoaday	139	if (notify->code == LVN_ITEMCHANGED &&
471	twoaday	41	((LPNMLISTVIEW)lparam)->uNewState) {
472			idx = listview_get_curr_pos (lv);
473	twoaday	139	listview_get_item_text (lv, idx, SL_COL_VALID, inf, DIM (inf)-1);
474	twoaday	41	EnableWindow (GetDlgItem (dlg, IDC_KEYSIG_RECVKEY),
475			strcmp (inf, "NOKEY") == 0? TRUE: FALSE);
476	twoaday	128	EnableWindow (GetDlgItem (dlg, IDC_KEYSIG_SIGPROPS),
477			is_sig (lv, -1)? TRUE : FALSE);
478	twoaday	41	}
479	twoaday	139	if (notify->code == LVN_COLUMNCLICK) {
480			NMLISTVIEW *nft = (LPNMLISTVIEW) lparam;
481			int sortby = 0;
482			switch (nft->iSubItem) {
483			//case 0: sortby = KEY_SORT_USERID; break;
484			case 1: sortby = KEY_SORT_VALIDITY; break;
485			case 2: sortby = SIG_SORT_CLASS; break;
486			case 3: sortby = KEY_SORT_CREATED; break;
487			case 4: sortby = KEY_SORT_KEYID; break;
488			case 5: sortby = SIG_SORT_EXPIRE; break;
489			case 6: sortby = KEY_SORT_ALGO; break;
490			default: return TRUE;
491			}
492			siglist_sort (lv, sortby);
493			}
494	werner	36	break;
495
496			case WM_COMMAND:
497	twoaday	139	switch (LOWORD (wparam)) {
498	werner	36	case ID_SIGCTX_KEYPROPS:
499			do_load_keyprops (dlg, lv);
500	twoaday	256	return TRUE;
501	werner	36
502			case ID_SIGCTX_PROPS:
503	twoaday	176	if (is_sig (lv, -1)) {
504			ks = (gpgme_key_sig_t)listview_get_item2 (lv, listview_get_curr_pos (lv));
505	werner	36	DialogBoxParam (glob_hinst, (LPCTSTR)IDD_WINPT_SIGPROPS, dlg,
506	twoaday	176	sigprops_dlg_proc, (LPARAM)ks);
507			}
508	twoaday	256	return TRUE;
509	werner	36
510			case IDC_KEYSIG_RECVKEY:
511			idx = listview_get_curr_pos (lv);
512	twoaday	139	if (idx == -1)
513			recv_missing_keys (dlg, lv);
514			else
515			recv_single_key (dlg, lv, idx);
516	werner	36	return TRUE;
517
518			case IDC_KEYSIG_SIGPROPS:
519	twoaday	176	if (is_sig (lv, -1)) {
520			ks = ks = (gpgme_key_sig_t)listview_get_item2 (lv, listview_get_curr_pos (lv));
521	werner	36	DialogBoxParam (glob_hinst, (LPCTSTR)IDD_WINPT_SIGPROPS, dlg,
522	twoaday	176	sigprops_dlg_proc, (LPARAM)ks);
523			}
524	werner	36	return TRUE;
525
526	twoaday	212	case IDCANCEL:
527			EndDialog (dlg, FALSE);
528			return TRUE;
529
530	werner	36	case IDOK:
531			EndDialog (dlg, TRUE);
532			return TRUE;
533			}
534			break;
535			}
536			return FALSE;
537			}