{ 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"). "\" \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."); }