From 14cb55073f64836f3f2a1aaf3a86207dec4fa103 Mon Sep 17 00:00:00 2001
From: minima <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