#!/usr/bin/perl -w
-# (c) 2000, 2002 Christian Kurz <shorty@debian.org>,
-# Peter Palfrader <peter@palfrader.org>
+# Copyright (c) 2000, 2002 Christian Kurz <shorty@debian.org>,
+# Copyright (c) 2000, 2002, 2005 Peter Palfrader <peter@palfrader.org>
#
# $Id$
#
# along with this program; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# Keylookup homepage: http://www.palfrader.org/keylookup/
-# CVS, BTS: http://savannah.gnu.org/projects/keylookup/
+# Keylookup is part of pgp-tools:
+# http://pgp-tools.alioth.debian.org/
+# svn://svn.debian.org/pgp-tools/trunk/
+# http://svn.debian.org/wsvn/pgp-tools/trunk/
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV', 'PATH'};
$|=1; # Always flush buffers
push @ops, '--with-colons';
push @ops, '--fixed-list-mode';
push @ops, '--search';
- push @ops, $options->{'search'};
+ push @ops, @{$options->{'search'}};
exec(@ops);
die ("Cannot exec GnuPG: $!\n");
};
## Take all additional arguments to the program as a search target,
## escape the string for use in URLs.
- $options{'search'} = join ' ', @ARGV;
- $options{'search'} =~ s/ ( [^A-Za-z0-9] )
- / '%' . unpack("H2", $1)
- /xeg;
+ $options{'search'} = \@ARGV;
my $keys = getHits( \%options );
my $keyids;
+ if (scalar keys %$keys == 0) {
+ print "GnuPG did not find any keys matching your search string.\n";
+ exit 0;
+ };
if ($options{'importall'}) {
my @allkeys = keys %$keys;
$keyids = \@allkeys;