From: minima Date: Sat, 8 Sep 2001 01:23:08 +0000 (+0000) Subject: pump up eph dups everytime they re-occur and increase life to 180 secs X-Git-Tag: R_1_48~42 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=8db1b590ed9b6b260fb4d437c120cccdd08bbb4d;p=spider.git pump up eph dups everytime they re-occur and increase life to 180 secs --- diff --git a/Changes b/Changes index 9998e122..aa2ffe23 100644 --- 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 +5. pump up eph dups everytime they re-occur and increase life to 180 secs 04Sep01======================================================================= 1. add delete/user command 03Sep01======================================================================= diff --git a/perl/DXProt.pm b/perl/DXProt.pm index f8a13407..201013a0 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1916,12 +1916,13 @@ sub in_filter_route sub eph_dup { my $s = shift; + my $r; # 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; - return undef; + return $r; } sub eph_del_regex @@ -1940,7 +1941,7 @@ sub eph_clean my ($key, $val); while (($key, $val) = each %eph) { - if ($main::systime - $val > 90) { + if ($main::systime - $val > 180) { delete $eph{$key}; } }