add uref for call in edu

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

diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm
index 29ec2cfdbb72758048b3bec145a40c07d51fa12d..bb81b1b35301df7ba40dbe478d1ee4f0259885d4 100644 (file)
--- a/perl/Thingy/Rt.pm
+++ b/perl/Thingy/Rt.pm
@@ -128,9 +128,14 @@ sub handle_edu
                        my ($type, $here, $call) = unpack "A1 A1 A*", $_;
                        if ($type eq 'U') {
                                unless ($nref) {
-                                       dbg("Thingy::Rt::ed need a node before $call");
+                                       dbg("Thingy::Rt::edu need a node before $call");
                                        return;
                                }
+                               my $uref = Route::User::get($call);
+                               unless ($uref) {
+                                       dbg("Thingy::Rt::edu $call not a user") if isdbg('chanerr');
+                                       next;
+                               }
                                $nref->del_user($call);
                                RouteDB::delete($call, $dxchan->{call});
                        } elsif ($type eq 'N') {