#!/usr/pkg/bin/perl
# $Id$
use strict;

my @BASE = ('61.207.','222.148.');
my $MAX  = 2; # usually 255;
   $MAX  = 255; # usually 255;

my $ECHO = 'echo PTR debug-print ';  
   $ECHO = '';                       ## leave empty for production use

while ( my $BASE = shift @BASE ){
    my $i = 1;
    while ($i  < $MAX ) {
	my $j = 1;
	while ($j < $MAX ) {
	    my $addr = $BASE . $i.'.'.$j;
	    open(DIG,"$ECHO dig ptr -x $addr|");
	    my $found = 0;
	    while (<DIG>){
		## print;
		if (/^$/ ) {next;}
		if (/^;/ ) {next;}
		if (/PTR\s+(\S+)/ ) {
		    print $addr,': ',$1,"\n";
		    $found++;}}
	    close(DIG);
	    if ($found == 0 ) {
		print $addr, ' not registered',"\n";}
	    sleep 1;
	    $j += 128 ;}
	$i += 8;}}
__END__