The cleanup-script did not write back the hash after the expired voucher
was delted
Signed-off-by: Alexander Marx <alexander.marx@ipfire.org>
foreach my $key (keys %clientshash) {
$expiretime=($clientshash{$key}[2])+$clientshash{$key}[3];
if ($expiretime < $time){
- delete $clientshash{key};
+ delete $clientshash{$key};
+ my $exp = gmtime($expiretime);
+ &General::log("Captive", "Delete expired voucher $clientshash{$key}[4] expired on $exp. Remark: $clientshash{$key}[5]");
}
}
+ &General::writehasharray("$clients", \%clientshash);
}