X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCluster.pm;h=b61cb3411da12f62ace223e5da883fc40116f917;hb=6f566611af29f5c7af653abf8cec2760a0c25b6e;hp=920a33fbe79edea5c007e0e429c6056419cef270;hpb=15c6f0c107d136f8366bca25e3dcb7d14f2ed24b;p=spider.git

diff --git a/perl/DXCluster.pm b/perl/DXCluster.pm
index 920a33fb..b61cb341 100644
--- a/perl/DXCluster.pm
+++ b/perl/DXCluster.pm
@@ -28,6 +28,7 @@ my %valid = (
   here => '0,Here?,yesno',
   dxchan => '5,Channel ref',
   pcversion => '5,Node Version',
+  list => '5,User List,dolist',
 );
 
 sub alloc
@@ -71,6 +72,11 @@ sub field_prompt
   return $valid{$ele};
 }
 
+sub dolist
+{
+
+}
+
 no strict;
 sub AUTOLOAD
 {
@@ -105,7 +111,7 @@ sub new
   return $self;
 }
 
-sub delete
+sub del
 {
   my $self = shift;
   $self->delcluster();              # out of the whole cluster table
@@ -157,12 +163,12 @@ sub get_all
   return @out;
 }
 
-sub delete
+sub del
 {
   my $self = shift;
   my $call = $self->call;
   
-  DXUser->delete($call);     # delete all the users one this node
+  DXUser->delete($call);     # delete all the users on this node
   delete $nodes{$call};
 }
 
@@ -170,5 +176,10 @@ sub count
 {
   return %nodes + 1;           # + 1 for ME!
 }
+
+sub dolist
+{
+
+}
 1;
 __END__