From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 12 Sep 2007 21:05:45 +0000 (+0100)
Subject: reduce the (default) length of announces to dupe
X-Git-Tag: 1.55~76
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=da2c51a552ec4aba7af7696fa631324337286949

reduce the (default) length of announces to dupe
---

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;