Current Path : /proc/3/cwd/scripts/

Upload File :

Current File : //proc/3/cwd/scripts/dumpquotas

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/dumpquotas                        Copyright 2016 cPanel, Inc.
#                                                           All Rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use Cpanel::SysQuota ();

my ( $qrused, $qrlimit ) = Cpanel::SysQuota::analyzerepquotadata();

exit if !$qrused || !keys %{$qrused};

print "# dumpquotas v1\n";

foreach my $user ( keys %{$qrused} ) {
    print $user . '=' . $qrused->{$user} . "\n";
}

Copyright 2K16 - 2K18 Indonesian Hacker Rulez