]> scm.dxcluster.org Git - spider.git/blob - perl/Messages
SSID appears to work!
[spider.git] / 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                                 conother => 'Sorry $_[0] you are connected on another port',
18                                 concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster',
19                                 confail => 'connection to $_[0] failed ($_[1])',
20                                 constart => 'connection to $_[0] started',
21                                 dx1 => 'Frequency $_[0] not in band [usage: DX freq call comments](see sh/band)',
22                                 dx2 => 'Need a callsign [usage: DX freq call comments]',
23                                 dxs => 'DX Spots flag set on $_[0]',
24                                 dxu => 'DX Spots flag unset on $_[0]',
25                                 e1 => 'Invalid command',
26                                 e2 => 'Error: $_[0]',
27                                 e3 => '$_[0]: $_[1] not found',
28                                 e4 => 'Need at least a prefix or callsign',
29                                 e5 => 'Not Allowed',
30                                 email => 'E-mail address set to: $_[0]',
31                                 heres => 'Here set on $_[0]',
32                                 hereu => 'Here unset on $_[0]',
33                                 homebbs => 'Home BBS set to: $_[0]',
34                                 homenode => 'Home Node set to: $_[0]',
35                                 l1 => 'Sorry $_[0], you are already logged on on another channel',
36                                 l2 => 'Hello $_[0], this is $main::mycall in $main::myqth running DXSpider V$main::version',
37                                 m2 => '$_[0] Information: $_[1]',
38                                 node => '$_[0] set as AK1A style Node',
39                                 nodec => '$_[0] created as AK1A style Node',
40                                 nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line',
41                                 ok => 'Operation successful',
42                                 page => 'Press Enter to continue, A to abort ($_[0] lines) >',
43                                 pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
44                                 priv => 'Privilege level changed on $_[0]',
45                                 prx => '$main::mycall >',
46                                 read1 => 'Sorry, no new messages for you',
47                                 read2 => 'Msg $_[0] not found',
48                                 read3 => 'Msg $_[0] not available',
49                                 shutting => '$main::mycall shutting down...',
50                                 talks => 'Talk flag set on $_[0]',
51                                 talku => 'Talk flag unset on $_[0]',
52                                 wwvs => 'WWV flag set on $_[0]',
53                                 wwvu => 'WWV flag unset on $_[0]',
54                 },
55   fr => {
56                 },
57   de => {
58                 },
59 );