#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/dcpumon-wrapper 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::dcpumon_wrapper;
use strict;
our $suspend_file = '/var/run/chkservd.suspend';
exit script(@ARGV) unless caller;
sub should_skip {
# If chkservd is suspended, we're probably in an update. Avoid a segfault
# in dcpumon by doing nothing.
return -e $suspend_file;
}
sub run {
my (@args) = @_;
exec '/usr/local/cpanel/bin/dcpumon', @args or return 255;
}
sub script {
my (@args) = @_;
return 0 if should_skip();
return run(@args);
}