From 72457d1f7d98fd716d54cadb3b667d884cebc134 Mon Sep 17 00:00:00 2001
From: minima <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