return @out;
}
+# is a user on this node
+sub is_user
+{
+ my $self = shift;
+ my $call = shift;
+ return scalar grep {$_ eq $call} @{$self->{users}};
+}
+
sub usercount
{
my $self = shift;
return (\@dnodes, \@dusers, \@nnodes, \@nusers);
}
+
sub new
{
my $pkg = shift;