Store : Webshell.Store

Linux lhcp3406.webapps.net 3.10.0-962.3.2.lve1.5.82.el7.x86_64 #1 SMP Tue Oct 31 10:15:24 UTC 2023 x86_64

Apache

81.88.53.156 | Your IP: 216.73.216.127

Cant read [ /etc/named.conf ]

[ drwxr-xr-x ]

/ usr / local / share / perl5 / XML / SAX /

Home Upload Info Server

Server Info

Operating System	:	Linux lhcp3406.webapps.net 3.10.0-962.3.2.lve1.5.82.el7.x86_64 #1 SMP Tue Oct 31 10:15:24 UTC 2023 x86_64
User / Group	:	1190[c43ut3hs] / 1192[c43ut3hs]
PHP Version	:	5.6.40
IP Server	:	81.88.53.156
Your IP	:	216.73.216.127
Storage	:	Total = 1.05 TB, Free = 313.79 GB [29%]
Domains	:	Cant read [ /etc/named.conf ]
Software	:	Apache
Disable Functions	:	All function is accessible
Useful Functions	:	gcc, lcc, cc, ld, make, php, perl, python, ruby, tar, gzip, bzip, bzialfa2, nc, locate, suidperl, git, docker, ssh
Downloader	:	wget, fetch, lynx, links, curl, get, lwp-mirror
CURL : ON \| SSH2 : OFF \| Magic Quotes : ON \| MySQL : ON \| MSSQL : OFF \| PostgreSQL : OFF \| Oracle : OFF
Safe Mode : OFF \| Open Basedir : NONE \| Safe Mode Exec Dir : NONE \| Safe Mode Include Dir : NONE

Exception.pm

package XML::SAX::Exception;
$XML::SAX::Exception::VERSION = '1.09';
use strict;

use overload '""' => "stringify",
    'fallback' => 1;

use vars qw($StackTrace);

use Carp;

$StackTrace = $ENV{XML_DEBUG} || 0;

# Other exception classes:

@XML::SAX::Exception::NotRecognized::ISA = ('XML::SAX::Exception');
@XML::SAX::Exception::NotSupported::ISA = ('XML::SAX::Exception');
@XML::SAX::Exception::Parse::ISA = ('XML::SAX::Exception');

sub throw {
    my $class = shift;
    if (ref($class)) {
        die $class;
    }
    die $class->new(@_);
}

sub new {
    my $class = shift;
    my %opts = @_;
    confess "Invalid options: " . join(', ', keys %opts) unless exists $opts{Message};
    
    bless { ($StackTrace ? (StackTrace => stacktrace()) : ()), %opts },
        $class;
}

sub stringify {
    my $self = shift;
    local $^W;
    my $error;
    if (exists $self->{LineNumber}) {
        $error = $self->{Message} . " [Ln: " . $self->{LineNumber} . 
                ", Col: " . $self->{ColumnNumber} . "]";
    }
    else {
        $error = $self->{Message};
    }
    if ($StackTrace) {
        $error .= stackstring($self->{StackTrace});
    }
    $error .= "\n";
    return $error;
}

sub stacktrace {
    my $i = 2;
    my @fulltrace;
    while (my @trace = caller($i++)) {
        my %hash;
        @hash{qw(Package Filename Line)} = @trace[0..2];
        push @fulltrace, \%hash;
    }
    return \@fulltrace;
}

sub stackstring {
    my $stacktrace = shift;
    my $string = "\nFrom:\n";
    foreach my $current (@$stacktrace) {
        $string .= $current->{Filename} . " Line: " . $current->{Line} . "\n";
    }
    return $string;
}

__END__

=head1 NAME

XML::SAX::Exception - Exception classes for XML::SAX

=head1 SYNOPSIS

throw XML::SAX::Exception::NotSupported(
          Message => "The foo feature is not supported",
          );

=head1 DESCRIPTION

This module is the base class for all SAX Exceptions, those defined in
the spec as well as those that one may create for one's own SAX errors.

There are three subclasses included, corresponding to those of the SAX
spec:

XML::SAX::Exception::NotSupported
  XML::SAX::Exception::NotRecognized
  XML::SAX::Exception::Parse

Use them wherever you want, and as much as possible when you encounter
such errors. SAX is meant to use exceptions as much as possible to 
flag problems.

=head1 CREATING NEW EXCEPTION CLASSES

All you need to do to create a new exception class is:

@XML::SAX::Exception::MyException::ISA = ('XML::SAX::Exception')

The given package doesn't need to exist, it'll behave correctly this 
way. If your exception refines an existing exception class, then you
may also inherit from that instead of from the base class.

=head1 THROWING EXCEPTIONS

This is as simple as exemplified in the SYNOPSIS. In fact, there's 
nothing more to know. All you have to do is:

throw XML::SAX::Exception::MyException( Message => 'Something went wrong' );

and voila, you've thrown an exception which can be caught in an eval block.

=cut

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	drwxr-xr-x	2023-11-27 01:04:48
..	dir	-	root/root	drwxr-xr-x	2019-07-25 08:06:29
PurePerl	dir	-	root/root	drwxr-xr-x	2019-07-25 08:06:23
Base.pm	file	120.02 KB	root/root	-r--r--r--	2017-04-03 09:00:11
BuildSAXBase.pl	file	28.01 KB	root/root	-r--r--r--	2017-04-03 09:00:11
DocumentLocator.pm	file	2.81 KB	root/root	-r--r--r--	2019-06-13 11:18:28
Exception.pm	file	2.96 KB	root/root	-r--r--r--	2017-04-03 09:00:11
Expat.pm	file	19.19 KB	root/root	-r-xr-xr-x	2014-01-21 01:42:34
Intro.pod	file	14.47 KB	root/root	-r--r--r--	2019-06-13 11:24:14
ParserDetails.ini	file	380 B	root/root	-rw-r--r--	2023-11-27 01:04:48
ParserFactory.pm	file	6.38 KB	root/root	-r--r--r--	2019-06-14 01:57:58
PurePerl.pm	file	20.1 KB	root/root	-r--r--r--	2019-06-14 01:57:58