--- a/zone-mk.pl	Tue Dec 21 13:55:01 2010 +0100
+++ b/zone-mk.pl	Tue Dec 21 14:01:08 2010 +0100
@@ -4,41 +4,39 @@
 use strict;
 use FindBin;
 
-if ( @ARGV < 2 ) {
+if (@ARGV < 2) {
     print "usage: zone-mk kundennummer domain ... \n";
     exit 1;
 }
 
 # oeffnet Konfigurations- und Templatefiles - relativ oder absolut
-my @configs = ( "$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf" );
+my @configs = ("$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf");
 my @templc = (
     "$FindBin::Bin/templates/named.config",
     "/etc/dnstools/templates/named.config"
 );
-my @templz = (
-    "$FindBin::Bin/templates/named.zone",
-    "/etc/dnstools/templates/named.zone"
-);
+my @templz =
+  ("$FindBin::Bin/templates/named.zone", "/etc/dnstools/templates/named.zone");
 my %config;
 
-for ( grep {-f} @configs ) {
-    open( CONFIG, $_ ) or die "Can't open $_: $!\n";
+for (grep { -f } @configs) {
+    open(CONFIG, $_) or die "Can't open $_: $!\n";
 }
-unless ( seek( CONFIG, 0, 0 ) ) {
+unless (seek(CONFIG, 0, 0)) {
     die "Can't open config (searched: @configs)\n";
 }
 
-for ( grep {-f} @templc ) {
-    open( TEMPCONF, $_ ) or die "Can't open $_: $!\n";
+for (grep { -f } @templc) {
+    open(TEMPCONF, $_) or die "Can't open $_: $!\n";
 }
-unless ( seek( TEMPCONF, 0, 0 ) ) {
+unless (seek(TEMPCONF, 0, 0)) {
     die "Can't open template (searched: @templc)\n";
 }
 
-for ( grep {-f} @templz ) {
-    open( TEMPZONE, $_ ) or die "Can't open $_: $!\n";
+for (grep { -f } @templz) {
+    open(TEMPZONE, $_) or die "Can't open $_: $!\n";
 }
-unless ( seek( TEMPZONE, 0, 0 ) ) {
+unless (seek(TEMPZONE, 0, 0)) {
     die "Can't open template (searched: @templz)\n";
 }
 
@@ -48,7 +46,7 @@
     s/\t//g;
     s/\s//g;
     next unless length;
-    my ( $cname, $ccont ) = split( /\s*=\s*/, $_, 2 );
+    my ($cname, $ccont) = split(/\s*=\s*/, $_, 2);
     $config{$cname} = $ccont;
 }
 close(CONFIG);
@@ -58,20 +56,20 @@
 my $zone_conf_dir = $config{zone_conf_dir};
 my $master_dir    = $config{master_dir};
 my $customer      = shift @ARGV;
-chomp( my $primary_ip   = `dig +short $primary` );
-chomp( my $secondary_ip = `dig +short $secondary` );
-chomp( my $this_host    = `hostname -f` );
-chomp( my $this_ip      = `hostname -i` );
-chomp( my $this_domain  = `hostname -d` );
-chomp( my $time         = `date +%Y%m%d00` );
-chomp( my $start        = `date -I` );
+chomp(my $primary_ip   = `dig +short $primary`);
+chomp(my $secondary_ip = `dig +short $secondary`);
+chomp(my $this_host    = `hostname -f`);
+chomp(my $this_ip      = `hostname -i`);
+chomp(my $this_domain  = `hostname -d`);
+chomp(my $time         = `date +%Y%m%d00`);
+chomp(my $start        = `date -I`);
 my $hostmaster = "hostmaster.$this_domain";
 
-unless ( -d $master_dir and -r $master_dir ) {
+unless (-d $master_dir and -r $master_dir) {
     die "$master_dir: $!\n";
 }
 
-unless ( -d $zone_conf_dir and -r $zone_conf_dir ) {
+unless (-d $zone_conf_dir and -r $zone_conf_dir) {
     die "$master_dir: $!\n";
 }
 
@@ -80,21 +78,21 @@
 # in die entsprechenden verzeichnisse.
 for (@ARGV) {
 
-    chomp( my $domain = `idn --quiet "$_"` );
+    chomp(my $domain = `idn --quiet "$_"`);
     my $zonefile   = "$master_dir/$domain/$domain";
     my $config     = "$zone_conf_dir/$domain";
     my $utf8domain = "$_";
 
-    unless ( -d "$master_dir/$domain" ) {
+    unless (-d "$master_dir/$domain") {
         `mkdir $master_dir/$domain`;
     }
 
-    if ( -f $zonefile ) {
+    if (-f $zonefile) {
         $zonefile =~ s#/.*/##;
         print "$zonefile exists. Skipping $domain\n";
         next;
     }
-    if ( -f $config ) {
+    if (-f $config) {
         $config =~ s#/.*/##;
         print "$config exists. Skipping $domain\n";
         next;
@@ -114,7 +112,7 @@
         s#<utf8domain>#$utf8domain#;
     }
 
-    open( ZONEOUT, ">$zonefile" );
+    open(ZONEOUT, ">$zonefile");
     print ZONEOUT @tempzone;
     close(ZONEOUT);
 
@@ -129,7 +127,7 @@
         s#<secondary_ip>#$secondary_ip#;
     }
 
-    open( CONFOUT, ">$config" );
+    open(CONFOUT, ">$config");
     print CONFOUT @tempconf;
     close(CONFOUT);
 }