Edit File: unslavenamedconf
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel4 - scripts Copyright(c) 2011 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"); } my $im = 0; my @CFILE; 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);