2005-02-24 17:36:11 +00:00
|
|
|
|
/* gpg-connect-agent.c - Tool to connect to the agent.
|
|
|
|
|
* Copyright (C) 2005 Free Software Foundation, Inc.
|
|
|
|
|
*
|
|
|
|
|
* This file is part of GnuPG.
|
|
|
|
|
*
|
|
|
|
|
* GnuPG is free software; you can redistribute it and/or modify
|
|
|
|
|
* it under the terms of the GNU General Public License as published by
|
|
|
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
* (at your option) any later version.
|
|
|
|
|
*
|
|
|
|
|
* GnuPG is distributed in the hope that it will be useful,
|
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
* GNU General Public License for more details.
|
|
|
|
|
*
|
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
|
|
|
* along with this program; if not, write to the Free Software
|
2006-06-20 17:21:37 +00:00
|
|
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
|
|
|
|
|
* USA.
|
2005-02-24 17:36:11 +00:00
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#include <config.h>
|
|
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
#include <string.h>
|
|
|
|
|
#include <errno.h>
|
2005-02-25 16:14:55 +00:00
|
|
|
|
#include <ctype.h>
|
2005-02-24 17:36:11 +00:00
|
|
|
|
#include <assuan.h>
|
|
|
|
|
|
|
|
|
|
#include "i18n.h"
|
|
|
|
|
#include "../common/util.h"
|
|
|
|
|
#include "../common/asshelp.h"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Constants to identify the commands and options. */
|
|
|
|
|
enum cmd_and_opt_values
|
|
|
|
|
{
|
|
|
|
|
aNull = 0,
|
|
|
|
|
oQuiet = 'q',
|
|
|
|
|
oVerbose = 'v',
|
2005-05-18 10:48:06 +00:00
|
|
|
|
oRawSocket = 'S',
|
2006-09-13 15:57:30 +00:00
|
|
|
|
oExec = 'E',
|
2005-02-24 17:36:11 +00:00
|
|
|
|
|
|
|
|
|
oNoVerbose = 500,
|
2005-02-25 16:14:55 +00:00
|
|
|
|
oHomedir,
|
2006-09-13 15:57:30 +00:00
|
|
|
|
oHex,
|
|
|
|
|
oNoExtConnect
|
2005-02-24 17:36:11 +00:00
|
|
|
|
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* The list of commands and options. */
|
|
|
|
|
static ARGPARSE_OPTS opts[] =
|
|
|
|
|
{
|
|
|
|
|
{ 301, NULL, 0, N_("@\nOptions:\n ") },
|
|
|
|
|
|
|
|
|
|
{ oVerbose, "verbose", 0, N_("verbose") },
|
|
|
|
|
{ oQuiet, "quiet", 0, N_("quiet") },
|
2005-02-25 16:14:55 +00:00
|
|
|
|
{ oHex, "hex", 0, N_("print data out hex encoded") },
|
2005-05-18 10:48:06 +00:00
|
|
|
|
{ oRawSocket, "raw-socket", 2, N_("|NAME|connect to Assuan socket NAME")},
|
2006-09-13 15:57:30 +00:00
|
|
|
|
{ oExec, "exec", 0, N_("run the Assuan server given on the command line")},
|
|
|
|
|
{ oNoExtConnect, "no-ext-connect",
|
|
|
|
|
0, N_("do not use extended connect mode")},
|
2005-02-24 17:36:11 +00:00
|
|
|
|
|
|
|
|
|
/* hidden options */
|
|
|
|
|
{ oNoVerbose, "no-verbose", 0, "@"},
|
|
|
|
|
{ oHomedir, "homedir", 2, "@" },
|
|
|
|
|
{0}
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* We keep all global options in the structure OPT. */
|
|
|
|
|
struct
|
|
|
|
|
{
|
|
|
|
|
int verbose; /* Verbosity level. */
|
|
|
|
|
int quiet; /* Be extra quiet. */
|
|
|
|
|
const char *homedir; /* Configuration directory name */
|
2005-02-25 16:14:55 +00:00
|
|
|
|
int hex; /* Print data lines in hex format. */
|
2005-05-18 10:48:06 +00:00
|
|
|
|
const char *raw_socket; /* Name of socket to connect in raw mode. */
|
2006-09-13 15:57:30 +00:00
|
|
|
|
int exec; /* Run the pgm given on the command line. */
|
|
|
|
|
unsigned int connect_flags; /* Flags used for connecting. */
|
2005-02-24 17:36:11 +00:00
|
|
|
|
} opt;
|
|
|
|
|
|
|
|
|
|
|
2005-05-20 20:39:36 +00:00
|
|
|
|
|
|
|
|
|
/* Definitions for /definq commands and a global linked list with all
|
|
|
|
|
the definitions. */
|
|
|
|
|
struct definq_s
|
|
|
|
|
{
|
|
|
|
|
struct definq_s *next;
|
|
|
|
|
char *name; /* Name of inquiry or NULL for any name. */
|
|
|
|
|
int is_prog; /* True if this is a program to run. */
|
|
|
|
|
char file[1]; /* Name of file or program. */
|
|
|
|
|
};
|
|
|
|
|
typedef struct definq_s *definq_t;
|
|
|
|
|
|
|
|
|
|
static definq_t definq_list;
|
|
|
|
|
static definq_t *definq_list_tail = &definq_list;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2005-02-24 17:36:11 +00:00
|
|
|
|
/*-- local prototypes --*/
|
|
|
|
|
static int read_and_print_response (assuan_context_t ctx);
|
|
|
|
|
static assuan_context_t start_agent (void);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Print usage information and and provide strings for help. */
|
|
|
|
|
static const char *
|
|
|
|
|
my_strusage( int level )
|
|
|
|
|
{
|
|
|
|
|
const char *p;
|
|
|
|
|
|
|
|
|
|
switch (level)
|
|
|
|
|
{
|
|
|
|
|
case 11: p = "gpg-connect-agent (GnuPG)";
|
|
|
|
|
break;
|
|
|
|
|
case 13: p = VERSION; break;
|
|
|
|
|
case 17: p = PRINTABLE_OS_NAME; break;
|
|
|
|
|
case 19: p = _("Please report bugs to <" PACKAGE_BUGREPORT ">.\n");
|
|
|
|
|
break;
|
|
|
|
|
case 1:
|
|
|
|
|
case 40: p = _("Usage: gpg-connect-agent [options] (-h for help)");
|
|
|
|
|
break;
|
|
|
|
|
case 41:
|
|
|
|
|
p = _("Syntax: gpg-connect-agent [options]\n"
|
|
|
|
|
"Connect to a running agent and send commands\n");
|
|
|
|
|
break;
|
|
|
|
|
case 31: p = "\nHome: "; break;
|
|
|
|
|
case 32: p = opt.homedir; break;
|
|
|
|
|
case 33: p = "\n"; break;
|
|
|
|
|
|
|
|
|
|
default: p = NULL; break;
|
|
|
|
|
}
|
|
|
|
|
return p;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Initialize the gettext system. */
|
|
|
|
|
static void
|
|
|
|
|
i18n_init(void)
|
|
|
|
|
{
|
|
|
|
|
#ifdef USE_SIMPLE_GETTEXT
|
|
|
|
|
set_gettext_file (PACKAGE_GT);
|
|
|
|
|
#else
|
|
|
|
|
# ifdef ENABLE_NLS
|
|
|
|
|
setlocale (LC_ALL, "" );
|
|
|
|
|
bindtextdomain (PACKAGE_GT, LOCALEDIR);
|
|
|
|
|
textdomain (PACKAGE_GT);
|
|
|
|
|
# endif
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
2005-05-20 20:39:36 +00:00
|
|
|
|
/* Store an inquire response pattern. Note, that this function may
|
|
|
|
|
change the content of LINE. We assume that leading white spaces
|
|
|
|
|
are already removed. */
|
|
|
|
|
static void
|
|
|
|
|
add_definq (char *line, int is_prog)
|
|
|
|
|
{
|
|
|
|
|
definq_t d;
|
|
|
|
|
char *name, *p;
|
|
|
|
|
|
|
|
|
|
/* Get name. */
|
|
|
|
|
name = line;
|
|
|
|
|
for (p=name; *p && !spacep (p); p++)
|
|
|
|
|
;
|
|
|
|
|
if (*p)
|
|
|
|
|
*p++ = 0;
|
|
|
|
|
while (spacep (p))
|
|
|
|
|
p++;
|
|
|
|
|
|
|
|
|
|
d = xmalloc (sizeof *d + strlen (p) );
|
|
|
|
|
strcpy (d->file, p);
|
|
|
|
|
d->is_prog = is_prog;
|
|
|
|
|
if ( !strcmp (name, "*"))
|
|
|
|
|
d->name = NULL;
|
|
|
|
|
else
|
|
|
|
|
d->name = xstrdup (name);
|
|
|
|
|
|
|
|
|
|
d->next = NULL;
|
|
|
|
|
*definq_list_tail = d;
|
|
|
|
|
definq_list_tail = &d->next;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Show all inquiry defintions. */
|
|
|
|
|
static void
|
|
|
|
|
show_definq (void)
|
|
|
|
|
{
|
|
|
|
|
definq_t d;
|
|
|
|
|
|
|
|
|
|
for (d=definq_list; d; d = d->next)
|
|
|
|
|
if (d->name)
|
|
|
|
|
printf ("%-20s %c %s\n", d->name, d->is_prog? 'p':'f', d->file);
|
|
|
|
|
for (d=definq_list; d; d = d->next)
|
|
|
|
|
if (!d->name)
|
|
|
|
|
printf ("%-20s %c %s\n", "*", d->is_prog? 'p':'f', d->file);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Clear all inquiry definitions. */
|
|
|
|
|
static void
|
|
|
|
|
clear_definq (void)
|
|
|
|
|
{
|
|
|
|
|
while (definq_list)
|
|
|
|
|
{
|
|
|
|
|
definq_t tmp = definq_list->next;
|
|
|
|
|
xfree (definq_list->name);
|
|
|
|
|
xfree (definq_list);
|
|
|
|
|
definq_list = tmp;
|
|
|
|
|
}
|
|
|
|
|
definq_list_tail = &definq_list;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2006-09-13 15:57:30 +00:00
|
|
|
|
static void
|
|
|
|
|
do_sendfd (assuan_context_t ctx, char *line)
|
|
|
|
|
{
|
|
|
|
|
FILE *fp;
|
|
|
|
|
char *name, *mode, *p;
|
|
|
|
|
int rc, fd;
|
|
|
|
|
|
|
|
|
|
/* Get file name. */
|
|
|
|
|
name = line;
|
|
|
|
|
for (p=name; *p && !spacep (p); p++)
|
|
|
|
|
;
|
|
|
|
|
if (*p)
|
|
|
|
|
*p++ = 0;
|
|
|
|
|
while (spacep (p))
|
|
|
|
|
p++;
|
|
|
|
|
|
|
|
|
|
/* Get mode. */
|
|
|
|
|
mode = p;
|
|
|
|
|
if (!*mode)
|
|
|
|
|
mode = "r";
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
for (p=mode; *p && !spacep (p); p++)
|
|
|
|
|
;
|
|
|
|
|
if (*p)
|
|
|
|
|
*p++ = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Open and send. */
|
|
|
|
|
fp = fopen (name, mode);
|
|
|
|
|
if (!fp)
|
|
|
|
|
{
|
|
|
|
|
log_error ("can't open `%s' in \"%s\" mode: %s\n",
|
|
|
|
|
name, mode, strerror (errno));
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
fd = fileno (fp);
|
|
|
|
|
|
|
|
|
|
if (opt.verbose)
|
|
|
|
|
log_error ("file `%s' opened in \"%s\" mode, fd=%d\n",
|
|
|
|
|
name, mode, fd);
|
|
|
|
|
|
|
|
|
|
rc = assuan_sendfd (ctx, fd);
|
|
|
|
|
if (rc)
|
|
|
|
|
log_error ("sednig descriptor %d failed: %s\n", fd, gpg_strerror (rc));
|
|
|
|
|
fclose (fp);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
do_recvfd (assuan_context_t ctx, char *line)
|
|
|
|
|
{
|
|
|
|
|
log_info ("This command has not yet been implemented\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2005-02-24 17:36:11 +00:00
|
|
|
|
|
|
|
|
|
/* gpg-connect-agent's entry point. */
|
|
|
|
|
int
|
|
|
|
|
main (int argc, char **argv)
|
|
|
|
|
{
|
|
|
|
|
ARGPARSE_ARGS pargs;
|
|
|
|
|
int no_more_options = 0;
|
|
|
|
|
assuan_context_t ctx;
|
2005-05-20 20:39:36 +00:00
|
|
|
|
char *line, *p;
|
2005-02-24 17:36:11 +00:00
|
|
|
|
size_t linesize;
|
|
|
|
|
int rc;
|
|
|
|
|
|
|
|
|
|
set_strusage (my_strusage);
|
|
|
|
|
log_set_prefix ("gpg-connect-agent", 1);
|
2006-09-06 16:35:52 +00:00
|
|
|
|
assuan_set_assuan_err_source (0);
|
2005-02-24 17:36:11 +00:00
|
|
|
|
|
|
|
|
|
i18n_init();
|
|
|
|
|
|
|
|
|
|
opt.homedir = default_homedir ();
|
2006-09-13 15:57:30 +00:00
|
|
|
|
opt.connect_flags = 1; /* Use extended connect mode. */
|
2005-02-24 17:36:11 +00:00
|
|
|
|
|
|
|
|
|
/* Parse the command line. */
|
|
|
|
|
pargs.argc = &argc;
|
|
|
|
|
pargs.argv = &argv;
|
|
|
|
|
pargs.flags = 1; /* Do not remove the args. */
|
|
|
|
|
while (!no_more_options && optfile_parse (NULL, NULL, NULL, &pargs, opts))
|
|
|
|
|
{
|
|
|
|
|
switch (pargs.r_opt)
|
|
|
|
|
{
|
|
|
|
|
case oQuiet: opt.quiet = 1; break;
|
|
|
|
|
case oVerbose: opt.verbose++; break;
|
|
|
|
|
case oNoVerbose: opt.verbose = 0; break;
|
|
|
|
|
case oHomedir: opt.homedir = pargs.r.ret_str; break;
|
2005-02-25 16:14:55 +00:00
|
|
|
|
case oHex: opt.hex = 1; break;
|
2005-05-18 10:48:06 +00:00
|
|
|
|
case oRawSocket: opt.raw_socket = pargs.r.ret_str; break;
|
2006-09-13 15:57:30 +00:00
|
|
|
|
case oExec: opt.exec = 1; break;
|
|
|
|
|
case oNoExtConnect: opt.connect_flags &= ~(1); break;
|
2005-02-24 17:36:11 +00:00
|
|
|
|
|
|
|
|
|
default: pargs.err = 2; break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (log_get_errorcount (0))
|
|
|
|
|
exit (2);
|
|
|
|
|
|
2006-09-13 15:57:30 +00:00
|
|
|
|
if (opt.exec)
|
|
|
|
|
{
|
|
|
|
|
if (!argc)
|
|
|
|
|
{
|
|
|
|
|
log_error (_("option \"%s\" requires a program "
|
|
|
|
|
"and optional arguments\n"), "--exec" );
|
|
|
|
|
exit (1);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (argc)
|
|
|
|
|
usage (1);
|
|
|
|
|
|
|
|
|
|
if (opt.exec && opt.raw_socket)
|
|
|
|
|
log_info (_("option \"%s\" ignored due to \"%s\"\n"),
|
|
|
|
|
"--raw-socket", "--exec");
|
|
|
|
|
|
|
|
|
|
if (opt.exec)
|
2005-05-18 10:48:06 +00:00
|
|
|
|
{
|
2006-09-13 15:57:30 +00:00
|
|
|
|
int no_close[3];
|
|
|
|
|
|
|
|
|
|
no_close[0] = fileno (stderr);
|
|
|
|
|
no_close[1] = log_get_fd ();
|
|
|
|
|
no_close[2] = -1;
|
|
|
|
|
rc = assuan_pipe_connect_ext (&ctx, *argv, (const char **)argv,
|
|
|
|
|
no_close, NULL, NULL,
|
|
|
|
|
opt.connect_flags);
|
|
|
|
|
if (rc)
|
|
|
|
|
{
|
|
|
|
|
log_error ("assuan_pipe_connect_ext failed: %s\n",
|
|
|
|
|
gpg_strerror (rc));
|
|
|
|
|
exit (1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (opt.verbose)
|
|
|
|
|
log_info ("server `%s' started\n", *argv);
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
else if (opt.raw_socket)
|
|
|
|
|
{
|
|
|
|
|
rc = assuan_socket_connect_ext (&ctx, opt.raw_socket, 0,
|
|
|
|
|
opt.connect_flags);
|
2005-05-18 10:48:06 +00:00
|
|
|
|
if (rc)
|
|
|
|
|
{
|
|
|
|
|
log_error ("can't connect to socket `%s': %s\n",
|
2006-09-06 16:35:52 +00:00
|
|
|
|
opt.raw_socket, gpg_strerror (rc));
|
2005-05-18 10:48:06 +00:00
|
|
|
|
exit (1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (opt.verbose)
|
|
|
|
|
log_info ("connection to socket `%s' established\n", opt.raw_socket);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
ctx = start_agent ();
|
2005-02-24 17:36:11 +00:00
|
|
|
|
line = NULL;
|
|
|
|
|
linesize = 0;
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
int n;
|
|
|
|
|
size_t maxlength;
|
|
|
|
|
|
|
|
|
|
maxlength = 2048;
|
|
|
|
|
n = read_line (stdin, &line, &linesize, &maxlength);
|
|
|
|
|
if (n < 0)
|
|
|
|
|
{
|
|
|
|
|
log_error (_("error reading input: %s\n"), strerror (errno));
|
|
|
|
|
exit (1);
|
|
|
|
|
}
|
|
|
|
|
if (!n)
|
|
|
|
|
break; /* EOF */
|
|
|
|
|
if (!maxlength)
|
|
|
|
|
{
|
|
|
|
|
log_error (_("line too long - skipped\n"));
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
if (memchr (line, 0, n))
|
|
|
|
|
log_info (_("line shortened due to embedded Nul character\n"));
|
|
|
|
|
if (line[n-1] == '\n')
|
|
|
|
|
line[n-1] = 0;
|
2005-05-20 20:39:36 +00:00
|
|
|
|
if (*line == '/')
|
|
|
|
|
{
|
|
|
|
|
/* Handle control commands. */
|
|
|
|
|
char *cmd = line+1;
|
|
|
|
|
|
|
|
|
|
for (p=cmd; *p && !spacep (p); p++)
|
|
|
|
|
;
|
|
|
|
|
if (*p)
|
|
|
|
|
*p++ = 0;
|
|
|
|
|
while (spacep (p))
|
|
|
|
|
p++;
|
|
|
|
|
if (!strcmp (cmd, "definqfile"))
|
|
|
|
|
{
|
|
|
|
|
add_definq (p, 0);
|
|
|
|
|
}
|
|
|
|
|
else if (!strcmp (cmd, "definqprog"))
|
|
|
|
|
{
|
|
|
|
|
add_definq (p, 1);
|
|
|
|
|
}
|
|
|
|
|
else if (!strcmp (cmd, "showdef"))
|
|
|
|
|
{
|
|
|
|
|
show_definq ();
|
|
|
|
|
}
|
|
|
|
|
else if (!strcmp (cmd, "cleardef"))
|
|
|
|
|
{
|
|
|
|
|
clear_definq ();
|
|
|
|
|
}
|
|
|
|
|
else if (!strcmp (cmd, "echo"))
|
|
|
|
|
{
|
|
|
|
|
puts (p);
|
|
|
|
|
}
|
2006-09-13 15:57:30 +00:00
|
|
|
|
else if (!strcmp (cmd, "sendfd"))
|
|
|
|
|
{
|
|
|
|
|
do_sendfd (ctx, p);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else if (!strcmp (cmd, "recvfd"))
|
|
|
|
|
{
|
|
|
|
|
do_recvfd (ctx, p);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
2005-05-20 20:39:36 +00:00
|
|
|
|
else if (!strcmp (cmd, "help"))
|
|
|
|
|
{
|
2006-09-13 15:57:30 +00:00
|
|
|
|
puts (
|
|
|
|
|
"Available commands:\n"
|
|
|
|
|
"/echo ARGS Echo ARGS.\n"
|
|
|
|
|
"/definqfile NAME FILE\n"
|
|
|
|
|
" Use content of FILE for inquiries with NAME.\n"
|
|
|
|
|
" NAME may be \"*\" to match any inquiry.\n"
|
|
|
|
|
"/definqprog NAME PGM\n"
|
|
|
|
|
" Run PGM for inquiries matching NAME and pass the\n"
|
|
|
|
|
" entire line to it as arguments.\n"
|
|
|
|
|
"/showdef Print all definitions.\n"
|
|
|
|
|
"/cleardef Delete all definitions.\n"
|
2007-01-25 08:30:47 +00:00
|
|
|
|
"/sendfd FILE MODE Open FILE and pass descriptor to server.\n"
|
2006-09-13 15:57:30 +00:00
|
|
|
|
"/recvfd Receive FD from server and print. \n"
|
2005-05-20 20:39:36 +00:00
|
|
|
|
"/help Print this help.");
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
log_error (_("unknown command `%s'\n"), cmd );
|
|
|
|
|
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
2005-02-24 17:36:11 +00:00
|
|
|
|
rc = assuan_write_line (ctx, line);
|
|
|
|
|
if (rc)
|
|
|
|
|
{
|
2006-09-06 16:35:52 +00:00
|
|
|
|
log_info (_("sending line failed: %s\n"), gpg_strerror (rc) );
|
2005-02-24 17:36:11 +00:00
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
if (*line == '#' || !*line)
|
2006-09-13 15:57:30 +00:00
|
|
|
|
continue; /* Don't expect a response for a comment line. */
|
2005-02-24 17:36:11 +00:00
|
|
|
|
|
|
|
|
|
rc = read_and_print_response (ctx);
|
|
|
|
|
if (rc)
|
2006-09-06 16:35:52 +00:00
|
|
|
|
log_info (_("receiving line failed: %s\n"), gpg_strerror (rc) );
|
2005-02-24 17:36:11 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (opt.verbose)
|
|
|
|
|
log_info ("closing connection to agent\n");
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2005-05-20 20:39:36 +00:00
|
|
|
|
/* Handle an Inquire from the server. Return False if it could not be
|
|
|
|
|
handled; in this case the caller shll complete the operation. LINE
|
|
|
|
|
is the complete line as received from the server. This function
|
|
|
|
|
may change the content of LINE. */
|
|
|
|
|
static int
|
|
|
|
|
handle_inquire (assuan_context_t ctx, char *line)
|
|
|
|
|
{
|
|
|
|
|
const char *name;
|
|
|
|
|
definq_t d;
|
|
|
|
|
FILE *fp;
|
|
|
|
|
char buffer[1024];
|
|
|
|
|
int rc, n;
|
|
|
|
|
|
|
|
|
|
/* Skip the command and trailing spaces. */
|
|
|
|
|
for (; *line && !spacep (line); line++)
|
|
|
|
|
;
|
|
|
|
|
while (spacep (line))
|
|
|
|
|
line++;
|
|
|
|
|
/* Get the name. */
|
|
|
|
|
name = line;
|
|
|
|
|
for (; *line && !spacep (line); line++)
|
|
|
|
|
;
|
|
|
|
|
if (*line)
|
|
|
|
|
*line++ = 0;
|
|
|
|
|
|
|
|
|
|
/* Now match it against our list. he second loop is todetect the
|
|
|
|
|
match all entry. **/
|
|
|
|
|
for (d=definq_list; d; d = d->next)
|
|
|
|
|
if (d->name && !strcmp (d->name, name))
|
|
|
|
|
break;
|
|
|
|
|
if (!d)
|
|
|
|
|
for (d=definq_list; d; d = d->next)
|
|
|
|
|
if (!d->name)
|
|
|
|
|
break;
|
|
|
|
|
if (!d)
|
|
|
|
|
{
|
|
|
|
|
if (opt.verbose)
|
|
|
|
|
log_info ("no handler for inquiry `%s' found\n", name);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (d->is_prog)
|
|
|
|
|
{
|
|
|
|
|
fp = popen (d->file, "r");
|
|
|
|
|
if (!fp)
|
|
|
|
|
log_error ("error executing `%s': %s\n", d->file, strerror (errno));
|
|
|
|
|
else if (opt.verbose)
|
|
|
|
|
log_error ("handling inquiry `%s' by running `%s'\n", name, d->file);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
fp = fopen (d->file, "rb");
|
|
|
|
|
if (!fp)
|
|
|
|
|
log_error ("error opening `%s': %s\n", d->file, strerror (errno));
|
|
|
|
|
else if (opt.verbose)
|
|
|
|
|
log_error ("handling inquiry `%s' by returning content of `%s'\n",
|
|
|
|
|
name, d->file);
|
|
|
|
|
}
|
|
|
|
|
if (!fp)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
while ( (n = fread (buffer, 1, sizeof buffer, fp)) )
|
|
|
|
|
{
|
|
|
|
|
rc = assuan_send_data (ctx, buffer, n);
|
|
|
|
|
if (rc)
|
|
|
|
|
{
|
2006-09-06 16:35:52 +00:00
|
|
|
|
log_error ("sending data back failed: %s\n", gpg_strerror (rc) );
|
2005-05-20 20:39:36 +00:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (ferror (fp))
|
|
|
|
|
log_error ("error reading from `%s': %s\n", d->file, strerror (errno));
|
|
|
|
|
|
|
|
|
|
rc = assuan_send_data (ctx, NULL, 0);
|
|
|
|
|
if (rc)
|
2006-09-06 16:35:52 +00:00
|
|
|
|
log_error ("sending data back failed: %s\n", gpg_strerror (rc) );
|
2005-05-20 20:39:36 +00:00
|
|
|
|
|
|
|
|
|
if (d->is_prog)
|
|
|
|
|
{
|
|
|
|
|
if (pclose (fp))
|
|
|
|
|
log_error ("error running `%s': %s\n", d->file, strerror (errno));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
fclose (fp);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2005-02-24 17:36:11 +00:00
|
|
|
|
/* Read all response lines from server and print them. Returns 0 on
|
|
|
|
|
success or an assuan error code. */
|
|
|
|
|
static int
|
|
|
|
|
read_and_print_response (assuan_context_t ctx)
|
|
|
|
|
{
|
|
|
|
|
char *line;
|
2005-06-16 08:12:03 +00:00
|
|
|
|
size_t linelen;
|
2005-02-24 17:36:11 +00:00
|
|
|
|
assuan_error_t rc;
|
2005-02-25 16:14:55 +00:00
|
|
|
|
int i, j;
|
2005-02-24 17:36:11 +00:00
|
|
|
|
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
rc = assuan_read_line (ctx, &line, &linelen);
|
|
|
|
|
if (rc)
|
|
|
|
|
return rc;
|
2006-09-13 15:57:30 +00:00
|
|
|
|
|
|
|
|
|
if (opt.verbose > 1 && *line == '#')
|
|
|
|
|
{
|
|
|
|
|
fwrite (line, linelen, 1, stdout);
|
|
|
|
|
putchar ('\n');
|
|
|
|
|
}
|
2005-02-24 17:36:11 +00:00
|
|
|
|
}
|
|
|
|
|
while (*line == '#' || !linelen);
|
|
|
|
|
|
|
|
|
|
if (linelen >= 1
|
|
|
|
|
&& line[0] == 'D' && line[1] == ' ')
|
|
|
|
|
{
|
2005-02-25 16:14:55 +00:00
|
|
|
|
if (opt.hex)
|
|
|
|
|
{
|
|
|
|
|
for (i=2; i < linelen; )
|
|
|
|
|
{
|
|
|
|
|
int save_i = i;
|
|
|
|
|
|
|
|
|
|
printf ("D[%04X] ", i-2);
|
|
|
|
|
for (j=0; j < 16 ; j++, i++)
|
|
|
|
|
{
|
|
|
|
|
if (j == 8)
|
|
|
|
|
putchar (' ');
|
|
|
|
|
if (i < linelen)
|
|
|
|
|
printf (" %02X", ((unsigned char*)line)[i]);
|
|
|
|
|
else
|
|
|
|
|
fputs (" ", stdout);
|
|
|
|
|
}
|
|
|
|
|
fputs (" ", stdout);
|
|
|
|
|
i= save_i;
|
|
|
|
|
for (j=0; j < 16; j++, i++)
|
|
|
|
|
{
|
|
|
|
|
unsigned int c = ((unsigned char*)line)[i];
|
|
|
|
|
if ( i >= linelen )
|
|
|
|
|
putchar (' ');
|
|
|
|
|
else if (isascii (c) && isprint (c) && !iscntrl (c))
|
|
|
|
|
putchar (c);
|
|
|
|
|
else
|
|
|
|
|
putchar ('.');
|
|
|
|
|
}
|
|
|
|
|
putchar ('\n');
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
fwrite (line, linelen, 1, stdout);
|
|
|
|
|
putchar ('\n');
|
|
|
|
|
}
|
2005-02-24 17:36:11 +00:00
|
|
|
|
}
|
|
|
|
|
else if (linelen >= 1
|
|
|
|
|
&& line[0] == 'S'
|
|
|
|
|
&& (line[1] == '\0' || line[1] == ' '))
|
|
|
|
|
{
|
|
|
|
|
fwrite (line, linelen, 1, stdout);
|
|
|
|
|
putchar ('\n');
|
|
|
|
|
}
|
|
|
|
|
else if (linelen >= 2
|
|
|
|
|
&& line[0] == 'O' && line[1] == 'K'
|
|
|
|
|
&& (line[2] == '\0' || line[2] == ' '))
|
|
|
|
|
{
|
|
|
|
|
fwrite (line, linelen, 1, stdout);
|
|
|
|
|
putchar ('\n');
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
else if (linelen >= 3
|
|
|
|
|
&& line[0] == 'E' && line[1] == 'R' && line[2] == 'R'
|
|
|
|
|
&& (line[3] == '\0' || line[3] == ' '))
|
|
|
|
|
{
|
|
|
|
|
fwrite (line, linelen, 1, stdout);
|
|
|
|
|
putchar ('\n');
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
else if (linelen >= 7
|
|
|
|
|
&& line[0] == 'I' && line[1] == 'N' && line[2] == 'Q'
|
|
|
|
|
&& line[3] == 'U' && line[4] == 'I' && line[5] == 'R'
|
|
|
|
|
&& line[6] == 'E'
|
|
|
|
|
&& (line[7] == '\0' || line[7] == ' '))
|
|
|
|
|
{
|
|
|
|
|
fwrite (line, linelen, 1, stdout);
|
|
|
|
|
putchar ('\n');
|
2005-05-20 20:39:36 +00:00
|
|
|
|
if (!handle_inquire (ctx, line))
|
|
|
|
|
assuan_write_line (ctx, "CANCEL");
|
2005-02-24 17:36:11 +00:00
|
|
|
|
}
|
|
|
|
|
else if (linelen >= 3
|
|
|
|
|
&& line[0] == 'E' && line[1] == 'N' && line[2] == 'D'
|
|
|
|
|
&& (line[3] == '\0' || line[3] == ' '))
|
|
|
|
|
{
|
|
|
|
|
fwrite (line, linelen, 1, stdout);
|
|
|
|
|
putchar ('\n');
|
|
|
|
|
/* Received from server, thus more responses are expected. */
|
|
|
|
|
}
|
|
|
|
|
else
|
2006-09-06 16:35:52 +00:00
|
|
|
|
return gpg_error (GPG_ERR_ASS_INV_RESPONSE);
|
2005-02-24 17:36:11 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2005-04-11 16:21:49 +00:00
|
|
|
|
/* Connect to the agent and send the standard options. */
|
2005-02-24 17:36:11 +00:00
|
|
|
|
static assuan_context_t
|
|
|
|
|
start_agent (void)
|
|
|
|
|
{
|
|
|
|
|
int rc = 0;
|
|
|
|
|
char *infostr, *p;
|
|
|
|
|
assuan_context_t ctx;
|
|
|
|
|
|
|
|
|
|
infostr = getenv ("GPG_AGENT_INFO");
|
|
|
|
|
if (!infostr || !*infostr)
|
|
|
|
|
{
|
|
|
|
|
char *sockname;
|
|
|
|
|
|
|
|
|
|
/* Check whether we can connect at the standard socket. */
|
|
|
|
|
sockname = make_filename (opt.homedir, "S.gpg-agent", NULL);
|
|
|
|
|
rc = assuan_socket_connect (&ctx, sockname, 0);
|
|
|
|
|
xfree (sockname);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int prot;
|
|
|
|
|
int pid;
|
|
|
|
|
|
|
|
|
|
infostr = xstrdup (infostr);
|
|
|
|
|
if ( !(p = strchr (infostr, PATHSEP_C)) || p == infostr)
|
|
|
|
|
{
|
|
|
|
|
log_error (_("malformed GPG_AGENT_INFO environment variable\n"));
|
|
|
|
|
xfree (infostr);
|
|
|
|
|
exit (1);
|
|
|
|
|
}
|
|
|
|
|
*p++ = 0;
|
|
|
|
|
pid = atoi (p);
|
2005-04-11 16:21:49 +00:00
|
|
|
|
while (*p && *p != PATHSEP_C)
|
2005-02-24 17:36:11 +00:00
|
|
|
|
p++;
|
|
|
|
|
prot = *p? atoi (p+1) : 0;
|
|
|
|
|
if (prot != 1)
|
|
|
|
|
{
|
|
|
|
|
log_error (_("gpg-agent protocol version %d is not supported\n"),
|
|
|
|
|
prot);
|
|
|
|
|
xfree (infostr);
|
|
|
|
|
exit (1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
rc = assuan_socket_connect (&ctx, infostr, pid);
|
|
|
|
|
xfree (infostr);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (rc)
|
|
|
|
|
{
|
2006-09-06 16:35:52 +00:00
|
|
|
|
log_error ("can't connect to the agent: %s\n", gpg_strerror (rc));
|
2005-02-24 17:36:11 +00:00
|
|
|
|
exit (1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (opt.verbose)
|
|
|
|
|
log_info ("connection to agent established\n");
|
|
|
|
|
|
|
|
|
|
rc = assuan_transact (ctx, "RESET", NULL, NULL, NULL, NULL, NULL, NULL);
|
|
|
|
|
if (rc)
|
|
|
|
|
{
|
|
|
|
|
log_error (_("error sending %s command: %s\n"), "RESET",
|
2006-09-06 16:35:52 +00:00
|
|
|
|
gpg_strerror (rc));
|
2005-02-24 17:36:11 +00:00
|
|
|
|
exit (1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
rc = send_pinentry_environment (ctx, GPG_ERR_SOURCE_DEFAULT,
|
|
|
|
|
NULL, NULL, NULL, NULL, NULL);
|
|
|
|
|
if (rc)
|
|
|
|
|
{
|
|
|
|
|
log_error (_("error sending standard options: %s\n"), gpg_strerror (rc));
|
|
|
|
|
exit (1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return ctx;
|
|
|
|
|
}
|