File Coverage

blib/lib/MIME/Decoder/PGP.pm

Criterion	Covered	Total	%
statement	9	33	27.2
branch	0	12	0.0
condition			n/a
subroutine	3	6	50.0
pod	2	3	66.6
total	14	54	25.9

require 5.002;

use strict;
use MIME::Decoder;


package MIME::Decoder::PGP;

use vars qw(@ISA $VERSION $passPhrases);

@ISA = qw(MIME::Decoder);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 1.1.1.1 $, 10;


#------------------------------
#
# decode_it IN, OUT
#
sub decode_it {
    my ($self, $in, $out) = @_;
    my($head) = $self->head();
    if (!$head) {
	die "Missing MIME header";
    }
    my($uid) = $head->mime_attr('content-transfer-encoding.uid');
    if (!$uid) {
	die "Missing User ID (Attribute uid of header field"
	    . " content-transfer-encoding)";
    }
    if (!exists($MIME::Decoder::PGP::passPhrases->{$uid})) {
	die "Unknown User ID: $uid";
    }
    $ENV{'PGPPASS'} = $MIME::Decoder::PGP::passPhrases->{$uid};
    $self->filter($in, $out, "pgp -f +verbose=0");
}

#------------------------------
#
# encode_it IN, OUT
#
sub encode_it {
    my ($self, $in, $out) = @_;
    my($head) = $self->head();
    if (!$head) {
	die "Missing MIME header";
    }
    my($uid) = $head->mime_attr('content-transfer-encoding.uid');
    if (!$uid) {
	die "Missing User ID (Attribute uid of header field"
	    . " content-transfer-encoding)";
    }
    # Make uid shell safe
    $uid =~ s/([^\w])/\\$1/g;
    $self->filter($in, $out, "pgp -fea $uid +verbose=0");
}


#------------------------------
#
# pass_phrases [PASS_PHRASE_HASH]
sub pass_phrases {
    my($self, $passPhraseHash) = @_;
    if (@_ > 1) {
	$MIME::Decoder::PGP::passPhrases = $passPhraseHash;
    }
    $MIME::Decoder::PGP::passPhrases;
}


#------------------------------
1;


__END__