#!/usr/bin/perl 

$dom = $ARGV[0]; 
$ip = $ARGV[1];
$mx = $ARGV[2]; 

if(!$ARGV[2]) { $mx = $ip; } 

sub usage { print "usage: <domain> <primary IP> <MX IP>\n"; exit(1) }; 

die usage() unless ($ARGV[0] && $ARGV[1]); 


print "\$ORIGIN $dom.
\$TTL 3600
\@               IN      SOA     ns1.boaw.net. domainreg.boaw.net. (
                        2001101601      ; serial
                        10800           ; refresh
                        3600            ; retry
                        604800          ; expire
                        3600 )          ; ttl

                IN      NS      ns1.boaw.net.
                IN      NS      ns2.boaw.net.

                IN      MX      10 mail
                IN      A       $ip 
www             IN      A       $ip 
mail            IN      A       $mx 
\n
";

print "
PRIMARY: 

zone \"$dom\" {
		type master;
		file \"$dom.db\";
};

SECONDARY: 

zone \"$dom\" {
		type slave;
		file \"$dom.db\";
		masters {216.94.86.44;};
};
\n
";

exit(0);