X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;fp=perl%2FRoute%2FNode.pm;h=76d987572e3e789f6beee90ba9a0ed0bfcddbcf3;hb=e148ea6b5e9eb73af10a9ca4132bc257e4b9aac8;hp=02c8b341b2310f1d03c005aa3da6253879be4ba8;hpb=f6d0b05b25a61cb6d3aa671b7a8f5d4a69817b1c;p=spider.git

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index 02c8b341..76d98757 100644
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -203,6 +203,14 @@ sub del_user
 	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;