See ChangeLog: Thu Jul 1 12:47:31 CEST 1999 Werner Koch
[gnupg.git] / g10 / openfile.c
1 /* openfile.c
2  *      Copyright (C) 1998 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 <assert.h>
26 #include <errno.h>
27 #include <unistd.h>
28 #include "util.h"
29 #include "memory.h"
30 #include "ttyio.h"
31 #include "options.h"
32 #include "main.h"
33 #include "status.h"
34 #include "i18n.h"
35
36 #ifdef USE_ONLY_8DOT3
37   #define SKELEXT ".skl"
38 #else
39   #define SKELEXT ".skel"
40 #endif
41
42 /* FIXME:  Implement opt.interactive. */
43
44 /****************
45  * Check whether FNAME exists and ask if it's okay to overwrite an
46  * existing one.
47  * Returns: True: it's okay to overwrite or the file does not exist
48  *          False: Do not overwrite
49  */
50 int
51 overwrite_filep( const char *fname )
52 {
53     if( !fname || (*fname == '-' && !fname[1]) )
54         return 1; /* writing to stdout is always okay */
55
56     if( access( fname, F_OK ) )
57         return 1; /* does not exist */
58
59     /* fixme: add some backup stuff in case of overwrite */
60     if( opt.answer_yes )
61         return 1;
62     if( opt.answer_no || opt.batch )
63         return 0;  /* do not overwrite */
64
65     tty_printf(_("File `%s' exists. "), fname);
66     if( cpr_get_answer_is_yes("openfile.overwrite.okay",
67                                _("Overwrite (y/N)? ")) )
68         return 1;
69     return 0;
70 }
71
72
73 /****************
74  * Strip know extensions from iname and return a newly allocated
75  * filename.  Return NULL if we can't do that.
76  */
77 char *
78 make_outfile_name( const char *iname )
79 {
80     size_t n;
81
82     if( (!iname || (*iname=='-' && !iname[1]) ))
83         return m_strdup("-");
84
85   #ifdef HAVE_DRIVE_LETTERS
86     #warning add case insensitive compare
87   #endif
88     n = strlen(iname);
89     if( n > 4 && (    !strcmp(iname+n-4,".gpg")
90                    || !strcmp(iname+n-4,".sig")
91                    || !strcmp(iname+n-4,".asc") ) ) {
92         char *buf = m_strdup( iname );
93         buf[n-4] = 0;
94         return buf;
95     }
96
97     log_error(_("%s: unknown suffix\n"), iname );
98     return NULL;
99 }
100
101
102 /****************
103  * Ask for a outputfilename and use the given one as default.
104  * Return NULL if no file has been given or it is not possible to
105  * ask the user.
106  */
107 char *
108 ask_outfile_name( const char *name, size_t namelen )
109 {
110     size_t n;
111     const char *s;
112     char *prompt;
113     char *fname;
114     char *defname;
115
116     if( opt.batch )
117         return NULL;
118
119     s = _("Enter new filename");
120
121     n = strlen(s) + namelen + 10;
122     defname = name && namelen? make_printable_string( name, namelen, 0): NULL;
123     prompt = m_alloc(n);
124     if( defname )
125         sprintf(prompt, "%s [%s]: ", s, defname );
126     else
127         sprintf(prompt, "%s: ", s );
128     fname = cpr_get("openfile.askoutname", prompt );
129     cpr_kill_prompt();
130     m_free(prompt);
131     if( !*fname ) {
132         m_free( fname ); fname = NULL;
133         fname = defname; defname = NULL;
134     }
135     m_free(defname);
136     return fname;
137 }
138
139
140
141 /****************
142  * Make an output filename for the inputfile INAME.
143  * Returns an IOBUF and an errorcode
144  * Mode 0 = use ".gpg"
145  *      1 = use ".asc"
146  *      2 = use ".sig"
147  */
148 int
149 open_outfile( const char *iname, int mode, IOBUF *a )
150 {
151     int rc = 0;
152
153     *a = NULL;
154     if( (!iname || (*iname=='-' && !iname[1])) && !opt.outfile ) {
155         if( !(*a = iobuf_create(NULL)) ) {
156             log_error(_("%s: can't open: %s\n"), "[stdout]", strerror(errno) );
157             rc = G10ERR_CREATE_FILE;
158         }
159         else if( opt.verbose )
160             log_info(_("writing to stdout\n"));
161     }
162     else {
163         char *buf=NULL;
164         const char *name;
165
166         if( opt.dry_run )
167             name = "/dev/null";
168         else if( opt.outfile )
169             name = opt.outfile;
170         else {
171           #ifdef USE_ONLY_8DOT3
172             #warning please implement 8.3 files
173           #endif
174             buf = m_alloc(strlen(iname)+4+1);
175             strcpy(stpcpy(buf,iname), mode==1 ? ".asc" :
176                                       mode==2 ? ".sig" : ".gpg");
177             name = buf;
178         }
179
180         if( overwrite_filep( name ) ) {
181             if( !(*a = iobuf_create( name )) ) {
182                 log_error(_("%s: can't create: %s\n"), name, strerror(errno) );
183                 rc = G10ERR_CREATE_FILE;
184             }
185             else if( opt.verbose )
186                 log_info(_("writing to `%s'\n"), name );
187         }
188         else
189             rc = G10ERR_FILE_EXISTS;
190         m_free(buf);
191     }
192     return rc;
193 }
194
195
196
197 /****************
198  * Try to open a file without the extension ".sig" or ".asc"
199  * Return NULL if such a file is not available.
200  */
201 IOBUF
202 open_sigfile( const char *iname )
203 {
204     IOBUF a = NULL;
205     size_t len;
206
207   #ifdef USE_ONLY_8DOT3
208     #warning please implement 8.3 files
209   #endif
210     if( iname && !(*iname == '-' && !iname[1]) ) {
211         len = strlen(iname);
212         if( len > 4 && ( !strcmp(iname + len - 4, ".sig")
213                         || !strcmp(iname + len - 4, ".asc")) ) {
214             char *buf;
215             buf = m_strdup(iname);
216             buf[len-4] = 0 ;
217             a = iobuf_open( buf );
218             if( opt.verbose )
219                 log_info(_("assuming signed data in `%s'\n"), buf );
220             m_free(buf);
221         }
222     }
223     return a;
224 }
225
226
227 /****************
228  * Copy the option file skeleton to the given directory.
229  */
230 void
231 copy_options_file( const char *destdir )
232 {
233     const char *datadir = GNUPG_DATADIR;
234     char *fname;
235     FILE *src, *dst;
236     int linefeeds=0;
237     int c;
238
239     if( opt.dry_run )
240         return;
241
242     fname = m_alloc( strlen(datadir) + strlen(destdir) + 15 );
243     strcpy(stpcpy(fname, datadir), "/options" SKELEXT );
244     src = fopen( fname, "r" );
245     if( !src ) {
246         log_error(_("%s: can't open: %s\n"), fname, strerror(errno) );
247         m_free(fname);
248         return;
249     }
250     strcpy(stpcpy(fname, destdir), "/options" );
251     dst = fopen( fname, "w" );
252     if( !dst ) {
253         log_error(_("%s: can't create: %s\n"), fname, strerror(errno) );
254         fclose( src );
255         m_free(fname);
256         return;
257     }
258
259     while( (c=getc(src)) != EOF ) {
260         if( linefeeds < 3 ) {
261             if( c == '\n' )
262                 linefeeds++;
263         }
264         else
265             putc( c, dst );
266     }
267     fclose( dst );
268     fclose( src );
269     log_info(_("%s: new options file created\n"), fname );
270     m_free(fname);
271 }
272