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