projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix export_user cmd for now
[spider.git]
/
perl
/
Route
/
User.pm
diff --git
a/perl/Route/User.pm
b/perl/Route/User.pm
index de24f906ef7155059c112743d8b5024e75a0b98b..e99def158bcedfa087028790ae74882160c4ed44 100644
(file)
--- a/
perl/Route/User.pm
+++ b/
perl/Route/User.pm
@@
-17,11
+17,6
@@
use strict;
use vars qw(%list %valid @ISA $max $filterdef);
@ISA = qw(Route);
use vars qw(%list %valid @ISA $max $filterdef);
@ISA = qw(Route);
-%valid = (
- parent => '0,Parent Calls,parray',
- ip => '0,IP Address',
-);
-
$filterdef = $Route::filterdef;
%list = ();
$max = 0;
$filterdef = $Route::filterdef;
%list = ();
$max = 0;
@@
-54,6
+49,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
+63,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;