#!/usr/bin/perl
#
# this file contains the system messages. Don't forget to reload them
-# if you change them
+# if you change them (load/messages)
#
# $Id$
#
%msgs = (
en => {
addr => 'Address set to: $_[0]',
+ already => '$_[0] already connnected',
anns => 'Announce flag set on $_[0]',
annu => 'Announce flag unset on $_[0]',
conother => 'Sorry $_[0] you are connected on another port',
concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster',
+ confail => 'connection to $_[0] failed ($_[1])',
+ constart => 'connection to $_[0] started',
+ dx1 => 'Frequency $_[0] not in band [usage: DX freq call comments](see sh/band)',
+ dx2 => 'Need a callsign [usage: DX freq call comments]',
dxs => 'DX Spots flag set on $_[0]',
dxu => 'DX Spots flag unset on $_[0]',
e1 => 'Invalid command',
node => '$_[0] set as AK1A style Node',
nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line',
ok => 'Operation successful',
+ page => 'Press Enter to continue, A to abort ($_[0] lines) >',
pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
priv => 'Privilege level changed on $_[0]',
- prx => '$main::$mycall >',
+ prx => '$main::mycall >',
+ read1 => 'Sorry, no new messages for you',
+ read2 => 'Msg $_[0] not found',
+ read3 => 'Msg $_[0] not available',
+ shutting => '$main::mycall shutting down...',
talks => 'Talk flag set on $_[0]',
talku => 'Talk flag unset on $_[0]',
wwvs => 'WWV flag set on $_[0]',