Linux s17.hosterpk.com 6.12.0-124.55.3.el10_1.x86_64 #1 SMP PREEMPT_DYNAMIC Thu May 7 16:54:02 EDT 2026 x86_64
LiteSpeed
Server IP : 192.169.89.90 & Your IP : 216.73.217.173
Domains :
Cant Read [ /etc/named.conf ]
User : hamzalar
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
vendor_perl /
Pod /
Simple /
Delete
Unzip
Name
Size
Permission
Date
Action
BlackBox.pm
84.61
KB
-rw-r--r--
2023-05-11 19:13
Checker.pm
5.29
KB
-rw-r--r--
2023-05-11 19:13
Debug.pm
4.49
KB
-rw-r--r--
2023-05-11 19:13
DumpAsText.pm
3.94
KB
-rw-r--r--
2023-05-11 19:13
DumpAsXML.pm
4.46
KB
-rw-r--r--
2023-05-11 19:13
HTML.pm
33.81
KB
-rw-r--r--
2023-05-11 19:13
HTMLBatch.pm
39.56
KB
-rw-r--r--
2023-05-11 19:13
HTMLLegacy.pm
2.67
KB
-rw-r--r--
2023-05-11 19:09
JustPod.pm
9.41
KB
-rw-r--r--
2023-05-11 19:09
LinkSection.pm
4.18
KB
-rw-r--r--
2023-05-11 19:13
Methody.pm
3.47
KB
-rw-r--r--
2023-05-11 19:13
Progress.pm
2.36
KB
-rw-r--r--
2023-05-11 19:13
PullParser.pm
25.06
KB
-rw-r--r--
2023-05-11 19:13
PullParserEndToken.pm
2.8
KB
-rw-r--r--
2023-05-11 19:13
PullParserStartToken.pm
4.03
KB
-rw-r--r--
2023-05-11 19:13
PullParserTextToken.pm
3.27
KB
-rw-r--r--
2023-05-11 19:13
PullParserToken.pm
3.92
KB
-rw-r--r--
2023-05-11 19:13
RTF.pm
22.91
KB
-rw-r--r--
2023-05-11 19:13
Search.pm
34.89
KB
-rw-r--r--
2023-05-11 19:13
SimpleTree.pm
4.48
KB
-rw-r--r--
2023-05-11 19:13
Subclassing.pod
33.28
KB
-rw-r--r--
2023-05-11 19:09
Text.pm
4.97
KB
-rw-r--r--
2023-05-11 19:13
TextContent.pm
2.44
KB
-rw-r--r--
2023-05-11 19:13
TiedOutFH.pm
2.67
KB
-rw-r--r--
2023-05-11 19:13
Transcode.pm
710
B
-rw-r--r--
2023-05-11 19:13
TranscodeDumb.pm
2.54
KB
-rw-r--r--
2023-05-11 19:13
TranscodeSmart.pm
693
B
-rw-r--r--
2023-05-11 19:13
XHTML.pm
27.15
KB
-rw-r--r--
2023-05-11 19:13
XMLOutStream.pm
4.55
KB
-rw-r--r--
2023-05-11 19:13
Save
Rename
package Pod::Simple::TranscodeDumb; use strict; our $VERSION = '3.45'; # This module basically pretends it knows how to transcode, except # only for null-transcodings! We use this when Encode isn't # available. our %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 @_; }; } 1; use warnings;