/usr/share/doc/libnet-nbname-perl/examples/nodestat.pl is in libnet-nbname-perl 0.26-1.2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | #!/usr/bin/perl
use Net::NBName;
my $nb = Net::NBName->new;
my $host = shift;
if (defined($host) && $host =~ /\d+\.\d+\.\d+\.\d+/) {
my $ns = $nb->node_status($host);
if ($ns) {
print $ns->as_string;
} else {
print "no response\n";
}
} else {
die "expected: <host>\n";
}
|