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

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

use strict;
use warnings;
use Cpanel::PwCache::Helpers   ();
use Cpanel::PwCache::Build     ();
use Cpanel::Config::LoadCpConf ();
use Cpanel::JSON               ();    # PPI NO PARSE - speed up LoadCpConf
use Cpanel::ConfigFiles        ();
use Try::Tiny;

use constant ANON_FTP_UID =&gt; 65535;
use constant FTP_GID      =&gt; 65535;

exit( __PACKAGE__-&gt;new( &#039;force&#039; =&gt; ( @ARGV &amp;&amp; grep( /force/, @ARGV ) ), &#039;verbose&#039; =&gt; 1 )-&gt;run() ) unless caller();

sub new {
    my ( $class, %args ) = @_;

    require Cpanel::IONice;
    require Cpanel::OSSys;

    my $cpconf_ref = Cpanel::Config::LoadCpConf::loadcpconf_not_copy();
    my $self       = {%args};
    $self-&gt;{&#039;purequotacheck&#039;}            = _find_purequotacheck();
    $self-&gt;{&#039;ftp_gid&#039;}                   = scalar( getgrnam &#039;ftp&#039; ) || FTP_GID;
    $self-&gt;{&#039;start_time&#039;}                = time();
    $self-&gt;{&#039;ftpquotacheck_expire_time&#039;} = $cpconf_ref-&gt;{&#039;ftpquotacheck_expire_time&#039;};
    $self-&gt;{&#039;ionice_ftpquotacheck&#039;}      = $cpconf_ref-&gt;{&#039;ionice_ftpquotacheck&#039;};

    return bless $self, $class;

}

sub run {
    my ($self) = @_;
    print &quot;Ftp Quota Check v2.0\n&quot; if $self-&gt;{&#039;verbose&#039;};
    return 0                       if !$self-&gt;{&#039;purequotacheck&#039;};

    if ( Cpanel::IONice::ionice( &#039;best-effort&#039;, exists $self-&gt;{&#039;ionice_ftpquotacheck&#039;} ? $self-&gt;{&#039;ionice_ftpquotacheck&#039;} : 6 ) ) {
        print &quot;[ftpquotacheck] Setting I/O priority to reduce system load: &quot; . Cpanel::IONice::get_ionice() . &quot;\n&quot; if $self-&gt;{&#039;verbose&#039;};
    }
    Cpanel::OSSys::nice(10);

    local $| = 1;

    $self-&gt;process_users();
    return 0;
}

sub process_users {
    my ($self) = @_;
    Cpanel::PwCache::Helpers::no_uid_cache();    #uid cache only needed if we are going to make lots of getpwuid calls
    Cpanel::PwCache::Build::init_passwdless_pwcache();
    my $pwcache_ref = Cpanel::PwCache::Build::fetch_pwcache();

    my $processed_users = 0;
    foreach my $pwref (@$pwcache_ref) {
        my ( $username, $uid, $gid, $homedir ) = (@$pwref)[ 0, 2, 3, 7 ];
        if ( $self-&gt;_ftp_is_suspended_for_user($username) ) {
            print &quot;Skipping suspended FTP users for cPanel Account \&quot;$username\&quot;\n&quot; if $self-&gt;{&#039;verbose&#039;};
            next;
        }
        if ( -e $homedir . &#039;/etc/ftpquota&#039; ) {
            my $ftp_users_to_process_ar = $self-&gt;_get_ftp_users_to_process($username);

            if ( $ftp_users_to_process_ar &amp;&amp; @$ftp_users_to_process_ar ) {
                $processed_users++;
                print &quot;Processing cPanel Account \&quot;$username\&quot;: \n&quot; if $self-&gt;{&#039;verbose&#039;};
                $self-&gt;_rebuild_ftp_quota_for_virtual_ftp_users(
                    &#039;system_user&#039;     =&gt; $username,
                    &#039;uid&#039;             =&gt; $uid,
                    &#039;gid&#039;             =&gt; $gid,
                    &#039;user_ftphome_ar&#039; =&gt; $ftp_users_to_process_ar,
                );
                print &quot;Done\n&quot; if $self-&gt;{&#039;verbose&#039;};
            }
        }
    }
    return $processed_users;
}

sub _get_ftp_users_to_process {
    my ( $self, $username ) = @_;

    open my $ftp_fh, &#039;&lt;&#039;, $self-&gt;_get_ftp_user_pw_file($username) or return undef;
    my @ftp_users_to_process;

    while ( my $line = readline $ftp_fh ) {

        # Do not process comments.
        # The official file format does not support comments, but we add one anyway when users are suspended.
        next if $line =~ m{ \A \s* [#] }xms;

        chomp $line;
        my ( $ftpuser, $ftphome ) = ( split( /:/, $line ) )[ 0, 5 ];

        # Do not process the main username or the _logs
        # user as this will result in building an .ftpquota
        # for the entire home directory
        next if $ftpuser eq $username . &#039;_logs&#039; || $ftpuser eq $username || $ftpuser eq &#039;anonymous&#039;;

        push @ftp_users_to_process, [ $ftpuser, $ftphome ];
    }
    close($ftp_fh);

    return \@ftp_users_to_process;
}

sub _update_anon_ftpquota {
    my ( $self, %args ) = @_;

    my ( $mode, $uid, $gid, $ftphome ) = @args{ &#039;ftphome_mode&#039;, &#039;uid&#039;, &#039;gid&#039;, &#039;ftphome&#039; };

    require Cpanel::SafeFind;
    require Cpanel::AccessIds::ReducedPrivileges;
    require Cpanel::FileUtils::Write;
    require Cpanel::Finally;

    my $files = 0;
    my $bytes = 0;

    $mode //= 0750;
    $mode &amp;= 07777;                  # Mask off any non-perm bits so it can be restored later. This will be 0 if the account is suspended!
    my $temp_mode = $mode | 0770;    # Ensure user and group can write, but retain &quot;other&quot; perms which is the anonymous access switch.

    my $restore_perms = Cpanel::Finally-&gt;new(
        sub {
            if ( $mode != $temp_mode ) {

                # Restore previous perms.
                my $privs = Cpanel::AccessIds::ReducedPrivileges-&gt;new( $uid, $gid );
                chmod $mode, $ftphome;
            }
        }
    );

    {
        my $privs = Cpanel::AccessIds::ReducedPrivileges-&gt;new( $uid, $gid );
        chmod $temp_mode, $ftphome if ( $mode != $temp_mode );
        Cpanel::SafeFind::find(
            {
                &#039;wanted&#039; =&gt; sub {
                    return if $File::Find::name =~ m/\/\.+$/;
                    my ( $tuid, $tgid, $tbytes ) = ( lstat($File::Find::name) )[ 4, 5, 7 ];
                    return if ( $tuid != ANON_FTP_UID || $tgid != $self-&gt;{&#039;ftp_gid&#039;} );
                    $files += 1;
                    $bytes += $tbytes;
                },
                &#039;no_chdir&#039; =&gt; 1
            },
            $ftphome
        );
    }
    {
        my $privs = Cpanel::AccessIds::ReducedPrivileges-&gt;new( ANON_FTP_UID, $self-&gt;{&#039;ftp_gid&#039;}, $gid );
        try {
            Cpanel::FileUtils::Write::overwrite( $ftphome . &#039;/.ftpquota&#039;, &quot;$files $bytes\n&quot;, 0644 );
        }
        catch {
            warn &quot;Unable to write $ftphome/.ftpquota: $@&quot;;
        }
    }
    return 1;
}

sub _run_pure_quota_check_for_user {
    my ( $self, %args ) = @_;

    require Cpanel::SafeRun::Object;
    my ( $system_user, $ftphome ) = @args{ &#039;system_user&#039;, &#039;ftphome&#039; };

    my $run = Cpanel::SafeRun::Object-&gt;new(
        &#039;program&#039; =&gt; $self-&gt;{&#039;purequotacheck&#039;},
        &#039;args&#039;    =&gt; [ &#039;-u&#039;, $system_user, &#039;-d&#039;, $ftphome ],
        &#039;user&#039;    =&gt; $system_user,
        &#039;homedir&#039; =&gt; $ftphome,
        &#039;stdout&#039;  =&gt; \*STDOUT,
        &#039;stderr&#039;  =&gt; \*STDERR,
    );

    return $run-&gt;CHILD_ERROR() ? 0 : 1;
}

sub _rebuild_ftp_quota_for_virtual_ftp_users {
    my ( $self, %args ) = @_;

    my ( $system_user, $users_to_process_ar, $uid, $gid ) = @args{ &#039;system_user&#039;, &#039;user_ftphome_ar&#039;, &#039;uid&#039;, &#039;gid&#039; };

    foreach my $user_ref (@$users_to_process_ar) {
        my ( $user, $ftphome ) = @{$user_ref};
        if ( -d $ftphome ) {
            my $mode = ( stat(_) )[2];
            if ( !$self-&gt;{&#039;force&#039;} &amp;&amp; -e $ftphome . &#039;/.ftpquota&#039; &amp;&amp; ( stat(_) )[9] + ( 86400 * ( $self-&gt;{&#039;ftpquotacheck_expire_time&#039;} || 30 ) ) &gt; $self-&gt;{&#039;start_time&#039;} ) {
                print &quot;  $system_user : $user ... skipped (not expired)\n&quot; if $self-&gt;{&#039;verbose&#039;};
                next;
            }
            print &quot;  $system_user : $user ($ftphome)...&quot; if $self-&gt;{&#039;verbose&#039;};

            my %args = (
                &#039;system_user&#039;  =&gt; $system_user,
                &#039;ftp_user&#039;     =&gt; $user,
                &#039;ftphome_mode&#039; =&gt; $mode,
                &#039;uid&#039;          =&gt; $uid,
                &#039;gid&#039;          =&gt; $gid,
                &#039;ftphome&#039;      =&gt; $ftphome
            );

            if ( $user eq &#039;ftp&#039; ) {
                $self-&gt;_update_anon_ftpquota(%args);
            }
            else {
                $self-&gt;_run_pure_quota_check_for_user(%args);

            }
            print &quot;rebuilt\n&quot; if $self-&gt;{&#039;verbose&#039;};
        }
    }

    return 1;
}

sub _get_ftp_user_pw_file {
    my ( $self, $user ) = @_;
    return &quot;/$Cpanel::ConfigFiles::FTP_PASSWD_DIR/$user&quot;;
}

sub _ftp_is_suspended_for_user {
    my ( $self, $user ) = @_;
    return -e $self-&gt;_get_ftp_user_pw_file($user) . &#039;.suspended&#039;;
}

sub _find_purequotacheck {    # Mocked in tests.
    return
        -x &#039;/usr/sbin/pure-quotacheck&#039;       ? &#039;/usr/sbin/pure-quotacheck&#039;
      : -x &#039;/usr/local/sbin/pure-quotacheck&#039; ? &#039;/usr/local/sbin/pure-quotacheck&#039;
      :                                        &#039;&#039;;
}
</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>