projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5125576
)
correct PC17 handling even more
author
minima
<minima>
Mon, 22 Jan 2007 22:41:32 +0000
(22:41 +0000)
committer
minima
<minima>
Mon, 22 Jan 2007 22:41:32 +0000
(22:41 +0000)
perl/DXProtHandle.pm
patch
|
blob
|
history
diff --git
a/perl/DXProtHandle.pm
b/perl/DXProtHandle.pm
index 7f5a6fffd636e326d074c984a1f7d5f4a3ab5ddc..45b61b3e20f02a709e49f7d72399ae7a109a2841 100644
(file)
--- a/
perl/DXProtHandle.pm
+++ b/
perl/DXProtHandle.pm
@@
-543,10
+543,12
@@
sub handle_17
my $uref = Route::User::get($ucall);
unless ($uref) {
dbg("PCPROT: Route::User $ucall not in config") if isdbg('chanerr');
my $uref = Route::User::get($ucall);
unless ($uref) {
dbg("PCPROT: Route::User $ucall not in config") if isdbg('chanerr');
+ return;
}
my $parent = Route::Node::get($ncall);
unless ($parent) {
dbg("PCPROT: Route::Node $ncall not in config") if isdbg('chanerr');
}
my $parent = Route::Node::get($ncall);
unless ($parent) {
dbg("PCPROT: Route::Node $ncall not in config") if isdbg('chanerr');
+ return;
}
$dxchan = DXChannel::get($ncall);
}
$dxchan = DXChannel::get($ncall);
@@
-568,12
+570,8
@@
sub handle_17
}
# input filter if required and then remove user if present
}
# input filter if required and then remove user if present
- if ($parent) {
# return unless $self->in_filter_route($parent);
# return unless $self->in_filter_route($parent);
- $parent->del_user($uref) if $uref;
- } else {
- $parent = Route->new($ncall); # throw away
- }
+ $parent->del_user($uref) if $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;
@@
-584,7
+582,6
@@
sub handle_17
return;
}
return;
}
- $uref = Route->new($ucall) unless $uref; # throw away
$self->route_pc17($origin, $line, $parent, $uref);
# $self->route_pc92d($main::mycall, undef, $parent, $uref) if $dxchan;
}
$self->route_pc17($origin, $line, $parent, $uref);
# $self->route_pc92d($main::mycall, undef, $parent, $uref) if $dxchan;
}