SCDNG PELER
Server IP : 162.241.126.129  /  Your IP : 18.118.32.6
Web Server : Apache
System : Linux 162-241-126-129.cprapid.com 4.18.0-477.27.2.el8_8.x86_64 #1 SMP Fri Sep 29 08:21:01 EDT 2023 x86_64
User : rvway5nu4 ( 1018)
PHP Version : 7.4.33
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /proc/thread-self/root/scripts/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ HOME ]     

Current File : /proc/thread-self/root/scripts/grpck
#!/usr/local/cpanel/3rdparty/bin/perl

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

exit if ( !-x '/usr/sbin/grpck' );

require Expect;

my $lines  = 0;
my $glines = 0;

open( GROUP, "<", '/etc/group' );
while (<GROUP>) {
    $glines++;
}
close(GROUP);
$glines = ( $glines * 3 );

open( GRPCK, "-|" ) || exec( '/usr/sbin/grpck', '-r' );
while (<GRPCK>) {
    if (/\? /) {
        $lines++;
        if ( $lines > $glines ) {
            last();
        }
    }
}
close(GRPCK);

if ( $lines > $glines ) {
    print "broken grpck: https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=143308\n";
    print "grpck will be skipped.\n";
    exit();
}

my $exp = Expect->spawn("/usr/sbin/grpck")
  or die "Cannot spawn pwck $!\n";

while (1) {
    $exp->expect( 30, [ '\?', sub { $exp->send("yes\r"); } ], [ 'eof', sub { exit(); } ], [ 'timeout', sub { exit(); } ], 'default' );
}

my $pid = $exp->pid();

$exp->soft_close();
waitpid( $pid, 0 );

Anon7 - 2022
SCDN GOK