#!/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$
#
already => '$_[0] already connnected',
anns => 'Announce flag set on $_[0]',
annu => 'Announce flag unset on $_[0]',
+ bbse1 => 'Please enter your BBS address,, set/bbs <your bbs address>',
+ bbs => 'Your BBS Address is now \"$_[0]\"',
+ beepoff => 'Beeps are now off',
+ beepon => 'Beeps are now on',
conother => 'Sorry $_[0] you are connected on another port',
concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster',
+ conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',
confail => 'connection to $_[0] failed ($_[1])',
constart => 'connection to $_[0] started',
+ disc1 => 'Disconnected by $_[0]',
+ disc2 => '$_[0] disconnected',
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]',
e3 => '$_[0]: $_[1] not found',
e4 => 'Need at least a prefix or callsign',
e5 => 'Not Allowed',
+ e6 => '*** No station specified ***',
+ e7 => 'callsign $_[0] not visible on the cluster',
+ e8 => 'Need a callsign and some text',
+ e9 => 'Need at least some text',
+ e10 => '$_[0] not connected locally',
+ e12 => 'Need a node callsign',
+ e13 => '$_[0] is not a node',
+ emaile1 => 'Please enter your email address, set/email <your e-mail address>',
+ emaila => 'Your E-Mail Address is now \"$_[0]\"',
email => 'E-mail address set to: $_[0]',
+ helpe1 => 'Help system unavailable, tell sysop',
+ helpe2 => 'No help available on $_[0]',
heres => 'Here set on $_[0]',
+ heade1 => 'Using $main::mycall Coords, consider doing a set/location or set/qra',
hereu => 'Here unset on $_[0]',
homebbs => 'Home BBS set to: $_[0]',
homenode => 'Home Node set to: $_[0]',
+ hnodee1 => 'Please enter your Home Node, set/homenode <your home DX Cluster>',
+ hnode => 'Your Homenode is now \"$_[0]\"',
+ iso => '$_[0] Isolated',
+ isou => '$_[0] UnIsolated',
+ isoc => '$_[0] created and Isolated',
l1 => 'Sorry $_[0], you are already logged on on another channel',
l2 => 'Hello $_[0], this is $main::mycall in $main::myqth running DXSpider V$main::version',
+ lh1 => '$main::data/hop_table.pl doesn\'t exist',
+ loce1 => 'Please enter your location,, set/location <latitude longitude>',
+ loce2 => 'Don\'t recognise \"$_[0]\" as a Lat/Long (eg 52 20 N 0 16 E)',
+ loc => 'Your Lat/Long is now \"$_[0]\"',
+ lockout => '$_[0] Locked out',
+ lockoutun => '$_[0] Unlocked',
m2 => '$_[0] Information: $_[1]',
+ merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
+ msgnew => 'New mail has arrived for you',
+ namee1 => 'Please enter your name, set/name <your name>',
+ namee2 => 'Can\'t find user $_[0]!',
+ name => 'Your name is now \"$_[0]\"',
node => '$_[0] set as AK1A style Node',
+ nodeu => '$_[0] set back as a User',
+ nodec => '$_[0] created 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) >',
+ pagelth => 'Page Length is now $_[0]',
+ passerr => 'Please use: SET/PASS <password> <callsign>',
+ password => 'Password set or changed for $_[0]',
+ pingo => 'Ping Started to $_[0]',
+ pingi => 'Ping Returned from $_[0] ($_[2] secs)',
pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
+ pr2 => '($_[0]) de $main::mycall $main::cldate $main::ztime >',
priv => 'Privilege level changed on $_[0]',
prx => '$main::mycall >',
+ qll => 'Please enter your location with set/location or set/qra',
+ qthe1 => 'Please enter your QTH, set/qth <your qth>',
+ qth => 'Your QTH is now \"$_[0]\"',
+ qrae1 => 'Please enter your QRA locator, set/qra <qra locator> (eg set/qra JO02LQ)',
+ qrashe1 => 'Please enter a QRA locator, eg sh/qra JO02LQ or sh/qra JO02LQ IO93NS',
+ qrae2 => 'Don\'t recognise \"$_[0]\" as a QRA locator (eg JO02LQ)',
+ qra => 'Your QRA Locator is now \"$_[0]\"',
+ rcmdo => 'RCMD \"$_[0]\" sent to $_[1]',
+ read1 => 'Sorry, no new messages for you',
+ read2 => 'Msg $_[0] not found',
+ read3 => 'Msg $_[0] not available',
shutting => '$main::mycall shutting down...',
+ sloc => 'Cluster lat $_[0] long $_[1], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
+ sqra => 'Cluster QRA Locator$_[0], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
talks => 'Talk flag set on $_[0]',
talku => 'Talk flag unset on $_[0]',
+ usernf => '*** User record for $_[0] not found ***',
wwvs => 'WWV flag set on $_[0]',
wwvu => 'WWV flag unset on $_[0]',
+ wxs => 'WX flag set on $_[0]',
+ wxu => 'WX flag unset on $_[0]',
},
fr => {
},