See ChangeLog: Wed Apr 28 13:03:03 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 /****************
43  * Check whether FNAME exists and ask if it's okay to overwrite an
44  * existing one.
45  * Returns: True: it's okay to overwrite or the file does not exist
46  *          False: Do not overwrite
47  */
48 int
49 overwrite_filep( const char *fname )
50 {
51     if( !fname || (*fname == '-' && !fname[1]) )
52         return 1; /* writing to stdout is always okay */
53
54     if( access( fname, F_OK ) )
55         return 1; /* does not exist */
56
57     /* fixme: add some backup stuff in case of overwrite */
58     if( opt.answer_yes )
59         return 1;
60     if( opt.answer_no || opt.batch )
61         return 0;  /* do not overwrite */
62
63     tty_printf(_("File `%s' exists. "), fname);
64     if( cpr_get_answer_is_yes("openfile.overwrite.okay",
65                                _("Overwrite (y/N)? ")) )
66         return 1;
67     return 0;
68 }
69
70
71 /****************
72  * Make an output filename for the inputfile INAME.
73  * Returns an IOBUF and an errorcode
74  * Mode 0 = use ".gpg"
75  *      1 = use ".asc"
76  *      2 = use ".sig"
77  */
78 int
79 open_outfile( const char *iname, int mode, IOBUF *a )
80 {
81     int rc = 0;
82
83     *a = NULL;
84     if( (!iname || (*iname=='-' && !iname[1])) && !opt.outfile ) {
85         if( !(*a = iobuf_create(NULL)) ) {
86             log_error(_("%s: can't open: %s\n"), "[stdout]", strerror(errno) );
87             rc = G10ERR_CREATE_FILE;
88         }
89         else if( opt.verbose )
90             log_info(_("writing to stdout\n"));
91     }
92     else {
93         char *buf=NULL;
94         const char *name;
95
96         if( opt.dry_run )
97             name = "/dev/null";
98         else if( opt.outfile )
99             name = opt.outfile;
100         else {
101           #ifdef USE_ONLY_8DOT3
102             #error please implement this
103           #endif
104             buf = m_alloc(strlen(iname)+4+1);
105             strcpy(stpcpy(buf,iname), mode==1 ? ".asc" :
106                                       mode==2 ? ".sig" : ".gpg");
107             name = buf;
108         }
109         if( overwrite_filep( name ) ) {
110             if( !(*a = iobuf_create( name )) ) {
111                 log_error(_("%s: can't create: %s\n"), name, strerror(errno) );
112                 rc = G10ERR_CREATE_FILE;
113             }
114             else if( opt.verbose )
115                 log_info(_("writing to `%s'\n"), name );
116         }
117         else
118             rc = G10ERR_FILE_EXISTS;
119         m_free(buf);
120     }
121     return rc;
122 }
123
124
125 /****************
126  * Try to open a file without the extension ".sig" or ".asc"
127  * Return NULL if such a file is not available.
128  */
129 IOBUF
130 open_sigfile( const char *iname )
131 {
132     IOBUF a = NULL;
133     size_t len;
134
135   #ifdef USE_ONLY_8DOT3
136     #error please implement this
137   #endif
138     if( iname && !(*iname == '-' && !iname[1]) ) {
139         len = strlen(iname);
140         if( len > 4 && ( !strcmp(iname + len - 4, ".sig")
141                         || !strcmp(iname + len - 4, ".asc")) ) {
142             char *buf;
143             buf = m_strdup(iname);
144             buf[len-4] = 0 ;
145             a = iobuf_open( buf );
146             if( opt.verbose )
147                 log_info(_("assuming signed data in `%s'\n"), buf );
148             m_free(buf);
149         }
150     }
151     return a;
152 }
153
154
155 /****************
156  * Copy the option file skeleton to the given directory.
157  */
158 void
159 copy_options_file( const char *destdir )
160 {
161     const char *datadir = GNUPG_DATADIR;
162     char *fname;
163     FILE *src, *dst;
164     int linefeeds=0;
165     int c;
166
167     if( opt.dry_run )
168         return;
169
170     fname = m_alloc( strlen(datadir) + strlen(destdir) + 15 );
171     strcpy(stpcpy(fname, datadir), "/options" SKELEXT );
172     src = fopen( fname, "r" );
173     if( !src ) {
174         log_error(_("%s: can't open: %s\n"), fname, strerror(errno) );
175         m_free(fname);
176         return;
177     }
178     strcpy(stpcpy(fname, destdir), "/options" );
179     dst = fopen( fname, "w" );
180     if( !dst ) {
181         log_error(_("%s: can't create: %s\n"), fname, strerror(errno) );
182         fclose( src );
183         m_free(fname);
184         return;
185     }
186
187     while( (c=getc(src)) != EOF ) {
188         if( linefeeds < 3 ) {
189             if( c == '\n' )
190                 linefeeds++;
191         }
192         else
193             putc( c, dst );
194     }
195     fclose( dst );
196     fclose( src );
197     log_info(_("%s: new options file created\n"), fname );
198     m_free(fname);
199 }
200