#!/usr/bin/perl
# cpanel12 - dumpquotas                       Copyright(c) 1997-2008 cPanel, Inc.
#                                                           All Rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use Storable ();

exit if (! -e '/var/cpanel/repquota.datastore');

my $quota_ref = Storable::retrieve('/var/cpanel/repquota.datastore');

print "# dumpquotas v1\n";

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