sub check_limits
{
my $count = 0;
my $last_send = 0;
my $cur_time = 0;
my $diff_time = 0;

if (open (LIMIT, "/etc/virtual/limit_$name"))
{
$email_limit = int(LIMIT);
close(LIMIT);
}
else
{
open (LIMIT, "/etc/virtual/limit");
$email_limit = int(LIMIT);
close(LIMIT);
}

#find the curent user
$uid = find_uid();

#log_str("Found uid: $uid\n");

if (uid_exempt($uid)) { return "yes"; }

my $name="";

#check this users limit
$name = getpwuid($uid);

if (!defined($name))
{
$name = "unknown";
}

if ($email_limit > 0)
{
$last_send = (stat("/etc/virtual/usage/$name"))[9];

if ($last_send eq "")
{
open(USAGE, ">/etc/virtual/usage/$name");
close(USAGE);
chmod (0660, "/etc/virtual/usage/$name");
}

$time_lock = (stat("/etc/virtual/usage/$name.time"))[9];

if ($time_lock eq "")
{
open(TIMELOCK, ">/etc/virtual/usage/$name.time");
close(TIMELOCK);
$time_lock = (stat("/etc/virtual/usage/$name.time"))[9];
}

$cur_time = time;
$diff_time = $cur_time - $time_lock;
if ($diff_time >= 3600)
{
open(USAGE, ">/etc/virtual/usage/$name");
close(USAGE);
chmod (0660, "/etc/virtual/usage/$name");
open(TIMELOCK, ">/etc/virtual/usage/$name.time");
close(TIMELOCK);
}

$count = (stat("/etc/virtual/usage/$name"))[7];

if ($count eq "")
{
$count = 0;
}

if ($count > $email_limit)
{
die("You ($name) have reach your daily email limit of $email_limit emails\n");
}

open(USAGE, ">>/etc/virtual/usage/$name");
print USAGE "1";
close(USAGE);
chmod (0660, "/etc/virtual/usage/$name");
}

my $sender_address = Exim::expand_string('$sender_address');
my $mid = Exim::expand_string('$message_id');

log_bandwidth($uid,"type=email&email=$sender_address&method=outgoing&id=$mid");