}
$self = $parent->new($call, @_);
$parent->_addnode($self);
+ dbg("CLUSTER: node $call added") if isdbg('cluster');
return $self;
}
$self->_del_users;
delete $list{$ncall};
push @nodes, $self;
+ dbg("CLUSTER: node $ncall deleted") if isdbg('cluster');
}
return @nodes;
}
my $call = shift;
$call = shift if ref $call;
my $ref = $list{uc $call};
- dbg("Failed to get Node $call" ) if !$ref && isdbg('routerr');
+ dbg("ROUTE: Failed to get Node $call" ) if !$ref && isdbg('routerr');
return $ref;
}
my $pkg = ref $self;
my $call = $self->{call} || "Unknown";
- dbg("destroying $pkg with $call") if isdbg('routelow');
+ dbg("ROUTE: destroying $pkg with $call") if isdbg('routelow');
}
#