+use strict;
+use vars qw(%cluster %valid);
+
+%cluster = (); # this is where we store the dxcluster database
+
+%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;