2002-02-02 Marcus Brinkmann <marcus@g10code.de>
[gpgme.git] / gpgme / export.c
1 /* export.c -  encrypt functions
2  *      Copyright (C) 2000 Werner Koch (dd9jn)
3  *      Copyright (C) 2001, 2002 g10 Code GmbH
4  *
5  * This file is part of GPGME.
6  *
7  * GPGME is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 2 of the License, or
10  * (at your option) any later version.
11  *
12  * GPGME is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, write to the Free Software
19  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
20  */
21
22 #include <config.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <assert.h>
27
28 #include "util.h"
29 #include "context.h"
30 #include "ops.h"
31
32
33 static void
34 export_status_handler (GpgmeCtx ctx, GpgStatusCode code, char *args)
35 {
36   if (ctx->error)
37     return;
38
39   DEBUG2 ("export_status: code=%d args=`%s'\n", code, args);
40   /* FIXME: Need to do more */
41 }
42
43
44 GpgmeError
45 gpgme_op_export_start (GpgmeCtx ctx, GpgmeRecipients recp, GpgmeData keydata)
46 {
47   GpgmeError err = 0;
48
49   fail_on_pending_request (ctx);
50   ctx->pending = 1;
51
52   _gpgme_engine_release (ctx->engine);
53   ctx->engine = NULL;
54
55   _gpgme_release_result (ctx);
56
57   err = _gpgme_engine_new (ctx->use_cms ? GPGME_PROTOCOL_CMS
58                            : GPGME_PROTOCOL_OpenPGP, &ctx->engine);
59   if (err)
60     goto leave;
61
62   if (!keydata || gpgme_data_get_type (keydata) != GPGME_DATA_TYPE_NONE)
63     {
64       err = mk_error (Invalid_Value);
65       goto leave;
66     }
67   _gpgme_data_set_mode (keydata, GPGME_DATA_MODE_IN);
68
69   _gpgme_engine_set_status_handler (ctx->engine, export_status_handler, ctx);
70   _gpgme_engine_set_verbosity (ctx->engine, ctx->verbosity);
71
72   err = _gpgme_engine_op_export (ctx->engine, recp, keydata, ctx->use_armor);
73   if (!err)
74     err = _gpgme_engine_start (ctx->engine, ctx);
75
76  leave:
77   if (err)
78     {
79       ctx->pending = 0; 
80       _gpgme_engine_release (ctx->engine);
81       ctx->engine = NULL;
82     }
83   return err;
84 }
85
86
87 /**
88  * gpgme_op_export:
89  * @c: the context
90  * @recp: a list of recipients or NULL
91  * @keydata: Returns the keys
92  * 
93  * This function can be used to extract public keys from the GnuPG key
94  * database either in armored (by using gpgme_set_armor()) or in plain
95  * binary form.  The function expects a list of user IDs in @recp for
96  * whom the public keys are to be exported.
97  * 
98  * Return value: 0 for success or an error code
99  **/
100 GpgmeError
101 gpgme_op_export (GpgmeCtx ctx, GpgmeRecipients recipients, GpgmeData keydata)
102 {
103   GpgmeError err = gpgme_op_export_start (ctx, recipients, keydata);
104   if (!err)
105     {
106       gpgme_wait (ctx, 1);
107       err = ctx->error;
108     }
109   return err;
110 }