-my %valid = (
- mynode => '0,Parent Node',
- call => '0,Callsign',
- confmode => '0,Conference Mode,yesno',
- here => '0,Here?,yesno',
- dxchan => '5,Channel ref',
- pcversion => '5,Node Version',
-);
+%valid = (
+ mynode => '0,Parent Node',
+ call => '0,Callsign',
+ confmode => '0,Conference Mode,yesno',
+ here => '0,Here?,yesno',
+ dxchancall => '5,Channel Call',
+ pcversion => '5,Node Version',
+ list => '5,User List,DXCluster::dolist',
+ users => '0,No of Users',
+ );
+
+use vars qw($VERSION $BRANCH);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
+$main::build += $VERSION;
+$main::branch += $BRANCH;