NAME

App::Netdisco::AnyEvent::Nbtstat - Request NetBIOS node status with AnyEvent

SYNOPSIS

            

              
              
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;
            
          

DESCRIPTION

App::Netdisco::AnyEvent::Nbtstat is an asynchronous AnyEvent NetBIOS node status requester.

ATTRIBUTES

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.

METHODS

App::Netdisco::AnyEvent::Nbtstat implements the following methods.

nbtstat

            

              
              
$request->nbtstat($ip, sub {
    my $result = shift;
});
            
          

Perform a NetBIOS node status request of $ip.

SEE ALSO

AnyEvent