home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / NETWORK / ISP / bind.4.8.3.lzh / BIND483 / EXAMPLES / ch08.sum_debug.perl < prev    next >
Text File  |  1994-01-09  |  865b  |  47 lines
  1. #!/usr/bin/perl
  2.  
  3. require 'sys/socket.ph';
  4.  
  5. while (<>) {
  6.  
  7.     if (/^datagram from/) {
  8.  
  9.     split;
  10.     if ($_[4] == 53)
  11.     {
  12.         $nsqueriers{$_[2]}++;
  13.     }
  14.     else
  15.     {
  16.         $resqueriers{$_[2]}++;
  17.     }
  18.     }
  19.  
  20. }
  21.  
  22. print "Name server queriers\n\n";
  23.  
  24. while (($ip, $count) = each(%nsqueriers)) {
  25.     $addr = pack('C4', split(/\./, $ip));
  26.     ($host, $rest) = gethostbyaddr($addr, &AF_INET);
  27.     if ($host eq "")
  28.     {
  29.         printf "unknown (%s): %d queries\n", $ip, $count;
  30.     } else {
  31.         printf "%s (%s): %d queries\n", $host, $ip, $count;
  32.     }
  33. }
  34.  
  35. print "\nResolver queriers:\n\n";
  36.  
  37. while (($ip, $count) = each(%resqueriers)) {
  38.     $addr = pack('C4', split(/\./, $ip));
  39.     ($host, $rest) = gethostbyaddr($addr, &AF_INET);
  40.     if ($host eq "")
  41.     {
  42.         printf "unknown (%s): %d queries\n", $ip, $count;
  43.     } else {
  44.         printf "%s (%s): %d queries\n", $host, $ip, $count;
  45.     }
  46. }
  47.