* asshelp.c (send_pinentry_environment) [W32]: Do not use ttyname.
[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 #ifdef HAVE_DOSISH_SYSTEM
70       if (!dft_ttyname || !*dft_ttyname )
71         dft_ttyname = "/dev/tty"; /* Use a fake. */
72 #else      
73       if ((!dft_ttyname || !*dft_ttyname) && ttyname (0))
74         dft_ttyname = ttyname (0);
75 #endif
76     }
77   if (opt_ttyname || dft_ttyname)
78     {
79       char *optstr;
80       if (asprintf (&optstr, "OPTION ttyname=%s",
81                     opt_ttyname ? opt_ttyname : dft_ttyname) < 0)
82         return gpg_error_from_errno (errno);
83       rc = assuan_transact (ctx, optstr, NULL, NULL, NULL, NULL, NULL,
84                             NULL);
85       free (optstr);
86       if (rc)
87         return map_assuan_err (rc);
88     }
89   dft_ttytype = getenv ("TERM");
90   if (opt_ttytype || (dft_ttyname && dft_ttytype))
91     {
92       char *optstr;
93       if (asprintf (&optstr, "OPTION ttytype=%s",
94                     opt_ttyname ? opt_ttytype : dft_ttytype) < 0)
95         return gpg_error_from_errno (errno);
96       rc = assuan_transact (ctx, optstr, NULL, NULL, NULL, NULL, NULL,
97                             NULL);
98       free (optstr);
99       if (rc)
100         return map_assuan_err (rc);
101     }
102 #if defined(HAVE_SETLOCALE) && defined(LC_CTYPE)
103   old_lc = setlocale (LC_CTYPE, NULL);
104   if (old_lc)
105     {
106       old_lc = strdup (old_lc);
107       if (!old_lc)
108         return gpg_error_from_errno (errno);
109     }
110   dft_lc = setlocale (LC_CTYPE, "");
111 #endif
112   if (opt_lc_ctype || (dft_ttyname && dft_lc))
113     {
114       char *optstr;
115       if (asprintf (&optstr, "OPTION lc-ctype=%s",
116                     opt_lc_ctype ? opt_lc_ctype : dft_lc) < 0)
117         rc = gpg_error_from_errno (errno);
118       else
119         {
120           rc = assuan_transact (ctx, optstr, NULL, NULL, NULL, NULL, NULL,
121                                 NULL);
122           free (optstr);
123           if (rc)
124             rc = map_assuan_err (rc);
125         }
126     }
127 #if defined(HAVE_SETLOCALE) && defined(LC_CTYPE)
128   if (old_lc)
129     {
130       setlocale (LC_CTYPE, old_lc);
131       free (old_lc);
132     }
133 #endif
134   if (rc)
135     return rc;
136 #if defined(HAVE_SETLOCALE) && defined(LC_MESSAGES)
137   old_lc = setlocale (LC_MESSAGES, NULL);
138   if (old_lc)
139     {
140       old_lc = strdup (old_lc);
141       if (!old_lc)
142         return gpg_error_from_errno (errno);
143     }
144   dft_lc = setlocale (LC_MESSAGES, "");
145 #endif
146   if (opt_lc_messages || (dft_ttyname && dft_lc))
147     {
148       char *optstr;
149       if (asprintf (&optstr, "OPTION lc-messages=%s",
150                     opt_lc_messages ? opt_lc_messages : dft_lc) < 0)
151         rc = gpg_error_from_errno (errno);
152       else
153         {
154           rc = assuan_transact (ctx, optstr, NULL, NULL, NULL, NULL, NULL,
155                                 NULL);
156           free (optstr);
157           if (rc)
158             rc = map_assuan_err (rc);
159         }
160     }
161 #if defined(HAVE_SETLOCALE) && defined(LC_MESSAGES)
162   if (old_lc)
163     {
164       setlocale (LC_MESSAGES, old_lc);
165       free (old_lc);
166     }
167 #endif
168
169   return rc;
170 }
171