projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
31bc3c3
)
fix order
author
minima
<minima>
Sat, 8 Mar 2003 10:13:08 +0000
(10:13 +0000)
committer
minima
<minima>
Sat, 8 Mar 2003 10:13:08 +0000
(10:13 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 1b361d0602b19563ea00851fd6c63d96dfc98af5..6bb1aecf49471b6912901295e235cd6d3856b942 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-607,7
+607,9
@@
sub handle_12
my $dxchan;
my $dxchan;
- if ($_[2] eq '*' || $_[2] eq $main::mycall) {
+ if ((($dxchan = DXChannel->get($_[2])) && $dxchan->is_user) || $_[4] =~ /^[\#\w]+$/){
+ $self->send_chat($line, @_[1..6]);
+ } elsif ($_[2] eq '*' || $_[2] eq $main::mycall) {
# here's a bit of fun, convert incoming ann with a callsign in the first word
# here's a bit of fun, convert incoming ann with a callsign in the first word
@@
-626,8
+628,6
@@
sub handle_12
# send it
$self->send_announce($line, @_[1..6]);
# send it
$self->send_announce($line, @_[1..6]);
- } elsif ((($dxchan = DXChannel->get($_[2])) && $dxchan->is_user) || $_[4] =~ /^[\#\w]+$/){
- $self->send_chat($line, @_[1..6]);
} else {
$self->route($_[2], $line);
}
} else {
$self->route($_[2], $line);
}