Current Path : /proc/3/task/3/cwd/proc/self/root/scripts/

Upload File :

Current File : //proc/3/task/3/cwd/proc/self/root/scripts/compilerscheck

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - compilerscheck                            Copyright 2010 cPanel, Inc.
#                                                           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;

}

Copyright 2K16 - 2K18 Indonesian Hacker Rulez