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