App-Eduard

 view release on metacpan or  search on metacpan

lib/App/Eduard.pm  view on Meta::CPAN

	$params{plaintext} = first_part $params{decrypted} if $params{decrypted};

	my $tt = Template->new(INCLUDE_PATH => rel2abs $tmpl_path, dist_file 'App-Eduard', 'tmpl');
	my ($keys, $result) = ('', '');
	$tt->process('keys', {keys => \@keys}, \$keys) if @keys;
	$tt->process($tmpl, \%params, \$result);
	my $email = MIME::Entity->build(
		From    => $ENV{EDUARD_FROM},
		To      => $in->get('From'),
		Type    => 'text/plain; charset=UTF-8',
		Encoding=> '-SUGGEST',
		Subject => 'Re: ' . $in->get('Subject'),
		Data    => $keys.$result);

	my $email_unencrypted = $email->dup;
	my $mg = mg always_trust => 1;
	my $encrypt_failed = $mg->mime_signencrypt($email, $in->get('From') =~ /<(.*)>/);
	debug 'Could not encrypt message, sending unencrypted. GnuPG said:', "\n", stringify $mg->{last_message} if $encrypt_failed;
	sendmail $encrypt_failed ? $email_unencrypted : $email
}

t/data/contains-pubkey  view on Meta::CPAN

From: Marius Gavrilescu <marius@ceata.org>
To: marius@ceata.org
Subject: Contains pubkey
Date: Thu, 10 Jul 2014 00:17:20 +0300
MIME-Version: 1.0
Content-Type: multipart/mixed;
 boundary="------------010501030105000001010800"

This is a multi-part message in MIME format.
--------------010501030105000001010800
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 7bit

This mail contains a public key.

--------------010501030105000001010800
Content-Type: application/pgp-keys;
 name="0x69137654.asc"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="0x69137654.asc"

t/data/inline-encrypted  view on Meta::CPAN

From: Eduard <eduard@ceata.org>
To: Eduard <eduard@ceata.org>
Subject: Inline Encrypted
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii

-----BEGIN PGP MESSAGE-----
Version: GnuPG v1

hQEMAzLKYfkz3zGcAQgAujmOHpwpHD8nlYcwSlF2peRV98+JFZd78gfikpS7lq01
C5xFK7u/GkbNwb3Y7YLFGlectQIzpIkRSnPtTqO9nkVZ0vk9sSP5nztuc6pWZztU
zre0yFedLFgSSUeIpSwMAfluB4cUWBBJkP/LryMWpvetJ6kqBFAciffz/5apf8Ol
Fij5/4zkA/5NKNmy+jlDVtmaSI+cuGp5LCNqWHTcpNqRFFXh1GBWAVahmc0fwpzU
R0PWgfE+X9IpxnqvHSLUW8vcevdd/vuChd0e6vn+k6DEFvsSm8E3qIpv1KvAzvPZ
A/RbgBM8XzpD1JQQy+NekTJO1Xe1BiFizZbYlMRpndJ8AXle3rZFhYhtty8mGLVZ

t/data/inline-encrypted-attachment  view on Meta::CPAN

From: Eduard <eduard@ceata.org>
To: Eduard <eduard@ceata.org>
Subject: Inline Encrypted with attachments
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-=";

--=-=-=
Content-Type: text/plain; charset=us-ascii

-----BEGIN PGP MESSAGE-----
Version: GnuPG v1

hQEMAzLKYfkz3zGcAQgAujmOHpwpHD8nlYcwSlF2peRV98+JFZd78gfikpS7lq01
C5xFK7u/GkbNwb3Y7YLFGlectQIzpIkRSnPtTqO9nkVZ0vk9sSP5nztuc6pWZztU
zre0yFedLFgSSUeIpSwMAfluB4cUWBBJkP/LryMWpvetJ6kqBFAciffz/5apf8Ol
Fij5/4zkA/5NKNmy+jlDVtmaSI+cuGp5LCNqWHTcpNqRFFXh1GBWAVahmc0fwpzU
R0PWgfE+X9IpxnqvHSLUW8vcevdd/vuChd0e6vn+k6DEFvsSm8E3qIpv1KvAzvPZ
A/RbgBM8XzpD1JQQy+NekTJO1Xe1BiFizZbYlMRpndJ8AXle3rZFhYhtty8mGLVZ

t/data/inline-signed-encrypted  view on Meta::CPAN

From: Eduard <eduard@ceata.org>
To: Eduard <eduard@ceata.org>
Subject: Inline Signed & Encrypted
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii

-----BEGIN PGP MESSAGE-----
Version: GnuPG v1

hQEMAzLKYfkz3zGcAQf9HtMPNgaPA1BGlXaA18ADFFzRQxhWoUk18Ce/IGP1AHmL
FY3vhzQpamowDjAu+JgWiohuP4lB1eP6e2rxgsTrrx+O+Yffy+Kl36xAtgs+pl3t
EXz1BOeAZNrFRr/3RjRzMzZZlhBnYg/uq3fJceDsHZG+FchbtAXavQ7hgXfLXBWJ
XWDjQDK5dXqtNPEwq2cWRfjQx1M1W/NNj2DXWanLacb/tuvjYMRfYyeLKZ1BVwvB
YtTC8lHtwCGMkSpf96e6+LniiNqmFVwlD7VH99UcIR6v+7ZoWm+mnZsoH8lVRXfz
OO0uLxCa2M7kvPwAg4VJDvjFwbFfl/L445onZuNhetLA+AHJ/BGRMRwg1ZU1oVrR