#!/usr/bin/perl

my $cpgid       = ( getpwnam('cpanel') )[3];
my $cpgid_group = ( getgrnam('cpanel') )[2];

if ( $cpgid != $cpgid_group ) {
    print "cpanel gid check failed!\n";
    print "cpanel passwd gid: $cpgid\n";
    print "cpanel group  gid: $cpgid_group\n";
    print "Fixing gid...";
    if ( -x '/usr/sbin/pw' ) {
        system '/usr/sbin/pw', 'usermod', '-g', $cpgid_group, 'cpanel';
    }
    elsif ( -e '/usr/sbin/usermod' ) {
        system '/usr/sbin/usermod', '-g', $cpgid_group, 'cpanel';
    }
    print "Done\n";
    $cpgid       = ( getpwnam('cpanel') )[3];
    $cpgid_group = ( getgrnam('cpanel') )[2];
    print "cpanel passwd gid: $cpgid\n";
    print "cpanel group  gid: $cpgid_group\n";
    if ( $cpgid != $cpgid_group ) {
        print "Autorepair failed!\n";
    }
    else {
        print "Autorepair ok!\n";
    }
}