+ 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
+ }
+ $nodes-- if $nodes > 0;
+}
+
+sub update_users
+{
+ my $self = shift;
+ if (%{$self->{list}}) {
+ $self->{users} = scalar %{$self->{list}};
+ } else {
+ $self->{users} = shift;
+ }