projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Revert "add first take on IP address remembering"
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index a2617a31884d80dd632c4193dba45928e9a8d4ee..d385382b80fe13469bc9e8f85360ed26a54b39e0 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-20,7
+20,7
@@
use File::Copy;
use strict;
use strict;
-use vars qw(%u $dbm $filename %valid $lastoperinterval $lasttime $lru $lrusize $tooold $v3
$noips
);
+use vars qw(%u $dbm $filename %valid $lastoperinterval $lasttime $lru $lrusize $tooold $v3);
%u = ();
$dbm = undef;
%u = ();
$dbm = undef;
@@
-30,7
+30,6
@@
$lasttime = 0;
$lrusize = 2000;
$tooold = 86400 * 365; # this marks an old user who hasn't given enough info to be useful
$v3 = 0;
$lrusize = 2000;
$tooold = 86400 * 365; # this marks an old user who hasn't given enough info to be useful
$v3 = 0;
-$noips = 4;
# hash of valid elements and a simple prompt
%valid = (
# hash of valid elements and a simple prompt
%valid = (
@@
-92,7
+91,6
@@
$noips = 4;
believe => '1,Believable nodes,parray',
lastping => '1,Last Ping at,ptimelist',
maxconnect => '1,Max Connections',
believe => '1,Believable nodes,parray',
lastping => '1,Last Ping at,ptimelist',
maxconnect => '1,Max Connections',
- ip => '1,IP addresses,piplist',
);
#no strict;
);
#no strict;
@@
-189,21
+187,6
@@
sub del_file
unlink "$main::local_data/users.v3";
}
unlink "$main::local_data/users.v3";
}
-# IP address handling
-# this allows one to ask whether an IP address has been used with this node or let's one set an IP address for this node.
-sub ip
-{
- my $self = shift;
- my $node = shift;
- my $ipin = shift;
-
- $self->{ip} = {} unless ref $self->{ip};
- my $ref = $self->{ip};
- delete $ref->{''};
- $ref->{$node} = [$ipin, $main::systime] if $ipin;
- return $ref->{$node}->[0];
-}
-
#
# periodic processing
#
#
# periodic processing
#