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