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 /
lib /
Net /
Delete
Unzip
Name
Size
Permission
Date
Action
FTP
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
Cmd.pm
16.77
KB
-r--r--r--
2014-12-27 11:49
Config.pm
7.49
KB
-r--r--r--
2014-12-27 11:49
Domain.pm
7.41
KB
-r--r--r--
2014-12-27 11:49
FTP.pm
45.29
KB
-r--r--r--
2014-12-27 11:49
NNTP.pm
27.45
KB
-r--r--r--
2014-12-27 11:49
Netrc.pm
7.2
KB
-r--r--r--
2014-12-27 11:49
POP3.pm
17.21
KB
-r--r--r--
2014-12-27 11:49
Ping.pm
59.02
KB
-r--r--r--
2014-12-27 11:48
SMTP.pm
22.78
KB
-r--r--r--
2014-12-27 11:49
Time.pm
3.3
KB
-r--r--r--
2014-12-27 11:49
hostent.pm
3.92
KB
-r--r--r--
2014-12-27 11:48
hostent.t
2.47
KB
-r--r--r--
2014-12-27 11:48
libnetFAQ.pod
9.74
KB
-r--r--r--
2014-12-27 11:49
netent.pm
4.38
KB
-r--r--r--
2014-12-27 11:48
netent.t
879
B
-r--r--r--
2014-12-27 11:48
protoent.pm
2.97
KB
-r--r--r--
2014-12-27 11:48
protoent.t
897
B
-r--r--r--
2014-12-27 11:48
servent.pm
3.4
KB
-r--r--r--
2014-12-27 11:48
servent.t
906
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!./perl BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } BEGIN { our $haspe; eval { my @n = getprotobyname "tcp" }; $haspe = 1 unless $@ && $@ =~ /unimplemented|unsupported/i; unless ($haspe) { print "1..0 # Skip: no getprotobyname\n"; exit 0 } use Config; $haspe = 0 unless $Config{'i_netdb'} eq 'define'; unless ($haspe) { print "1..0 # Skip: no netdb.h\n"; exit 0 } } BEGIN { our @protoent = getprotobyname "tcp"; # This is the function getprotobyname. unless (@protoent) { print "1..0 # Skip: no tcp protocol\n"; exit 0 } } print "1..3\n"; use Net::protoent; print "ok 1\n"; my $protoent = getprotobyname "tcp"; # This is the OO getprotobyname. print "not " unless $protoent->name eq $protoent[0]; print "ok 2\n"; print "not " unless $protoent->proto == $protoent[2]; print "ok 3\n"; # Testing pretty much anything else is unportable.