Debug message cleanups.
[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 static int force_pipe_server = 0;
38
39 struct inq_certificate_parm_s {
40   ASSUAN_CONTEXT ctx;
41   KsbaCert cert;
42 };
43
44
45 struct membuf {
46   size_t len;
47   size_t size;
48   char *buf;
49   int out_of_core;
50 };
51
52
53 \f
54 /* Try to connect to the agent via socket or fork it off and work by
55    pipes.  Handle the server's initial greeting */
56 static int
57 start_dirmngr (void)
58 {
59   int rc;
60   char *infostr, *p;
61   ASSUAN_CONTEXT ctx;
62
63   if (dirmngr_ctx)
64     return 0; /* fixme: We need a context for each thread or serialize
65                  the access to the dirmngr */
66
67   infostr = force_pipe_server? NULL : getenv ("DIRMNGR_INFO");
68   if (!infostr)
69     {
70       const char *pgmname;
71       const char *argv[3];
72
73       if (opt.verbose)
74         log_info (_("no running dirmngr - starting one\n"));
75       
76       if (fflush (NULL))
77         {
78           log_error ("error flushing pending output: %s\n", strerror (errno));
79           return seterr (Write_Error);
80         }
81
82       if (!opt.dirmngr_program || !*opt.dirmngr_program)
83         opt.dirmngr_program = "/usr/sbin/dirmngr";
84       if ( !(pgmname = strrchr (opt.dirmngr_program, '/')))
85         pgmname = opt.dirmngr_program;
86       else
87         pgmname++;
88
89       argv[0] = pgmname;
90       argv[1] = "--server";
91       argv[2] = NULL;
92
93       /* connect to the agent and perform initial handshaking */
94       rc = assuan_pipe_connect (&ctx, opt.dirmngr_program, (char**)argv, 0);
95     }
96   else
97     {
98       int prot;
99       int pid;
100
101       infostr = xstrdup (infostr);
102       if ( !(p = strchr (infostr, ':')) || p == infostr)
103         {
104           log_error (_("malformed DIRMNGR_INFO environment variable\n"));
105           xfree (infostr);
106           force_pipe_server = 1;
107           return start_dirmngr ();
108         }
109       *p++ = 0;
110       pid = atoi (p);
111       while (*p && *p != ':')
112         p++;
113       prot = *p? atoi (p+1) : 0;
114       if (prot != 1)
115         {
116           log_error (_("dirmngr protocol version %d is not supported\n"),
117                      prot);
118           xfree (infostr);
119           force_pipe_server = 1;
120           return start_dirmngr ();
121         }
122
123       rc = assuan_socket_connect (&ctx, infostr, pid);
124       xfree (infostr);
125       if (rc == ASSUAN_Connect_Failed)
126         {
127           log_error (_("can't connect to the dirmngr - trying fall back\n"));
128           force_pipe_server = 1;
129           return start_dirmngr ();
130         }
131     }
132
133   if (rc)
134     {
135       log_error ("can't connect to the dirmngr: %s\n", assuan_strerror (rc));
136       return seterr (No_Dirmngr);
137     }
138   dirmngr_ctx = ctx;
139
140   if (DBG_ASSUAN)
141     log_debug ("connection to dirmngr established\n");
142   return 0;
143 }
144
145
146 \f
147 /* Handle a SENDCERT inquiry. */
148 static AssuanError
149 inq_certificate (void *opaque, const char *line)
150 {
151   struct inq_certificate_parm_s *parm = opaque;
152   AssuanError rc;
153   const unsigned char *der;
154   size_t derlen;
155
156   if (!(!strncmp (line, "SENDCERT", 8) && (line[8] == ' ' || !line[8])))
157     {
158       log_error ("unsupported inquiry `%s'\n", line);
159       return ASSUAN_Inquire_Unknown;
160     }
161   line += 8;
162
163   if (!*line)
164     { /* send the current certificate */
165       der = ksba_cert_get_image (parm->cert, &derlen);
166       if (!der)
167         rc = ASSUAN_Inquire_Error;
168       else
169         rc = assuan_send_data (parm->ctx, der, derlen);
170     }
171   else 
172     { /* send the given certificate */
173       int err;
174       KsbaCert cert;
175
176       err = gpgsm_find_cert (line, &cert);
177       if (err)
178         {
179           log_error ("certificate not found: %s\n", gnupg_strerror (err));
180           rc = ASSUAN_Inquire_Error;
181         }
182       else
183         {
184           der = ksba_cert_get_image (cert, &derlen);
185           if (!der)
186             rc = ASSUAN_Inquire_Error;
187           else
188             rc = assuan_send_data (parm->ctx, der, derlen);
189           ksba_cert_release (cert);
190         }
191     }
192
193   return rc; 
194 }
195
196
197 \f
198 /* Call the directory manager to check whether the certificate is valid
199    Returns 0 for valid or usually one of the errors:
200
201   GNUPG_Certificate_Revoked
202   GNUPG_No_CRL_Known
203   GNUPG_CRL_Too_Old
204  */
205 int
206 gpgsm_dirmngr_isvalid (KsbaCert cert)
207 {
208   int rc;
209   char *certid;
210   char line[ASSUAN_LINELENGTH];
211   struct inq_certificate_parm_s parm;
212
213   rc = start_dirmngr ();
214   if (rc)
215     return rc;
216
217   certid = gpgsm_get_certid (cert);
218   if (!certid)
219     {
220       log_error ("error getting the certificate ID\n");
221       return seterr (General_Error);
222     }
223
224   parm.ctx = dirmngr_ctx;
225   parm.cert = cert;
226
227   snprintf (line, DIM(line)-1, "ISVALID %s", certid);
228   line[DIM(line)-1] = 0;
229   xfree (certid);
230
231   rc = assuan_transact (dirmngr_ctx, line, NULL, NULL,
232                         inq_certificate, &parm, NULL, NULL);
233   return map_assuan_err (rc);
234 }
235
236