X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=69a72abe9e1d4438118f991b5e3b86f515206099;hb=8b21846900b9f840da86fef72e6ee86ac56cfb53;hp=fcc230aa324b25238535084697d473b1cfdf60a1;hpb=ed96190995aa228ca30398b06c3cc0af1a59bf54;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index fcc230aa..69a72abe 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -239,6 +239,17 @@ sub get_all_nodes
 	return @out;
 }
 
+# return a list of node calls
+sub get_all_node_calls
+{
+	my $ref;
+	my @out;
+	foreach $ref (values %channels) {
+		push @out, $ref->{call} if $ref->is_node;
+	}
+	return @out;
+}
+
 # return a list of all users
 sub get_all_users
 {