Current Path : /proc/3/root/scripts/ |
|
Current File : //proc/3/root/scripts/fixnamedviews |
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - fixnamedviews Copyright 2010 cPanel, Inc.
# All rights Reserved.
# copyright@cpanel.net http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited
use strict;
use warnings;
use Cpanel::DNSLib ();
use Cpanel::SafeRun ();
exit if ( -e '/etc/nameddisable' || -e '/etc/binddisable' );
my $no_restart = ( @ARGV && grep( /^--norestart$/, @ARGV ) ) ? 1 : 0;
my $dnslib = Cpanel::DNSLib->new();
if ( !$dnslib ) {
print "Syntactically correct named.conf required.\n";
exit;
}
my $restart = 0;
my ( $status, $message ) = $dnslib->editviewdirective( 'external', 'match-.*', '' );
if ($status) {
$restart++;
print $message . "\n";
}
$status = 0;
( $status, $message ) = $dnslib->editviewdirective( 'localhost_resolver', 'match-clients\s*{\s*localhost\s*;\s*}.*', " match-clients { 127.0.0.0/24; };\n" );
if ($status) {
$restart++;
print $message . "\n";
}
if ( !$no_restart && $restart ) {
print "Restarting Bind\n";
Cpanel::SafeRun::bgrun('/usr/local/cpanel/scripts/restartsrv_named');
}
Copyright 2K16 - 2K18 Indonesian Hacker Rulez