projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix problem with myalias user going
[spider.git]
/
perl
/
DXMsg.pm
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index bd6baf2fd5935d2bbf3f7bc91047583610537fb5..dce9c04f28f0b8df2b902ece0ba6c12d145968a9 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-144,6
+144,7
@@
sub process
my $ref = $busy{$_};
if (exists $ref->{lastt} && $main::systime >= $ref->{lastt} + $timeout) {
dbg('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node");
my $ref = $busy{$_};
if (exists $ref->{lastt} && $main::systime >= $ref->{lastt} + $timeout) {
dbg('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node");
+ Log('msg', "Timeout, stopping msgno: $ref->{msgno} -> $node");
$ref->stop_msg($node);
# delay any outgoing messages that fail
$ref->stop_msg($node);
# delay any outgoing messages that fail
@@
-202,7
+203,7
@@
sub process
# look to see whether this is a non private message sent to a known callsign
my $uref = DXUser->get_current($ref->{to});
# look to see whether this is a non private message sent to a known callsign
my $uref = DXUser->get_current($ref->{to});
- if (iscallsign($ref->{to}) && !$ref->{private} && $uref && $uref->homenode) {
+ if (is
_
callsign($ref->{to}) && !$ref->{private} && $uref && $uref->homenode) {
$ref->{private} = 1;
dbg('msg', "set bull to $ref->{to} to private");
}
$ref->{private} = 1;
dbg('msg', "set bull to $ref->{to} to private");
}
@@
-635,7
+636,7
@@
sub queue_msg
# guess, use (to, from, time, subject) tuple?
foreach $dxchan (@nodelist) {
next if $dxchan->call eq $main::mycall;
# guess, use (to, from, time, subject) tuple?
foreach $dxchan (@nodelist) {
next if $dxchan->call eq $main::mycall;
- next if
grep { $_ eq $dxchan->call }
@{$ref->{gotit}};
+ next if
ref $ref->{gotit} && grep $_ eq $dxchan->call,
@{$ref->{gotit}};
next unless $ref->forward_it($dxchan->call); # check the forwarding file
# if we are here we have a node that doesn't have this message
next unless $ref->forward_it($dxchan->call); # check the forwarding file
# if we are here we have a node that doesn't have this message
@@
-669,7
+670,7
@@
sub start_msg
my ($self, $dxchan) = @_;
dbg('msg', "start msg $self->{msgno}\n");
my ($self, $dxchan) = @_;
dbg('msg', "start msg $self->{msgno}\n");
- $self->{linesreq} =
5
;
+ $self->{linesreq} =
10
;
$self->{count} = 0;
$self->{tonode} = $dxchan->call;
$self->{fromnode} = $main::mycall;
$self->{count} = 0;
$self->{tonode} = $dxchan->call;
$self->{fromnode} = $main::mycall;