captive: Fix bug with multiple license clients

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>

diff --git a/html/cgi-bin/captive/index.cgi b/html/cgi-bin/captive/index.cgi
index 30fd055d8bf0b4d6bd7bd055971864d6297db6f0..c3f9d035f40ad9c4eff32e0292b5fc39c0f669cb 100755 (executable)
--- a/html/cgi-bin/captive/index.cgi
+++ b/html/cgi-bin/captive/index.cgi
@@ -54,8 +54,6 @@ unless (-f $clients){ system("touch $clients"); }
 
 #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} ||"";
 
@@ -64,6 +62,7 @@ if ($cgiparams{'ACTION'} eq "$Lang::tr{'gpl i accept these terms and conditions'
        $mac_address =~ s/\n+\z//;
 
        &General::readhasharray("$clients", \%clientshash);
+       my $key = &General::findhasharraykey(\%clientshash);
 
        if (!$errormessage){
                foreach my $i (0 .. 5) { $clientshash{$key}[$i] = "";}