0
 ç    #!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/compilerscheck                  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::compilerscheck;

use strict;
use warnings;

__PACKAGE__->script() unless caller();

sub script {
    my ($self) = @_;

    if ( !getgrnam('compiler') ) { print "[compilerscheck] compiler group missing\n"; return; }
    if ( !getpwnam('cpanel') )   { print "[compilerscheck] cpanel user missing\n";    return; }

    require Whostmgr::Groups;
    my $gr_ref = Whostmgr::Groups::getgroups('cpanel');
    if ( !grep( /^compiler$/, @{$gr_ref} ) ) {
        print "Adding cpanel to the compiler group.....";
        Whostmgr::Groups::add_user_to_group( 'cpanel', 'compiler' );
        print "Done\n";
    }

    return;

}
     ˆ¾Âƒ¯3ÁÀ ÷    #!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/gemwrapper                      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::FileUtils::Path ();

my $hasperlexpect = 0;

eval {
    require IO::Tty;
    require Expect;
    $hasperlexpect = 1;
};

my $gem = Cpanel::FileUtils::Path::findinpath('gem');

if ( $> != 0 ) {
    my $homedir = ( getpwuid($>) )[7];
    $ENV{'HOME'}     = $homedir;                   # restore HOME (cleansed by saferun_r_cleanenv when called from Cpanel::LangMods)
    $ENV{'GEM_HOME'} = $homedir . '/ruby/gems/';
}

if ( $ARGV[0] =~ m/noexpect/ ) {
    shift @ARGV;
    $hasperlexpect = 0;
}

if ( !$hasperlexpect ) {
    exec $gem, @ARGV;
}

$SIG{'ALRM'} = sub { die "Timeout\n"; };
alarm( 20 * 60 );

my $exp = Expect->spawn( $gem, @ARGV ) or die "Cannot spawn gem installer: $!";
my $pid = $exp->pid();

my $number = 0;
while ( waitpid( $pid, 1 ) != -1 ) {
    $exp->expect(
        300,
        [
            qr/(.*\(ruby\).*)/,
            sub {
                if ( !$number ) {
                    ($number) = $exp->match =~ /\s*(\d+)/;
                }
            }
        ],
        [
            '>',
            sub {
                my $temp_number = 1;
                if ($number) {
                    $temp_number = $number;
                    $number      = 0;
                }
                $exp->send( $temp_number . "\r" );
            }
        ],
        [ 'eof',     sub { exit; } ],
        [ 'timeout', sub { $exp->send("\r"); } ],
    );
}

$exp->soft_close();
     	ˆÃÂ572ÁÀ <    	#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/fixheaders                      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 Cpanel::SysPkgs ();

my $syspkgobj = Cpanel::SysPkgs->new();
if ( !$syspkgobj ) { die print "Could not create SysPkgs object\n"; }
my @pkgs = ('glibc-devel');

$syspkgobj->install( 'pkglist' => \@pkgs );
     ˆ¿Âƒh¹ÁÀ      disabled
  #   ˆl–ß=¿JÕ/”Še@µq§®6%1hßÃ„YqïÂÁ ,h    ELF          >    N@     @       (%          @ 8 	 @         @       @ @     @ @     ø      ø                   8      8@     8@                                          @       @     Ì      Ì                          `     `     „      ˜                    (      (`     (`     Ð      Ð                   T      T@     T@     D       D              Påtd   p      p@     p@     4       4              Qåtd                                                  Råtd         `     `     ð      ð             /lib64/ld-linu