gpg_kc

   1 #! /usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Getopt::Long;
   7 use Pod::Usage;
   8
   9 =head1 NAME
  10
  11 gpg_kc -- gpg keychain management
  12
  13 =head1 SYNOPSIS
  14
  15 gpg_kc [retrieve|update|sync]
  16
  17  Options:
  18   --debug, -d debugging level (Default 0)
  19   --help, -h display this help
  20   --man, -m display manual
  21
  22
  23 =head1 COMMANDS
  24
  25 =over
  26
  27 =item retrieve -- retrieve keys in the keylist from a keyserver
  28
  29 =item update -- update keys in the keyring and add new keys in the keylist
  30
  31 =item sync -- add new keys in the keyring to the keylist and vice versa
  32
  33 =back
  34
  35 =head1 OPTIONS
  36
  37 =over
  38
  39 =item B<--debug, -d>
  40
  41 Debug verbosity. (Default 0)
  42
  43 =item B<--help, -h>
  44
  45 Display brief useage information.
  46
  47 =item B<--man, -m>
  48
  49 Display this manual.
  50
  51 =back
  52
  53 =head1 EXAMPLES
  54
  55 =cut
  56
  57
  58 #gpg --list-public-keys --with-colons |perl -ne 'next unless /^pub/; @fields = split /:/; print $fields[4],qq(\n);' > keylist
  59
  60
  61 use vars qw($DEBUG);
  62
  63 # XXX parse config file
  64
  65 my %options = (debug           => 0,
  66                help            => 0,
  67                man             => 0,
  68               );
  69
  70 GetOptions(\%options,'debug|d+','help|h|?','man|m');
  71
  72 pod2usage() if $options{help};
  73 pod2usage({verbose=>2}) if $options{man};
  74
  75 $DEBUG = $options{debug};
  76
  77
  78
  79 __END__