diff --git a/createlinks b/createlinks
new file mode 100644
index 0000000..c31fc1f
--- /dev/null
+++ b/createlinks
@@ -0,0 +1,5 @@
+#!/usr/bin/perl -w
+
+use esmith::Build::CreateLinks qw(:all);
+
+event_link("user-reset-expired", 'password-modify', "80");
diff --git a/root/etc/e-smith/events/actions/user-reset-expired b/root/etc/e-smith/events/actions/user-reset-expired
new file mode 100644
index 0000000..7e22c62
--- /dev/null
+++ b/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');
+