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