X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FBye.pm;h=740ca6c791d3ac4cfde238f7c97967a27b4feb18;hb=f942dabdab73e5841f16ead2a41a52d6b5b05eb8;hp=6d75b618e2832befe2cf4c58088964953266a890;hpb=d737a53dd9247a0b3c57852dd605047d241beb47;p=spider.git diff --git a/perl/Thingy/Bye.pm b/perl/Thingy/Bye.pm index 6d75b618..740ca6c7 100644 --- a/perl/Thingy/Bye.pm +++ b/perl/Thingy/Bye.pm @@ -1,6 +1,9 @@ # # Bye Thingy handling # +# Note that this is a generator of pc21n and pc17n/pc17u +# and a consumer of fpc21n and fpc21n +# # $Id$ # # Copyright (c) 2005 Dirk Koopman G1TLH @@ -52,11 +55,11 @@ sub handle my $uref = Route::get($user); if ($parent && $uref) { if ($uref->isa('Route::Node')) { - @pc21 = $parent->del($uref); + @pc21 = $uref->del($parent); } else { $parent->del_user($uref); - $thing->{pc17n} = $thing->{origin}; - $thing->{pc17u} = $user; + $thing->{pc17n} = $parent; + $thing->{pc17u} = [$uref]; } } } else {