initial commit of file from CVS for smeserver-expire-accounts on Sat Sep 7 19:52:48 AEST 2024

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

@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+use strict;
+use esmith::AccountsDB;
+use User::pwent;
+
+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->delete_prop('ExpireLockedOn');