Gecko [ unitednationsplay.com ]

Linux unitednationsplay.com 3.10.0-1160.45.1.el7.x86_64 #1 SMP Wed Oct 13 17:20:51 UTC 2021 x86_64
nginx/1.20.1
Server IP : 188.130.139.92 & Your IP : 18.188.161.182
Domains : Cant Read [ /etc/named.conf ]
User : web

Name	Size	Permission	Date
BlackBox.pm	64.69 KB	-rw-r--r--	2013-05-03 16:24
Checker.pm	5.24 KB	-rw-r--r--	2013-05-03 16:24
Debug.pm	4.5 KB	-rw-r--r--	2013-05-03 16:24
DumpAsText.pm	3.92 KB	-rw-r--r--	2013-05-03 16:24
DumpAsXML.pm	4.29 KB	-rw-r--r--	2013-05-03 16:24
HTML.pm	32.69 KB	-rw-r--r--	2013-05-03 16:24
HTMLBatch.pm	39.55 KB	-rw-r--r--	2013-05-03 16:24
HTMLLegacy.pm	2.69 KB	-rw-r--r--	2012-01-03 00:06
LinkSection.pm	4.24 KB	-rw-r--r--	2013-05-03 16:24
Methody.pm	3.48 KB	-rw-r--r--	2013-05-03 16:24
Progress.pm	2.36 KB	-rw-r--r--	2013-05-03 16:24
PullParser.pm	24.76 KB	-rw-r--r--	2013-05-03 16:24
PullParserEndToken.pm	2.81 KB	-rw-r--r--	2013-05-03 16:24
PullParserStartToken.pm	4.04 KB	-rw-r--r--	2013-05-03 16:24
PullParserTextToken.pm	3.08 KB	-rw-r--r--	2013-05-03 16:24
PullParserToken.pm	3.89 KB	-rw-r--r--	2013-05-03 16:24
RTF.pm	21.14 KB	-rw-r--r--	2013-05-03 16:24
Search.pm	32.7 KB	-rw-r--r--	2013-05-03 16:24
SimpleTree.pm	4.47 KB	-rw-r--r--	2013-05-03 16:24
Subclassing.pod	32.33 KB	-rw-r--r--	2013-05-03 16:13
Text.pm	5.01 KB	-rw-r--r--	2013-05-03 16:24
TextContent.pm	2.48 KB	-rw-r--r--	2013-05-03 16:24
TiedOutFH.pm	2.67 KB	-rw-r--r--	2013-05-03 16:24
Transcode.pm	699 B	-rw-r--r--	2013-05-03 16:24
TranscodeDumb.pm	1.16 KB	-rw-r--r--	2013-05-03 16:24
TranscodeSmart.pm	715 B	-rw-r--r--	2013-05-03 16:24
XHTML.pm	24.93 KB	-rw-r--r--	2013-05-03 16:24
XMLOutStream.pm	4.86 KB	-rw-r--r--	2013-05-03 16:24

Rename

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