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
   5 #
   6 # $Id$
   7 #
   8
   9 package DXM;
  10
  11 %msgs = (
  12                  en => {
  13                                 addr => 'Address set to: $_[0]',
  14                                 anns => 'Announce flag set on $_[0]',
  15                                 annu => 'Announce flag unset on $_[0]',
  16                                 conother => 'Sorry $_[0] you are connected on another port',
  17                                 concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster',
  18                                 dxs => 'DX Spots flag set on $_[0]',
  19                                 dxu => 'DX Spots flag unset on $_[0]',
  20                                 e1 => 'Invalid command',
  21                                 e2 => 'Error: $_[0]',
  22                                 e3 => '$_[0]: $_[1] not found',
  23                                 e4 => 'Need at least a prefix or callsign',
  24                                 e5 => 'Not Allowed',
  25                                 email => 'E-mail address set to: $_[0]',
  26                                 heres => 'Here set on $_[0]',
  27                                 hereu => 'Here unset on $_[0]',
  28                                 homebbs => 'Home BBS set to: $_[0]',
  29                                 homenode => 'Home Node set to: $_[0]',
  30                                 l1 => 'Sorry $_[0], you are already logged on on another channel',
  31                                 l2 => 'Hello $_[0], this is $main::mycall in $main::myqth running DXSpider V$main::version',
  32                                 m2 => '$_[0] Information: $_[1]',
  33                                 node => '$_[0] set as AK1A style Node',
  34                                 nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line',
  35                                 ok => 'Operation successful',
  36                                 pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
  37                                 priv => 'Privilege level changed on $_[0]',
  38                                 prx => '$main::$mycall >',
  39                                 talks => 'Talk flag set on $_[0]',
  40                                 talku => 'Talk flag unset on $_[0]',
  41                                 wwvs => 'WWV flag set on $_[0]',
  42                                 wwvu => 'WWV flag unset on $_[0]',
  43                 },
  44   fr => {
  45                 },
  46   de => {
  47                 },
  48 );