From: minima <minima>
Date: Sat, 19 Feb 2005 02:34:55 +0000 (+0000)
Subject: add uref for call in edu
X-Git-Tag: R_1_52~190
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=14cb55073f64836f3f2a1aaf3a86207dec4fa103;p=spider.git

add uref for call in edu
---

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') {