You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
385 B
21 lines
385 B
9 years ago
|
#!/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');
|
||
|
|
|