Linux worldls-302.fr.planethoster.net 4.18.0-553.8.1.lve.el7h.x86_64 #1 SMP Thu Jul 4 15:19:33 UTC 2024 x86_64
LiteSpeed
Server IP : 10.185.0.203 & Your IP : 216.73.217.14
Domains :
Cant Read [ /etc/named.conf ]
User : gerathty
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
lib64 /
perl5 /
vendor_perl /
Filter /
Util /
Delete
Unzip
Name
Size
Permission
Date
Action
Call.pm
12.61
KB
-rw-r--r--
2013-04-03 01:33
Exec.pm
1.2
KB
-rw-r--r--
2013-04-03 01:35
filter-util.pl
988
B
-rw-r--r--
2013-03-29 14:56
perlfilter.pod
20.56
KB
-rw-r--r--
2012-06-19 17:16
Save
Rename
use strict ; use warnings; use vars qw( $Perl $Inc); sub readFile { my ($filename) = @_ ; my ($string) = '' ; open (F, "<$filename") or die "Cannot open $filename: $!\n" ; while (<F>) { $string .= $_ } close F ; $string ; } sub writeFile { my($filename, @strings) = @_ ; open (F, ">$filename") or die "Cannot open $filename: $!\n" ; binmode(F) if $filename =~ /bin$/i; foreach (@strings) { print F } close F or die "Could not close: $!" ; } sub ok { my($number, $result, $note) = @_ ; $note = "" if ! defined $note ; if ($note) { $note = "# $note" if $note !~ /^\s*#/ ; $note =~ s/^\s*/ / ; } print "not " if !$result ; print "ok ${number}${note}\n"; } $Inc = '' ; foreach (@INC) { $Inc .= "\"-I$_\" " } $Inc = "-I::lib" if $^O eq 'MacOS'; $Perl = '' ; $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ; $Perl = "$Perl -MMac::err=unix" if $^O eq 'MacOS'; $Perl = "$Perl -w" ; 1;