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:29:41
Current Directory :
/
scripts
/
Upload File :
Mass Deface
Home
Bypass Passwd
Current File : //scripts/check_unreliable_resolvers
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/check_unreliable_resolvers 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::check_unreliable_resolvers; use strict; use Getopt::Long (); use Pod::Usage (); use Cpanel::Resolvers::Check (); my $ONE_DAY_IN_SECONDS = 86400; our $NOTIFICATION_INTERVAL = $ONE_DAY_IN_SECONDS; sub script { my ( $class, $argv ) = @_; my %opts = ( notify => 0, quiet => 0, ); my $self = bless {}, $class; my $help; Getopt::Long::GetOptionsFromArray( $argv, help => \$help, notify => \$opts{'notify'}, quiet => \$opts{'quiet'}, ); if ($help) { Pod::Usage::pod2usage( -exitval => 'NOEXIT', -verbose => 2, -noperldoc => 1, ); return 0; } $self->{'notify'} = $opts{'notify'}; $self->{'quiet'} = $opts{'quiet'}; my $resolver_state = Cpanel::Resolvers::Check::check_resolvers_performance(); if ( !$resolver_state->{'state'}->is_ok() ) { $self->send_notification($resolver_state); return 1; } print $self->_locale()->maketext(q{OK}), "\n" unless $self->{'quiet'}; return 0; } sub send_notification { my ( $self, $resolvers_ref ) = @_; require Cpanel::Locale; my $old = $self->_locale()->set_context_plain(); require Cpanel::Notify; my $ic_obj = Cpanel::Notify::notification_class( 'class' => 'Check::Resolvers', 'application' => 'Check::Resolvers', 'status' => $resolvers_ref->{'state'}, 'interval' => $NOTIFICATION_INTERVAL, 'constructor_args' => [ 'origin' => 'check_unreliable_resolvers', resolver_state => $resolvers_ref->{'resolver_state'}, overall_state => $resolvers_ref->{'state'}, 'skip_send' => 1, ] ); unless ( $self->{'quiet'} ) { print $ic_obj->render_template_include_as_text( 'template' => 'subject', 'type' => 'text' ) . "\n\n" . $ic_obj->render_template_include_as_text( 'template' => 'body', 'type' => 'html' ) . "\n"; } if ( $self->{'notify'} ) { my %notify_check_args = ( app => 'Check::Resolvers', status => $resolvers_ref->{'state'}, interval => $NOTIFICATION_INTERVAL, ); return 0 if Cpanel::Notify::notify_blocked(%notify_check_args); Cpanel::Notify::update_notification_time_if_interval_reached(%notify_check_args); $ic_obj->send(); } $self->_locale()->set_context($old); return 1; } sub _locale { my ($self) = @_; require Cpanel::Locale; return ( $self->{'_locale'} ||= Cpanel::Locale->get_handle() ); } exit( __PACKAGE__->script( \@ARGV ) ) unless caller; __END__ =pod =encoding utf-8 =head1 NAME check_unreliable_resolvers - Checks for resolvers in /etc/resolv.conf that are not reliable or missing =head1 SYNOPSIS check_unreliable_resolvers OPTIONS Options: --quiet Do not display output. --notify Send notification to the system administrator. --help Print this message. =head1 DESCRIPTION This script checks the state of /etc/resolv.conf and can notify when one or more of the nameservers is responding slowly, not responding, unreliable, or otherwise problematic. =cut
./LuLlaby007 ♥ Tata Cantik - Copyright 2k18