reduce the (default) length of announces to dupe

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index 84f9c481b6d93672c5ded5dbb1e34333651b4cfb..c075765f6eaf1523fc4a1b022370d527f7a23c5c 100644 (file)
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -17,8 +17,8 @@ use DXVars;
 
 use vars qw(%dup $duplth $dupage $filterdef);
 
 
 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],
 $filterdef = bless ([
                          # tag, sort, field, priv, special parser 
                          ['by', 'c', 0],

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index e6f04a7f0a0113162d3f7c53f2079197a28e8131..a863b08a96701e02c288b2892704f8c82a0cda16 100644 (file)
--- 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});
                                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 d72986dcc35ff0add3bd34ae9a51ba26a52cc7e9..bf174eef647458626c2a8118af4580413992069a 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
 
 $version = '1.54';
 $subversion = '0';

-$build = '138';
+$build = '139';

 
 1;
 
 1;