perl/Messages

   1 #!/usr/bin/perl
   2 #
   3 # this file contains the system messages. Don't forget to reload them
   4 # if you change them (load/messages)
   5 #
   6 # $Id$
   7 #
   8
   9 package DXM;
  10
  11 %msgs = (
  12                  en => {
  13                                 addr => 'Address set to: $_[0]',
  14                 already => '$_[0] already connnected',
  15                                 anns => 'Announce flag set on $_[0]',
  16                                 annu => 'Announce flag unset on $_[0]',
  17                                 bbse1 => 'Please enter your BBS address,, set/bbs <your bbs address>',
  18                                 bbs => 'Your BBS Address is now \"$_[0]\"',
  19                                 beepoff => 'Beeps are now off',
  20                                 beepon => 'Beeps are now on',
  21                                 conother => 'Sorry $_[0] you are connected on another port',
  22                                 concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster',
  23                                 conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',
  24                                 confail => 'connection to $_[0] failed ($_[1])',
  25                                 constart => 'connection to $_[0] started',
  26                                 disc1 => 'Disconnected by $_[0]',
  27                                 disc2 => '$_[0] disconnected',
  28                                 dx1 => 'Frequency $_[0] not in band [usage: DX freq call comments](see sh/band)',
  29                                 dx2 => 'Need a callsign [usage: DX freq call comments]',
  30                                 dxs => 'DX Spots flag set on $_[0]',
  31                                 dxu => 'DX Spots flag unset on $_[0]',
  32                                 e1 => 'Invalid command',
  33                                 e2 => 'Error: $_[0]',
  34                                 e3 => '$_[0]: $_[1] not found',
  35                                 e4 => 'Need at least a prefix or callsign',
  36                                 e5 => 'Not Allowed',
  37                                 e6 => '*** No station specified ***',
  38                                 e7 => 'callsign $_[0] not visible on the cluster',
  39                                 e8 => 'Need a callsign and some text',
  40                                 e9 => 'Need at least some text',
  41                                 e10 => '$_[0] not connected locally',
  42                                 e12 => 'Need a node callsign',
  43                                 e13 => '$_[0] is not a node',
  44                                 emaile1 => 'Please enter your email address, set/email <your e-mail address>',
  45                                 emaila => 'Your E-Mail Address is now \"$_[0]\"',
  46                                 email => 'E-mail address set to: $_[0]',
  47                                 helpe1 => 'Help system unavailable, tell sysop',
  48                                 helpe2 => 'No help available on $_[0]',
  49                                 heres => 'Here set on $_[0]',
  50                                 heade1 => 'Using $main::mycall Coords, consider doing a set/location or set/qra',
  51                                 hereu => 'Here unset on $_[0]',
  52                                 homebbs => 'Home BBS set to: $_[0]',
  53                                 homenode => 'Home Node set to: $_[0]',
  54                                 hnodee1 => 'Please enter your Home Node, set/homenode <your home DX Cluster>',
  55                                 hnode => 'Your Homenode is now \"$_[0]\"',
  56                                 iso => '$_[0] Isolated',
  57                                 isou => '$_[0] UnIsolated',
  58                                 isoc => '$_[0] created and Isolated',
  59                                 l1 => 'Sorry $_[0], you are already logged on on another channel',
  60                                 l2 => 'Hello $_[0], this is $main::mycall in $main::myqth running DXSpider V$main::version',
  61                                 lh1 => '$main::data/hop_table.pl doesn\'t exist',
  62                                 loce1 => 'Please enter your location,, set/location <latitude longitude>',
  63                                 loce2 => 'Don\'t recognise \"$_[0]\" as a Lat/Long (eg 52 20 N 0 16 E)',
  64                                 loc => 'Your Lat/Long is now \"$_[0]\"',
  65                                 lockout => '$_[0] Locked out',
  66                                 lockoutun => '$_[0] Unlocked',
  67                                 m2 => '$_[0] Information: $_[1]',
  68                                 merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
  69                                 msgnew => 'New mail has arrived for you',
  70                                 namee1 => 'Please enter your name, set/name <your name>',
  71                                 namee2 => 'Can\'t find user $_[0]!',
  72                                 name => 'Your name is now \"$_[0]\"',
  73                                 node => '$_[0] set as AK1A style Node',
  74                                 nodeu => '$_[0] set back as a User',
  75                                 nodec => '$_[0] created as AK1A style Node',
  76                                 nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line',
  77                                 ok => 'Operation successful',
  78                                 page => 'Press Enter to continue, A to abort ($_[0] lines) >',
  79                                 pagelth => 'Page Length is now $_[0]',
  80                                 passerr => 'Please use: SET/PASS <password> <callsign>',
  81                                 password => 'Password set or changed for $_[0]',
  82                                 pingo => 'Ping Started to $_[0]',
  83                                 pingi => 'Ping Returned from $_[0] ($_[2] secs)',
  84                                 pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
  85                                 pr2 => '($_[0]) de $main::mycall $main::cldate $main::ztime >',
  86                                 priv => 'Privilege level changed on $_[0]',
  87                                 prx => '$main::mycall >',
  88                                 qll => 'Please enter your location with set/location or set/qra',
  89                                 qthe1 => 'Please enter your QTH, set/qth <your qth>',
  90                                 qth => 'Your QTH is now \"$_[0]\"',
  91                                 qrae1 => 'Please enter your QRA locator, set/qra <qra locator> (eg set/qra JO02LQ)',
  92                                 qrashe1 => 'Please enter a QRA locator, eg sh/qra JO02LQ or sh/qra JO02LQ IO93NS',
  93                                 qrae2 => 'Don\'t recognise \"$_[0]\" as a QRA locator (eg JO02LQ)',
  94                                 qra => 'Your QRA Locator is now \"$_[0]\"',
  95                                 rcmdo => 'RCMD \"$_[0]\" sent to $_[1]',
  96                                 read1 => 'Sorry, no new messages for you',
  97                                 read2 => 'Msg $_[0] not found',
  98                                 read3 => 'Msg $_[0] not available',
  99                                 shutting => '$main::mycall shutting down...',
 100                                 sloc => 'Cluster lat $_[0] long $_[1], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
 101                                 sqra => 'Cluster QRA Locator$_[0], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
 102                                 talks => 'Talk flag set on $_[0]',
 103                                 talku => 'Talk flag unset on $_[0]',
 104                                 usernf => '*** User record for $_[0] not found ***',
 105                                 wwvs => 'WWV flag set on $_[0]',
 106                                 wwvu => 'WWV flag unset on $_[0]',
 107                                 wxs => 'WX flag set on $_[0]',
 108                                 wxu => 'WX flag unset on $_[0]',
 109                 },
 110   fr => {
 111                 },
 112   de => {
 113                 },
 114 );