* Makefile.am (sm): Build kbx only if gpgsm is to be build.
[gnupg.git] / common / asshelp.c
1 /* asshelp.c - Helper functions for Assuan
2  * Copyright (C) 2002, 2004 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 <unistd.h>
26 #include <errno.h>
27 #ifdef HAVE_LOCALE_H
28 #include <locale.h>
29 #endif
30
31 #include "util.h"
32
33 #include "asshelp.h"
34
35 /* Send the assuan command pertaining to the pinenry environment.  The
36    OPT_* arguments are optional and may be used to overide the
37    defaults taken from the current locale. */
38 gpg_error_t
39 send_pinentry_environment (assuan_context_t ctx,
40                            const char *opt_display,
41                            const char *opt_ttyname,
42                            const char *opt_ttytype,
43                            const char *opt_lc_ctype,
44                            const char *opt_lc_messages)
45 {
46   int rc = 0;
47   char *dft_display = NULL;
48   char *dft_ttyname = NULL;
49   char *dft_ttytype = NULL;
50   char *old_lc = NULL; 
51   char *dft_lc = NULL;
52
53   dft_display = getenv ("DISPLAY");
54   if (opt_display || dft_display)
55     {
56       char *optstr;
57       if (asprintf (&optstr, "OPTION display=%s",
58                     opt_display ? opt_display : dft_display) < 0)
59         return gpg_error_from_errno (errno);
60       rc = assuan_transact (ctx, optstr, NULL, NULL, NULL, NULL, NULL,
61                             NULL);
62       free (optstr);
63       if (rc)
64         return map_assuan_err (rc);
65     }
66   if (!opt_ttyname)
67     {
68       dft_ttyname = getenv ("GPG_TTY");
69       if ((!dft_ttyname || !*dft_ttyname) && ttyname (0))
70         dft_ttyname = ttyname (0);
71     }
72   if (opt_ttyname || dft_ttyname)
73     {
74       char *optstr;
75       if (asprintf (&optstr, "OPTION ttyname=%s",
76                     opt_ttyname ? opt_ttyname : dft_ttyname) < 0)
77         return gpg_error_from_errno (errno);
78       rc = assuan_transact (ctx, optstr, NULL, NULL, NULL, NULL, NULL,
79                             NULL);
80       free (optstr);
81       if (rc)
82         return map_assuan_err (rc);
83     }
84   dft_ttytype = getenv ("TERM");
85   if (opt_ttytype || (dft_ttyname && dft_ttytype))
86     {
87       char *optstr;
88       if (asprintf (&optstr, "OPTION ttytype=%s",
89                     opt_ttyname ? opt_ttytype : dft_ttytype) < 0)
90         return gpg_error_from_errno (errno);
91       rc = assuan_transact (ctx, optstr, NULL, NULL, NULL, NULL, NULL,
92                             NULL);
93       free (optstr);
94       if (rc)
95         return map_assuan_err (rc);
96     }
97 #if defined(HAVE_SETLOCALE) && defined(LC_CTYPE)
98   old_lc = setlocale (LC_CTYPE, NULL);
99   if (old_lc)
100     {
101       old_lc = strdup (old_lc);
102       if (!old_lc)
103         return gpg_error_from_errno (errno);
104     }
105   dft_lc = setlocale (LC_CTYPE, "");
106 #endif
107   if (opt_lc_ctype || (dft_ttyname && dft_lc))
108     {
109       char *optstr;
110       if (asprintf (&optstr, "OPTION lc-ctype=%s",
111                     opt_lc_ctype ? opt_lc_ctype : dft_lc) < 0)
112         rc = gpg_error_from_errno (errno);
113       else
114         {
115           rc = assuan_transact (ctx, optstr, NULL, NULL, NULL, NULL, NULL,
116                                 NULL);
117           free (optstr);
118           if (rc)
119             rc = map_assuan_err (rc);
120         }
121     }
122 #if defined(HAVE_SETLOCALE) && defined(LC_CTYPE)
123   if (old_lc)
124     {
125       setlocale (LC_CTYPE, old_lc);
126       free (old_lc);
127     }
128 #endif
129   if (rc)
130     return rc;
131 #if defined(HAVE_SETLOCALE) && defined(LC_MESSAGES)
132   old_lc = setlocale (LC_MESSAGES, NULL);
133   if (old_lc)
134     {
135       old_lc = strdup (old_lc);
136       if (!old_lc)
137         return gpg_error_from_errno (errno);
138     }
139   dft_lc = setlocale (LC_MESSAGES, "");
140 #endif
141   if (opt_lc_messages || (dft_ttyname && dft_lc))
142     {
143       char *optstr;
144       if (asprintf (&optstr, "OPTION lc-messages=%s",
145                     opt_lc_messages ? opt_lc_messages : dft_lc) < 0)
146         rc = gpg_error_from_errno (errno);
147       else
148         {
149           rc = assuan_transact (ctx, optstr, NULL, NULL, NULL, NULL, NULL,
150                                 NULL);
151           free (optstr);
152           if (rc)
153             rc = map_assuan_err (rc);
154         }
155     }
156 #if defined(HAVE_SETLOCALE) && defined(LC_MESSAGES)
157   if (old_lc)
158     {
159       setlocale (LC_MESSAGES, old_lc);
160       free (old_lc);
161     }
162 #endif
163
164   return rc;
165 }
166