OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	05/09/2024 07:13:15 AM	rwxr-xr-x
📄 BlackBox.pm	70.9 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Checker.pm	5.21 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Debug.pm	4.52 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 DumpAsText.pm	3.94 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 DumpAsXML.pm	4.45 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 HTML.pm	33.8 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 HTMLBatch.pm	39.2 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 HTMLLegacy.pm	2.69 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 LinkSection.pm	4.24 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Methody.pm	3.49 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Progress.pm	2.36 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 PullParser.pm	25.13 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 PullParserEndToken.pm	2.82 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 PullParserStartToken.pm	4.05 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 PullParserTextToken.pm	3.28 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 PullParserToken.pm	3.91 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 RTF.pm	21.96 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Search.pm	34.29 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 SimpleTree.pm	4.52 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Subclassing.pod	32.51 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Text.pm	4.98 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 TextContent.pm	2.46 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 TiedOutFH.pm	2.69 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 Transcode.pm	736 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📄 TranscodeDumb.pm	2.63 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 TranscodeSmart.pm	715 bytes	05/23/2023 05:17:19 PM	rw-r--r--
📄 XHTML.pm	25.78 KB	05/23/2023 05:17:19 PM	rw-r--r--
📄 XMLOutStream.pm	4.56 KB	05/23/2023 05:17:19 PM	rw-r--r--

Editing: TranscodeDumb.pm

require 5;
## This module is to be use()'d only by Pod::Simple::Transcode

package Pod::Simple::TranscodeDumb;
use strict;
use vars qw($VERSION %Supported);
$VERSION = '3.35';
# This module basically pretends it knows how to transcode, except
#  only for null-transcodings!  We use this when Encode isn't
#  available.

%Supported = (
  'ascii'       => 1,
  'ascii-ctrl'  => 1,
  'iso-8859-1'  => 1,
  'cp1252'      => 1,
  'null'        => 1,
  'latin1'      => 1,
  'latin-1'     => 1,
  %Supported,
);

sub is_dumb  {1}
sub is_smart {0}

sub all_encodings {
  return sort keys %Supported;
}

sub encoding_is_available {
  return exists $Supported{lc $_[1]};
}

sub encmodver {
  return __PACKAGE__ . " v" .($VERSION || '?');
}

sub make_transcoder {
    my ($e) = $_[1];
    die "WHAT ENCODING!?!?" unless $e;
    # No-op for all but CP1252.
    return sub {;} if $e !~ /^cp-?1252$/i;

# Replace CP1252 nerbles with their ASCII equivalents.
    return sub {
        # Copied from Encode::ZapCP1252.
        my %ascii_for = (
            # http://en.wikipedia.org/wiki/Windows-1252
            "\x80" => 'e',    # EURO SIGN
            "\x82" => ',',    # SINGLE LOW-9 QUOTATION MARK
            "\x83" => 'f',    # LATIN SMALL LETTER F WITH HOOK
            "\x84" => ',,',   # DOUBLE LOW-9 QUOTATION MARK
            "\x85" => '...',  # HORIZONTAL ELLIPSIS
            "\x86" => '+',    # DAGGER
            "\x87" => '++',   # DOUBLE DAGGER
            "\x88" => '^',    # MODIFIER LETTER CIRCUMFLEX ACCENT
            "\x89" => '%',    # PER MILLE SIGN
            "\x8a" => 'S',    # LATIN CAPITAL LETTER S WITH CARON
            "\x8b" => '<',    # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
            "\x8c" => 'OE',   # LATIN CAPITAL LIGATURE OE
            "\x8e" => 'Z',    # LATIN CAPITAL LETTER Z WITH CARON
            "\x91" => "'",    # LEFT SINGLE QUOTATION MARK
            "\x92" => "'",    # RIGHT SINGLE QUOTATION MARK
            "\x93" => '"',    # LEFT DOUBLE QUOTATION MARK
            "\x94" => '"',    # RIGHT DOUBLE QUOTATION MARK
            "\x95" => '*',    # BULLET
            "\x96" => '-',    # EN DASH
            "\x97" => '--',   # EM DASH
            "\x98" => '~',    # SMALL TILDE
            "\x99" => '(tm)', # TRADE MARK SIGN
            "\x9a" => 's',    # LATIN SMALL LETTER S WITH CARON
            "\x9b" => '>',    # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
            "\x9c" => 'oe',   # LATIN SMALL LIGATURE OE
            "\x9e" => 'z',    # LATIN SMALL LETTER Z WITH CARON
            "\x9f" => 'Y',    # LATIN CAPITAL LETTER Y WITH DIAERESIS
        );

s{([\x80-\x9f])}{$ascii_for{$1} || $1}emxsg for @_;
  };
}