initial commit of file from CVS for smeserver-expire-accounts on Sat Sep 7 19:52:48 AEST 2024
This commit is contained in:
15
root/etc/e-smith/templates-user/.qmail/20ExpireAutoReply
Normal file
15
root/etc/e-smith/templates-user/.qmail/20ExpireAutoReply
Normal file
@@ -0,0 +1,15 @@
|
||||
{
|
||||
|
||||
use User::pwent;
|
||||
|
||||
my $pwd = $props{'PasswordSet'} || 'no';
|
||||
my $locked = $props{'ExpireLockedOn'} || '';
|
||||
my $reply = $props{'ExpireAutoReply'} || 'enabled';
|
||||
|
||||
if ($pwd eq 'yes' || $locked !~ m/^\d{4}\-\d{1,2}\-\d{1,2}$/ || $reply !~ m/^enabled|yes|on|1$/){
|
||||
return ""
|
||||
}
|
||||
|
||||
$OUT .= "| /usr/bin/qmail-autoresponder " . getpwnam($USERNAME)->dir . "/.lock-auto-reply\n";
|
||||
|
||||
}
|
Reference in New Issue
Block a user