projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix DL coords
[spider.git]
/
perl
/
Thingy
/
Rt.pm
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index 86c26ea8d487731e740b8d70808089bf4a113c21..71b7a43aba7cd28070aec45b4a375c7c8f9b20e3 100644
(file)
--- a/
perl/Thingy/Rt.pm
+++ b/
perl/Thingy/Rt.pm
@@
-84,16
+84,17
@@
sub handle_cf
my $origin = $thing->{origin};
my $chan_call = $dxchan->{call};
my $origin = $thing->{origin};
my $chan_call = $dxchan->{call};
+ my @pc19;
+ my @pc21;
+
my $parent = Route::Node::get($origin);
unless ($parent) {
my $parent = Route::Node::get($origin);
unless ($parent) {
- dbg("Thingy::Rt::cf: received from $origin on $chan_call unknown") if isdbg('chanerr');
- return;
+ dbg("Thingy::Rt::cf: new (unconnected) node $origin arrived") if isdbg('chanerr');
+ $parent = Route::Node::new($origin, 0, 1);
+ push @pc19, $parent;
}
$parent->np(1);
}
$parent->np(1);
- my @pc19;
- my @pc21;
-
# move the origin over to the user, if required
if ($thing->{user}) {
$origin = $thing->{user};
# move the origin over to the user, if required
if ($thing->{user}) {
$origin = $thing->{user};
@@
-130,7
+131,9
@@
sub handle_cf
next if $call eq $main::mycall;
RouteDB::delete($call, $chan_call);
my $ref = Route::Node::get($call);
next if $call eq $main::mycall;
RouteDB::delete($call, $chan_call);
my $ref = Route::Node::get($call);
- push @pc21, $ref->del($parent) if $ref;
+ if ($ref) {
+ push @pc21, grep {$_} $ref->del($parent);
+ }
}
}
if ($add) {
}
}
if ($add) {
@@
-138,7
+141,7
@@
sub handle_cf
next if $call eq $main::mycall;
RouteDB::update($call, $chan_call);
my $here = $in{$call};
next if $call eq $main::mycall;
RouteDB::update($call, $chan_call);
my $here = $in{$call};
- push @pc19, $parent->add($call, 0, $here);
+ push @pc19,
grep {$_}
$parent->add($call, 0, $here);
}
}
$thing->{pc21n} = \@pc21 if @pc21;
}
}
$thing->{pc21n} = \@pc21 if @pc21;
@@
-190,7
+193,7
@@
sub _add_user
my $flag = shift;
my @out = $node->add_user($user, $flag);
my $flag = shift;
my @out = $node->add_user($user, $flag);
- my $ur = _upd_user_rec($user, $node);
+ my $ur = _upd_user_rec($user, $node
->{call}
);
$ur->put;
return @out;
}
$ur->put;
return @out;
}