From 9525835dcfac402817430bceaa0ebf48b05ac4af Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 5 Jan 2007 14:05:12 +0000
Subject: [PATCH] increse eph dupe time to 6 minutes for PC15

---
 Changes        |  2 ++
 perl/DXProt.pm | 19 +++++++++++++++++++
 2 files changed, 21 insertions(+)

diff --git a/Changes b/Changes
index f7fe8c7c..d21ef03d 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+05Jan06=======================================================================
+1. increase default ephemeral deduping on PC15 to 6 minutes (from 2).
 23Nov06=======================================================================
 1. added wrapping to over length lines in console.pl.
 03Nov06=======================================================================
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b1631628..41c38f1a 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -50,6 +50,7 @@ use vars qw($pc11_max_age $pc23_max_age $last_pc50 $eph_restime $eph_info_restim
 			$investigation_int $pc19_version $myprot_version
 			%nodehops $baddx $badspotter $badnode $censorpc $rspfcheck
 			$allowzero $decode_dk0wcy $send_opernam @checklist
+			$eph_pc15_restime
 		   );
 
 $pc11_max_age = 1*3600;			# the maximum age for an incoming 'real-time' pc11
@@ -70,6 +71,7 @@ $ann_to_talk = 1;
 $rspfcheck = 1;
 $eph_restime = 180;
 $eph_info_restime = 60*60;
+$eph_pc15_restime = 6*60;
 $eph_pc34_restime = 30;
 $pingint = 5*60;
 $obscount = 2;
@@ -699,6 +701,23 @@ sub handle_12
 		$self->route($_[2], $line);
 	}
 }
+
+
+sub handle_15
+{
+	my $self = shift;
+	my $pcno = shift;
+	my $line = shift;
+	my $origin = shift;
+
+	if (eph_dup($line, $eph_pc15_restime)) {
+		dbg("PCPROT: Ephemeral dup, dropped") if isdbg('chanerr');
+	} else {
+		unless ($self->{isolate}) {
+			DXChannel::broadcast_nodes($line, $self) if $line =~ /\^H\d+\^?~?$/; # send it to everyone but me
+		}
+	}
+}
 		
 # incoming user		
 sub handle_16
-- 
2.43.0