projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
change Aliases to allow other cmds for ^q.*
[spider.git]
/
perl
/
Route
/
User.pm
diff --git
a/perl/Route/User.pm
b/perl/Route/User.pm
index de24f906ef7155059c112743d8b5024e75a0b98b..0cd170299f482243af45b801d767376d48d6bdda 100644
(file)
--- a/
perl/Route/User.pm
+++ b/
perl/Route/User.pm
@@
-54,6
+54,7
@@
sub new
$self->{flags} = $flags || Route::here(1);
$self->{ip} = $ip if defined $ip;
$list{$call} = $self;
$self->{flags} = $flags || Route::here(1);
$self->{ip} = $ip if defined $ip;
$list{$call} = $self;
+ dbg("CLUSTER: user $call added") if isdbg('cluster');
return $self;
}
return $self;
}
@@
-67,9
+68,11
@@
sub del
{
my $self = shift;
my $pref = shift;
{
my $self = shift;
my $pref = shift;
+ my $call = $self->{call};
$self->delparent($pref);
unless (@{$self->{parent}}) {
$self->delparent($pref);
unless (@{$self->{parent}}) {
- delete $list{$self->{call}};
+ delete $list{$call};
+ dbg("CLUSTER: user $call deleted") if isdbg('cluster');
return $self;
}
return undef;
return $self;
}
return undef;