hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix intermittant bulletin mail forwarding?

Browse Source
This commit is contained in:
minima 2001-09-13 23:15:51 +00:00
parent d6e7a9bbbb
commit f4f8550d98
2 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Changes
View File

@ -10,6 +10,7 @@ one in the announce.
5. Change the badwords interface to be the same as baddx, badspotter et al.
added set/badword, unset/badword and show/badword. This routine will auto
convert (and delete afterwards) the old badwords file.
6. fix intermittant bullitin mail forwarding?
11Sep01=======================================================================
1. added IP address logging of connections
10Sep01=======================================================================

35
perl/DXMsg.pm
View File

@ -587,7 +587,6 @@ sub send_tranche
sub queue_msg
{
my $sort = shift;
my $call = shift;
my $ref;
my $clref;
@ -641,23 +640,23 @@ sub queue_msg
dbg("Route: No dxchan for $ref->{to} " . ref($clref) ) if isdbg('msg');
}
}
}
# otherwise we are dealing with a bulletin or forwarded private message
# compare the gotit list with
# the nodelist up above, if there are sites that haven't got it yet
# then start sending it - what happens when we get loops is anyone's
# guess, use (to, from, time, subject) tuple?
foreach $dxchan (@nodelist) {
my $call = $dxchan->call;
next unless $call;
next if $call eq $main::mycall;
next if ref $ref->{gotit} && grep $_ eq $call, @{$ref->{gotit}};
next unless $ref->forward_it($call); # check the forwarding file
# if we are here we have a node that doesn't have this message
$ref->start_msg($dxchan) if !get_busy($call) && $dxchan->state eq 'normal';
last;
} else {
# otherwise we are dealing with a bulletin or forwarded private message
# compare the gotit list with
# the nodelist up above, if there are sites that haven't got it yet
# then start sending it - what happens when we get loops is anyone's
# guess, use (to, from, time, subject) tuple?
foreach $dxchan (@nodelist) {
my $call = $dxchan->call;
next unless $call;
next if $call eq $main::mycall;
next if ref $ref->{gotit} && grep $_ eq $call, @{$ref->{gotit}};
next unless $ref->forward_it($call); # check the forwarding file
# if we are here we have a node that doesn't have this message
$ref->start_msg($dxchan) if !get_busy($call) && $dxchan->state eq 'normal';
}
}
# if all the available nodes are busy then stop