view release on metacpan or  search on metacpan

FindKey.pm  view on Meta::CPAN

  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.

=head1 DESCRIPTION

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

=head1 METHOD

B<new> - Creates a new PGP::FindKey object.  Parameters:

  address:   (mandatory) E-mail address to be translated.