projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a9cff23
)
pump up eph dups everytime they re-occur and increase life to 180 secs
author
minima
<minima>
Sat, 8 Sep 2001 01:23:08 +0000
(
01:23
+0000)
committer
minima
<minima>
Sat, 8 Sep 2001 01:23:08 +0000
(
01:23
+0000)
Changes
patch
|
blob
|
history
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 9998e1222e0165341e9eacf35544eec9b075055a..aa2ffe23b7c2574af213295a595c655c34256dbb 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-3,6
+3,7
@@
2. Change ping averaging to be like TCP and become a smoothed RTT.
3. Make all the Prompts in stat/* like output appear in alphebetical order
4. Fix problem with 17m spots not appearing in sh/dx
2. Change ping averaging to be like TCP and become a smoothed RTT.
3. Make all the Prompts in stat/* like output appear in alphebetical order
4. Fix problem with 17m spots not appearing in sh/dx
+5. pump up eph dups everytime they re-occur and increase life to 180 secs
04Sep01=======================================================================
1. add delete/user command
03Sep01=======================================================================
04Sep01=======================================================================
1. add delete/user command
03Sep01=======================================================================
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index f8a13407cec649ff03b2b2eea508d98e462cc898..201013a0c1bd034b9e7abcbac159756dd7a8031e 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1916,12
+1916,13
@@
sub in_filter_route
sub eph_dup
{
my $s = shift;
sub eph_dup
{
my $s = shift;
+ my $r;
# chop the end off
$s =~ s/\^H\d\d?\^?\~?$//;
# chop the end off
$s =~ s/\^H\d\d?\^?\~?$//;
- return 1 if exists $eph{$s};
+ $r = 1 if exists $eph{$s}; # pump up the dup if it keeps circulating
$eph{$s} = $main::systime;
$eph{$s} = $main::systime;
- return
undef
;
+ return
$r
;
}
sub eph_del_regex
}
sub eph_del_regex
@@
-1940,7
+1941,7
@@
sub eph_clean
my ($key, $val);
while (($key, $val) = each %eph) {
my ($key, $val);
while (($key, $val) = each %eph) {
- if ($main::systime - $val >
9
0) {
+ if ($main::systime - $val >
18
0) {
delete $eph{$key};
}
}
delete $eph{$key};
}
}