#!/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');