-require Exporter;
-@ISA = qw(Exporter);
-@EXPORT = qw(msg);
-
-%msgs = (
- l1 => 'Sorry $_[0], you are already logged on on another channel',
- l2 => 'Hello $_[0], this is $main::mycall located in $main::myqth',
- pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
- e1 => 'Invalid command',
- e2 => 'Error: $_[0]',
- conother => 'Sorry $_[0] you are connected on another port',
- concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster',
-);
+use strict;
+
+use DXVars;
+use DXDebug;
+
+my $localfn = "$main::root/local/Messages";
+my $fn = "$main::root/perl/Messages";
+
+use vars qw($VERSION $BRANCH);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
+$main::build += $VERSION;
+$main::branch += $BRANCH;
+
+use vars qw(%msgs);