* configure.ac: Require libgcrypt 1.1.94.
[gnupg.git] / kbx / kbxutil.c
1 /* kbxutil.c - The Keybox utility
2  *      Copyright (C) 2000, 2001 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 <errno.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <ctype.h>
27 #include <unistd.h>
28
29 #include "../jnlib/logging.h"
30 #include "../jnlib/argparse.h"
31 #include "../jnlib/stringhelp.h"
32 #include "../common/i18n.h"
33 #include "keybox-defs.h"
34
35 #include <gcrypt.h>
36
37
38 enum cmd_and_opt_values {
39   aNull = 0,
40   oArmor          = 'a',
41   oDryRun         = 'n',
42   oOutput         = 'o',
43   oQuiet          = 'q',
44   oVerbose        = 'v',
45   
46   aNoSuchCmd    = 500,   /* force other values not to be a letter */
47   aFindByFpr,
48   aFindByKid,
49   aFindByUid,
50
51   oDebug,
52   oDebugAll,
53
54   oNoArmor,
55   
56
57   aTest
58 };
59
60
61 static ARGPARSE_OPTS opts[] = {
62   { 300, NULL, 0, N_("@Commands:\n ") },
63
64   { aFindByFpr,  "find-by-fpr", 0, "|FPR| find key using it's fingerprnt" },
65   { aFindByKid,  "find-by-kid", 0, "|KID| find key using it's keyid" },
66   { aFindByUid,  "find-by-uid", 0, "|NAME| find key by user name" },
67   
68   { 301, NULL, 0, N_("@\nOptions:\n ") },
69   
70   { oArmor, "armor",     0, N_("create ascii armored output")},
71   { oArmor, "armour",     0, "@" },
72   { oOutput, "output",    2, N_("use as output file")},
73   { oVerbose, "verbose",   0, N_("verbose") },
74   { oQuiet,     "quiet",   0, N_("be somewhat more quiet") },
75   { oDryRun, "dry-run",   0, N_("do not make any changes") },
76   
77   { oDebug, "debug"     ,4|16, N_("set debugging flags")},
78   { oDebugAll, "debug-all" ,0, N_("enable full debugging")},
79
80   {0} /* end of list */
81 };
82
83
84 void myexit (int rc);
85
86 int keybox_errors_seen = 0;
87
88
89 static const char *
90 my_strusage( int level )
91 {
92     const char *p;
93     switch( level ) {
94       case 11: p = "kbxutil (GnuPG)";
95         break;
96       case 13: p = VERSION; break;
97       case 17: p = PRINTABLE_OS_NAME; break;
98       case 19: p =
99             _("Please report bugs to " PACKAGE_BUGREPORT ".\n");
100         break;
101       case 1:
102       case 40:  p =
103             _("Usage: kbxutil [options] [files] (-h for help)");
104         break;
105       case 41:  p =
106             _("Syntax: kbxutil [options] [files]\n"
107               "list, export, import Keybox data\n");
108         break;
109
110
111       default:  p = NULL;
112     }
113     return p;
114 }
115
116
117 static void
118 i18n_init(void)
119 {
120 #ifdef USE_SIMPLE_GETTEXT
121     set_gettext_file( PACKAGE_GT );
122 #else
123 #ifdef ENABLE_NLS
124     #ifdef HAVE_LC_MESSAGES
125        setlocale( LC_TIME, "" );
126        setlocale( LC_MESSAGES, "" );
127     #else
128        setlocale( LC_ALL, "" );
129     #endif
130     bindtextdomain( PACKAGE_GT, LOCALEDIR );
131     textdomain( PACKAGE_GT );
132 #endif
133 #endif
134 }
135
136
137 /*  static void */
138 /*  wrong_args( const char *text ) */
139 /*  { */
140 /*      log_error("usage: kbxutil %s\n", text); */
141 /*      myexit ( 1 ); */
142 /*  } */
143
144
145 #if 0
146 static int
147 hextobyte( const byte *s )
148 {
149     int c;
150
151     if( *s >= '0' && *s <= '9' )
152         c = 16 * (*s - '0');
153     else if( *s >= 'A' && *s <= 'F' )
154         c = 16 * (10 + *s - 'A');
155     else if( *s >= 'a' && *s <= 'f' )
156         c = 16 * (10 + *s - 'a');
157     else
158         return -1;
159     s++;
160     if( *s >= '0' && *s <= '9' )
161         c += *s - '0';
162     else if( *s >= 'A' && *s <= 'F' )
163         c += 10 + *s - 'A';
164     else if( *s >= 'a' && *s <= 'f' )
165         c += 10 + *s - 'a';
166     else
167         return -1;
168     return c;
169 }
170 #endif
171
172 #if 0
173 static char *
174 format_fingerprint ( const char *s )
175 {
176     int i, c;
177     byte fpr[20];
178
179     for (i=0; i < 20 && *s; ) {
180         if ( *s == ' ' || *s == '\t' ) {
181             s++;
182             continue;
183         }
184         c = hextobyte(s);
185         if (c == -1) {
186             return NULL;
187         }
188         fpr[i++] = c;
189         s += 2;
190     }
191     return gcry_xstrdup ( fpr );
192 }
193 #endif
194
195 #if 0
196 static int
197 format_keyid ( const char *s, u32 *kid )
198 {
199     char helpbuf[9];
200     switch ( strlen ( s ) ) {
201       case 8:
202         kid[0] = 0;
203         kid[1] = strtoul( s, NULL, 16 );
204         return 10;
205
206       case 16:
207         mem2str( helpbuf, s, 9 );
208         kid[0] = strtoul( helpbuf, NULL, 16 );
209         kid[1] = strtoul( s+8, NULL, 16 );
210         return 11;
211     }
212     return 0; /* error */
213 }
214 #endif
215
216
217 int
218 main( int argc, char **argv )
219 {
220   ARGPARSE_ARGS pargs;
221   enum cmd_and_opt_values cmd = 0;
222   
223   set_strusage( my_strusage );
224   /*log_set_name("kbxutil"); fixme */
225 #if 0
226   /* check that the libraries are suitable.  Do it here because
227    * the option parse may need services of the library */
228   if ( !gcry_check_version ( "1.1.4" ) ) 
229     {
230       log_fatal(_("libgcrypt is too old (need %s, have %s)\n"),
231                 "1.1.4", gcry_check_version(NULL) );
232     }
233 #endif
234
235   /*create_dotlock(NULL); register locking cleanup */
236   i18n_init();
237
238   /* We need to use the gcry malloc function because jnlib does use them */
239   keybox_set_malloc_hooks (gcry_malloc, gcry_realloc, gcry_free);
240   ksba_set_malloc_hooks (gcry_malloc, gcry_realloc, gcry_free );
241
242
243   pargs.argc = &argc;
244   pargs.argv = &argv;
245   pargs.flags=  1;  /* do not remove the args */
246   while (arg_parse( &pargs, opts) )
247     {
248       switch (pargs.r_opt)
249         {
250         case oVerbose:
251           /*opt.verbose++;*/
252           /*gcry_control( GCRYCTL_SET_VERBOSITY, (int)opt.verbose );*/
253           break;
254         case oDebug:
255           /*opt.debug |= pargs.r.ret_ulong; */
256           break;
257         case oDebugAll:
258           /*opt.debug = ~0;*/
259           break;
260
261         case aFindByFpr:
262         case aFindByKid:
263         case aFindByUid:
264           cmd = pargs.r_opt;
265           break;
266           
267         default:
268           pargs.err = 2;
269           break;
270         }
271     }
272   if (log_get_errorcount(0) )
273     myexit(2);
274   
275   if (!cmd)
276       { /* default is to list a KBX file */
277         if (!argc) 
278           _keybox_dump_file (NULL, stdout);
279         else
280           {
281             for (; argc; argc--, argv++) 
282               _keybox_dump_file (*argv, stdout);
283           }
284     }
285 #if 0
286     else if ( cmd == aFindByFpr ) {
287         char *fpr;
288         if ( argc != 2 )
289             wrong_args ("kbxfile foingerprint");
290         fpr = format_fingerprint ( argv[1] );
291         if ( !fpr )
292             log_error ("invalid formatted fingerprint\n");
293         else {
294             kbxfile_search_by_fpr ( argv[0], fpr );
295             gcry_free ( fpr );
296         }
297     }
298     else if ( cmd == aFindByKid ) {
299         u32 kid[2];
300         int mode;
301
302         if ( argc != 2 )
303             wrong_args ("kbxfile short-or-long-keyid");
304         mode = format_keyid ( argv[1], kid );
305         if ( !mode )
306             log_error ("invalid formatted keyID\n");
307         else {
308             kbxfile_search_by_kid ( argv[0], kid, mode );
309         }
310     }
311     else if ( cmd == aFindByUid ) {
312         if ( argc != 2 )
313             wrong_args ("kbxfile userID");
314         kbxfile_search_by_uid ( argv[0], argv[1] );
315     }
316 #endif
317     else
318         log_error ("unsupported action\n");
319
320     myexit(0);
321     return 8; /*NEVER REACHED*/
322 }
323
324
325 void
326 myexit( int rc )
327 {
328   /*    if( opt.debug & DBG_MEMSTAT_VALUE ) {*/
329 /*      gcry_control( GCRYCTL_DUMP_MEMORY_STATS ); */
330 /*      gcry_control( GCRYCTL_DUMP_RANDOM_STATS ); */
331   /*    }*/
332 /*      if( opt.debug ) */
333 /*      gcry_control( GCRYCTL_DUMP_SECMEM_STATS ); */
334     rc = rc? rc : log_get_errorcount(0)? 2 :
335                         keybox_errors_seen? 1 : 0;
336     exit(rc );
337 }
338
339