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 /
dist /
Net-Ping /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
100_load.t
204
B
-r--r--r--
2014-12-27 11:48
110_icmp_inst.t
965
B
-r--r--r--
2014-12-27 11:48
120_udp_inst.t
603
B
-r--r--r--
2014-12-27 11:48
130_tcp_inst.t
541
B
-r--r--r--
2014-12-27 11:48
140_stream_inst.t
550
B
-r--r--r--
2014-12-27 11:48
150_syn_inst.t
542
B
-r--r--r--
2014-12-27 11:48
190_alarm.t
1.28
KB
-r--r--r--
2014-12-27 11:48
200_ping_tcp.t
1.51
KB
-r--r--r--
2014-12-27 11:48
250_ping_hires.t
1.23
KB
-r--r--r--
2014-12-27 11:48
300_ping_stream.t
1.74
KB
-r--r--r--
2014-12-27 11:48
400_ping_syn.t
2.09
KB
-r--r--r--
2014-12-27 11:48
410_syn_host.t
2.26
KB
-r--r--r--
2014-12-27 11:48
450_service.t
3.66
KB
-r--r--r--
2014-12-27 11:48
500_ping_icmp.t
887
B
-r--r--r--
2014-12-27 11:48
510_ping_udp.t
702
B
-r--r--r--
2014-12-27 11:48
520_icmp_ttl.t
1.4
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
# Test to perform icmp protocol testing. # Root access is required. use Config; BEGIN { unless (eval "require Socket") { print "1..0 \# Skip: no Socket\n"; exit; } unless ($Config{d_getpbyname}) { print "1..0 \# Skip: no getprotobyname\n"; exit; } } use Test::More qw(no_plan); BEGIN {use_ok('Net::Ping')}; SKIP: { skip "icmp ping requires root privileges.", 1 if ($> and $^O ne 'VMS' and $^O ne 'cygwin') or (($^O eq 'MSWin32' or $^O eq 'cygwin') and !IsAdminUser()) or ($^O eq 'VMS' and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/)); my $p = new Net::Ping ("icmp",undef,undef,undef,undef,undef); isa_ok($p, 'Net::Ping'); ok $p->ping("127.0.0.1"); $p->close(); $p = new Net::Ping ("icmp",undef,undef,undef,undef,0); ok $p->ping("127.0.0.1"); $p->close(); $p = undef(); $p = new Net::Ping ("icmp",undef,undef,undef,undef,1); isa_ok($p, 'Net::Ping'); $p = undef(); $p = eval 'new Net::Ping ("icmp",undef,undef,undef,undef,-1)'; ok(!defined($p)); $p = undef(); $p = eval 'new Net::Ping ("icmp",undef,undef,undef,undef,256)'; ok(!defined($p)); $p = new Net::Ping ("icmp",undef,undef,undef,undef,10); ok $p->ping("127.0.0.1"); $p->close(); } sub IsAdminUser { return unless $^O eq 'MSWin32' or $^O eq "cygwin"; return unless eval { require Win32 }; return unless defined &Win32::IsAdminUser; return Win32::IsAdminUser(); }