- if (my $d = $thing->{d}) {
- for (split /:/, $d) {
- my ($type, $here, $call) = unpack "A1 A1 A*", $_;
- my $nref;
- if ($type eq 'U') {
- unless ($nref) {
- dbg("Thingy::Rt::ea need a node before $call");
- return;
- }
- add_user($nref, $call, $here);
- my $h = $dxchan->{call} eq $nref->{call} ? 3 : ($thing->{hops} || 99);
- RouteDB::update($call, $dxchan->{call}, $h);
- } elsif ($type eq 'N') {
- $nref = Route::Node::get($call);
- unless ($nref) {
- dbg("Thingy::Rt::ea need a definition for $call");
- return;
- }
- my $h = $dxchan->{call} eq $nref->{call} ? 2 : ($thing->{hops} || 99);
- RouteDB::update($nref->{call}, $dxchan->{call}, $h);
- } else {
- dbg("Thingy::Rt::ea invalid type $type");
- return;
- }
- unless ($nref) {
- dbg("Thingy::Rt::ea no node");
- return;
- }
+ # do nodes
+ my ($del, $add);
+ my %in;
+ if ($thing->{n}) {
+ %in = (map {my ($here, $call) = unpack("A1 A*", $_); ($call, $here)} split /:/, $thing->{n});
+ my ($tdel, $tadd) = $parent->diff_nodes(keys %in);
+ $add = $tadd;
+ $del = $tdel;
+ }
+ if ($thing->{a}) {
+ %in = (map {my ($here, $call) = unpack("A1 A*", $_); ($call, $here)} split /:/, $thing->{a});
+ my ($tdel, $tadd) = $parent->diff_nodes(keys %in);
+ push @$add, @$tadd;
+ push @$del, @$tdel;
+ }
+ if (@$add || @$del) {
+ my $call;
+
+ my @pc21;
+ foreach $call (@$del) {
+ RouteDB::delete($call, $chan_call);
+ my $ref = Route::Node::get($call);
+ push @pc21, $ref->del($parent) if $ref;
+ }
+ $thing->{pc21n} = \@pc21 if @pc21;
+
+ my @pc19;
+ foreach $call (@$add) {
+ RouteDB::update($call, $chan_call);
+ my $ref = Route::Node::get($call);
+ push @pc19, $parent->add($call, 0, $in{$call}) unless $ref;