Server IP : 162.241.126.129 / Your IP : 3.142.198.250 Web Server : Apache System : Linux 162-241-126-129.cprapid.com 4.18.0-477.27.2.el8_8.x86_64 #1 SMP Fri Sep 29 08:21:01 EDT 2023 x86_64 User : rvway5nu4 ( 1018) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | 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;