From da2c51a552ec4aba7af7696fa631324337286949 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 12 Sep 2007 22:05:45 +0100 Subject: [PATCH] reduce the (default) length of announces to dupe --- perl/AnnTalk.pm | 4 ++-- perl/DXProt.pm | 1 - perl/Version.pm | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm index 84f9c481..c075765f 100644 --- a/perl/AnnTalk.pm +++ b/perl/AnnTalk.pm @@ -17,8 +17,8 @@ use DXVars; use vars qw(%dup $duplth $dupage $filterdef); -$duplth = 60; # the length of text to use in the deduping -$dupage = 5*3600; # the length of time to hold ann dups +$duplth = 30; # the length of text to use in the deduping +$dupage = 5*3600; # the length of time to hold ann dups $filterdef = bless ([ # tag, sort, field, priv, special parser ['by', 'c', 0], diff --git a/perl/DXProt.pm b/perl/DXProt.pm index e6f04a7f..a863b08a 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -480,7 +480,6 @@ sub process dbg("ROUTE: pc92 broadcast candidate: $dxchan->{call}") if isdbg('obscount'); if ($dxchan == $main::me || !$dxchan->{do_pc9x}) { $dxchan->broadcast_pc92_update($dxchan->{call}); - $last_pc92_slug = 0 if $dxchan == $main::me; } } } diff --git a/perl/Version.pm b/perl/Version.pm index d72986dc..bf174eef 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '138'; +$build = '139'; 1; -- 2.43.0