smeserver-expire-accounts/root/etc/e-smith/templates-user/.qmail/20ExpireAutoReply

16 lines
379 B
Plaintext
Raw Normal View History

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