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 60351bd40885e8fe1e7005ceec375342bb5a80cc..dce9c04f28f0b8df2b902ece0ba6c12d145968a9 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-203,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");
}
@@
-636,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