#!/usr/bin/perl
# Read "ReadMe.txt" for ...

if(!$ARGV[0]) {	
    print "NSS - Subdomain Generator v0.2\n\n";
    print "Usage: $0 <host> <log file>\n\n";
    print "Example: perl generate 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 ; echo \"Done...\"|") || die "Cannot open /usr/bin/host !";
while(<HOST>) { if(/Done.../) { close HOST; &ok; } }
sub ok {
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;