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.13
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 /
doc /
libevent-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
echo.t
759
B
-rw-r--r--
group.t
571
B
-rw-r--r--
idle2.t
1.2
KB
-rw-r--r--
msg.pm
1016
B
-rw-r--r--
perlqt.t
2.45
KB
-rw-r--r--
process.pm
1.59
KB
-rw-r--r--
queue_pending.t
792
B
-rw-r--r--
rand_interval.t
323
B
-rw-r--r--
readline.t
2.28
KB
-rw-r--r--
repeat.t
1005
B
-rw-r--r--
semaphore.pm
1.28
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : idle2.t
# idle daydreams -*-perl-*- # This test is too sensitive to slight variations in timing # to serve as part of the test suite. BEGIN { eval { require Time::HiRes; Time::HiRes->VERSION(1.20); }; if ($@) { print "1..0\n"; print "ok 1 # skipped; requires Time::HiRes 1.20\n"; exit; } } use Test; plan tests => 5; use Event qw(loop unloop time all_events one_event); # $Event::Eval = 1; # $Event::DebugLevel = 4; $Event::DIED = \&Event::verbose_exception_handler; #----------- complex idle events; fuzzy timers my ($cnt,$min,$max,$sum) = (0)x4; my $prev; $min = 100; my $Min = .01; my $Max = .2; Event->idle(min => $Min, max => $Max, desc => "*IDLE*TEST*", cb => sub { my $now = time; if (!$prev) { $prev = time; return } my $d = $now - $prev; $prev = $now; $sum += $d; $min = $d if $d < $min; $max = $d if $d > $max; unloop('done') if ++$cnt > 10; }); my $sleeps=0; Event->idle(repeat => 1, cb => sub { Event::sleep $Min; ++$sleeps }); Event::sleep .1; # try to let CPU settle loop(); my $epsilon = .05; ok $sleeps > 1; #did we test anything? ok $min >= $Min-$epsilon; ok $max < $Max+$epsilon; # fails without high resolution clock XXX ok $sum/$cnt >= $min; ok $sum/$cnt <= $max;
Close