#!/usr/bin/perl
# cpanel4 - scripts        Copyright(c) 1997-2002 cPanel, Inc..
#                                 All rights Reserved.
# copyright@cpanel.net      http://cpanel.net
# This code is subject to the cpanel license. Unauthorized copying is prohibited

my $ndc= find_namedconf();

sub find_namedconf {
   if (-e "/etc/namedb/named.conf") { return("/etc/namedb/named.conf"); }
   return("/etc/named.conf");
}


$im=0;
open(NDC,"+<","$ndc");
while(<NDC>) {
	if (/type slave/) {
		s/slave/master/g;
	}
	if (/masters/) {
		$im = 1;
	}
	if (!$im) {push(@CFILE,$_);}
	if (/}/) {
		$im = 0;
	}	
}
seek(NDC,0,0);
print NDC join("",@CFILE);
truncate(NDC,tell(NDC));
close(NDC);