AnyEvent-Porttracker
view release on metacpan or search on metacpan
Porttracker.pm view on Meta::CPAN
use AnyEvent::Porttracker;
my $api = new AnyEvent::Porttracker
host => "10.0.0.1",
user => "admin",
pass => "31331",
tls => 1,
;
# Example 1
# a simple request: ping the server synchronously
my ($timestamp, $pid) = $api->req_sync ("ping");
# Example 2
# find all realms, start a discovery on all of them
# and wait until all discovery processes have finished
# but execute individual discoveries in parallel,
# asynchronously
my $cv = AE::cv;
$cv->begin;
# find all realms
$api->req (realm_info => ["gid", "name"], sub {
my ($api, @realms) = @_;
# start discovery on all realms
for my $realm (@realms) {
use AnyEvent::Porttracker;
my $api = new AnyEvent::Porttracker
host => "10.0.0.1",
user => "admin",
pass => "31331",
tls => 1,
;
# Example 1
# a simple request: ping the server synchronously
my ($timestamp, $pid) = $api->req_sync ("ping");
# Example 2
# find all realms, start a discovery on all of them
# and wait until all discovery processes have finished
# but execute individual discoveries in parallel,
# asynchronously
my $cv = AE::cv;
$cv->begin;
# find all realms
$api->req (realm_info => ["gid", "name"], sub {
my ($api, @realms) = @_;
# start discovery on all realms
for my $realm (@realms) {
( run in 0.242 second using v1.01-cache-2.11-cpan-0d8aa00de5b )