410         push @new_serial, $zone;

   410         push @new_serial, $zone;

   411     }

   411     }

   412 }

   412 }

   413 

   413 

   414 sub key_to_zonefile {

   414 sub key_to_zonefile {

   415     our $master_dir;

   416     our $master_dir;

   416     my $zone = $_[0];

   417     my $zone = $_[0];

   417     my $zpf = "$master_dir/$zone";

   418     my $zpf = "$master_dir/$zone";

   418     my @old_content;

   419     my @old_content;

   419     my @new_content = ();

   420     my @new_content = ();