.

　晋太元中，武陵人捕鱼为业。缘溪行，忘路之远近。忽逢桃花林，夹岸数百步，中无杂树，芳草鲜美，落英缤纷。渔人甚异之，复前行，欲穷其林。　　林尽水源，便得一山，山有小口，仿佛若有光。便舍船，从口入。初极狭，才通人。复行数十步，豁然开朗。土地平旷，屋舍俨然，有良田、美池、桑竹之属。阡陌交通，鸡犬相闻。其中往来种作，男女衣着，悉如外人。黄发垂髫，并怡然自乐。　　见渔人，乃大惊，问所从来。具答之。便要还家，设酒杀鸡作食。村中闻有此人，咸来问讯。自云先世避秦时乱，率妻子邑人来此绝境，不复出焉，遂与外人间隔。问今是何世，乃不知有汉，无论魏晋。此人一一为具言所闻，皆叹惋。余人各复延至其家，皆出酒食。停数日，辞去。此中人语云：“不足为外人道也。”(间隔一作：隔绝) 　　既出，得其船，便扶向路，处处志之。及郡下，诣太守，说如此。太守即遣人随其往，寻向所志，遂迷，不复得路。　　南阳刘子骥，高尚士也，闻之，欣然规往。未果，寻病终。后遂无问津者。 . Prv8 Shell

Server : Apache
System : Linux srv.rainic.com 4.18.0-553.47.1.el8_10.x86_64 #1 SMP Wed Apr 2 05:45:37 EDT 2025 x86_64
User : rainic ( 1014)
PHP Version : 7.4.33
Disable Function : exec,passthru,shell_exec,system
Directory : /scripts/

Upload File :

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

haha - 2025