Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
cpan /
libnet /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
config.t
2.2
KB
-r--r--r--
2014-12-27 11:49
datasend.t
1.87
KB
-r--r--r--
2014-12-27 11:49
ftp.t
1.53
KB
-r--r--r--
2014-12-27 11:49
hostname.t
1.48
KB
-r--r--r--
2014-12-27 11:49
libnet_t.pl
597
B
-r--r--r--
2014-12-27 11:49
netrc.t
3.91
KB
-r--r--r--
2014-12-27 11:49
nntp.t
1.03
KB
-r--r--r--
2014-12-27 11:49
require.t
963
B
-r--r--r--
2014-12-27 11:49
smtp.t
643
B
-r--r--r--
2014-12-27 11:49
time.t
3.32
KB
-r--r--r--
2014-12-27 11:49
Save
Rename
my $number = 0; sub ok { my ($condition, $name) = @_; my $message = $condition ? "ok " : "not ok "; $message .= ++$number; $message .= " # $name" if defined $name; print $message, "\n"; return $condition; } sub is { my ($got, $expected, $name) = @_; for ($got, $expected) { $_ = 'undef' unless defined $_; } unless (ok($got eq $expected, $name)) { warn "Got: '$got'\nExpected: '$expected'\n" . join(' ', caller) . "\n"; } } sub skip { my ($reason, $num) = @_; $reason ||= ''; $number ||= 1; for (1 .. $num) { $number++; print "ok $number # skip $reason\n"; } } 1;