projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
fdc4983
)
add $DXMsg::bulltopriv global to make msgs to known callsigns private
author
minima
<minima>
Tue, 15 May 2001 16:19:29 +0000
(16:19 +0000)
committer
minima
<minima>
Tue, 15 May 2001 16:19:29 +0000
(16:19 +0000)
Changes
patch
|
blob
|
history
perl/DXMsg.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index ec8c2aeb0678cb5ac5f39e21b421045e227d7a0c..815fe1fc4229749548357dcea9a4e4f44c9b0f97 100644
(file)
--- 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.
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
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 d5631904971148fae3c246cbff338d4033b4cb2b..381c4233b003fd59eb03f3c6683d0cd1ea2d2d28 100644
(file)
--- 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
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
%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
$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
$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->{gotit} = [];
$self->{lastt} = $main::systime;
$self->{lines} = [];
+ $self->{private} = 1 if $bulltopriv && DXUser->get_current($self->{to});
return $self;
}
return $self;
}