2 # DX cluster message strings for output
4 # Each message string will substitute $_[x] positionally. What this means is
5 # that if you don't like the order in which fields in each message is output then
6 # you can change it. Also you can include various globally accessible variables
7 # in the string if you want.
9 # Largely because I don't particularly want to have to change all these messages
10 # in every upgrade I shall attempt to add new field to the END of the list :-)
12 # Copyright (c) 1998 - Dirk Koopman G1TLH
24 l1 => 'Sorry $_[0], you are already logged on on another channel',
25 l2 => 'Hello $_[0], this is $main::mycall located in $main::myqth',
26 pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
33 return "unknown message '$self'" if !defined $s;
35 return eval '"'. $s . '"';