in reply to Re^2: Mail::Pop3Client messing up PGP email messages
in thread Mail::Pop3Client messing up PGP email messages

That sounds like maybe the message is PGP-signed, then MIME-encoded. If that's the case, to check it you'll have to MIME-decode it (which will change the =3D to just =) then check the signature.

--
sgifford's Web page

Replies are listed 'Best First'.
Re^4: Mail::Pop3Client messing up PGP email messages
by Popcorn Dave (Abbot) on May 30, 2006 at 03:12 UTC
    I'm not sure what I'm doing wrong here. I'm about to pitch the e-mail attempt and use flock instead I'm getting so frustrated.

    Here's the code I'm trying: 

    use strict;
use MIME::Decoder;

open FH, "audit1.gpg";

my $decoder = new MIME::Decoder "7Bit";
$decoder->decode(\*FH, \*STDOUT);

close FH;

    [download]

    Very basic, but I'm still getting the encoded 3D which shouldn't be there at the end of the message.

    I know that the encryption is correct, because when I physically remove the 3D towards the end of the file, it decodes properly.

    Can you please point me to what I might be missing?

    Useless trivia: In the 2004 Las Vegas phone book there are approximately 28 pages of ads for massage, but almost 200 for lawyers.
[reply]
[d/l]
      The MIME encoding that would replace = with =3D is "quoted-printable". Try using: 
      my $decoder = new MIME::Decoder "quoted-printable";

      [download]

      You should be able to detect the right encoding from the MIME headers; it would surprise me if MIME::Decoder wouldn't do that automatically for you somehow.


      --
      sgifford's Web page
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom