smecontribs/smeserver-expire-accounts
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit of file from CVS for smeserver-expire-accounts on Sat Sep 7 19:52:48 AEST 2024

Browse Source
This commit is contained in:
Trevor Batley
2024-09-07 19:52:48 +10:00
parent fccbe8588b
commit 133c7905f7
77 changed files with 6895 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
root/etc/e-smith/templates/usr/lib/smeserver-expire-accounts/adminNotifNextExpirations.tmpl Normal file
View File

@@ -0,0 +1,26 @@
{
use esmith::I18N;
use Locale::gettext;
my $i18n = new esmith::I18N;
$i18n->setLocale('adminNotifNextExpirations.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("Account Expiration Notifier").
"\" <do-not-reply\@${domain}>\n";
$OUT .= "Subject: ".
gettext("One or more user accounts will expire soon").
"\n";
$OUT .= "Content-Type: text/plain; charset='utf-8'\n";
$OUT .= "Content-Transfer-Encoding: 8bit\n";
$OUT .= gettext("The following user accounts will expire soon:\n\n");
foreach my $u (sort keys %$users){
$OUT .= " * " . sprintf(gettext("%s will expire in %d days"), "$users->{$u}->{name} ($u)", $users->{$u}->{remaining}) . "\n";
}
}

23
root/etc/e-smith/templates/usr/lib/smeserver-expire-accounts/userNotifAccountExpiration.tmpl Normal file
View File

@@ -0,0 +1,23 @@
{
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.");
}