From 72457d1f7d98fd716d54cadb3b667d884cebc134 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 15 May 2001 16:19:29 +0000 Subject: [PATCH] add $DXMsg::bulltopriv global to make msgs to known callsigns private --- Changes | 1 + perl/DXMsg.pm | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index ec8c2aeb..815fe1fc 100644 --- a/Changes +++ b/Changes @@ -3,6 +3,7 @@ 2. Started the new routing stuff which will run in parallel for a while. 3. changed the msg timeout arrangements so that it might not get stuck so easily. +4. add $DXMsg::bulltopriv global to make msgs to known callsigns private 14May01======================================================================= 1. fix problem with re-reading in db definitions for remote databases. 2. try to prevent situations where two can (semi) successfully login, probably diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index d5631904..381c4233 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -30,7 +30,7 @@ use Fcntl; use strict; use vars qw(%work @msg $msgdir %valid %busy $maxage $last_clean @badmsg @swop $swopfn $badmsgfn $forwardfn @forward $timeout $waittime - $queueinterval $lastq $importfn $minchunk $maxchunk); + $queueinterval $lastq $importfn $minchunk $maxchunk $bulltopriv); %work = (); # outstanding jobs @msg = (); # messages we have @@ -48,6 +48,8 @@ $lastq = 0; $minchunk = 4800; # minimum chunk size for a split message $maxchunk = 6000; # maximum chunk size +$bulltopriv = 1; # convert msgs with callsigns to private if they are bulls + $badmsgfn = "$msgdir/badmsg.pl"; # list of TO address we wont store $forwardfn = "$msgdir/forward.pl"; # the forwarding table @@ -102,6 +104,7 @@ sub alloc $self->{gotit} = []; $self->{lastt} = $main::systime; $self->{lines} = []; + $self->{private} = 1 if $bulltopriv && DXUser->get_current($self->{to}); return $self; } -- 2.43.0