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.
 
 

15 lines
379 B

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