#!/usr/bin/perl
# generate - Written By Narrow (nss@privacyx.com)

if(!$ARGV[0]) {	
    print "NSS - Subdomain Generator v0.2\n\n";
    print "Usage: $0 <host> <log file>\n\n";
    print "Example: (perl) $0 nasa.gov hosts.new\n";
    exit;
}
if(!$ARGV[1]) { $logfile = "hostfile.new"; } else { $logfile = $ARGV[1]; }
open(HOST, "/usr/bin/host -l $ARGV[0] >.hosts.tmp |") || die "Cannot open /usr/bin/host !";
print "Generating file ...";
while(<HOST>) { print "."; }
close HOST;
print "\nWriting ... ";
open(LOG1, "<.hosts.tmp") || die "open: $! (hosts.tmp)\n";
@all_log1=<LOG1>;
close LOG1;
open(LOG2, ">$logfile") || die "open: $! ($logfile)\n";
print LOG2 "$ARGV[0]\n";
foreach $one_host (@all_log1) {
($host,$blah1,$blah2,$blah3) = split(/ /, $one_host);
if($ARGV[0] ne $host) { print LOG2 "$host\n"; }
} close LOG2;
print "Done!\n"; system("rm .hosts.tmp"); close HOST;
exit;