pump up eph dups everytime they re-occur and increase life to 180 secs

This commit is contained in:
minima 2001-09-08 01:23:08 +00:00
parent a9cff23c70
commit 8db1b590ed
2 changed files with 5 additions and 3 deletions

View File

@ -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=======================================================================

View File

@ -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};
}
}