{
    use esmith::I18N;
    use Locale::gettext;
    
    my $i18n = new esmith::I18N;
    $i18n->setLocale('adminQuotaSummary.tmpl');

    my $domain = $conf->get_value("DomainName") || "localhost";
    my $systemName = $conf->get_value("SystemName") || "SME Server";

    $OUT .= "To: ".gettext("System Administrator")." <admin\@${domain}>\n";
    $OUT .= "From: \"".
		gettext("Automated quota report").
		"\" <do-not-reply\@${domain}>\n";
    $OUT .= "Subject: ".
		gettext("One or more users have exceeded their disk quota").
		"\n";

    #----------------------------------------------------------------------
    # Over quota users:
    #----------------------------------------------------------------------

    $OUT .= gettext("The following users have exceeded their disk quota on the server called").
	    " \"$systemName\" ".gettext("All values are in megabytes.");
    $OUT .= "\n";

    $OUT .= sprintf("%-20s%+8s%+28s%+19s", 
    		gettext("Account"), 
		gettext("Usage"), 
		gettext("Limit with grace period"), 
		gettext("Absolute limit") 
		) . "\n";
    $OUT .= "-"x75 . "\n";;

    foreach my $user (sort keys %usersOverQuota)
    {
	$OUT .= sprintf("%-20s%8.2f%28.2f%19.2f",
		    $user,
		    $usersOverQuota{$user}{usage},
		    $usersOverQuota{$user}{softQuota},
		    $usersOverQuota{$user}{hardQuota}
		) . "\n";
    }
}