fix allowmultiple for real user with ssid

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 5e8f2dfab50abfb600c7fe128881e892a09b44cb..85a22195f9a08de314cf0389b194cb273d4db51c 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -474,7 +474,10 @@ sub close
        my $ip = shift;
        $self->{lastin} = $main::systime;
        # add a record to the connect list
-#      $self->put();
+       my $ref = [$startt || $self->{startt}, $main::systime];
+       push @$ref, $ip if $ip;
+       push @{$self->{connlist}}, $ref;
+       shift @{$self->{connlist}} if @{$self->{connlist}} > $maxconnlist;
 }
 
 #