| Server IP : 101.53.144.229 / Your IP : 216.73.216.181 Web Server : Apache System : Linux host.gdigitalindia.in 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64 User : digitalshiksha ( 1179) PHP Version : 5.6.40 Disable Function : eval,show_source,system,shell_exec,escapeshellarg,escapeshellcmd,proc_close,proc_open,ini_alter,dl,show_source,curl_multi_exechellcmd, ini_restore,apache_get_modules,get_cfg_var,passthru, exec ,proc_get_status,fpassthru,c999_buff_prepare,c999_sess_put,c99_buff_prepare,c99_sess_put,proc_close,ini_alter,dl,symlink,link,proc_close,ini_alter,dl,symlink,link,mail MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON 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;