projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
53a46e2
)
add uref for call in edu
author
minima
<minima>
Sat, 19 Feb 2005 02:34:55 +0000
(
02:34
+0000)
committer
minima
<minima>
Sat, 19 Feb 2005 02:34:55 +0000
(
02:34
+0000)
perl/Thingy/Rt.pm
patch
|
blob
|
history
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) {
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::ed
u
need a node before $call");
return;
}
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') {
$nref->del_user($call);
RouteDB::delete($call, $dxchan->{call});
} elsif ($type eq 'N') {