Gecko [ www.finalhopeacademy.com ]

Name	Size	Permission
Manager.pm	2.83 KB	-rw-r--r--
deBase64.pm	1.01 KB	-rw-r--r--
deHTML.pm	6.69 KB	-rw-r--r--
deHTML_comment.pm	577 B	-rw-r--r--
deHTMLxs.pm	1.06 KB	-rw-r--r--
deNewline.pm	365 B	-rw-r--r--
deQP.pm	912 B	-rw-r--r--
enBase64.pm	835 B	-rw-r--r--

Code Editor : deBase64.pm

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;
}

${this.title}

Code Editor : deBase64.pm