BonmotZones

#!/usr/bin/perl

my @zones = qw(
  bonmot.ca
  paradisecinema.ca
  paradisetheatre.ca
  solarns.ca
  wayves.ca
  180.75.192.in-addr.arpa
  181.75.192.in-addr.arpa
  182.75.192.in-addr.arpa
  ) ;

$masters = "216.83.3.92";

foreach (@zones) {
  $rev = join(".",reverse split(/\./,$_)) ;
  print "zone \"$_\" in{\n" .
        "  type slave;\n" .
        "  file \"$rev\";\n" .
        "  masters { $masters; };\n" .
        "  } ;\n" .
        "//\n" ;
  } ;