added revcation stuff and fixed a couple of bugs
[gnupg.git] / g10 / pkclist.c
1 /* pkclist.c
2  *      Copyright (c) 1997 by Werner Koch (dd9jn)
3  *
4  * This file is part of G10.
5  *
6  * G10 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  * G10 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 this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 #include <config.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25 #include <errno.h>
26 #include <assert.h>
27
28 #include "options.h"
29 #include "packet.h"
30 #include "errors.h"
31 #include "keydb.h"
32 #include "memory.h"
33 #include "util.h"
34 #include "trustdb.h"
35 #include "ttyio.h"
36 #include "i18n.h"
37
38 /****************
39  * Returns true if a ownertrust has changed.
40  */
41 static int
42 query_ownertrust( ulong lid )
43 {
44     char *p;
45     int rc;
46     size_t n;
47     u32 keyid[2];
48     PKT_public_cert *pkc ;
49     int changed=0;
50
51     rc = keyid_from_trustdb( lid, keyid );
52     if( rc ) {
53         log_error("ooops: can't get keyid for lid %lu\n", lid);
54         return 0;
55     }
56
57     pkc = m_alloc_clear( sizeof *pkc );
58     rc = get_pubkey( pkc, keyid );
59     if( rc ) {
60         log_error("keyid %08lX: pubkey not found: %s\n",
61                                 (ulong)keyid[1], g10_errstr(rc) );
62         return 0;
63     }
64
65     tty_printf(_("No ownertrust defined for %lu:\n"
66                "%4u%c/%08lX %s \""), lid,
67               nbits_from_pkc( pkc ), pubkey_letter( pkc->pubkey_algo ),
68               (ulong)keyid[1], datestr_from_pkc( pkc ) );
69     p = get_user_id( keyid, &n );
70     tty_print_string( p, n ),
71     m_free(p);
72     tty_printf(_("\"\n\n"
73 "Please decide in how far do you trust this user to\n"
74 "correctly sign other users keys (looking at his passport,\n"
75 "checking the fingerprints from different sources ...)?\n\n"
76 " 1 = Don't know\n"
77 " 2 = I do NOT trust\n"
78 " 3 = I trust marginally\n"
79 " 4 = I trust fully\n"
80 " s = please show me more informations\n\n") );
81
82     for(;;) {
83         p = tty_get(_("Your decision? "));
84         trim_spaces(p);
85         tty_kill_prompt();
86         if( *p && p[1] )
87             ;
88         else if( *p == '?' ) {
89             tty_printf(_(
90 "It's up to you to assign a value here; this value will never be exported\n"
91 "to any 3rd party.  We need it to implement the web-of-trust; it has nothing\n"
92 "to do with the (implicitly created) web-of-certificates.\n"));
93         }
94         else if( !p[1] && (*p >= '1' && *p <= '4') ) {
95             unsigned trust;
96             switch( *p ) {
97               case '1': trust = TRUST_UNDEFINED; break;
98               case '2': trust = TRUST_NEVER    ; break;
99               case '3': trust = TRUST_MARGINAL ; break;
100               case '4': trust = TRUST_FULLY    ; break;
101               default: BUG();
102             }
103             if( !update_ownertrust( lid, trust ) )
104                 changed++;
105             break;
106         }
107         else if( *p == 's' || *p == 'S' ) {
108             tty_printf(_("You will see a list of signators etc. here\n"));
109         }
110         m_free(p); p = NULL;
111     }
112     m_free(p);
113     m_free(pkc);
114     return changed;
115 }
116
117
118 /****************
119  * Try to add some more owner trusts (interactive)
120  * Returns: -1 if no ownertrust were added.
121  */
122 static int
123 add_ownertrust( PKT_public_cert *pkc )
124 {
125     int rc;
126     void *context = NULL;
127     ulong lid;
128     unsigned trust;
129     int any=0;
130
131     tty_printf(
132 _("Could not find a valid trust path to the key.  Lets see, wether we\n"
133   "can assign some missing owner trust values.\n\n"));
134
135     rc = query_trust_record( pkc );
136     if( rc ) {
137         log_error("Ooops: not in trustdb\n");
138         return -1;
139     }
140
141     lid = pkc->local_id;
142     while( !(rc=enum_trust_web( &context, &lid )) ) {
143         rc = get_ownertrust( lid, &trust );
144         if( rc )
145             log_fatal("Ooops: couldn't get ownertrust for %lu\n", lid);
146         if( trust == TRUST_UNDEFINED || trust == TRUST_EXPIRED ||
147             trust == TRUST_UNKNOWN ) {
148             if( query_ownertrust( lid ) )
149                 any=1;
150         }
151     }
152     if( rc == -1 )
153         rc = 0;
154     enum_trust_web( &context, NULL ); /* close */
155
156
157     return rc? rc : any? 0:-1;
158 }
159
160
161 /****************
162  * Check wether we can trust this pkc which has a trustlevel of TRUSTLEVEL
163  * Returns: true if we trust.
164  */
165 static int
166 do_we_trust( PKT_public_cert *pkc, int trustlevel )
167 {
168     int rc;
169
170     if( (trustlevel & TRUST_FLAG_REVOKED) ) {
171         char *answer;
172         int yes;
173
174         log_info("key has beed revoked!\n");
175         if( opt.batch )
176             return 0;
177
178         answer = tty_get("Use this key anyway? ");
179         tty_kill_prompt();
180         yes = answer_is_yes(answer);
181         m_free(answer);
182         if( !yes )
183             return 0;
184     }
185
186
187     switch( (trustlevel & TRUST_MASK) ) {
188       case TRUST_UNKNOWN: /* No pubkey in trustDB: Insert and check again */
189         rc = insert_trust_record( pkc );
190         if( rc ) {
191             log_error("failed to insert it into the trustdb: %s\n",
192                                                       g10_errstr(rc) );
193             return 0; /* no */
194         }
195         rc = check_trust( pkc, &trustlevel );
196         if( rc )
197             log_fatal("trust check after insert failed: %s\n",
198                                                       g10_errstr(rc) );
199         if( trustlevel == TRUST_UNKNOWN || trustlevel == TRUST_EXPIRED )
200             BUG();
201         return do_we_trust( pkc, trustlevel );
202
203       case TRUST_EXPIRED:
204         log_info("trust has expired: NOT yet implemented\n");
205         return 0; /* no */
206
207       case TRUST_UNDEFINED:
208         if( opt.batch || opt.answer_no )
209             log_info("no info to calculate a trust probability\n");
210         else {
211             rc = add_ownertrust( pkc );
212             if( !rc ) {
213                 rc = check_trust( pkc, &trustlevel );
214                 if( rc )
215                     log_fatal("trust check after add_ownertrust failed: %s\n",
216                                                               g10_errstr(rc) );
217                 /* FIXME: this is recursive; we better should unroll it */
218                 return do_we_trust( pkc, trustlevel );
219             }
220         }
221         return 0; /* no */
222
223       case TRUST_NEVER:
224         log_info("We do NOT trust this key\n");
225         return 0; /* no */
226
227       case TRUST_MARGINAL:
228         log_info("I'm not sure wether this keys really belongs to the owner\n"
229                  "but I proceed anyway\n");
230         return 1; /* yes */
231
232       case TRUST_FULLY:
233         if( opt.verbose )
234             log_info("This key probably belongs to the owner\n");
235         return 1; /* yes */
236
237       case TRUST_ULTIMATE:
238         if( opt.verbose )
239             log_info("This key belongs to us (we have the secret key)\n");
240         return 1; /* yes */
241
242       default: BUG();
243     }
244
245
246     /* Eventuell fragen falls der trustlevel nicht ausreichend ist */
247
248
249     return 1; /* yes */
250 }
251
252
253
254 void
255 release_pkc_list( PKC_LIST pkc_list )
256 {
257     PKC_LIST pkc_rover;
258
259     for( ; pkc_list; pkc_list = pkc_rover ) {
260         pkc_rover = pkc_list->next;
261         free_public_cert( pkc_list->pkc );
262         m_free( pkc_list );
263     }
264 }
265
266 int
267 build_pkc_list( STRLIST remusr, PKC_LIST *ret_pkc_list )
268 {
269     PKC_LIST pkc_list = NULL;
270     int rc;
271
272     if( !remusr ) { /* ask!!! */
273         log_bug("ask for public key nyi\n");
274     }
275     else {
276         for(; remusr; remusr = remusr->next ) {
277             PKT_public_cert *pkc;
278
279             pkc = m_alloc_clear( sizeof *pkc );
280             if( (rc = get_pubkey_byname( pkc, remusr->d )) ) {
281                 free_public_cert( pkc ); pkc = NULL;
282                 log_error("skipped '%s': %s\n", remusr->d, g10_errstr(rc) );
283             }
284             else if( !(rc=check_pubkey_algo(pkc->pubkey_algo)) ) {
285                 int trustlevel;
286
287                 rc = check_trust( pkc, &trustlevel );
288                 if( rc ) {
289                     free_public_cert( pkc ); pkc = NULL;
290                     log_error("error checking pkc of '%s': %s\n",
291                                                       remusr->d, g10_errstr(rc) );
292                 }
293                 else if( do_we_trust( pkc, trustlevel ) ) {
294                     /* note: do_we_trust may have changed the trustlevel */
295                     PKC_LIST r;
296
297                     r = m_alloc( sizeof *r );
298                     r->pkc = pkc; pkc = NULL;
299                     r->next = pkc_list;
300                     r->mark = 0;
301                     pkc_list = r;
302                 }
303                 else { /* we don't trust this pkc */
304                     free_public_cert( pkc ); pkc = NULL;
305                 }
306             }
307             else {
308                 free_public_cert( pkc ); pkc = NULL;
309                 log_error("skipped '%s': %s\n", remusr->d, g10_errstr(rc) );
310             }
311         }
312     }
313
314
315     if( !rc && !pkc_list ) {
316         log_error("no valid addressees\n");
317         rc = G10ERR_NO_USER_ID;
318     }
319
320     if( rc )
321         release_pkc_list( pkc_list );
322     else
323         *ret_pkc_list = pkc_list;
324     return rc;
325 }
326
327