+sub _add_thingy
+{
+ my $parent = shift;
+ my $s = shift;
+ my ($call, $is_node, $is_extnode, $here, $version, $build) = _decode_pc92_call($s);
+ my @rout;
+
+ if ($call) {
+ if ($is_node) {
+ @rout = $parent->add($call, $version, Route::here($here));
+ } else {
+ @rout = $parent->add_user($call, Route::here($here));
+ }
+ }
+ return @rout;
+}
+
+sub _del_thingy
+{
+ my $parent = shift;
+ my $s = shift;
+ my ($call, $is_node, $is_extnode, $here, $version, $build) = _decode_pc92_call($s);
+ my @rout;
+ if ($call) {
+ if ($is_node) {
+ my $nref = Route::Node::get($call);
+ @rout = $nref->del($parent) if $nref;
+ } else {
+ my $uref = Route::User::get($call);
+ @rout = $parent->del_user($uref) if $uref;
+ }
+ }
+ return @rout;
+}
+