parent
ce04810f43
commit
1b5388eae4
2 changed files with 25 additions and 0 deletions
@ -0,0 +1,5 @@ |
||||
#!/usr/bin/perl -w |
||||
|
||||
use esmith::Build::CreateLinks qw(:all); |
||||
|
||||
event_link("user-reset-expired", 'password-modify', "80"); |
@ -0,0 +1,20 @@ |
||||
#!/usr/bin/perl -w |
||||
|
||||
use strict; |
||||
use esmith::AccountsDB; |
||||
|
||||
my $a = esmith::AccountsDB->open || die "Couldn't open the AccountsDB\n"; |
||||
|
||||
my $event = $ARGV[0]; |
||||
my $user = $ARGV[1]; |
||||
|
||||
if (!$event){ |
||||
die "Event must be specified\n"; |
||||
} |
||||
if (!$user){ |
||||
die "User must be specified\n"; |
||||
} |
||||
|
||||
my $rec = $a->get($user) || die "user $user not found in AccountsDB\n"; |
||||
$rec->del_prop('ExpireLockedOn'); |
||||
|
Loading…
Reference in new issue