From 14cb55073f64836f3f2a1aaf3a86207dec4fa103 Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 19 Feb 2005 02:34:55 +0000 Subject: [PATCH] add uref for call in edu --- perl/Thingy/Rt.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm index 29ec2cfd..bb81b1b3 100644 --- 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') { -- 2.43.0