User account expiration control panel for SME Server
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

23 lines
871 B

{
use esmith::I18N;
use Locale::gettext;
my $i18n = new esmith::I18N;
$i18n->setLocale('userNotifAccountExpiration.tmpl');
my $domain = $conf->get_value("DomainName") || "localhost";
my $systemName = $conf->get_value("SystemName") || "SME Server";
$OUT .= "To: <${user}\@${domain}>\n";
$OUT .= "From: \"".
gettext("Account Expiration Notifier").
"\" <do-not-reply\@${domain}>\n";
$OUT .= "Subject: ".
gettext("Your user account will expire soon").
"\n";
$OUT .= "Content-Type: text/plain; charset='utf-8'\n";
$OUT .= "Content-Transfer-Encoding: 8bit\n";
$OUT .= sprintf gettext("Your user account will expire in %d days, after what it will be locked"), $days;
$OUT .= "\n\n" . gettext("Please contact your network administrator for more details.");
}