#!/usr/bin/perl
#
# Script for adding domains to named.
# Created 06/05/99
# admin@wickedmind.com
#


$path = "/etc";

for (;;) {
  print "Enter domain.tld: ";
  chomp($domain = <STDIN>);
  if (!$domain) { last }
  $domain =~ /(.+)\.(.+)$/;
  $file = "db.$1-$2";

  open FD, ">$path/dns/domain/$file";
  print FD <<_END_;
\@      IN      SOA     wickedmind.com. admin.wickedmind.com. (
                        1       ; serial
                        3H      ; refresh
                        1H      ; retry
                        7D      ; expire
                        1D )    ; minimum

                	NS      wickedmind.com.
			NS	localhost.wickedmind.com.
 
\$ORIGIN $domain.

                A       10.0.0.1 
                MX  10  mail.wickedmind.com.
		MX  15  mail2.wickedmind.com.

www             CNAME   virtual.wickedmind.com.

_END_
 close FD;
  open FD, ">>/etc/named.conf";
  print FD qq!
zone "$domain" {
        type master;
        file "/etc/dns/domain/$file";
};
!;
  close FD;
}