<h2>Edit File - check_unmonitored_enabled_services</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/check_unmonitored_enabled_services">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/check_unmonitored_enabled_services
#                                                  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_unmonitored_enabled_services;

use strict;
use Cpanel::Usage                      ();
use Cpanel::Services::Installed::State ();

# This now only runs when we update to a new version
# unless it is run manually.  The interval has been
# lowered as a result of this change.
my $ONE_WEEK_IN_SECONDS = ( 86400 * 7 );
our $NOTIFICATION_INTERVAL = $ONE_WEEK_IN_SECONDS;

sub script {
    my ( $class, $argv ) = @_;

    my %opts = (
        notify =&gt; 0,
        quiet  =&gt; 0,
    );
    my $self = bless {}, $class;
    Cpanel::Usage::wrap_options(
        $argv,
        sub { my (@args) = @_; $self-&gt;usage(@args); },
        { &#039;notify&#039; =&gt; \$opts{&#039;notify&#039;}, &#039;quiet&#039; =&gt; \$opts{&#039;quiet&#039;} },
    );
    $self-&gt;{&#039;notify&#039;} = $opts{&#039;notify&#039;};
    $self-&gt;{&#039;quiet&#039;}  = $opts{&#039;quiet&#039;};

    require Cpanel::Locale;
    my $old = $self-&gt;_locale()-&gt;set_context_plain();

    my $installed_services_state = Cpanel::Services::Installed::State::get_installed_services_state();
    my @unmonitored_enabled_services =
      grep { $_-&gt;{&#039;type&#039;} eq &#039;services&#039; &amp;&amp; $_-&gt;{&#039;enabled&#039;} &amp;&amp; !$_-&gt;{&#039;monitored&#039;} &amp;&amp; $_-&gt;{&#039;name&#039;} ne &#039;apache_php_fpm&#039; } sort { $a-&gt;{&#039;name&#039;} cmp $b-&gt;{&#039;name&#039;} } @{$installed_services_state};

    if (@unmonitored_enabled_services) {
        $self-&gt;send_notification( \@unmonitored_enabled_services );
    }
    else {
        print $self-&gt;_locale()-&gt;maketext(q{OK}), &quot;\n&quot; unless $self-&gt;{&#039;quiet&#039;};
    }
    $self-&gt;_locale()-&gt;set_context($old);
    return 0;
}

sub usage {
    my ($self) = @_;

    print $self-&gt;_locale()-&gt;maketext(q{This tool verifies the services are being monitored.}),  &quot;\n\n&quot;;
    print $self-&gt;_locale()-&gt;maketext( q{Usage: [_1][comment,a program name] ~[options~]}, $0 ), &quot;\n\n&quot;;
    print $self-&gt;_locale()-&gt;maketext(q{Options:}),                                              &quot;\n&quot;;
    print &quot;\t--help     &quot;,                                                                      $self-&gt;_locale()-&gt;maketext(q{Display this help message.}),                                               &quot;\n&quot;;
    print &quot;\t--notify   &quot;,                                                                      $self-&gt;_locale()-&gt;maketext(q{Send a failure notification to the system administrator.}),                 &quot;\n&quot;;
    print &quot;\t--quiet    &quot;,                                                                      $self-&gt;_locale()-&gt;maketext(q{Do not display output, and instead set the [output,asis,UNIX] exit code.}), &quot;\n\n&quot;;

    exit 0;
}

sub send_notification {
    my ( $self, $unmonitored_enabled_services_ref ) = @_;
    require Cpanel::Notify;
    my $status = join( &quot;,&quot;, sort map { $_-&gt;{&#039;name&#039;} } @{$unmonitored_enabled_services_ref} );
    my $ic_obj = Cpanel::Notify::notification_class(
        &#039;class&#039;            =&gt; &#039;Check::UnmonitoredEnabledServices&#039;,
        &#039;application&#039;      =&gt; &#039;Check::UnmonitoredEnabledServices&#039;,
        &#039;status&#039;           =&gt; $status,
        &#039;interval&#039;         =&gt; $NOTIFICATION_INTERVAL,
        &#039;constructor_args&#039; =&gt; [
            &#039;origin&#039;    =&gt; &#039;check_unmonitored_enabled_services&#039;,
            &#039;services&#039;  =&gt; $unmonitored_enabled_services_ref,
            &#039;skip_send&#039; =&gt; 1,
        ]
    );

    unless ( $self-&gt;{&#039;quiet&#039;} ) {
        print $ic_obj-&gt;render_template_include_as_text( &#039;template&#039; =&gt; &#039;subject&#039;, &#039;type&#039; =&gt; &#039;text&#039; ) . &quot;\n\n&quot; . $ic_obj-&gt;render_template_include_as_text( &#039;template&#039; =&gt; &#039;body&#039;, &#039;type&#039; =&gt; &#039;html&#039; );
    }

    if ( $self-&gt;{&#039;notify&#039;} ) {
        my %notify_check_args = (
            app      =&gt; &#039;Check::UnmonitoredEnabledServices&#039;,
            status   =&gt; $status,
            interval =&gt; $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-&gt;send();
    }

    return 1;
}

sub _locale {
    my ($self) = @_;
    require Cpanel::Locale;
    return ( $self-&gt;{&#039;_locale&#039;} ||= Cpanel::Locale-&gt;get_handle() );
}

exit( __PACKAGE__-&gt;script( \@ARGV ) ) unless caller;

__END__

=head1 NAME

check_unmonitored_enabled_services - Checks for services that are enabled to run but not enabled in chkservd

=head1 DESCRIPTION

This script checks the state of services and can notify when one or more is
unmonitored
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>