32 lines
1.4 KiB
Cheetah
32 lines
1.4 KiB
Cheetah
|
{
|
||
|
|
use esmith::I18N;
|
||
|
|
use Locale::gettext;
|
||
|
|
|
||
|
|
my $i18n = new esmith::I18N;
|
||
|
|
$i18n->setLocale('userOverQuota.tmpl');
|
||
|
|
|
||
|
|
my $domain = $conf->get_value("DomainName") || "localhost";
|
||
|
|
my $systemName = $conf->get_value("SystemName") || "SME Server";
|
||
|
|
|
||
|
|
my $gracePeriodEnds = localtime($data{gracePeriod});
|
||
|
|
|
||
|
|
$OUT .= "To: $data{fullname} <$data{username}\@${domain}>\n";
|
||
|
|
$OUT .= "From: \"".
|
||
|
|
gettext("Automated quota report").
|
||
|
|
"\" <do-not-reply\@${domain}>\n";
|
||
|
|
$OUT .= "Subject: ".gettext("You have exceeded your disk quota")."\n";
|
||
|
|
|
||
|
|
$OUT .= gettext("Your current disk usage:").
|
||
|
|
" $data{usage} ".gettext("Mb")."\n";
|
||
|
|
$OUT .= gettext("Your maximum usage:").
|
||
|
|
($data{hardQuota} == 0 ? gettext(" no limit set") :
|
||
|
|
" $data{hardQuota} ".gettext("Mb"))."\n";
|
||
|
|
$OUT .= gettext("Warnings start at:").
|
||
|
|
" $data{softQuota} ".gettext("Mb")."\n";
|
||
|
|
$OUT .= gettext("Grace period ends:")." $gracePeriodEnds\n";
|
||
|
|
$OUT .= gettext("System name:")." $systemName\n\n";
|
||
|
|
|
||
|
|
$OUT .= gettext("You are currently using more disk space than you have been allotted. You have until the Grace Period above to remove files so that you no longer exceed the warning level. At no time will you be permitted to store more than the maximum usage indicated above. This disk allocation includes all your e-mail, including unread e-mail.");
|
||
|
|
|
||
|
|
}
|