projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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;
}
#
}
#