fleshed out some commands (particularly flag setting and unsetting)

[spider.git] / perl / DXCluster.pm

diff --git a/perl/DXCluster.pm b/perl/DXCluster.pm
index 2b412cd3844ff64cd5b06b80f3e68b59ef08b2ca..2dad1cb61ffb42c87b74149827ca45e93a05cdd6 100644 (file)
--- a/perl/DXCluster.pm
+++ b/perl/DXCluster.pm
@@ -53,14 +53,21 @@ sub delcluster;
 }
 
 %valid = (
-  mynode => 'Parent Node',
-  call => 'Callsign',
-  confmode => 'Conference Mode',
-  here => 'Here?',
-  dxprot => 'Channel ref',
-  version => 'Node Version',
+  mynode => '0,Parent Node',
+  call => '0,Callsign',
+  confmode => '5,Conference Mode,yesno',
+  here => '5,Here?,yesno',
+  dxprot => '5,Channel ref',
+  version => '5,Node Version',
 );
 
+# return a prompt for a field
+sub field_prompt
+{ 
+  my ($self, $ele) = @_;
+  return $valid{$ele};
+}
+
 sub AUTOLOAD
 {
   my $self = shift;