-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',
-);