3 # Copyright (c) 2000, 2002 Christian Kurz <shorty@debian.org>,
4 # Copyright (c) 2000, 2002, 2005 Peter Palfrader <peter@palfrader.org>
8 # This program is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 2, or (at your option)
13 # This program is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write to the Free Software Foundation,
20 # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
22 # Keylookup is part of pgp-tools:
23 # http://pgp-tools.alioth.debian.org/
24 # svn://svn.debian.org/pgp-tools/trunk/
25 # http://svn.debian.org/wsvn/pgp-tools/trunk/
27 delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV', 'PATH'};
28 $|=1; # Always flush buffers
36 my $version = '3.0 ($Id$)';
38 # Where to find GnuPG's options file.
39 # Full path to the dialog and whiptail executeable.
40 my $Dialog = '/usr/bin/dialog';
41 my $Whiptail = '/usr/bin/whiptail';
43 # Strings to use in the dialog|whiptail frontend
44 my $TITLE = 'Import Keys';
45 my $BACKTITLE = 'KeyLookup $Revision$';
46 my $INSTRUCTION = 'Select keys to import:';
48 my @TPUTCOL=('tput', 'cols');
49 my @TPUTROW=('tput', 'lines');
52 # Size of the dialog boxes, will be set in calcDialogSize;
53 my $MAX_UID_FIELD_LEN;
58 # Was the keyserver overriden|given on the command line?
59 # This is used to find out wheter we need to instruct the user
60 # to give the keyserver option to GnuPG.
61 my $keyserverWasSetOnCmdLine = 0;
64 # Maps algorithm numbers to algorithm types as defined in RFC 2400.
67 2 => 'r', # RSA encrypt only (deprecated)
68 3 => 's', # RSA sign only (deprecated)
69 16 => 'g', # ElGamal encrypt only
70 20 => 'g', # ElGamal sign and encrypt (all OpenPGP implementations cryptographically broken, do not use. no longer part of OpenPGP)
75 # getHits receives all options as a parameter, calls fetchIT to
76 # query a keyserver, processes the output from the keyserver and
77 # stores it in a datastructure for later use.
81 my $pid = open(KID
, '-|');
82 defined ($pid) or die ("Cannot fork: $!\n");
85 open (STDIN
, "/dev/null") || die ("Cannot open /dev/null as stdin: $!\n");
89 if ($options->{'keyserver'}) {
90 push @ops, '--keyserver='.$options->{'keyserver'};
92 push @ops, '--command-fd=0';
94 push @ops, '--no-tty';
95 push @ops, '--with-colons';
96 push @ops, '--fixed-list-mode';
97 push @ops, '--search';
98 push @ops, @
{$options->{'search'}};
100 die ("Cannot exec GnuPG: $!\n");
107 my ($type, undef) = split /:/;
108 if ($type eq 'pub') {
109 my ($type, $keyid, $algo, $bits, $created, undef, $revoked) = split /:/;
110 $currentKey = { 'bits' => $bits,
111 'type' => (defined $ALGOS{$algo} ?
$ALGOS{$algo} : '#'.$algo),
113 'created' => $created,
114 'revoked' => $revoked,
117 $keys{ $keyid } = $currentKey;
118 } elsif (defined $currentKey && $type eq 'uid') {
119 my ($type, $name) = split /:/;
120 if ($currentKey->{'revoked'} eq 'r') {
121 $name .= ' [REVOKED]';
123 push @
{ $currentKey->{'uid'} }, $name;
132 # returns the number of columns of the terminal
135 return $DEFAULTCOLS unless (defined ($pid = open(KID
, "-|")));
142 return (defined $cols) ?
$cols : $DEFAULTCOLS;
145 # returns the number of lines of the terminal
148 return $DEFAULTROWS unless (defined ($pid = open(KID
, "-|")));
155 return (defined $rows) ?
$rows : $DEFAULTROWS;
158 # sets MAX_UID_FIELD_LEN, DIALOGSIZE, and WHIPTAILSIZE
160 my $COLS = &getCols
();
161 my $ROWS = &getRows
();
162 $MAX_UID_FIELD_LEN = $COLS - 27;
163 @DIALOGSIZE = ($ROWS-7, $COLS-7, $ROWS-14);
164 @WHIPTAILSIZE = ($ROWS-7, $COLS-7, $ROWS-14);
167 sub prepareForDialog
{
171 for my $keyid (sort {- ($keys->{$a}->{'created'} <=> $keys->{$b}->{'created'})} keys %$keys) {
172 for (@
{ $keys->{$keyid}->{'uid'} }) {
174 $keys->{$keyid}->{'keyid'},
175 length() <= $MAX_UID_FIELD_LEN ?
$_ : substr($_, 0, $MAX_UID_FIELD_LEN-2) . '..',
178 my (undef,undef,undef,$mday,$mon,$year,undef,undef,undef) = localtime ($keys->{$keyid}->{'created'});
179 push @keyargs, $keys->{$keyid}->{'keyid'}, sprintf( "[created: %s-%s-%s]", $year+1900, $mon+1, $mday ), 'off';
180 push @keyargs, '-'x8
, '-'x40
, 'off';
193 for my $keyid (sort {- ($keys->{$a}->{'created'} <=> $keys->{$b}->{'created'})} keys %$keys) {
194 my (undef,undef,undef,$mday,$mon,$year,undef,undef,undef) = localtime ($keys->{$keyid}->{'created'});
195 push @lines, sprintf( "%s%s/%s %s-%s-%s\n",
196 $keys->{$keyid}->{'bits'},
197 $keys->{$keyid}->{'type'},
198 $keys->{$keyid}->{'keyid'},
199 $year+1900, $mon+1, $mday );
200 push @lines, map { ' 'x26
. $_ . "\n" } @
{ $keys->{$keyid}->{'uid'} };
210 # open(SAVEOUT, ">&STDOUT") || die ("Cannot save STDOUT: $!\n");
211 # open(SAVEIN , "<&STDIN" ) || die ("Cannot save STDIN: $!\n");
213 my $pid = open3
( '<&STDIN', '>&STDOUT', \
*ERRFH
, @
$args);
216 my @keys = grep { !$unique{$_}++ }
217 grep { /^[0-9A-Fa-f]{8}$/ }
218 map { s/\s//g; $_ } <ERRFH
>;
221 # open(STDOUT, ">&SAVEOUT") || die "Cannot restore STDOUT: $!\n";
222 # open(STDIN , "<&SAVEIN") || die "Cannot restore STDIN: $!\n";
231 my $frontend = $options->{'frontend'};
232 $frontend = 'dialog' unless (defined $frontend);
234 if ($frontend eq 'dialog') {
235 unless (-x
$Dialog) {
236 warn("Dialog ($Dialog) not executeable/installed. Falling back to Whiptail\n");
237 $frontend = 'whiptail';
240 if ($frontend eq 'whiptail') {
241 unless (-x
$Whiptail ) {
242 warn("Whiptail ($Whiptail) not executeable/installed. Falling back to plain\n");
247 if ( $frontend eq 'dialog' ) {
259 push @ARGS, @
{&prepareForDialog
($keys)};
260 return &callDialog
( \
@ARGS );
261 } elsif ( $frontend eq 'whiptail' ) {
274 push @ARGS, @
{&prepareForDialog
($keys)};
275 return &callDialog
( \
@ARGS );
277 print for (@
{ &prepareForTXT
( $keys ) });
278 if ($keyserverWasSetOnCmdLine) {
279 printf ("Now run gpg --keyserver %s --recv-keys <key ids>\n", $options->{'keyserver'});
281 print ("Now run gpg --recv-keys <key ids>\n");
284 ## If no frontend was selected, or selected frontend was plain,
285 ## exit successfully, otherwise with an exitcode != 0
286 exit (defined $options->{'frontend'} &&
287 $options->{'frontend'} ne "" &&
288 $options->{'frontend'} ne "plain");
297 if ($options->{'keyserver'}) {
298 push @args, '--keyserver='.$options->{'keyserver'};
300 push @args, '--recv-keys';
301 for my $keyid (@
$keyids) {
303 my ($cleanid) = $keyid =~ /^([a-zA-Z0-9]{8})$/;
304 warn ("keyid '$keyid' has unexpected format - skipping\n"), next
305 unless defined $cleanid;
306 push @args, $cleanid;
309 print "Calling GnuPG...\n";
310 exec (@args) || die "can't exec gnupg: $!\n"; # won't return
315 my $errorcode = shift;
317 Syntax
: keylookup
[options
] <searchstring
>
320 --keyserver
=<keyserver
> Select keyserver
321 --frontend
=<frontend
> One of whiptail
, dialog
or plain
322 --importall Import all matched
keys
323 --help
print this message
331 print "keylookup $version\nWritten by Christian Kurz and Peter Palfrader.\n";
336 GetOptions
( \
%options,
343 &version
(0) if ($options{'version'});
344 &usage
(0) if ($options{'help'} || ( scalar(@ARGV) == 0));
346 ## Take all additional arguments to the program as a search target,
347 ## escape the string for use in URLs.
348 $options{'search'} = \
@ARGV;
349 my $keys = getHits
( \
%options );
352 if (scalar keys %$keys == 0) {
353 print "GnuPG did not find any keys matching your search string.\n";
356 if ($options{'importall'}) {
357 my @allkeys = keys %$keys;
360 $keyids = selectKeys
($keys, \
%options); # won't return if no interactive frontend
362 &importKeys
($keyids, \
%options) if (scalar @
$keyids); # won't return