#!/usr/bin/perl -w
############################################
#
# Copyright 2000
# Barry Hughes
# bazza@bazza.com
# Makes named templates given a domain name
#
############################################

# Config

$primarydnsserverdomain = "bazza.com";
$primarydns = "ns.bazza.com";
$secondarydns = "ns.mediabang.com";
$mx = "mail.bazza.com";
$ip = "194.130.12.65";

my $domain = $ARGV[0];
unless($domain) {
  print "Usage: $0 domain\n";
  die;
}
($mday,$mon,$year) = (localtime)[3..5]; $year += 1900; $mon += 1;
$date = sprintf("%04d%02d%02d",$year,$mon,$mday);
$counter = "01";
$serial = $date.$counter;

open(DOMAIN,">$domain");
print DOMAIN <<"END";
; zone '$domain'   last serial $serial
@	28800	IN	SOA	$primarydns. hostmaster.$primarydnsserverdomain. (
		$serial 10800 3600 604800 28800 )
	28800	IN	NS	$primarydns.
	28800	IN	NS	$secondarydns.
	28800	IN	MX	25 $mx.
	28800	IN	A	$ip
;\$ORIGIN $domain.
www	28800	IN	A	$ip
        28800   IN      MX      25 $mx.
END
close(DOMAIN);