2002-02-02 Marcus Brinkmann <marcus@g10code.de>
[gpgme.git] / gpgme / delete.c
1 /* delete.c -  delete a key 
2  *      Copyright (C) 2001, 2002 g10 Code GmbH
3  *
4  * This file is part of GPGME.
5  *
6  * GPGME 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  * GPGME 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 <time.h>
26 #include <assert.h>
27
28 #include "util.h"
29 #include "context.h"
30 #include "ops.h"
31 #include "key.h"
32
33
34 enum delete_problem
35   {
36     DELETE_No_Problem = 0,
37     DELETE_No_Such_Key = 1,
38     DELETE_Must_Delete_Secret_Key = 2
39   };
40
41
42 struct delete_result_s
43 {
44   enum delete_problem problem;
45 };
46
47
48 void
49 _gpgme_release_delete_result (DeleteResult result)
50 {
51   if (!result)
52     return;
53   xfree (result);
54 }
55
56
57 static void
58 delete_status_handler (GpgmeCtx ctx, GpgStatusCode code, char *args)
59 {
60   if (ctx->error)
61     return;
62   test_and_allocate_result (ctx, delete);
63
64   switch (code)
65     {
66     case STATUS_EOF:
67       switch (ctx->result.delete->problem)
68         {
69         case DELETE_No_Problem:
70           break;
71         case DELETE_No_Such_Key:
72           ctx->error = mk_error(Invalid_Key);
73           break;
74         case DELETE_Must_Delete_Secret_Key:
75           ctx->error = mk_error(Conflict);
76           break;
77         default:
78           ctx->error = mk_error(General_Error);
79           break;
80         }
81       break;
82
83     case STATUS_DELETE_PROBLEM:
84       ctx->result.delete->problem = atoi (args);
85       break;
86
87     default:
88       /* Ignore all other codes.  */
89       break;
90     }
91 }
92
93
94 GpgmeError
95 gpgme_op_delete_start (GpgmeCtx ctx, const GpgmeKey key, int allow_secret)
96 {
97   GpgmeError err = 0;
98
99   fail_on_pending_request (ctx);
100   ctx->pending = 1;
101
102   if (!key)
103     {
104       err = mk_error (Invalid_Value);
105       goto leave;
106     }
107
108   if (ctx->engine)
109     {
110       _gpgme_engine_release (ctx->engine); 
111       ctx->engine = NULL;
112     }
113
114   _gpgme_release_result (ctx);
115     
116   err = _gpgme_engine_new (ctx->use_cms ? GPGME_PROTOCOL_CMS
117                            : GPGME_PROTOCOL_OpenPGP, &ctx->engine);
118   if (err)
119     goto leave;
120
121   _gpgme_engine_set_status_handler (ctx->engine, delete_status_handler, ctx);
122   _gpgme_engine_set_verbosity (ctx->engine, ctx->verbosity);
123
124   err = _gpgme_engine_op_delete (ctx->engine, key, allow_secret);
125   if (!err)
126     err = _gpgme_engine_start (ctx->engine, ctx);
127
128  leave:
129   if (err)
130     {
131       ctx->pending = 0; 
132       _gpgme_engine_release (ctx->engine);
133       ctx->engine = NULL;
134     }
135   return err;
136 }
137
138
139 /**
140  * gpgme_op_delete:
141  * @c: Context 
142  * @key: A Key Object
143  * @allow_secret: Allow secret key delete
144  * 
145  * Delete the give @key from the key database.  To delete a secret
146  * along with the public key, @allow_secret must be true.
147  * 
148  * Return value: 0 on success or an error code.
149  **/
150 GpgmeError
151 gpgme_op_delete (GpgmeCtx ctx, const GpgmeKey key, int allow_secret)
152 {
153   GpgmeError err = gpgme_op_delete_start (ctx, key, allow_secret);
154   if (!err)
155     {
156       gpgme_wait (ctx, 1);
157       err = ctx->error;
158     }
159   return err;
160 }