Remove ExpiredOn during password-modify

createlinks

@@ -0,0 +1,5 @@
+#!/usr/bin/perl -w
+
+use esmith::Build::CreateLinks qw(:all);
+
+event_link("user-reset-expired", 'password-modify', "80");

root/etc/e-smith/events/actions/user-reset-expired

@@ -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');
+