]> dxcluster.org Git - spider.git/commitdiff
increse eph dupe time to 6 minutes for PC15
authorminima <minima>
Fri, 5 Jan 2007 14:05:12 +0000 (14:05 +0000)
committerminima <minima>
Fri, 5 Jan 2007 14:05:12 +0000 (14:05 +0000)
Changes
perl/DXProt.pm

diff --git a/Changes b/Changes
index f7fe8c7cf0b30c6c5893801a2c1b712a3311518c..d21ef03d3c8c407c8c66eaf8a0ae8b1babef60ef 100644 (file)
--- 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=======================================================================
index b1631628986c9013cec9df9c20772fb3847c85e0..41c38f1aea9fd62a850934ee882fccd79fadc265 100644 (file)
@@ -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