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