File Coverage

blib/lib/PGP/FindKey.pm

Criterion	Covered	Total	%
statement	34	41	82.9
branch	3	6	50.0
condition	4	9	44.4
subroutine	7	9	77.7
pod	0	3	0.0
total	48	68	70.5

package PGP::FindKey;

use strict;
use vars qw($VERSION);

$VERSION = '0.02';

use LWP::UserAgent;
use HTTP::Request;
use URI::Escape;

sub new {
	my ($this, @args) = @_;
	my $class = shift;
	my $self = bless { @_ }, $class;
	return $self->_init(@_);
}


sub _init {
	my($self, %params) = @_;;

	# Caller can set:
	#  \- address:		(mandatory)
	#  \- keyserver: 	(default to 'keyserver.pgp.com')
	#  \- path:		(default to '/pks/lookup')
	#  \- command:		(default to '?op=index&search=')

	return undef unless exists($params{address});
	$self->{keyserver} 	||= 'keyserver.pgp.com';
	$self->{path} 		||= '/pks/lookup';
	$self->{command}	||= '?op=index&search=';
	$self->{address}	||= uri_escape($params{address});

	my $query = "http://" . $self->{keyserver} . $self->{path} . $self->{command} . $self->{address};

	my $ua = LWP::UserAgent->new();

	# Check for *_proxy env vars.  Use them if they're there.
	$ua->env_proxy();

	# Get the page.

	my $req = new HTTP::Request('GET' => $query);
	my $res = $ua->request($req);
	unless($res->is_success){
		warn(__PACKAGE__ . ":" . $res->status_line);
		return undef;
	}
	my $page = $res->content;

	# Parse the response page.  $count contains number of re matches.
	# An example of the html response is:
	#
	# pub  1024/7C2F31DF\
	#  2001/08/28 Chris J. Ball <
57
	# =0x7C2F31DF">[e-mail]>

	my $count =()= $page =~ m!pub  \d{4}/(.{8}) \d{4}/\d{2}/\d{2} (.*) <!g;

	# We must only have two matches; one for keyid, one for name.  Zero
	# matches signifies a missed search, and more than two would signify
	# multiple matches.  The reason for giving up and returning undef in
	# the latter case is explained POD-wards.

	return undef unless $count == 2;
	$self->{_result} = $1;
	$self->{_name} = $2;
	return $self;
}

sub name { return $_[0]->{_name} }
sub result { return $_[0]->{_result} }

1;
__END__