If one active client with a license existed, any other client
authenticating will overwrite the configuration line.
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
#Actions
if ($cgiparams{'ACTION'} eq "$Lang::tr{'gpl i accept these terms and conditions'}"){
- my $key = &General::findhasharraykey(\%clientshash);
-
#Get Clients IP-Address
my $ip_address = $ENV{X_FORWARDED_FOR} || $ENV{REMOTE_ADDR} ||"";
$mac_address =~ s/\n+\z//;
&General::readhasharray("$clients", \%clientshash);
+ my $key = &General::findhasharraykey(\%clientshash);
if (!$errormessage){
foreach my $i (0 .. 5) { $clientshash{$key}[$i] = "";}