File Coverage

blib/lib/Net/DNS/Nslookup.pm

Criterion	Covered	Total	%
statement	17	37	45.9
branch	2	22	9.0
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	23	63	36.5

package Net::DNS::Nslookup;

# Copyright (c) 2011 Paul Greenberg. All rights reserved.
# This program is free software; you can redistribute it
# and/or modify it under the same terms as Perl itself.

use strict;
use vars qw($VERSION);
$VERSION = 0.03;

$|=1;

my $so = $^O;
my $cmd = "nslookup";
my $cmdargs = "";
my $debug;
my $flags;

if ($^O =~ /win/i) {
 $flags = 'w';
 $cmdargs = "2>&1";
} else {
 $flags = 'u';
}

sub get_ips {
 my $response = "";
 my $dnsquery = $_[1];
 my $wait = "y";
 my $ct = 0;

 if($flags eq "u") {
  printf("found %s\n", $flags) if $debug;
 }

 open (DNSQUERY, "$cmd $dnsquery $cmdargs |");
 while (){
  my $ln = $_;
  chomp($ln);
  if( $ln =~ /Non-authoritative answer:/) { $wait = "n" }
  next if ($wait eq "y");
  $ct++;
  printf("%s\n", $ln) if $debug;
  if($flags eq "u") {
   # For *nix
   if($ln =~ /^Address:\s*(.*)$/) {
    printf("%s\n", $1) if $debug;
    $response = $response . $dnsquery.",".$1."\n";
   }
  } else {
   # For win
   next if ($ct < 4);
   if($ln =~ m/^Address:\s+(.*)$/) {
    $response = $response . $dnsquery.",".$1."\n";
   }
   if($ln =~ m/^Addresses:\s+(.*)$/) {
    my $t = $1;
    $t =~ s/ //g;
    my @t = split(/,/, $t);
    foreach (@t) {
     $response = $response . $dnsquery.",".$_."\n";
    }
   }
  }
 }
 close DNSQUERY;
 chomp $response;
 return $response;
}

1;
__END__