Subversion Repositories sysadmin_scripts

#! /usr/bin/env perl

use strict;
use warnings;

# we will list our name servers as CLI arguments
my %ourNS = map { lc $_ => 1 } @ARGV;
# if we don't clear ARGV, perl thinks we're passing filenames
# to open for STDIN
@ARGV = ();

# The tab delimited file of nameserver\tdomain are on STDIN
my @domainList = <>;
chomp @domainList;

my %weHost;
my %dontHost;

# get the ones we DO host
for ( my $i = 0; $i < @domainList; $i++ ) {
   my ($ns,$domain) = split( "\t", $domainList[$i] );
   $weHost{$domain} = 1 if $ourNS{lc $ns} || defined( $weHost{$domain} );
}

# get the ones we DON'T host. NOTE: we do it this way because a user may have
# us as a primary or a secondary, and have an entry with some other entity
for ( my $i = 0; $i < @domainList; $i++ ) {
   my ($ns,$domain) = split( "\t", $domainList[$i] );
   $dontHost{$domain} = 1 unless defined( $weHost{$domain} );
}

# dump the output
print "We don't do DNS for these domains\n" . join( "\n", keys %dontHost ) . "\n";

1;