Remove auto-reply when unlocking user

tags/smeserver-expire-accounts-0.1.7-1
Daniel Berteaud 8 years ago
parent cf6d4069e3
commit dd47ebac13
  1. 4
      root/etc/e-smith/events/actions/user-reset-expired

@ -2,6 +2,7 @@
use strict;
use esmith::AccountsDB;
use User::pwent;
my $a = esmith::AccountsDB->open || die "Couldn't open the AccountsDB\n";
@ -17,4 +18,7 @@ if (!$user){
my $rec = $a->get($user) || die "user $user not found in AccountsDB\n";
$rec->del_prop('ExpireLockedOn');
$rec->del_prop('ExpireAutoReply');
unlink glob (getpwnam($userName)->dir . "/.lock-auto-reply/*" )
if -d getpwnam($userName)->dir . "/.lock-auto-reply/";

Loading…
Cancel
Save