* pksign.c (agent_pksign): Detect whether a Smartcard is to be
[gnupg.git] / agent / call-scd.c
1 /* call-scd.c - fork of the scdaemon to do SC operations
2  *      Copyright (C) 2001, 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 <errno.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <ctype.h>
27 #include <assert.h>
28 #include <unistd.h>
29 #include <sys/stat.h>
30
31 #include "agent.h"
32 #include "../assuan/assuan.h"
33
34 #ifdef _POSIX_OPEN_MAX
35 #define MAX_OPEN_FDS _POSIX_OPEN_MAX
36 #else
37 #define MAX_OPEN_FDS 20
38 #endif
39
40 static ASSUAN_CONTEXT scd_ctx = NULL;
41
42 /* callback parameter for learn card */
43 struct learn_parm_s {
44   int lines;
45   size_t size;
46   char *buffer;
47 };
48
49
50
51 \f
52 /* Fork off the SCdaemon if this has not already been done */
53 static int
54 start_scd (void)
55 {
56   int rc;
57   const char *pgmname;
58   ASSUAN_CONTEXT ctx;
59   const char *argv[3];
60
61   if (scd_ctx)
62     return 0; /* No need to serialize things because the agent is
63                  expected to tun as a single-thread (or may be in
64                  future using libpth) */
65
66   log_debug ("no running SCdaemon - starting it\n");
67       
68   if (fflush (NULL))
69     {
70       log_error ("error flushing pending output: %s\n", strerror (errno));
71       return seterr (Write_Error);
72     }
73
74   /* FIXME: change the default location of the program */
75   if (!opt.scdaemon_program || !*opt.scdaemon_program)
76     opt.scdaemon_program = "../scd/scdaemon";
77   if ( !(pgmname = strrchr (opt.scdaemon_program, '/')))
78     pgmname = opt.scdaemon_program;
79   else
80     pgmname++;
81
82   argv[0] = pgmname;
83   argv[1] = "--server";
84   argv[2] = NULL;
85
86   /* connect to the pinentry and perform initial handshaking */
87   rc = assuan_pipe_connect (&ctx, opt.scdaemon_program, (char**)argv, 0);
88   if (rc)
89     {
90       log_error ("can't connect to the SCdaemon: %s\n",
91                  assuan_strerror (rc));
92       return seterr (No_Scdaemon);
93     }
94   scd_ctx = ctx;
95   
96   log_debug ("connection to SCdaemon established\n");
97   return 0;
98 }
99
100
101 \f
102 static AssuanError
103 learn_status_cb (void *opaque, const char *line)
104 {
105   /*  struct learn_parm_s *parm = opaque;*/
106   const char *keyword = line;
107   int keywordlen;
108
109   for (keywordlen=0; *line && !spacep (line); line++, keywordlen++)
110     ;
111   while (spacep (line))
112     line++;
113   if (keywordlen == 11 && !memcmp (keyword, "KEYPAIRINFO", keywordlen))
114     {
115       log_debug ("learn_status_cb: keypair `%s'\n", line);
116     }
117   else if (keywordlen == 8 && !memcmp (keyword, "SERIALNO", keywordlen))
118     {
119       log_debug ("learn_status_cb: serialno `%s'\n", line);
120     }
121   else
122     log_debug ("learn_status_cb: ignoring `%.*s'\n", keywordlen, keyword);
123   
124   return 0;
125 }
126
127 /* Perform the learn command and return a list of all private keys
128    stored on the card. */
129 int
130 agent_card_learn (void)
131 {
132   int rc;
133   struct learn_parm_s parm;
134
135   rc = start_scd ();
136   if (rc)
137     return rc;
138
139   rc = assuan_transact (scd_ctx, "RESET", NULL, NULL, NULL, NULL, NULL, NULL);
140   if (rc)
141     return map_assuan_err (rc);
142
143   memset (&parm, 0, sizeof parm);
144
145   rc = assuan_transact (scd_ctx, "LEARN --force",
146                         NULL, NULL, NULL, NULL,
147                         learn_status_cb, &parm);
148   if (rc)
149     return map_assuan_err (rc);
150
151   return 0;
152 }
153
154
155 \f
156 static AssuanError
157 get_serialno_cb (void *opaque, const char *line)
158 {
159   char **serialno = opaque;
160   const char *keyword = line;
161   const char *s;
162   int keywordlen, n;
163
164   for (keywordlen=0; *line && !spacep (line); line++, keywordlen++)
165     ;
166   while (spacep (line))
167     line++;
168
169   if (keywordlen == 8 && !memcmp (keyword, "SERIALNO", keywordlen))
170     {
171       if (*serialno)
172         return ASSUAN_Unexpected_Status;
173       for (n=0,s=line; hexdigitp (s); s++, n++)
174         ;
175       if (!n || (n&1)|| !(spacep (s) || !*s) )
176         return ASSUAN_Invalid_Status;
177       *serialno = xtrymalloc (n+1);
178       if (!*serialno)
179         return ASSUAN_Out_Of_Core;
180       memcpy (*serialno, line, n);
181       (*serialno)[n] = 0;
182     }
183   
184   return 0;
185 }
186
187 /* Return the serial number of the card or an appropriate error.  The
188    serial number is returned as a hext string. */
189 int
190 agent_card_serialno (char **r_serialno)
191 {
192   int rc;
193   char *serialno = NULL;
194
195   rc = start_scd ();
196   if (rc)
197     return rc;
198
199   /* Hmm, do we really need this reset - scddaemon should do this or
200      we can do this if we for some reason figure out that the
201      operation might have failed due to a missing RESET.  Hmmm, I feel
202      this is really SCdaemon's duty */
203   rc = assuan_transact (scd_ctx, "RESET", NULL, NULL, NULL, NULL, NULL, NULL);
204   if (rc)
205     return map_assuan_err (rc);
206
207   rc = assuan_transact (scd_ctx, "SERIALNO",
208                         NULL, NULL, NULL, NULL,
209                         get_serialno_cb, &serialno);
210   if (rc)
211     {
212       xfree (serialno);
213       return map_assuan_err (rc);
214     }
215   *r_serialno = serialno;
216   return 0;
217 }
218
219
220
221