16 lines
379 B
Plaintext
16 lines
379 B
Plaintext
{
|
|
|
|
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";
|
|
|
|
}
|