&General::readhasharray("$clients", \%clientshash);
$time = time();
foreach my $key (keys %clientshash) {
+ # Skip unlimited access lines
+ next if ($clientshash{$key}[3] == 0);
+
$expiretime=($clientshash{$key}[2])+$clientshash{$key}[3];
if ($expiretime < $time){
delete $clientshash{$key};
}
}
&General::writehasharray("$clients", \%clientshash);
+
+ # Reload firewall rules
+ system("/usr/local/bin/captivectrl");
}