projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d1710a0
)
bounce invalid pc41s back
author
minima
<minima>
Mon, 22 Jan 2007 23:08:51 +0000
(23:08 +0000)
committer
minima
<minima>
Mon, 22 Jan 2007 23:08:51 +0000
(23:08 +0000)
perl/DXProtHandle.pm
patch
|
blob
|
history
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index 45b61b3e20f02a709e49f7d72399ae7a109a2841..641299d36c5b126f2abf40f7769b9c27b81c9e3d 100644
(file)
--- a/
perl/DXProtHandle.pm
+++ b/
perl/DXProtHandle.pm
@@
-571,7
+571,7
@@
sub handle_17
# input filter if required and then remove user if present
# return unless $self->in_filter_route($parent);
# input filter if required and then remove user if present
# return unless $self->in_filter_route($parent);
- $parent->del_user($uref)
if $uref
;
+ $parent->del_user($uref);
# send info to all logged in thingies
$self->tell_login('logoutu', "$ncall: $ucall") if DXUser->get_current($ncall)->is_local_node;
# send info to all logged in thingies
$self->tell_login('logoutu', "$ncall: $ucall") if DXUser->get_current($ncall)->is_local_node;
@@
-1146,6
+1146,13
@@
sub handle_41
$user = DXUser->new($call) unless $user;
if ($_[2] == 1) {
$user = DXUser->new($call) unless $user;
if ($_[2] == 1) {
+ if (($_[3] =~ /spotter/i || $_[3] =~ /self/i) && $user->name && $user->name ne $_[3]) {
+ dbg("PCPROT: invalid name") if isdbg('chanerr');
+ if ($main::mycall eq 'GB7DJK' || $main::mycall eq 'GB7BAA' || $main::mycall eq 'WR3D') {
+ DXChannel::broadcast_nodes(pc41($_[1], 1, $user->name)); # send it to everyone including me
+ }
+ return;
+ }
$user->name($_[3]);
} elsif ($_[2] == 2) {
$user->qth($_[3]);
$user->name($_[3]);
} elsif ($_[2] == 2) {
$user->qth($_[3]);