Oliver Gorwits > App-Netdisco > App::Netdisco::AnyEvent::Nbtstat

Download:
App-Netdisco-2.029014.tar.gz

Dependencies

Annotate this POD

Website

View/Report Bugs
Source  

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

syntax highlighting: