12 lines
246 B
Plaintext
12 lines
246 B
Plaintext
|
{
|
||
|
|
my $pamtally = $DB->get("pam_tally") or return;
|
||
|
|
|
||
|
|
my $pamfaillock = $DB->get("pam_faillock") ||
|
||
|
|
$DB->new_record("pam_faillock", { type => "service" });
|
||
|
|
|
||
|
|
$pamfaillock->merge_props($pamtally->props);
|
||
|
|
|
||
|
|
$pamtally->delete;
|
||
|
|
}
|
||
|
|
|