FileXXXXXXXXXXX

? FileXXXXXXXXXXX

File manager - Edit - /usr/local/cpanel/scripts/dnscluster

Back
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/dnscluster Copyright 2022 cPanel, L.L.C. # All rights reserved. # copyright@cpanel.net http://cpanel.net # This code is subject to the cPanel license. Unauthorized copying is prohibited BEGIN { pop(@INC) if ( $INC[$#INC] eq '.' ); } $\| = 1; use strict; use Cpanel::DnsUtils::Sync (); use Cpanel::Usage (); if ( !@ARGV ) { show_usage(); } Cpanel::Usage::usage( \@ARGV, \&show_usage ); if ( !-e '/var/cpanel/useclusteringdns' ) { print STDERR "DNS Clustering is not enabled\n"; exit 1; } my $action = $ARGV[0]; my $full_sync = ( grep( /^\-?-f/i, @ARGV ) ? 1 : 0 ); if ( $action eq 'synczonelocal' ) { my $zone = $ARGV[1]; if ( !$zone ) { show_usage(); } synczonelocal($zone); } elsif ( $action eq 'synczone' ) { my $zone = $ARGV[1]; if ( !$zone ) { show_usage(); } synczone($zone); } elsif ( $action eq 'syncall' ) { syncall($full_sync); } elsif ( $action eq 'syncalllocal' \|\| $action eq 'synclocal' ) { syncalllocal($full_sync); } else { show_usage(); exit 1; } sub synczone { my $domain = shift; print "Syncing $domain to all machines in cluster..."; my ( $response, $err ) = Cpanel::DnsUtils::Sync::sync_zone($domain); print $err ? $err : $response; print "Done\n"; } sub synczonelocal { my $domain = shift; print "Syncing $domain to local machine..."; my ( $response, $err ) = Cpanel::DnsUtils::Sync::sync_zone_local($domain); print $err ? $err : $response; print "Done\n"; } sub syncall { my $full_sync = shift; print "Syncing Zones to all machines in cluster...."; my $user_domains_only = ( $full_sync ? 0 : 1 ); if ( !$user_domains_only ) { print "(full)..."; } if ( my $pid = fork() ) { while ( waitpid( $pid, 1 ) != -1 ) { syswrite( STDOUT, '.' ); select( undef, undef, undef, 0.1 ); } } else { # The default is to sync all domains in the cluster # for consistancy with previous behavior # full (!user_domains_only) then send 0 # !full (user_domains_only) then send 1 # Cpanel::DnsUtils::Sync::sync_zones($user_domains_only); exit(0); } print "Done\n"; } sub syncalllocal { my $full_sync = shift; print "Syncing Zones to local machine...."; my $user_domains_only = ( $full_sync ? 0 : 1 ); if ( !$user_domains_only ) { print "(full)..."; } if ( my $pid = fork() ) { while ( waitpid( $pid, 1 ) != -1 ) { syswrite( STDOUT, '.' ); select( undef, undef, undef, 0.1 ); } } else { # The default is to sync all domains in the cluster # for consistancy with previous behavior # full (!user_domains_only) then send 0 # !full (user_domains_only) then send 1 # Cpanel::DnsUtils::Sync::sync_zones_local($user_domains_only); exit(0); } print "Done\n"; } sub show_usage { print <<'EOM'; Usage: dnscluster [ACTION] [OPTIONS]... Examples: /usr/local/cpanel/scripts/dnscluster syncall --full # Sync all zones (even ones not in /etc/userdomains) /usr/local/cpanel/scripts/dnscluster synczonelocal mydomain.org # Sync mydomain.org to the local machine Actions: syncall [--full] - make sure all dns zones are in sync within the cluster. If any zone files are out out of sync, the ones with the largest serial numbers will be copied to all servers. syncalllocal [--full] - make sure all dns zones are in sync within the cluster. If any zone files are out out of sync, the ones with the largest serial numbers will be copied to the local server only. synczone <zone> - sync one zone If the zone is out out of sync, the one with the largest serial number will be copied to all servers. synczonelocal <zone> - sync one zone If the zone is out out of sync, the one with the largest serial number will be copied to the local server. Operation modifiers: -F, --full If the --full flag is specified then zones that are not local to this server (in /etc/userdomains) will be pulled in as well. This was the default behavior prior to 11.24.5 Help: -H, --help (or no arguments) This will show this screen. EOM exit; }