* call-dirmngr.c: New.
[gnupg.git] / sm / call-dirmngr.c
1 /* call-dirmngr.c - communication with the dromngr 
2  *      Copyright (C) 2002 Free Software Foundation, Inc.
3  *
4  * This file is part of GnuPG.
5  *
6  * GnuPG 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  * GnuPG 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 <unistd.h> 
27 #include <time.h>
28 #include <assert.h>
29
30 #include <gcrypt.h>
31
32 #include "gpgsm.h"
33 #include "../assuan/assuan.h"
34 #include "i18n.h"
35
36 static ASSUAN_CONTEXT dirmngr_ctx = NULL;
37
38 struct cipher_parm_s {
39   ASSUAN_CONTEXT ctx;
40   const char *ciphertext;
41   size_t ciphertextlen;
42 };
43
44 struct genkey_parm_s {
45   ASSUAN_CONTEXT ctx;
46   const char *sexp;
47   size_t sexplen;
48 };
49
50
51 struct membuf {
52   size_t len;
53   size_t size;
54   char *buf;
55   int out_of_core;
56 };
57
58
59 \f
60 /* Try to connect to the agent via socket or fork it off and work by
61    pipes.  Handle the server's initial greeting */
62 static int
63 start_dirmngr (void)
64 {
65   int rc;
66   char *infostr, *p;
67
68   if (dirmngr_ctx)
69     return 0; /* fixme: We need a context for each thread or serialize
70                  the access to the agent (which is suitable given that
71                  the agent is not MT */
72
73   infostr = getenv ("DIRMNGR_INFO");
74   if (!infostr)
75     {
76       const char *pgmname;
77       ASSUAN_CONTEXT ctx;
78       const char *argv[3];
79
80       log_info (_("no running dirmngr - starting one\n"));
81       
82       if (fflush (NULL))
83         {
84           log_error ("error flushing pending output: %s\n", strerror (errno));
85           return seterr (Write_Error);
86         }
87
88       if (!opt.dirmngr_program || !*opt.dirmngr_program)
89         opt.dirmngr_program = "/usr/sbin/dirmngr";
90       if ( !(pgmname = strrchr (opt.dirmngr_program, '/')))
91         pgmname = opt.dirmngr_program;
92       else
93         pgmname++;
94
95       argv[0] = pgmname;
96       argv[1] = "--server";
97       argv[2] = NULL;
98
99       /* connect to the agent and perform initial handshaking */
100       rc = assuan_pipe_connect (&ctx, opt.dirmngr_program, (char**)argv, 0);
101       if (rc)
102         {
103           log_error ("can't connect to the dirmngr: %s\n", assuan_strerror (rc));
104           return seterr (No_Dirmngr);
105         }
106       dirmngr_ctx = ctx;
107     }
108   else
109     {
110       infostr = xstrdup (infostr);
111       if ( !(p = strchr (infostr, ':')) || p == infostr
112            /* || (p-infostr)+1 >= sizeof client_addr.sun_path */)
113         {
114           log_error (_("malformed DIRMNGR_INFO environment variable\n"));
115           xfree (infostr);
116           return seterr (General_Error);
117         }
118       *p = 0;
119       log_error (_("socket based dirmngr communication not yet implemented\n"));
120       return seterr (Not_Implemented);
121     }
122
123   log_debug ("connection to dirmngr established\n");
124   return 0;
125 }
126
127
128 \f
129 /* Handle a SENDCERT inquiry. */
130 static AssuanError
131 inq_certificate (void *opaque, const char *line)
132 {
133   AssuanError rc;
134
135   if (strncmp (line, "SENDCERT ", 9) || !line[9])
136     {
137       log_error ("unsupported inquiry `%s'\n", line);
138       return ASSUAN_Inquire_Unknown;
139     }
140
141   /*  rc = assuan_send_data (parm->ctx, parm->sexp, parm->sexplen);*/
142   rc = 0;
143   return rc; 
144 }
145
146
147 \f
148 /* Call the directory manager to check whether the certificate is valid
149    Returns 0 for valid or usually one of the errors:
150
151   GNUPG_Certificate_Revoked
152   GNUPG_No_CRL_Known
153   GNUPG_CRL_Too_Old
154  */
155 int
156 gpgsm_dirmngr_isvalid (KsbaCert cert)
157 {
158   int rc;
159   char *certid;
160   char line[ASSUAN_LINELENGTH];
161
162   rc = start_dirmngr ();
163   if (rc)
164     return rc;
165
166   certid = gpgsm_get_certid (cert);
167   if (!certid)
168     {
169       log_error ("error getting the certificate ID\n");
170       return seterr (General_Error);
171     }
172
173   snprintf (line, DIM(line)-1, "ISVALID %s", certid);
174   line[DIM(line)-1] = 0;
175   xfree (certid);
176
177   rc = assuan_transact (dirmngr_ctx, line, NULL, NULL, inq_certificate, NULL);
178   return map_assuan_err (rc);
179 }
180
181
182