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