From 8db1b590ed9b6b260fb4d437c120cccdd08bbb4d Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 8 Sep 2001 01:23:08 +0000
Subject: [PATCH]  pump up eph dups everytime they re-occur and increase life
 to 180 secs

---
 Changes        | 1 +
 perl/DXProt.pm | 7 ++++---
 2 files changed, 5 insertions(+), 3 deletions(-)

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