NAME

PGP::FindKey - Perl interface to finding PGP keyids from e-mail addresses.

SYNOPSIS

  use PGP::FindKey; 
  $obj = new PGP::FindKey
        ( 'keyserver'   => 'keyserver.pgp.com', 
          'address'     => 'remote_user@their.address' );
  die( "The key could not be found, or there was one than one match.\n" ) unless defined($obj);

  print $obj->result;   # the keyid found. 
  print $obj->name;     # the name associated with the key.

  # We could call `gpg --recv-key $obj->result` here.

DESCRIPTION

Perl interface to finding PGP keyids from e-mail addresses.

METHOD

new - Creates a new PGP::FindKey object. Parameters:

  address:   (mandatory) E-mail address to be translated.
  keyserver: Default to 'keyserver.pgp.com'.
  path:      Default to '/pks/lookup?'.
  command:   Default to '?op=index&search='.

NOTES

The module will return undef if more than one key is present for an address. This is because that we - or indeed, the user - have no way of knowing which key they're after in this case, and it would be a bad idea to encourage them to encrypt to a random public key. This limitation will be addressed when a $want_array param is implemented, and the choice can be given to the user if required.

TODO

Plenty of things: \- More information about the key found. \- More meaningful error reporting. \- Other mechanisms. $want_array param, more OO.

AUTHOR

Chris Ball <chris@cpan.org>

SEE ALSO

perl(1).