App::Netdisco::AnyEvent::Nbtstat - Request NetBIOS node status with AnyEvent
use App::Netdisco::AnyEvent::Nbtstat;; my $request = App::Netdisco::AnyEvent::Nbtstat->new(); my $cv = AE::cv; $request->nbtstat( '127.0.0.1', sub { my $result = shift; print "MAC: ", $result->{'mac_address'} || '', " "; print "Status: ", $result->{'status'}, "\n"; printf '%3s %-18s %4s %-18s', '', 'Name', '', 'Type' if ( $result->{'status'} eq 'OK' ); print "\n"; for my $rr ( @{ $result->{'names'} } ) { printf '%3s %-18s <%02s> %-18s', '', $rr->{'name'}, $rr->{'suffix'}, $rr->{'G'}; print "\n"; } $cv->send; } ); $cv->recv;
App::Netdisco::AnyEvent::Nbtstat is an asynchronous AnyEvent NetBIOS node status requester.
App::Netdisco::AnyEvent::Nbtstat implements the following attributes.
interval
my $interval = $request->interval; $request->interval(1);
Interval between requests, defaults to 0.02 seconds.
timeout
my $timeout = $request->timeout; $request->timeout(2);
Maximum request response time, defaults to 0.5 seconds.
App::Netdisco::AnyEvent::Nbtstat implements the following methods.
nbtstat
$request->nbtstat($ip, sub { my $result = shift; });
Perform a NetBIOS node status request of $ip.
AnyEvent
To install App::Netdisco, copy and paste the appropriate command in to your terminal.
cpanm
cpanm App::Netdisco
CPAN shell
perl -MCPAN -e shell install App::Netdisco
For more information on module installation, please visit the detailed CPAN module installation guide.