add _haslist and has_*

[spider.git] / perl / Thingy / Rt.pm

diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm
index 86c26ea8d487731e740b8d70808089bf4a113c21..685ef0c4d5ef7acaf45e47fa7fc03c2ff3423c43 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 @pc19;
+       my @pc21;
+
        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);
        
-       my @pc19;
-       my @pc21;
-
        # move the origin over to the user, if required
        if ($thing->{user}) {
                $origin = $thing->{user};