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