�&ǐk�@'bJ�h�ۊL'}T�:��'2�Z#$��n�a����>a��`��_3d�Qpt�/�P
-��#5�,�M���
�pA:©�q�����NW��ډ�A�����9nʺج����
�TSM��{J6?7��r�@�\����D����׶���s�f�TJj?"��D��`?��̒�	b�#�%�C*v�$�{�$����5Ծ�F�s��y�e/8��h-�f�̰
&(����Gj�L:U�	2������v�_k����Y��gp,�k�WF�R����<Q%E�,��+׬��$�䑽�0����]q�%�ˮI�����5_�}}
�c�{8�.��&���o��Ӳ�ߢ�!�2M��@��GƲz�@�Z$�b�ցK���Q��m�C���6�i����V�j|�s�y����\1�����5'?�@3�$%vP�v >��_C�R��N@���R�@�ߔ?A�w9���F("iNa-S���Q�o�3tDMLh*�#4k�T/iQ��Y*�G��m����)��8�
hBm/�I�,g�ﯖ���Z��}�Cz�q@
´��d.����L�ŕ�,��1�Z�܌�:̪���F+J-'��c�tvJ8��]Q-��b��y�6;*J`r_�d	��'�G ~p��)'�C,�%F��E(��2�k�����lР�z�!�=t��_�0��f7�
��
;�p�|�U	�%<j
��I�#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/verify_pidfile                  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

use strict;
use Cpanel::SafeFile ();
use Cpanel::Services ();
use IO::Handle       ();

my ( $user, $service, $pidfile, $regex ) = @ARGV;

if ( !length $user || !length $service || !length $pidfile ) {
    usage();
    exit 1;
}

my %args = (
    'user'    => $user,
    'service' => $service,
);
if ( length $regex ) {
    $args{'regex'} = $regex;
}

my $time_boundary = time;
my $ps_info_for   = Cpanel::Services::get_running_process_info(%args);

if ( !exists $ps_info_for->{$service} ) {
    print STDERR "$service does not appear to be running as user $user\n";
    if ( $time_boundary > ( stat $pidfile )[9] ) {
        remove_pidfile($pidfile) if -e $pidfile;
    }
    exit 2;
}

if ( -e $pidfile ) {
    my $pid = read_pidfile($pidfile);

    if ( $ps_info_for->{$service}{'pid'} ne $pid ) {
        print STDERR "Pidfile for $service does not appear to match running pid $pid\n";
        exit 3;
    }
}
else {
    print STDERR "$service is running but pidfile is missing\n";
    exit 4;
}

exit 0;

sub usage {
    print "Usage: $0 USER SERVICE PIDFILE [REGEX]\n";
}

sub remove_pidfile {
    my ($pidfile) = @_;
    system 'rm', '-f', $pidfile;
}

sub read_pidfile {
    my ($pidfile) = @_;
    my $fh        = IO::Handle->new();
    my $lock      = Cpanel::SafeFile::safeopen( $fh, '<', $pidfile );
    if ( !$lock ) {
        print STDERR 'Unable to open pid file for reading: ' . $pidfile;
        exit 1;
    }
    my $pid = do { local $/; <$fh> };
    if ( !Cpanel::SafeFile::safeclose( $fh, $lock ) ) {
        print STDERR 'Safeclose of pid file failed: ' . $pidfile;
        exit 1;
    }
    chomp $pid;
    return $pid;
}