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