projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e69a98c
)
increse eph dupe time to 6 minutes for PC15
author
minima
<minima>
Fri, 5 Jan 2007 14:05:12 +0000
(14:05 +0000)
committer
minima
<minima>
Fri, 5 Jan 2007 14:05:12 +0000
(14:05 +0000)
Changes
patch
|
blob
|
history
perl/DXProt.pm
patch
|
blob
|
history
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=======================================================================
23Nov06=======================================================================
1. added wrapping to over length lines in console.pl.
03Nov06=======================================================================
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index b1631628986c9013cec9df9c20772fb3847c85e0..41c38f1aea9fd62a850934ee882fccd79fadc265 100644
(file)
--- 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
$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
);
$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;
$rspfcheck = 1;
$eph_restime = 180;
$eph_info_restime = 60*60;
+$eph_pc15_restime = 6*60;
$eph_pc34_restime = 30;
$pingint = 5*60;
$obscount = 2;
$eph_pc34_restime = 30;
$pingint = 5*60;
$obscount = 2;
@@
-699,6
+701,23
@@
sub handle_12
$self->route($_[2], $line);
}
}
$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
# incoming user
sub handle_16