live
     €ВИѓ чГЖ Ш    #!/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;
}
     ЌДГЖ      File not found.
  "   €ЙИѓla–Эm_J*j"TвЂА‚а›SЌяЗ °    // Safe sequence implementation  -*- C++ -*-

// Copyright (C) 2010-2021 Free Software Foundation, Inc.
//
// This file is part of the GNU ISO C++ Library.  This library is free
// software; you can redistribute it and/or modify it under the
// terms of the GNU General Public License as published by the
// Free Software Foundation; either version 3, or (at your option)
// any later version.

// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.

// Under Section 7 of GPL version 3, you are granted additional
// permissions described in the GCC Runtime Library Exception, version
// 3.1, as published by the Free Software Foundation.

// You should have received a copy of the GNU General Public License and
// a copy of the GCC Runtime Library Exception along with this program;
// see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
// <http://www.gnu.org/licenses/>.

/** @file debug/safe_sequence.tcc
 *  This file is a GNU debug extension to the Standard C++ Library.
 */

#ifndef _GLIBCXX_DEBUG_SAFE_SEQUENCE_TCC
#define _GLIBCXX_DEBUG_SAFE_SEQUENCE_TCC 1

namespace __gnu_debug
{
  template<typename _Sequence>
    template<typename _Predicate>
      void
      _Safe_sequence<_Sequence>::
      _M_invalidate_if(_Predicate __pred)
      {
	typedef typename _Sequence::iterator iterator;
	typedef typename _Sequence::const_iterator const_iterator;

	__gnu_cxx::__scoped_lock sentry(this->_M_get_mutex());
	for (_Safe_iterator_base* __iter = _M_iterators; __iter;)
	  {
	    iterator* __victim = static_cast<iterator*>(__iter);
	    __iter = __iter->_M_next;
	    if (!__victim->_M_singular() && __pred(__victim->base()))
	      {
		__victim->_M_invalidate();
	      }
	  }

	for (_Safe_iterator_base* __iter2 = _M_const_iterators; __iter2;)