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

BEGIN {
    unshift @INC, '/usr/local/cpanel';
}

use Cpanel::Config::LoadCpUserFile ();
use Cpanel::EmailTracker::DB       ();
use Cpanel::PwCache                ();

my $user = $ARGV[0];

if ( !Cpanel::PwCache::getpwnam($user) || !-e "/var/cpanel/users/" . $user ) {
    die "Usage: $0 [user]\n";
}

my $cpuser_data = Cpanel::Config::LoadCpUserFile::loadcpuserfile($user);

Cpanel::EmailTracker::DB::set_maxemails_from_cpuser_data($cpuser_data, $Cpanel::EmailTracker::DB::VERBOSE);

__END__

=head1 NAME

update_email_limits - Rebuild /var/cpanel/maxemailsperdomain/ files

=head1 SYNOPSIS

update_email_limits [user]

The limits are read from /var/cpanel/users/[user] and placed into the proper file in
/var/cpanel/maxemailsperdomain/

=head1 SAMPLE CPUSER ENTERIES

MAX_EMAIL_PER_HOUR=2000
MAX_EMAIL_PER_HOUR-pi.nt=2003

=cut