projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
disconnect channels whose route node has disappeared
[spider.git]
/
cmd
/
init.pl
diff --git
a/cmd/init.pl
b/cmd/init.pl
index 2d0a38fc867185f9be2e65267ecdf99e835a3e0f..7f5896f41b2774fe95d89b283b2e590ccc4d60c8 100644
(file)
--- a/
cmd/init.pl
+++ b/
cmd/init.pl
@@
-18,11
+18,10
@@
foreach $call (@calls) {
my $dxchan = DXChannel->get($call);
if ($dxchan) {
if ($dxchan->is_node) {
my $dxchan = DXChannel->get($call);
if ($dxchan) {
if ($dxchan->is_node) {
-
# first clear out any nodes on this dxchannel
# first clear out any nodes on this dxchannel
- my $
node = Route::Node::get($self->{call}
);
- my @rout = $
node->del_nodes if $node
;
-
DXProt::route_pc21($self, @rout)
;
+ my $
parent = Route::Node::get($call
);
+ my @rout = $
parent->del_nodes
;
+
$dxchan->route_pc21($self, @rout) if @rout
;
$dxchan->send(DXProt::pc18());
$dxchan->state('init');
push @out, $self->msg('init1', $call);
$dxchan->send(DXProt::pc18());
$dxchan->state('init');
push @out, $self->msg('init1', $call);