| Server IP : 221.132.30.236 / Your IP : 216.73.216.91 [ Web Server : Apache System : Linux web3.trangwebvang.net 2.6.32-954.3.5.lve1.4.86.el6.x86_64 #1 SMP Tue Aug 31 17:08:39 UTC 2021 x86_64 User : cherishhotel ( 944) PHP Version : 5.6.40 Disable Function : exec, system,passthru,shell_exec,escapeshellarg,escapeshellcmd,proc_close,proc_open,ini_alter,popen,show_source,proc_nice, proc_terminate, proc_get_status, proc_close, pfsockopen, leak, apache_child_terminate, posix_kill, posix_mkfifo, posix_setpgid, posix_setsid, posix_setuid,dl,symlink Domains : 0 Domains MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /scripts/ |
Upload File : |
#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/fix_dns_zone_ttls 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
package scripts::fix_dns_zone_ttls;
use cPstrict;
=encoding utf-8
=head1 USAGE
fix_dns_zone_ttls [--fix]
=head1 DESCRIPTION
This utility fixes problems with TTLs in DNS zone files.
By default this script will only I<find> TTL problems. Pass the C<--fix>
parameter to have the script fix the problems as well.
=cut
#----------------------------------------------------------------------
use Try::Tiny;
use parent 'Cpanel::HelpfulScript';
use Cpanel::DnsUtils::FixTTLs ();
use constant _OPTIONS => (
'fix',
);
__PACKAGE__->new(@ARGV)->run() if !caller;
#----------------------------------------------------------------------
sub run ($self) {
local $ENV{'REMOTE_USER'} = getpwuid $>;
my $output_obj = $self->get_output_object();
my $funcname;
if ( $self->getopt('fix') ) {
$funcname = 'report_and_fix_problems';
}
else {
$funcname = 'report_problems';
}
Cpanel::DnsUtils::FixTTLs->can($funcname)->($output_obj);
return;
}
1;