SkullCyberArmy Bypass Shell

Uname : Linux server1.cgrithy.com 3.10.0-1160.95.1.el7.x86_64 #1 SMP Mon Jul 24 13:59:37 UTC 2023 x86_64
Soft : Apache
Ip : 203.161.60.200
Port : 443

Subs.pm

# $Id: Subs.pm,v 1.1 2003-07-27 16:07:49 matt Exp $

package XML::Parser::Style::Subs;

sub Start {
  no strict 'refs';
  my $expat = shift;
  my $tag = shift;
  my $sub = $expat->{Pkg} . "::$tag";
  eval { &$sub($expat, $tag, @_) };
}

sub End {
  no strict 'refs';
  my $expat = shift;
  my $tag = shift;
  my $sub = $expat->{Pkg} . "::${tag}_";
  eval { &$sub($expat, $tag) };
}

1;
__END__

=head1 NAME

XML::Parser::Style::Subs

=head1 SYNOPSIS

use XML::Parser;
  my $p = XML::Parser->new(Style => 'Subs', Pkg => 'MySubs');
  $p->parsefile('foo.xml');
  
  {
    package MySubs;
    
    sub foo {
      # start of foo tag
    }
    
    sub foo_ {
      # end of foo tag
    }
  }

=head1 DESCRIPTION

Each time an element starts, a sub by that name in the package specified
by the Pkg option is called with the same parameters that the Start
handler gets called with.

Each time an element ends, a sub with that name appended with an underscore
("_"), is called with the same parameters that the End handler gets called
with.

Nothing special is returned by parse.

=cut

Name	Type	Size	Permission	Last Modified	Actions
.	dir	-	0755	2023-04-04 08:17:55
..	dir	-	0755	2023-04-04 08:17:55
Debug.pm	text/plain	982 B	0644	2011-05-25 03:33:32
Objects.pm	text/plain	1.72 KB	0644	2011-05-25 03:33:32
Stream.pm	text/plain	3.35 KB	0644	2011-05-25 03:33:32
Subs.pm	text/plain	1.05 KB	0644	2011-05-25 03:33:32
Tree.pm	text/plain	2.14 KB	0644	2011-05-25 03:33:32