<h2>Edit File - ISO_2022_JP.pm</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/lib64/perl5/vendor_perl/Encode/MIME/Header/ISO_2022_JP.pm">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">package Encode::MIME::Header::ISO_2022_JP;

use strict;
use warnings;

use parent qw(Encode::MIME::Header);

my $obj =
  bless { decode_b =&gt; &#039;1&#039;, decode_q =&gt; &#039;1&#039;, encode =&gt; &#039;B&#039;, bpl =&gt; 76, Name =&gt; &#039;MIME-Header-ISO_2022_JP&#039; } =&gt;
  __PACKAGE__;
Encode::define_encoding($obj, &#039;MIME-Header-ISO_2022_JP&#039;);

use constant HEAD =&gt; &#039;=?ISO-2022-JP?B?&#039;;
use constant TAIL =&gt; &#039;?=&#039;;

use Encode::CJKConstants qw(%RE);

our $VERSION = do { my @r = ( q$Revision: 1.9 $ =~ /\d+/g ); sprintf &quot;%d.&quot; . &quot;%02d&quot; x $#r, @r };

# I owe the below codes totally to
#   Jcode by Dan Kogai &amp; http://www.din.or.jp/~ohzaki/perl.htm#JP_Base64

sub encode {
    my $self = shift;
    my $str  = shift;
    return undef unless defined $str;

    utf8::encode($str) if ( Encode::is_utf8($str) );
    Encode::from_to( $str, &#039;utf8&#039;, &#039;euc-jp&#039; );

    my ($trailing_crlf) = ( $str =~ /(\n|\r|\x0d\x0a)$/o );

    $str = _mime_unstructured_header( $str, $self-&gt;{bpl} );

    not $trailing_crlf and $str =~ s/(\n|\r|\x0d\x0a)$//o;

    return $str;
}

sub _mime_unstructured_header {
    my ( $oldheader, $bpl ) = @_;
    my $crlf = $oldheader =~ /\n$/;
    my ( $header, @words, @wordstmp, $i ) = (&#039;&#039;);

    $oldheader =~ s/\s+$//;

    @wordstmp = split /\s+/, $oldheader;

    for ( $i = 0 ; $i &lt; $#wordstmp ; $i++ ) {
        if (    $wordstmp[$i] !~ /^[\x21-\x7E]+$/
            and $wordstmp[ $i + 1 ] !~ /^[\x21-\x7E]+$/ )
        {
            $wordstmp[ $i + 1 ] = &quot;$wordstmp[$i] $wordstmp[$i + 1]&quot;;
        }
        else {
            push( @words, $wordstmp[$i] );
        }
    }

    push( @words, $wordstmp[-1] );

    for my $word (@words) {
        if ( $word =~ /^[\x21-\x7E]+$/ ) {
            $header =~ /(?:.*\n)*(.*)/;
            if ( length($1) + length($word) &gt; $bpl ) {
                $header .= &quot;\n $word&quot;;
            }
            else {
                $header .= $word;
            }
        }
        else {
            $header = _add_encoded_word( $word, $header, $bpl );
        }

        $header =~ /(?:.*\n)*(.*)/;

        if ( length($1) == $bpl ) {
            $header .= &quot;\n &quot;;
        }
        else {
            $header .= &#039; &#039;;
        }
    }

    $header =~ s/\n? $//mg;

    $crlf ? &quot;$header\n&quot; : $header;
}

sub _add_encoded_word {
    my ( $str, $line, $bpl ) = @_;
    my $result = &#039;&#039;;

    while ( length($str) ) {
        my $target = $str;
        $str = &#039;&#039;;

        if (
            length($line) + 22 +
            ( $target =~ /^(?:$RE{EUC_0212}|$RE{EUC_C})/o ) * 8 &gt; $bpl )
        {
            $line =~ s/[ \t\n\r]*$/\n/;
            $result .= $line;
            $line = &#039; &#039;;
        }

        while (1) {
            my $iso_2022_jp = $target;
            Encode::from_to( $iso_2022_jp, &#039;euc-jp&#039;, &#039;iso-2022-jp&#039; );

            my $encoded =
              HEAD . MIME::Base64::encode_base64( $iso_2022_jp, &#039;&#039; ) . TAIL;

            if ( length($encoded) + length($line) &gt; $bpl ) {
                $target =~
                  s/($RE{EUC_0212}|$RE{EUC_KANA}|$RE{EUC_C}|$RE{ASCII})$//o;
                $str = $1 . $str;
            }
            else {
                $line .= $encoded;
                last;
            }
        }

    }

    $result . $line;
}

1;
__END__

</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>