package Razor2::Preproc::deBase64; sub new { return bless {}, shift; } sub isit { my ( $self, $text ) = @_; return $$text =~ /^Content-Transfer-Encoding: base64/sim; } sub doit { my ( $self, $text ) = @_; my ( $hdr, $body ) = split /\n\r*\n/, $$text, 2; $body = $self->extract_base64($text); $body =~ tr|A-Za-z0-9+=/||cd; # remove non-base64 chars $body =~ s/=+$//; # remove padding $body =~ tr|A-Za-z0-9+/| -_|; # convert to uuencoded format my $decoded = ''; while ( $body =~ /(.{1,60})/gs ) { my $len = chr( 32 + length($1) * 3 / 4 ); # compute length byte $decoded .= unpack( "u", $len . $1 ); # uudecode } $$text = "$hdr\n\n$decoded"; } sub extract_base64 { my ( $self, $text ) = @_; if ( $$text =~ /Content-Transfer-Encoding: base64(.*)$/si ) { my $rhs = $1; $rhs =~ /\r?\n\r?\n([^=]*)/s; # match to end of data or '=' return $1 . "=="; } return undef; } 1;