projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
disable checking in Chain as default
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 26a36548646c8a62a65291051f41703eb758b95d..25e98cc4786d62b829df57e7e0a119906ae1a4b2 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-76,7
+76,7
@@
$chatdupeage = 20 * 60 * 60;
(
[ qw(c c m bp bc c) ], # pc10
[ qw(f m d t m c c h) ], # pc11
(
[ qw(c c m bp bc c) ], # pc10
[ qw(f m d t m c c h) ], # pc11
- [ qw(c bm m b
p
bm p h) ], # pc12
+ [ qw(c bm m b
m
bm p h) ], # pc12
[ qw(c h) ], #
[ qw(c h) ], #
[ qw(c m h) ], #
[ qw(c h) ], #
[ qw(c h) ], #
[ qw(c m h) ], #
@@
-607,8
+607,16
@@
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) {
+ # ignore something that looks like a chat line coming in with sysop
+ # flag - this is a kludge...
+ if ($_[3] =~ /^\#\d+ / && $_[4] eq '*') {
+ dbg('PCPROT: Probable chat rewrite, dropped') if isdbg('chanerr');
+ return;
+ }
# here's a bit of fun, convert incoming ann with a callsign in the first word
# or one saying 'to <call>' to a talk if we can route to the recipient
# here's a bit of fun, convert incoming ann with a callsign in the first word
# or one saying 'to <call>' to a talk if we can route to the recipient
@@
-626,8
+634,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);
}