+ my $call = $self->{call};
+ my $ref;
+
+ # delete all the listed calls
+ foreach $ref (values %{$self->{list}}) {
+ $ref->del(); # this also takes them out of this list
+ }
+ delete $DXCluster::cluster{$call}; # remove me from the cluster table
+ dbg('cluster', "deleting node $call from cluster\n");
+ $nodes-- if $nodes > 0;
+}
+
+sub update_users
+{
+ my $self = shift;
+ my $count = shift;
+ $users -= $self->{users};
+ if ((keys %{$self->{list}})) {
+ $self->{users} = (keys %{$self->{list}});
+ } else {
+ $self->{users} = $count;
+ }
+ $users += $self->{users};
+ $maxusers = $users+$nodes if $users+$nodes > $maxusers;