]> dxcluster.net Git - spider.git/commitdiff
merge various things from master
authorDirk Koopman <djk@tobit.co.uk>
Fri, 21 Jan 2022 16:40:53 +0000 (16:40 +0000)
committerDirk Koopman <djk@tobit.co.uk>
Fri, 21 Jan 2022 16:40:53 +0000 (16:40 +0000)
This is a major attempt at joining the two codebases together
better so that it is easier to add joint features. But this
is likely to be the last time I do this.

21 files changed:
perl/AsyncMsg.pm
perl/DXChannel.pm
perl/DXCommandmode.pm
perl/DXDb.pm
perl/DXMsg.pm
perl/DXProt.pm
perl/DXProtHandle.pm
perl/DXUser.pm
perl/DXUtil.pm
perl/DXVars.pm.issue
perl/Messages
perl/Prefix.pm
perl/Prot.pm
perl/QSL.pm
perl/Route.pm
perl/Route/Node.pm
perl/Spot.pm
perl/SysVar.pm
perl/cluster.pl
perl/console.pl
perl/create_prefix.pl

index cb1c2f2bdc64a228f6b5c76bd6d3fcc8c047b800..f8cd2f9f3b60bea14be79d24029a69049b685a9c 100644 (file)
@@ -277,6 +277,19 @@ sub disconnect
        $conn->SUPER::disconnect;
 }
 
+sub _send_later
+{
+       my $conn = shift;
+       my $m = shift;
+       
+       if (isdbg('async')) {
+               my $s = $m;
+               $s =~ s/([\%\x00-\x1f\x7f-\xff])/sprintf("%%%02X", ord($1))/eg;
+               dbg("AsyncMsg: send $s");
+       }
+       $conn->send_later($m);
+}
+
 sub DESTROY
 {
        my $conn = shift;
index c2358c3dd2366f56e1d7018c23fde7d474bb288d..f8dabe1c657b3abd6129dd75fa52619e1af12382 100644 (file)
@@ -41,95 +41,110 @@ use vars qw(%channels %valid @ISA $count $maxerrors);
 $count = 0;
 
 %valid = (
-                 call => '0,Callsign',
-                 conn => '9,Msg Conn ref',
-                 user => '9,DXUser ref',
-                 startt => '0,Start Time,atime',
-                 t => '9,Time,atime',
-                 pc50_t => '5,Last PC50 Time,atime',
-                 priv => '9,Privilege',
-                 state => '0,Current State',
-                 oldstate => '5,Last State',
-                 list => '9,Dep Chan List',
-                 name => '0,User Name',
-                 consort => '5,Connection Type',
                  'sort' => '5,Type of Channel',
-                 wwv => '0,Want WWV,yesno',
-                 wcy => '0,Want WCY,yesno',
-                 wx => '0,Want WX,yesno',
-                 talk => '0,Want Talk,yesno',
                  ann => '0,Want Announce,yesno',
-                 here => '0,Here?,yesno',
+                 ann_talk => '0,Suppress Talk Anns,yesno',
+                 annfilter => '5,Ann Filt-out',
+                 annfilter => '5,Ann Filt-out',
+                 badcount => '1,Bad Word Count',
+                 badip => '9,BAD IP address',
+                 beep => '0,Want Beeps,yesno',
+                 build => '1,Node Build',
+                 call => '0,Callsign',
+                 cluster => '5,Cluster data',
                  conf => '0,In Conference?,yesno',
+                 conn => '9,Msg Conn ref',
+                 consort => '5,Connection Type',
+                 cq => '0,CQ Zone',
+                 delayed => '5,Delayed messages,parray',
+                 delayed => '5,Delayed messages,parray',
+                 disconnecting => '9,Disconnecting,yesno',
+                 do_pc9x => '9,Handles PC9x,yesno',
+                 do_pc9x => '9,Handles PC9x,yesno',
                  dx => '0,DX Spots,yesno',
-                 redirect => '0,Redirect messages to',
-                 lang => '0,Language',
+                 dxcc => '0,Country Code',
+                 edit => '7,Edit Function',
+                 enhanced => '5,Enhanced Client,yesno',
+                 errors => '9,Errors',
                  func => '5,Function',
-                 loc => '9,Local Vars', # used by func to store local variables in
-                 beep => '0,Want Beeps,yesno',
-                 lastread => '5,Last Msg Read',
-                 outbound => '5,outbound?,yesno',
-                 remotecmd => '9,doing rcmd,yesno',
-                 pagelth => '0,Page Length',
-                 pagedata => '9,Page Data Store',
                  group => '0,Access Group,parray',     # used to create a group of users/nodes for some purpose or other
-                 isolate => '5,Isolate network,yesno',
-                 delayed => '5,Delayed messages,parray',
-                 annfilter => '5,Ann Filt-out',
-                 wwvfilter => '5,WWV Filt-out',
-                 wcyfilter => '5,WCY Filt-out',
-                 spotsfilter => '5,Spot Filt-out',
-                 routefilter => '5,Route Filt-out',
-                 rbnfilter => '5,RBN Filt-out',
-                 pc92filter => '5,PC92 Route Filt-out',
+                 handle_xml => '9,Handles XML,yesno',
+                 here => '0,Here?,yesno',
+                 hostname => '0,Hostname',
                  inannfilter => '5,Ann Filt-inp',
-                 inwwvfilter => '5,WWV Filt-inp',
-                 inwcyfilter => '5,WCY Filt-inp',
-                 inspotsfilter => '5,Spot Filt-inp',
-                 inroutefilter => '5,Route Filt-inp',
-                 inrbnfilter => '5,RBN Filt-inp',
                  inpc92filter => '5,PC92 Route Filt-inp',
-                 passwd => '9,Passwd List,yesno',
-                 pingint => '5,Ping Interval ',
-                 nopings => '5,Ping Obs Count',
-                 lastping => '5,Ping last sent,atime',
-                 pingtime => '5,Ping totaltime,parray',
-                 pingave => '0,Ping ave time',
-                 logininfo => '9,Login info req,yesno',
-                 talklist => '0,Talk List,parray',
-                 cluster => '5,Cluster data',
+                 inqueue => '9,Input Queue,parray',
+                 inqueue => '9,Input Queue,parray',
+                 inrbnfilter => '5,RBN Filt-inp',
+                 inrbnfilter => '5,RBN Filt-inp',
+                 inroutefilter => '5,Route Filt-inp',
+                 inroutefilter => '5,Route Filt-inp',
+                 inscript => '9,In a script,yesno',
+                 inscript => '9,In a script,yesno',
+                 inspotsfilter => '5,Spot Filt-inp',
+                 inspotsfilter => '5,Spot Filt-inp',
+                 inwcyfilter => '5,WCY Filt-inp',
+                 inwcyfilter => '5,WCY Filt-inp',
+                 inwwvfilter => '5,WWV Filt-inp',
+                 inwwvfilter => '5,WWV Filt-inp',
                  isbasic => '9,Internal Connection', 
-                 errors => '9,Errors',
-                 route => '9,Route Data',
-                 dxcc => '0,Country Code',
+                 isolate => '5,Isolate network,yesno',
+                 isolate => '5,Isolate network,yesno',
+                 isslugged => '9,Still Slugged,yesno',
+                 isslugged => '9,Still Slugged,yesno',
                  itu => '0,ITU Zone',
-                 cq => '0,CQ Zone',
-                 enhanced => '5,Enhanced Client,yesno',
-                 gtk => '5,Using GTK,yesno',
-                 senddbg => '8,Sending Debug,yesno',
-                 width => '0,Column Width',
-                 disconnecting => '9,Disconnecting,yesno',
-                 ann_talk => '0,Suppress Talk Anns,yesno',
+                 lang => '0,Language',
+                 lastmsgpoll => '0,Last Msg Poll,atime',
+                 lastmsgpoll => '0,Last Msg Poll,atime',
+                 lastping => '5,Ping last sent,atime',
+                 lastread => '5,Last Msg Read',
+                 list => '9,Dep Chan List',
+                 loc => '9,Local Vars', # used by func to store local variables in
+                 logininfo => '9,Login info req,yesno',
                  metric => '1,Route metric',
-                 badcount => '1,Bad Word Count',
-                 edit => '7,Edit Function',
-                 registered => '9,Registered?,yesno',
-                 prompt => '0,Required Prompt',
-                 version => '1,Node Version',
-                 build => '1,Node Build',
-                 verified => '9,Verified?,yesno',
+                 name => '0,User Name',
                  newroute => '1,New Style Routing,yesno',
-                 ve7cc => '0,VE7CC program special,yesno',
-                 lastmsgpoll => '0,Last Msg Poll,atime',
-                 inscript => '9,In a script,yesno',
-                 handle_xml => '9,Handles XML,yesno',
-                 do_pc9x => '9,Handles PC9x,yesno',
-                 inqueue => '9,Input Queue,parray',
-                 next_pc92_update => '9,Next PC92 Update,atime',
                  next_pc92_keepalive => '9,Next PC92 KeepAlive,atime',
-                 hostname => '0,Hostname',
-                 isslugged => '9,Still Slugged,yesno',
+                 next_pc92_keepalive => '9,Next PC92 KeepAlive,atime',
+                 next_pc92_update => '9,Next PC92 Update,atime',
+                 next_pc92_update => '9,Next PC92 Update,atime',
+                 nopings => '5,Ping Obs Count',
+                 oldstate => '5,Last State',
+                 outbound => '5,outbound?,yesno',
+                 pagedata => '9,Page Data Store',
+                 pagelth => '0,Page Length',
+                 passwd => '9,Passwd List,yesno',
+                 pc50_t => '5,Last PC50 Time,atime',
+                 pc92filter => '5,PC92 Route Filt-out',
+                 pc92filter => '5,PC92 Route Filt-out',
+                 pingave => '0,Ping ave time',
+                 pingint => '5,Ping Interval ',
+                 pingtime => '5,Ping totaltime,parray',
+                 priv => '9,Privilege',
+                 prompt => '0,Required Prompt',
+                 rbnfilter => '5,RBN Filt-out',
+                 rbnfilter => '5,RBN Filt-out',
+                 redirect => '0,Redirect messages to',
+                 registered => '9,Registered?,yesno',
+                 remotecmd => '9,doing rcmd,yesno',
+                 route => '9,Route Data',
+                 routefilter => '5,Route Filt-out',
+                 routefilter => '5,Route Filt-out',
+                 senddbg => '8,Sending Debug,yesno',
+                 sluggedpcs => '9,Slugged PCxx Queue,parray',
                  sluggedpcs => '9,Slugged PCxx Queue,parray',
+                 spotsfilter => '5,Spot Filt-out',
+                 spotsfilter => '5,Spot Filt-out',
+                 startt => '0,Start Time,atime',
+                 state => '0,Current State',
+                 t => '9,Time,atime',
+                 talk => '0,Want Talk,yesno',
+                 talklist => '0,Talk List,parray',
+                 user => '9,DXUser ref',
+                 ve7cc => '0,VE7CC program special,yesno',
+                 wcyfilter => '5,WCY Filt-out',
+                 width => '0,Column Width',
+                 wwvfilter => '5,WWV Filt-out',
                 );
 
 $maxerrors = 20;                               # the maximum number of concurrent errors allowed before disconnection
index b89e1d3c7f540a8bcbc52e735c47742a317946d9..b9e6c67878b2288f3a32d0c629ef3e73ca1a6ef3 100644 (file)
@@ -45,6 +45,7 @@ use Time::HiRes qw(gettimeofday tv_interval);
 use Mojo::IOLoop;
 use DXSubprocess;
 use Mojo::UserAgent;
+use DXCIDR;
 
 use strict;
 use vars qw(%Cache %cmd_cache $errstr %aliases $scriptbase %nothereslug
@@ -204,6 +205,11 @@ sub start
        
        $self->tell_login('loginu');
        $self->tell_buddies('loginb');
+
+       # is this a bad ip address?
+       if (is_ipaddr($self->{hostname})) {
+               $self->{badip} = DXCIDR->find($self->{hostname});
+       }
        
        # do we need to send a forward/opernam?
        my $lastoper = $user->lastoper || 0;
@@ -258,7 +264,7 @@ sub normal
        $cmdline =~ s/^\s*(.*)\s*$/$1/;
        
        if ($self->{state} eq 'page') {
-               my $i = $self->{pagelth};
+               my $i = $self->{pagelth}-5;
                my $ref = $self->{pagedata};
                my $tot = @$ref;
                
@@ -269,7 +275,7 @@ sub normal
                }
         
                # send a tranche of data
-               while ($i-- > 0 && @$ref) {
+               for (; $i > 0 && @$ref; --$i) {
                        my $line = shift @$ref;
                        $line =~ s/\s+$//o;     # why am having to do this? 
                        $self->send($line);
@@ -1315,7 +1321,6 @@ sub send_motd
        $self->send_file($motd) if -e $motd;
 }
 
-
 # Punt off a long running command into a separate process
 #
 # This is called from commands to run some potentially long running
@@ -1408,7 +1413,7 @@ sub spawn_cmd
 
 sub user_count
 {
-       return ($users, $maxusers);
+    return ($users, $maxusers);
 }
 
 1;
index 81d21928334ea81e15848eed639f58b3225cb062..5d96e6cf2029db4ad798a699b350ff1f877ef392 100644 (file)
@@ -21,28 +21,28 @@ $dbbase = "$main::root/db";         # where all the databases are kept;
 %avail = ();                                   # The hash contains a list of all the databases
 %valid = (
                  accesst => '9,Last Accs Time,atime',
+                 allowread => '9,Allowed read,parray',
+                 allowupd => '9,Allow upd,parray',
+                 atemplate => '9,App Templates,parray',
+                 cal => '0,No Key txt',
+                 chain => '0,Search these,parray',
                  createt => '9,Create Time,atime',
-                 lastt => '9,Last Upd Time,atime',
-                 name => '0,Name',
                  db => '9,DB Tied hash',
-                 remote => '0,Remote Database',
-                 pre => '0,Heading txt',
-                 post => '0,Tail txt',
-                 chain => '0,Search these,parray',
-                 disable => '0,Disabled?,yesno',
-                 nf => '0,Not Found txt',
-                 cal => '0,No Key txt',
-                 allowread => '9,Allowed read,parray',
                  denyread => '9,Deny read,parray',
-                 allowupd => '9,Allow upd,parray',
                  denyupd => '9,Deny upd,parray',
+                 disable => '0,Disabled?,yesno',
                  fwdupd => '9,Forw upd to,parray',
-                 template => '9,Upd Templates,parray',
-                 te => '9,End Upd txt',
-                 tae => '9,End App txt',
-                 atemplate => '9,App Templates,parray',
                  help => '0,Help txt,parray',
+                 lastt => '9,Last Upd Time,atime',
                  localcmd => '0,Local Command',
+                 name => '0,Name',
+                 nf => '0,Not Found txt',
+                 post => '0,Tail txt',
+                 pre => '0,Heading txt',
+                 remote => '0,Remote Database',
+                 tae => '9,End App txt',
+                 te => '9,End Upd txt',
+                 template => '9,Upd Templates,parray',
                 );
 
 $lastprocesstime = time;
index 174a98a4792697ee7513f8298c03e7710b97d671..a3b5e983586ed9a9fdab49eac489323660813646 100644 (file)
@@ -66,30 +66,30 @@ $importfn = "$msgdir/import";       # import directory
 
 
 %valid = (
-                 fromnode => '5,From Node',
-                 tonode => '5,To Node',
-                 to => '0,To',
-                 from => '0,From',
-                 t => '0,Msg Time,cldatetime',
-                 private => '5,Private,yesno',
-                 subject => '0,Subject',
-                 linesreq => '0,Lines per Gob',
-                 rrreq => '5,Read Confirm,yesno',
-                 origin => '0,Origin',
-                 lines => '5,Data',
-                 stream => '9,Stream No',
+                 'read' => '5,Times read',
                  count => '5,Gob Linecnt',
+                 delete => '5,Awaiting Delete,yesno',
+                 deletetime => '5,Deletion Time,cldatetime',
                  file => '5,File?,yesno',
+                 from => '0,From',
+                 fromnode => '5,From Node',
                  gotit => '5,Got it Nodes,parray',
-                 lines => '5,Lines,parray',
-                 'read' => '5,Times read',
-                 size => '0,Size',
-                 msgno => '0,Msgno',
                  keep => '0,Keep this?,yesno',
                  lastt => '5,Last processed,cldatetime',
+                 lines => '5,Data',
+                 lines => '5,Lines,parray',
+                 linesreq => '0,Lines per Gob',
+                 msgno => '0,Msgno',
+                 origin => '0,Origin',
+                 private => '5,Private,yesno',
+                 rrreq => '5,Read Confirm,yesno',
+                 size => '0,Size',
+                 stream => '9,Stream No',
+                 subject => '0,Subject',
+                 t => '0,Msg Time,cldatetime',
+                 to => '0,To',
+                 tonode => '5,To Node',
                  waitt => '5,Wait until,cldatetime',
-                 delete => '5,Awaiting Delete,yesno',
-                 deletetime => '5,Deletion Time,cldatetime',
                 );
 
 # fix up the default sendmail if available
index 4886a7ff3ce736ef8876b887c9526fc7be462d6b..e1b1ea45b0fc5c3b87d01fdd6c767f4d17b6ec15 100644 (file)
@@ -33,6 +33,7 @@ use Route;
 use Route::Node;
 use Script;
 use DXProtHandle;
+use DXCIDR;
 
 use Time::HiRes qw(gettimeofday tv_interval);
 use DXSubprocess;
@@ -297,9 +298,9 @@ sub start
        # log it
        my $host = $self->{conn}->peerhost;
        $host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport};
+       $host ||= $host if is_ipaddr($host);
        $host ||= "unknown";
        $self->{hostname} = $host if is_ipaddr($host);
-
        Log('DXProt', "$call connected from $host");
 
        # remember type of connection
index b051fad35c201533c8451443f66e8c95fcc02c17..6f4fbd08d92c3bca3513e7189111ede1aa982e8d 100644 (file)
@@ -32,6 +32,7 @@ use DXHash;
 use Route;
 use Route::Node;
 use Script;
+use DXCIDR;
 
 use strict;
 use warnings qw(all);
@@ -185,6 +186,16 @@ sub handle_11
                return;
        }
 
+       # check IP addresses
+       if ($pc->[8] && is_ipaddr($pc->[8])) {
+               my $ip = $pc->[8];
+               $ip =~ s/,/:/g;
+               $ip =~ s/^::ffff://;
+               if (DXCIDR::find($ip)) {
+                       
+               }
+       }
+
        # convert the date to a unix date
        my $d = cltounix($pc->[3], $pc->[4]);
        # bang out (and don't pass on) if date is invalid or the spot is too old (or too young)
@@ -1557,7 +1568,6 @@ sub _decode_pc92_call
        my $is_node = $flag & 4;
        my $is_extnode = $flag & 2;
        my $here = $flag & 1;
-       my $ip;
        my $version = $part[1] || 0;
        my $build = $part[2] || 0;
        my $ip = $part[3] || '';
@@ -1569,15 +1579,11 @@ sub _decode_pc92_call
        $version =~ s/\D//g;
        $build =~ s/^0\.//;
        $build =~ s/\D//g;
-       $version ||= 0;
-       $build ||= 0;
-       
        if ($ip) {
         $ip =~ s/,/:/g;
         $ip =~ s/^::ffff://i;
     }
        dbg("$icall = '" . join("', '", $call, $is_node, $is_extnode, $here, $version, $build, $ip) . "'") if isdbg('pc92');
-
        return ($call, $is_node, $is_extnode, $here, $version+0, $build+0, $ip);
 }
 
@@ -1626,6 +1632,10 @@ sub _add_thingy
        my ($call, $is_node, $is_extnode, $here, $version, $build, $ip) = @$s;
        my @rout;
 
+       # remove spurious IPV6 prefix on IPV4 addresses
+       $build ||= 0;
+       $version ||= 0;
+
        if ($call) {
                my $ncall = $parent->call;
                if ($ncall ne $call) {
@@ -1649,12 +1659,12 @@ sub _add_thingy
                                @rout = $parent->add($call, $version, Route::here($here), $ip);
                                $r = Route::Node::get($call);
                                $r->PC92C_dxchan($dxchan->call, $hops) if $r;
-                               if ($version && $version =~ /^\d+$/) {
+                               if ($version && is_numeric($version) && !$r->K && !$user->K) {
                                        my $old = $user->sort;
                                        if ($user->is_ak1a && (($version >= 5455 &&  $build > 0) || ($version >= 3000 && $version <= 3500)) ) {
                                                $user->sort('S');
                                                dbg("PCProt::_add_thingy node $call v: $version b: $build sort ($old) updated to " . $user->sort);
-                                       } elsif ($user->is_spider && $version =~ /^\d+$/ && ($version < 3000 || ($version > 4000 && $version < 5455))) {
+                                       } elsif ($user->is_spider && ($version < 3000 || ($version > 4000 && $version < 5455))) {
                                                unless ($version == 5000 && $build == 0) {
                                                        $user->sort('A');
                                                        $build //= 0;
@@ -1662,6 +1672,9 @@ sub _add_thingy
                                                }
                                        }
                                }
+                               $r->version($user->version) if $user->version;
+                               $r->build($user->build) if $user->build;
+                               $r->K(1) if $user->K;
                        } else {
                                dbg("ROUTE: added user $call to $ncall") if isdbg('routelow');
                                $user = check_add_user($call, 'U', $parent->call);
@@ -2006,22 +2019,38 @@ sub handle_92
                        my $call = $parent->call;
                        my $version = $ent[4] || 0;
                        my $build = $ent[5] ||  0;
+                       $build =~ s/^0\.//;
                        my $oldbuild = $parent->build || 0;
                        my $oldversion = $parent->version || 0;
                        my $user = check_add_user($parent->call, 'S');
                        my $oldsort = $user->sort // '';
-#                      if ($version =~ /^\d+$/  && $oldversion =~ /^\d+$/) {
-                               if ($oldsort ne 'S' || $oldversion != $version || $build != $oldbuild) {
-                                       dbg("PCProt PC92 K node $call updated version: $version (was $oldversion) build: $build (was $oldbuild) sort: 'S' (was $oldsort)");
-                                       $user->sort('S');
+
+                       dbg("PCProt PC92 K v: $version ov: $oldversion b: $build ob: $oldbuild pk: " . ($parent->K || '0') . " uk: " . ($user->K || 0)) if isdbg('pc92k');
+                               
+                       if (is_numeric($version) || is_numeric($build)) {
+                               my $changed = 0;
+                               if (($oldversion ne $version || $build ne $oldbuild)) {
+                                       dbg("PCProt PC92 K node $call updated version: $version (was $oldversion) build: $build (was $oldbuild)");
                                        $user->version($parent->version($version));
                                        $user->build($parent->build($build));
-                                       $user->put;
+                                       ++$changed;
                                }
-#                      } else {
-#                              dbg("DXProt PC92 K version strings new: '$version' old: '$oldversion'");
-#                      }
-                       dbg("ROUTE: reset obscount on $parent->{call} now " . $parent->obscount) if isdbg('obscount');
+                               if ($oldsort ne 'S') {
+                                       dbg("PCProt PC92 K node $call updated sort: $sort (was $oldsort)");
+                                       $user->sort('S');
+                                       ++$changed;
+                               }
+                               unless ($user->K) {
+                                       dbg("PCProt PC92 K node $call updated - marked as PC92 K user");
+                                       $user->K(1);
+                                       ++$changed;
+                               }
+                               $user->put if $changed;
+                               $parent->K(1); # mark this as come in on a K
+                       } else {
+                               dbg("DXProt PC92 K version call $call: invalid version: '$version' or build: '$version', ignored");
+                       }
+                       dbg("ROUTE: reset obscount on $call now " . $parent->obscount) if isdbg('obscount');
                }
        } elsif ($sort eq 'A' || $sort eq 'D' || $sort eq 'C') {
 
index ef4475625499475af86b805324602c50a082097c..d147d68afe29fed5aa5ecfa47a2cd24ca6348dfd 100644 (file)
@@ -41,75 +41,99 @@ my $json;
 
 # hash of valid elements and a simple prompt
 %valid = (
-                 call => '0,Callsign',
-                 alias => '0,Real Callsign',
-                 name => '0,Name',
-                 qth => '0,Home QTH',
-                 lat => '0,Latitude,slat',
-                 long => '0,Longitude,slong',
-                 qra => '0,Locator',
-                 email => '0,E-mail Address,parray',
-                 priv => '9,Privilege Level',
-                 lastin => '0,Last Time in,cldatetime',
-                 lastseen => '0,Last Seen,cldatetime',
-                 passwd => '9,Password,yesno',
-                 passphrase => '9,Pass Phrase,yesno',
-                 addr => '0,Full Address',
                  'sort' => '0,Type of User', # A - ak1a, U - User, S - spider cluster, B - BBS
-                 xpert => '0,Expert Status,yesno',
+                 K => '9,Seen on PC92 K,yesno',
+                 addr => '0,Full Address',
+                 addr => '0,Full Address',
+                 alias => '0,Real Callsign',
+                 alias => '0,Real Callsign',
+                 annok => '9,Accept Announces?,yesno', # accept his announces?
                  bbs => '0,Home BBS',
-                 node => '0,Last Node',
-                 homenode => '0,Home Node',
-                 lockout => '9,Locked out?,yesno',     # won't let them in at all
+                 believe => '1,Believable nodes,parray',
+                 believe => '1,Believable nodes,parray',
+                 buddies => '0,Buddies,parray',
+                 build => '1,Build',
+                 build => '1,Build',
+                 call => '0,Callsign',
+                 call => '0,Callsign',
+                 connlist => '1,Connections,parraydifft',
                  dxok => '9,Accept DX Spots?,yesno', # accept his dx spots?
-                 annok => '9,Accept Announces?,yesno', # accept his announces?
-                 lang => '0,Language',
-                 hmsgno => '0,Highest Msgno',
+                 email => '0,E-mail Address,parray',
+                 email => '0,E-mail Address,parray',
                  group => '0,Group,parray',    # used to create a group of users/nodes for some purpose or other
-                 buddies => '0,Buddies,parray',
+                 hmsgno => '0,Highest Msgno',
+                 homenode => '0,Home Node',
                  isolate => '9,Isolate network,yesno',
-                 wantbeep => '0,Req Beep,yesno',
-                 wantann => '0,Req Announce,yesno',
-                 wantwwv => '0,Req WWV,yesno',
-                 wantwcy => '0,Req WCY,yesno',
-                 wantecho => '0,Req Echo,yesno',
-                 wanttalk => '0,Req Talk,yesno',
-                 wantwx => '0,Req WX,yesno',
-                 wantdx => '0,Req DX Spots,yesno',
-                 wantemail => '0,Req Msgs as Email,yesno',
+                 lang => '0,Language',
+                 lastin => '0,Last Time in,cldatetime',
+                 lastin => '0,Last Time in,cldatetime',
+                 lastoper => '9,Last for/oper,cldatetime',
+                 lastoper => '9,Last for/oper,cldatetime',
+                 lastping => '1,Last Ping at,ptimelist',
+                 lastping => '1,Last Ping at,ptimelist',
+                 lastseen => '0,Last Seen,cldatetime',
+                 lat => '0,Latitude,slat',
+                 lat => '0,Latitude,slat',
+                 lockout => '9,Locked out?,yesno',     # won't let them in at all
+                 long => '0,Longitude,slong',
+                 long => '0,Longitude,slong',
+                 maxconnect => '1,Max Connections',
+                 maxconnect => '1,Max Connections',
+                 name => '0,Name',
+                 name => '0,Name',
+                 node => '0,Last Node',
+                 nopings => '9,Ping Obs Count',
+                 nothere => '0,Not Here Text',
+                 nothere => '0,Not Here Text',
                  pagelth => '0,Current Pagelth',
+                 passphrase => '9,Pass Phrase,yesno',
+                 passphrase => '9,Pass Phrase,yesno',
+                 passwd => '9,Password,yesno',
+                 passwd => '9,Password,yesno',
                  pingint => '9,Node Ping interval',
-                 nopings => '9,Ping Obs Count',
-                 wantlogininfo => '0,Login Info Req,yesno',
-          wantgrid => '0,Show DX Grid,yesno',
+                 priv => '9,Privilege Level',
+                 priv => '9,Privilege Level',
+                 prompt => '0,Required Prompt',
+                 prompt => '0,Required Prompt',
+                 qra => '0,Locator',
+                 qra => '0,Locator',
+                 qth => '0,Home QTH',
+                 qth => '0,Home QTH',
+                 rbnseeme => '0,RBN See Me',
+                 registered => '9,Registered?,yesno',
+                 registered => '9,Registered?,yesno',
+                 startt => '0,Start Time,cldatetime',
+                 version => '1,Version',
+                 version => '1,Version',
+                 wantann => '0,Req Announce,yesno',
                  wantann_talk => '0,Talklike Anns,yesno',
-                 wantpc16 => '9,Want Users from node,yesno',
-                 wantsendpc16 => '9,Send PC16,yesno',
-                 wantroutepc19 => '9,Route PC19,yesno',
-                 wantusstate => '0,Show US State,yesno',
+                 wantbeacon => '0,Want RBN Beacon,yesno',
+                 wantbeep => '0,Req Beep,yesno',
+                 wantcw => '0,Want RBN CW,yesno',
+                 wantdx => '0,Req DX Spots,yesno',
                  wantdxcq => '0,Show CQ Zone,yesno',
                  wantdxitu => '0,Show ITU Zone,yesno',
+                 wantecho => '0,Req Echo,yesno',
+                 wantemail => '0,Req Msgs as Email,yesno',
+                 wantft => '0,Want RBN FT4/8,yesno',
                  wantgtk => '0,Want GTK interface,yesno',
+                 wantlogininfo => '0,Login Info Req,yesno',
+                 wantpc16 => '9,Want Users from node,yesno',
                  wantpc9x => '0,Want PC9X interface,yesno',
+                 wantpsk => '0,Want RBN PSK,yesno',
                  wantrbn => '0,Want RBN spots,yesno',
-                 wantft => '0,Want RBN FT4/8,yesno',
-                 wantcw => '0,Want RBN CW,yesno',
+                 wantroutepc19 => '9,Route PC19,yesno',
                  wantrtty => '0,Want RBN RTTY,yesno',
-                 wantpsk => '0,Want RBN PSK,yesno',
-                 wantbeacon => '0,Want RBN Beacon,yesno',
-                 lastoper => '9,Last for/oper,cldatetime',
-                 nothere => '0,Not Here Text',
-                 registered => '9,Registered?,yesno',
-                 prompt => '0,Required Prompt',
-                 version => '1,Version',
-                 build => '1,Build',
-                 believe => '1,Believable nodes,parray',
-                 lastping => '1,Last Ping at,ptimelist',
-                 maxconnect => '1,Max Connections',
-                 startt => '0,Start Time,cldatetime',
-                 connlist => '1,Connections,parraydifft',
+                 wantsendpc16 => '9,Send PC16,yesno',
+                 wanttalk => '0,Req Talk,yesno',
+                 wantusstate => '0,Show US State,yesno',
+                 wantwcy => '0,Req WCY,yesno',
+                 wantwwv => '0,Req WWV,yesno',
+                 wantwx => '0,Req WX,yesno',
                  width => '0,Preferred Width',
-                 rbnseeme => '0,RBN See Me',
+                 width => '0,Preferred Width',
+                 xpert => '0,Expert Status,yesno',
+          wantgrid => '0,Show DX Grid,yesno',
                 );
 
 #no strict;
@@ -235,7 +259,6 @@ sub get
        # search for it
        unless ($dbm->get($call, $data)) {
                eval { $ref = decode($data); };
-               
                if ($ref) {
                        if (!UNIVERSAL::isa($ref, 'DXUser')) {
                                dbg("DXUser::get: got strange answer from decode of $call". ref $ref. " ignoring");
index be6dfb4d308e2152e158000a9ddb41582bcc02df..cd50f4ae3f8ee6a04f370dde347412393fc3d313 100644 (file)
@@ -29,7 +29,7 @@ require Exporter;
                         is_qra is_freq is_digits is_pctext is_pcflag insertitem deleteitem
                         is_prefix dd is_ipaddr $pi $d2r $r2d localdata localdata_mv
                         diffms _diffms _diffus difft parraydifft is_ztime basecall
-                        normalise_call
+                        normalise_call is_numeric
             );
 
 
@@ -448,7 +448,7 @@ sub is_latlong
 # is it an ip address?
 sub is_ipaddr
 {
-    return $_[0] =~ /^\d+\.\d+\.\d+\.\d+$/ || $_[0] =~ /^[0-9a-f:,]+$/;
+    return $_[0] =~ /^\d+\.\d+\.\d+\.\d+$/ || $_[0] =~  /^(?:[\da-f]{1,4}:|:)(?:\:[0-9a-f]{1,4}){1,6}/i;
 }
 
 # is it a zulu time hhmmZ
@@ -614,3 +614,8 @@ sub normalise_call
        $ncall .= "-$ssid" if $ssid;
        return $ncall;
 }
+
+sub is_numeric
+{
+       return $_[0] =~ /^[\.\d]+$/;
+}
index afc8dbf7ff36b1da637d0501d001e731c7845588..139368617d951c784b3c09daaee95f8338c8867e 100644 (file)
@@ -1,4 +1,4 @@
-#
+# -*- perl -*-
 # The system variables - those indicated will need to be changed to suit your
 # circumstances (and callsign)
 #
index 2554d2701d0486c9695be620929e39b1694804fb..f3f6b585312968af6ddf6b5a7d00edf5ce62d152 100644 (file)
@@ -9,2252 +9,2255 @@ package DXM;
 
 %msgs = (
                 en => {
-                               addr => 'Address set to: $_[0]',
-                               agwe => 'AGW Engine enabled',
-                               agwu => 'AGW Engine disabled',
-                               already => '$_[0] already connected',
-                               anns => 'Announces enabled for $_[0]',
-                               annu => 'Announces disabled for $_[0]',
-                               annts => 'AnnTalk enabled for $_[0]',
-                               anntu => 'AnnTalk disabled for $_[0]',
-                               at => 'at',
-                               badnode1 => '$_[0] is now a bad node',
-                               badnode2 => '$_[0] is now a good node',
-                               badnode3 => 'List of Bad Nodes:-',
-                               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',
-                               believes => 'Believe node $_[0] via $_[1]',
-                               believeu => 'Don\'t believe node $_[0] via $_[1]', 
-                               buddya => '$_[0] has been added to your buddies',
-                               buddyu => '$_[0] has been removed from your buddies',
-                               call1 => 'Callsign lookup via $_[0]:',
-                               chatend => 'Finished chatting on $_[0]',
-                               chatinst => 'Entering Chatmode on $_[0], /EX to end, /<cmd> to run a command',
-                               chatprompt => 'Chat ($_[0])>',
-                               chattoomany => 'Not allowed, already in $_[1], use /chat $_[0]',
-                               cluster => 'Nodes: $_[0]/$_[1] Users [Loc/Clr]: $_[2]/$_[3] Max: $_[4]/$_[5] - Uptime: $_[6]',
-                               conother => 'Sorry $_[0] you are connected to me on another port',
-                               concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster (on $_[1])',
-                               contomany => 'Sorry $_[0] but you are already connected to $_[1] other nodes (on $_[2])',
-                               conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',
-                               confail => 'connection to $_[0] failed ($_[1])',
-                               constart => 'connection to $_[0] started',
-                               conbump => 'Reconnected as $_[0] at $_[1], this instance is disconnected',
-                               creuser => 'User $_[0] has been created',
-                               deluser => 'User $_[0] has been deleted',
-                               db1 => 'This database is hosted at $_[0]',
-                               db2 => 'Sorry, but key: $_[0] was not found in $_[1]',
-                               db3 => 'Sorry, database $_[0] doesn\'t exist here',
-                               db4 => 'Sorry, database $_[0] located at $_[1] isn\'t currently online',
-                               db5 => 'Accessing remote database on $_[0]...standby...',
-                               db6 => 'Database $_[0] already exists, delete it first',
-                               db7 => 'Database $_[0] created for remote node $_[1]',
-                               db8 => 'Database $_[0] created locally',
-                               db9 => 'Database $_[0] removed',
-                               db10 => '$_[0] records imported from $_[1] to $_[2]',
-                               db11 => 'Sending your request(s) to $_[0], please stand by...',
-                               db12 => 'DB Name          Location   Cmd             Chain',
-                               db13 => '$_[0] records exported from $_[1] to $_[2]',
-                               dfreq1 => 'Invalid freq $_[0] need: eg 0/30000 or hf or hf/cw', 
-                               dir1 => 'No messages found',
-                               disc1 => 'Disconnected by $_[0]',
-                               disc2 => 'Channel $_[0] disconnected',
-                               disc3 => 'No Channel, but connection $_[0] disconnected',
-                               disc4 => 'No Channel or connection but orphan $_[0] disconnected',
-                               done => 'Done',
-                               dup => 'Sorry, this is a duplicate',
-                               dx1 => 'Frequency $_[0] not in band (see show/band); usage: DX [BY call] freq call comments',
-                               dx2 => 'Need a callsign; usage: DX [BY call] freq call comments',
-                               dx3 => 'The callsign or frequency is invalid',
-                               dx4 => 'The ip address ($_[0]) is invalid',
-                               dxcqs => 'DX CQ Zones enabled for $_[0]',
-                               dxcqu => 'DX CQ Zones disabled for $_[0]',
-                               dxitus => 'DX ITU Zones enabled for $_[0]',
-                               dxituu => 'DX ITU Zones disabled for $_[0]',
-                               dxs => 'DX Spots enabled for $_[0]',
-                               dxu => 'DX Spots disabled for $_[0]',
-                               e1 => 'Invalid command',
-                               e2 => 'Error: $_[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',
-                               e11 => 'Can\'t use $_[0] as target',
-                               e12 => 'Need a node callsign',
-                               e13 => '$_[0] is not a node',
-                               e14 => 'First argument must be numeric and > 0',
-                               e15 => 'invalid qualifier \"$_[0]\"',
-                               e16 => 'File \"$_[0]\" exists',
-                               e17 => 'Please don\'t use the words: @_ on here',
-                               e18 => 'Cannot connect to $_[0] ($!)',
-                               e19 => 'Invalid character(s) in line $_[0]',
-                               e20 => qq{token '$_[0]' not recognised},
-                               e21 => '$_[0] is not numeric',
-                               e22 => '$_[0] is not a callsign',
-                               e23 => '$_[0] is not a range (eg 0/30000)',
-                               e24 => 'Sorry, Internet access is not enabled',
-                               e25 => 'Sorry the value must be between $_[0] and $_[1]',
-                               e26 => 'Too many concurrent errors, you are being disconnected',
-                               e27 => '$_[0] not a numeric or a callsign prefix', 
-                               e28 => 'Sorry, you need to be registered (SP $main::myalias to register)',
-                               e29 => 'Need a password',
-                               e30 => 'Cannot Open $_[0] $!',
-                               e31 => '$_[0] is not a user', 
-                               e32 => 'Need a passphrase',
-                               e33 => '$_[0] is not a number of days or a valid date',
-                               e34 => 'Need a GROUP and some text',
-                               e35 => 'You are not a member of $_[0], join $_[0]',
-                               e36 => 'You can only do this in normal user prompt state',
-                               e37 => 'Need at least a callsign',
-                               e38 => 'This is not a valid regex',
-                               e39 => 'Sorry $_[0] is not a valid argument',
 
-                               echoon => 'Echoing enabled',
-                               echooff => 'Echoing disabled',
-                               echow => '*Echoing is currently disabled, set/echo to enable',
-                               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]',
-                               export1 => 'usage: export <msgno> <filename>',
-                               export2 => '$_[3] has error exporting msg $_[0] to $_[1] ($_[2])',
-                               export3 => '$_[2 ] exported msg $_[0] to $_[1]',
-                               filter1 => 'Filter $_[0] updated for $_[1]',
-                               filter2 => 'Unknown filter keyword $_[0]',
-                               filter3 => 'No filters defined for $_[0]',
-                               filter4 => '$_[0]$_[1] Filter $_[2] deleted for $_[3]',
-                               filter5 => 'need some filter commands...',
-                               filter6 => '$_[0]$_[1] Filter for $[2] not found',
-                               filter7 => '$_[0] parse error $_[1] on $_[2]', 
-                               grayline1 => '                                                 Beg of               End of',
-                               grayline2 => 'Location                              dd/mm/yyyy Dawn   Rise   Set    Dusk',
-                               grids => 'DX Grid enabled for $_[0]',
-                               gridu => 'DX Grid disabled for $_[0]',
-                               gtks => 'GTK output enabled for $_[0]',
-                               gtku => 'GTK output disabled for $_[0]',
-                               illcall => 'Sorry, $_[0] is an invalid callsign',
-                               hasha => '$_[0] already exists in $_[1]',
-                               hashb => '$_[0] added to $_[1]',
-                               hashc => '$_[0] removed from $_[1]',
-                               hashd => '$_[0] not in $_[1]', 
-                               hashe => '$_[0] set on $_[1]', 
-                               heading => 'Heading',
-                               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]',
-                               homenode2 => 'Home Node',
-                               hnodee1 => 'Please enter your Home Node, set/homenode <your home DX Cluster>',
-                               hnodee2 => 'Failed to set homenode on $_[0]',
-                               hnode => 'Your Homenode is now \"$_[0]\"',
-                               init1 => 'sent initialisation message to $_[0]',
-                               iso => '$_[0] Isolated',
-                               isou => '$_[0] UnIsolated',
-                               isoc => '$_[0] created and Isolated',
-                               isoari => 'there is an input route filter for $_[0]; clear/route input $_[0] first',
-                               isoaro => 'there is an output route filter for $_[0]; clear/route $_[0] first',
-                               isow => '$_[0] is isolated; unset/isolate $_[0] first',
-                               join => 'joining group $_[0]',
-                               l1 => 'Sorry $_[0], you are already logged on on another channel',
-                               l2 => 'Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
-                               lang => 'Language is now English',
-                               lange1 => 'set/language <lang> where <lang> is one of ($_[0])',
-                               lange2 => 'failed to set language on $_[0]', 
-                               lastconn => 'Last connect',
-                               leave => 'leaving group $_[0]',
-                               lgset => 'Added $_[0] to the local node group',
-                               lgunset => 'Removed $_[0] from the local node group',
-                               lh1 => '$main::data/hop_table.pl doesn\'t exist',
-                               local1 => 'Local',
-                               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)',
-                               loce3 => '$_[0] is a QRA locator, please use: set/qra $_[0]',
-                               loc => 'Your Lat/Long is now \"$_[0]\"',
-                               location => 'Location',
-                               lockout => '$_[0] Locked out',
-                               lockoutc => '$_[0] Created and Locked out',
-                               lockoutun => '$_[0] Unlocked',
-                               lockoutuse => 'usage: sh/lockout <call>|ALL',
-                               loginb => 'Buddy $_[0] has logged in',
-                               loginbn => 'Buddy $_[0] has logged in at $_[1]',
-                               logoutb => 'Buddy $_[0] has logged out',
-                               logoutbn => 'Buddy $_[0] has logged out from $_[1]',
-                               loginu => 'User $_[0] has logged in',
-                               logoutu => 'User $_[0] has logged out',
-                               loginn => 'Node $_[0] has logged in',
-                               logoutn => 'Node $_[0] has logged out',
-                               m1 => 'Enter Subject (30 characters):',
-                               m2 => 'Copy of msg $_[0] sent to $_[1]',
-                               m3 => 'Sorry, $_[0] is an unacceptable TO address',
-                               m4 => 'Sorry, can\'t access message $_[0]',
-                               m5 => 'Sorry, I need a message number', 
-                               m6 => 'Reply to: $_[0]',
-                               m7 => 'Subject : $_[0]',
-                               m8 => 'Enter lines of text, /EX to send or /ABORT to exit',
-                               m9 => 'New mail has arrived for you',
-                               m10 => 'Message/Script Aborted',
-                               m11 => 'Message no $_[0] saved and directed to $_[1]',
-                               m12 => 'Message no $_[0] deleted',
-                               m13 => 'Message no $_[0] missing',
-                               m14 => 'Message no $_[0] marked as sent to $_[1]',
-                               m15 => 'Message no $_[0] unmarked as sent to $_[1]',
-                               m16 => 'Need a Message number',
-                               m17 => 'Sorry, cannot send messages in $_[0] mode',
-                               m18 => 'Sorry, message $_[0] is currently set to KEEP',
-                               m19 => 'Startup Script for $_[0] saved, $_[1] lines',
-                               m20 => 'Startup Script for $_[0] deleted',
-                               m21 => '$_[0] Working...',
-                               m22 => 'Startup Script for $_[0] not found/error $!',
-                               maxconnect => 'Max connections on $_[0] set to $_[1]',
-                               msg1 => 'Bulletin Messages Queued',
-                               msg2 => 'Private Messages Queued',
-                               msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]',
-                               msgu => 'usage: msg <cmd> <msgno> data...',
-                               merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
-                               moon => 'Location                              dd/mm/yyyy Rise   Set',
-                               moon_with_azel => 'Location                              dd/mm/yyyy Rise   Set      Azim   Elev',
-                               mond => 'Monitoring Disabled',
-                               mone => 'Monitoring Enabled',
-                               name1 => 'Name',
-                               namee1 => 'Please enter your name, set/name <your name>',
-                               namee2 => 'Can\'t find user $_[0]!',
-                               name => 'Your name is now \"$_[0]\"',
-                               nodea => '$_[0] set as AK1A style Node',
-                               nodeac => '$_[0] created as AK1A style Node',
-                               nodeb => '$_[0] set as BBS',
-                               nodebc => '$_[0] created as BBS',
-                               nodec => '$_[0] set as CLX style Node',
-                               nodecc => '$_[0] created as CLX style Node',
-                               noder => '$_[0] set as AR-Cluster style Node',
-                               noderc => '$_[0] created as AR-Cluster style Node',
-                               nodes => '$_[0] set as DXSpider style Node',
-                               nodesc => '$_[0] created as DXSpider style Node',
-                               noden => '$_[0] set as RBN Feed ',
-                               nodenc => '$_[0] created as RBN Feed',
-                               nodex => '$_[0] set as DXNET style Node',
-                               nodexc => '$_[0] created as DXNET style Node',
-                               nodeu => '$_[0] set back as a User',
-                               nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line',
-                               notdone => 'NOT Done',
-                               nothere => 'Sorry, but $_[0] isn\'t here at the moment, please try later', 
-                               obscount => 'Ping obsolescence count on $_[0] set to $_[1]',
-                               ok => 'Operation successful',
-                               outconn => 'Outstanding connect to $_[0]',
-                               page => 'Press Enter to continue, A to abort ($_[0] lines) >',
-                               pagelth => 'Page Length is now $_[0] lines',
-                               pagewidth => 'Page width is now $_[0] columns',
-                               passerr => 'Please use: SET/PASS <password> <callsign>',
-                               passphrase => 'Passphrase set or changed for $_[0]',
-                               passphraseu => 'Passphrase removed for $_[0]',
-                               password => 'Password set or changed for $_[0]',
-                               passwordu => 'Password removed for $_[0]',
-                               pc90s => 'PC90 enabled for $_[0]',
-                               pc90u => 'PC90 disabled $_[0]',
-                               pingo => 'Ping Started to $_[0]',
-                               pingi => 'Ping Returned from $_[0] $_[1] (Ave $_[2]) secs',
-                               pinge1 => 'Cannot ping yourself!',
-                               pingint => 'Ping interval on $_[0] set to $_[1] secs',
-                               'pos' => 'From Callsign: $_[0] Lat: $_[1] Long: $_[2]',
-                                pr => '%C de %M %D %T dxspider >',
-                               prs => 'Prompt is changed',
-                               pru => 'Prompt now set back to default',
-                               priv => 'Privilege level changed on $_[0]',
-                               prx => '$main::mycall >',
-                               pw0 => 'Enter old password: ',
-                               pw1 => 'Enter new password: ',
-                               pw2 => 'Re-enter new password: ',
-                               pw3 => 'Password changed',
-                               pw4 => 'Passwords differ, password NOT changed',
-                               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]\"',
+                               addr => q{Address set to: $_[0]},
+                               agwe => q{AGW Engine enabled},
+                               agwu => q{AGW Engine disabled},
+                               already => q{$_[0] already connected},
+                               anns => q{Announces enabled for $_[0]},
+                               annu => q{Announces disabled for $_[0]},
+                               annts => q{AnnTalk enabled for $_[0]},
+                               anntu => q{AnnTalk disabled for $_[0]},
+                               at => q{at},
+                               badnode1 => q{$_[0] is now a bad node},
+                               badnode2 => q{$_[0] is now a good node},
+                               badnode3 => q{List of Bad Nodes:-},
+                               bbse1 => q{Please enter your BBS address,, set/bbs <your bbs address>},
+                               bbs => q{Your BBS Address is now "$_[0]"},
+                               beepoff => q{Beeps are now off},
+                               beepon => q{Beeps are now on},
+                               believes => q{Believe node $_[0] via $_[1]},
+                               believeu => q{Don't believe node $_[0] via $_[1]'},
+                               buddya => q{$_[0] has been added to your buddies},
+                               buddyu => q{$_[0] has been removed from your buddies},
+                               call1 => q{Callsign lookup via $_[0]:},
+                               chatend => q{Finished chatting on $_[0]},
+                               chatinst => q{Entering Chatmode on $_[0], /EX to end, /<cmd> to run a command},
+                               chatprompt => q{Chat ($_[0])>},
+                               chattoomany => q{Not allowed, already in $_[1], use /chat $_[0]},
+                               cluster => q{Nodes: $_[0]/$_[1] Users [Loc/Clr]: $_[2]/$_[3] Max: $_[4]/$_[5] - Uptime: $_[6]},
+                               conother => q{Sorry $_[0] you are connected to me on another port},
+                               concluster => q{Sorry $_[0] you are already connected elsewhere on the cluster (on $_[1])},
+                               contomany => q{Sorry $_[0] but you are already connected to $_[1] other nodes (on $_[2])},
+                               conscript => q{no connect script called "$_[0]" found in $main::root/connect},
+                               confail => q{connection to $_[0] failed ($_[1])},
+                               constart => q{connection to $_[0] started},
+                               conbump => q{Reconnected as $_[0] at $_[1], this instance is disconnected},
+                               creuser => q{User $_[0] has been created},
+                               deluser => q{User $_[0] has been deleted},
+                               db1 => q{This database is hosted at $_[0]},
+                               db2 => q{Sorry, but key: $_[0] was not found in $_[1]},
+                               db3 => q{Sorry, database $_[0] doesn't exist here},
+                               db4 => q{Sorry, database $_[0] located at $_[1] isn't currently online},
+                               db5 => q{Accessing remote database on $_[0]...standby...},
+                               db6 => q{Database $_[0] already exists, delete it first},
+                               db7 => q{Database $_[0] created for remote node $_[1]},
+                               db8 => q{Database $_[0] created locally},
+                               db9 => q{Database $_[0] removed},
+                               db10 => q{$_[0] records imported from $_[1] to $_[2]},
+                               db11 => q{Sending your request(s) to $_[0], please stand by...},
+                               db12 => q{DB Name          Location   Cmd             Chain},
+                               db13 => q{$_[0] records exported from $_[1] to $_[2]},
+                               dfreq1 => q{Invalid freq $_[0] need: eg 0/30000 or hf or hf/cw'},
+                               dir1 => q{No messages found},
+                               disc1 => q{Disconnected by $_[0]},
+                               disc2 => q{Channel $_[0] disconnected},
+                               disc3 => q{No Channel, but connection $_[0] disconnected},
+                               disc4 => q{No Channel or connection but orphan $_[0] disconnected},
+                               done => q{Done},
+                               dup => q{Sorry, this is a duplicate},
+                               dx1 => q{Frequency $_[0] not in band (see show/band); usage: DX [BY call] freq call comments},
+                               dx2 => q{Need a callsign; usage: DX [BY call] freq call comments},
+                               dx3 => q{The callsign or frequency is invalid},
+                               dx4 => q{The ip address ($_[0]) is invalid},
+                               dxcqs => q{DX CQ Zones enabled for $_[0]},
+                               dxcqu => q{DX CQ Zones disabled for $_[0]},
+                               dxitus => q{DX ITU Zones enabled for $_[0]},
+                               dxituu => q{DX ITU Zones disabled for $_[0]},
+                               dxs => q{DX Spots enabled for $_[0]},
+                               dxu => q{DX Spots disabled for $_[0]},
+                               e1 => q{Invalid command},
+                               e2 => q{Error: $_[0]},
+                               e3 => q{$_[0]: $_[1] not found},
+                               e4 => q{Need at least a prefix or callsign},
+                               e5 => q{Not Allowed},
+                               e6 => q{*** No station specified ***},
+                               e7 => q{callsign $_[0] not visible on the cluster},
+                               e8 => q{Need a callsign and some text},
+                               e9 => q{Need at least some text},
+                               e10 => q{$_[0] not connected locally},
+                               e11 => q{Can't use $_[0] as target},
+                               e12 => q{Need a node callsign},
+                               e13 => q{$_[0] is not a node},
+                               e14 => q{First argument must be numeric and > 0},
+                               e15 => q{invalid qualifier "$_[0]"},
+                               e16 => q{File "$_[0]" exists},
+                               e17 => q{Please don't use the words: @_ on here},
+                               e18 => q{Cannot connect to $_[0] ($!)},
+                               e19 => q{Invalid character(s) in line $_[0]},
+                               e20 => q{token '$_[0]' not recognised},
+                               e21 => q{$_[0] is not numeric},
+                               e22 => q{$_[0] is not a callsign},
+                               e23 => q{$_[0] is not a range (eg 0/30000)},
+                               e24 => q{Sorry, Internet access is not enabled},
+                               e25 => q{Sorry the value must be between $_[0] and $_[1]},
+                               e26 => q{Too many concurrent errors, you are being disconnected},
+                               e27 => q{$_[0] not a numeric or a callsign prefix'},
+                               e28 => q{Sorry, you need to be registered (SP $main::myalias to register)},
+                               e29 => q{Need a password},
+                               e30 => q{Cannot Open $_[0] $!},
+                               e31 => q{$_[0] is not a user'},
+                               e32 => q{Need a passphrase},
+                               e33 => q{$_[0] is not a number of days or a valid date},
+                               e34 => q{Need a GROUP and some text},
+                               e35 => q{You are not a member of $_[0], join $_[0]},
+                               e36 => q{You can only do this in normal user prompt state},
+                               e37 => q{Need at least a callsign},
+                               e38 => q{This is not a valid regex},
+                               e39 => q{Sorry $_[0] is not a valid argument},
+
+                               echoon => q{Echoing enabled},
+                               echooff => q{Echoing disabled},
+                               echow => q{*Echoing is currently disabled, set/echo to enable},
+                               emaile1 => q{Please enter your email address, set/email <your e-mail address>},
+                               emaila => q{Your E-Mail Address is now "$_[0]"},
+                               email => q{E-mail address set to: $_[0]},
+                               export1 => q{usage: export <msgno> <filename>},
+                               export2 => q{$_[3] has error exporting msg $_[0] to $_[1] ($_[2])},
+                               export3 => q{$_[2 ] exported msg $_[0] to $_[1]},
+                               filter1 => q{Filter $_[0] updated for $_[1]},
+                               filter2 => q{Unknown filter keyword $_[0]},
+                               filter3 => q{No filters defined for $_[0]},
+                               filter4 => q{$_[0]$_[1] Filter $_[2] deleted for $_[3]},
+                               filter5 => q{need some filter commands...},
+                               filter6 => q{$_[0]$_[1] Filter for $[2] not found},
+                               filter7 => q{$_[0] parse error $_[1] on $_[2]'},
+                               grayline1 => q{                                                 Beg of               End of},
+                               grayline2 => q{Location                              dd/mm/yyyy Dawn   Rise   Set    Dusk},
+                               grids => q{DX Grid enabled for $_[0]},
+                               gridu => q{DX Grid disabled for $_[0]},
+                               gtks => q{GTK output enabled for $_[0]},
+                               gtku => q{GTK output disabled for $_[0]},
+                               illcall => q{Sorry, $_[0] is an invalid callsign},
+                               hasha => q{$_[0] already exists in $_[1]},
+                               hashb => q{$_[0] added to $_[1]},
+                               hashc => q{$_[0] removed from $_[1]},
+                               hashd => q{$_[0] not in $_[1]'},
+                               hashe => q{$_[0] set on $_[1]'},
+                               heading => q{Heading},
+                               helpe1 => q{Help system unavailable, tell sysop},
+                               helpe2 => q{No help available on $_[0]},
+                               heres => q{Here set on $_[0]},
+                               heade1 => q{Using $main::mycall Coords, consider doing a set/location or set/qra},
+                               hereu => q{Here unset on $_[0]},
+                               homebbs => q{Home BBS set to: $_[0]},
+                               homenode => q{Home Node set to: $_[0]},
+                               homenode2 => q{Home Node},
+                               hnodee1 => q{Please enter your Home Node, set/homenode <your home DX Cluster>},
+                               hnodee2 => q{Failed to set homenode on $_[0]},
+                               hnode => q{Your Homenode is now "$_[0]"},
+                               init1 => q{sent initialisation message to $_[0]},
+                               iso => q{$_[0] Isolated},
+                               isou => q{$_[0] UnIsolated},
+                               isoc => q{$_[0] created and Isolated},
+                               isoari => q{there is an input route filter for $_[0]; clear/route input $_[0] first},
+                               isoaro => q{there is an output route filter for $_[0]; clear/route $_[0] first},
+                               isow => q{$_[0] is isolated; unset/isolate $_[0] first},
+                               join => q{joining group $_[0]},
+                               l1 => q{Sorry $_[0], you are already logged on on another channel},
+                               l2 => q{Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build},
+                               lang => q{Language is now English},
+                               lange1 => q{set/language <lang> where <lang> is one of ($_[0])},
+                               lange2 => q{failed to set language on $_[0]'},
+                               lastconn => q{Last connect},
+                               leave => q{leaving group $_[0]},
+                               lgset => q{Added $_[0] to the local node group},
+                               lgunset => q{Removed $_[0] from the local node group},
+                               lh1 => q{$main::data/hop_table.pl doesn't exist},
+                               local1 => q{Local},
+                               loce1 => q{Please enter your location,, set/location <latitude longitude>},
+                               loce2 => q{Cannot recognise "$_[0]" as a Lat/Long (eg 52 20 N 0 16 E)},
+                               loce3 => q{$_[0] is a QRA locator, please use: set/qra $_[0]},
+                               loc => q{Your Lat/Long is now "$_[0]"},
+                               location => q{Location},
+                               lockout => q{$_[0] Locked out},
+                               lockoutc => q{$_[0] Created and Locked out},
+                               lockoutun => q{$_[0] Unlocked},
+                               lockoutuse => q{usage: sh/lockout <call>|ALL},
+                               loginb => q{Buddy $_[0] has logged in},
+                               loginbn => q{Buddy $_[0] has logged in at $_[1]},
+                               logoutb => q{Buddy $_[0] has logged out},
+                               logoutbn => q{Buddy $_[0] has logged out from $_[1]},
+                               loginu => q{User $_[0] has logged in},
+                               logoutu => q{User $_[0] has logged out},
+                               loginn => q{Node $_[0] has logged in},
+                               logoutn => q{Node $_[0] has logged out},
+                               m1 => q{Enter Subject (30 characters):},
+                               m2 => q{Copy of msg $_[0] sent to $_[1]},
+                               m3 => q{Sorry, $_[0] is an unacceptable TO address},
+                               m4 => q{Sorry, can't access message $_[0]},
+                               m5 => q{Sorry, I need a message number'},
+                               m6 => q{Reply to: $_[0]},
+                               m7 => q{Subject : $_[0]},
+                               m8 => q{Enter lines of text, /EX to send or /ABORT to exit},
+                               m9 => q{New mail has arrived for you},
+                               m10 => q{Message/Script Aborted},
+                               m11 => q{Message no $_[0] saved and directed to $_[1]},
+                               m12 => q{Message no $_[0] deleted},
+                               m13 => q{Message no $_[0] missing},
+                               m14 => q{Message no $_[0] marked as sent to $_[1]},
+                               m15 => q{Message no $_[0] unmarked as sent to $_[1]},
+                               m16 => q{Need a Message number},
+                               m17 => q{Sorry, cannot send messages in $_[0] mode},
+                               m18 => q{Sorry, message $_[0] is currently set to KEEP},
+                               m19 => q{Startup Script for $_[0] saved, $_[1] lines},
+                               m20 => q{Startup Script for $_[0] deleted},
+                               m21 => q{$_[0] Working...},
+                               m22 => q{Startup Script for $_[0] not found/error $!},
+                               maxconnect => q{Max connections on $_[0] set to $_[1]},
+                               msg1 => q{Bulletin Messages Queued},
+                               msg2 => q{Private Messages Queued},
+                               msg3 => q{Msg $_[0]: $_[1] changed from $_[2] to $_[3]},
+                               msgu => q{usage: msg <cmd> <msgno> data...},
+                               merge1 => q{Merge request for $_[1] spots and $_[2] WWV sent to $_[0]},
+                               moon => q{Location                              dd/mm/yyyy Rise   Set},
+                               moon_with_azel => q{Location                              dd/mm/yyyy Rise   Set      Azim   Elev},
+                               mond => q{Monitoring Disabled},
+                               mone => q{Monitoring Enabled},
+                               name1 => q{Name},
+                               namee1 => q{Please enter your name, set/name <your name>},
+                               namee2 => q{Can't find user $_[0]!},
+                               name => q{Your name is now "$_[0]"},
+                               nodea => q{$_[0] set as AK1A style Node},
+                               nodeac => q{$_[0] created as AK1A style Node},
+                               nodeb => q{$_[0] set as BBS},
+                               nodebc => q{$_[0] created as BBS},
+                               nodec => q{$_[0] set as CLX style Node},
+                               nodecc => q{$_[0] created as CLX style Node},
+                               noder => q{$_[0] set as AR-Cluster style Node},
+                               noderc => q{$_[0] created as AR-Cluster style Node},
+                               nodes => q{$_[0] set as DXSpider style Node},
+                               nodesc => q{$_[0] created as DXSpider style Node},
+                               noden => q{$_[0] set as RBN Feed },
+                               nodenc => q{$_[0] created as RBN Feed},
+                               nodex => q{$_[0] set as DXNET style Node},
+                               nodexc => q{$_[0] created as DXNET style Node},
+                               nodeu => q{$_[0] set back as a User},
+                               nodee1 => q{You cannot use this command whilst your target ($_[0]) is on-line},
+                               notdone => q{NOT Done},
+                               nothere => q{Sorry, but $_[0] isn't here at the moment, please try later'},
+                               obscount => q{Ping obsolescence count on $_[0] set to $_[1]},
+                               ok => q{Operation successful},
+                               outconn => q{Outstanding connect to $_[0]},
+                               page => q{Press Enter to continue, A to abort ($_[0] lines) >},
+                               pagelth => q{Page Length is now $_[0] lines},
+                               pagewidth => q{Page width is now $_[0] columns},
+                               passerr => q{Please use: SET/PASS <password> <callsign>},
+                               passphrase => q{Passphrase set or changed for $_[0]},
+                               passphraseu => q{Passphrase removed for $_[0]},
+                               password => q{Password set or changed for $_[0]},
+                               passwordu => q{Password removed for $_[0]},
+                               pc90s => q{PC90 enabled for $_[0]},
+                               pc90u => q{PC90 disabled $_[0]},
+                               pingo => q{Ping Started to $_[0]},
+                               pingi => q{Ping Returned from $_[0] $_[1] (Ave $_[2]) secs},
+                               pinge1 => q{Cannot ping yourself!},
+                               pingint => q{Ping interval on $_[0] set to $_[1] secs},
+                               'pos' => q{From Callsign: $_[0] Lat: $_[1] Long: $_[2]},
+                               pr => q{%C de %M %D %T dxspider >},
+                               prs => q{Prompt is changed},
+                               pru => q{Prompt now set back to default},
+                               priv => q{Privilege level changed on $_[0]},
+                               prx => q{$main::mycall >},
+                               pw0 => q{Enter old password: },
+                               pw1 => q{Enter new password: },
+                               pw2 => q{Re-enter new password: },
+                               pw3 => q{Password changed},
+                               pw4 => q{Passwords differ, password NOT changed},
+                               qll => q{Please enter your location with set/location or set/qra},
+                               qthe1 => q{Please enter your QTH, set/qth <your qth>},
+                               qth => q{Your QTH is now "$_[0]"},
+                               qrae1 => q{Please enter your QRA locator, set/qra <qra locator> (eg set/qra JO02LQ)},
+                               qrashe1 => q{Please enter a QRA locator, eg sh/qra JO02LQ or sh/qra JO02LQ IO93NS},
+                               qrae2 => q{Cannot recognise "$_[0]" as a QRA locator (eg JO02LQ)},
+                               qra => q{Your QRA Locator is now "$_[0]"},
                                rbnusers => qq{RBN User List},
-                               qsl1 => 'Call           Manager   Times  Last Time Seen      De',
-                               rcmdo => 'RCMD \"$_[0]\" sent to $_[1]',
-                               read1 => 'Sorry, no new messages for you',
-                               read2 => 'Msg $_[0] not found',
-                               read3 => 'Msg $_[0] not available',
-                               rec => '$_[0] records',
-                               reg => '$_[0] registered',
-                               regc => '$_[0] created and registered',
-                               reginac => 'Registration is not active (set/var \$main::reqreg = 1 to activate)',
-                               regun => '$_[0] unregistered',
-                               route => '$_[0] on $_[1] via $_[2]',
-                               sat1 => 'Tracking Table for $_[0] for the next $_[1] hours every $_[2] mins',
-                               sat2 => 'dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km',
-                               sat3 => 'Syntax: SH/SAT <name> [<hours> <interval>]',
-                               sat4 => 'Satellites available/Age of Keps (days):-',
-                               sat5 => 'need nnnnn.AMSAT in subject to load keps from this message',
-                               satnf => 'Satellite $_[0] unknown',
-                               satdisc => '-----',
-                               set => '$_[0] enabled for $_[1]',
-                               sethop1 => 'usage: set/hops <call> ann|spots|wwv|wcy <no of hops>',
-                               sethop2 => '$_[0] hops set on $_[1]$_[2] for $_[3]', 
-                               sethop3 => 'No hops set for $_[0]', 
-                               showconf => 'Node         Callsigns',
-                               shu => '\"SHU\" is not enough! you need to type at least \"SHUT\" to shutdown the node',
-                               shutting => '$main::mycall shutting down...',
-                               skims => 'RBN/Skimming set to $_[1] for $_[0]',
-                               sloc => 'Cluster lat $_[0] long $_[1], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
-                               snode1 => 'Node Call   Sort    Version',
-                               snode2 => '$_[0] $_[1]  $_[2]',
-                               snode3 => '$_[0] Unknown Call',
-                               sqra => 'Cluster QRA Locator$_[0], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
-                               sorry => 'Sorry',
-                               spf1 => 'spoof: creating new user $_[0]',
-                               stathf => 'HF DX Spot Stats, last $_[1] days from $_[0]',
-                               stathft => 'HF DX Spot Stats, last $_[2] days from $_[1] for DXCC $_[0]',
-                               statvhf => 'VHF+ DX Spot Stats, last $_[1] days from $_[0]',
-                               statvhft => 'VHF+ DX Spot Stats, last $_[2] days from $_[1] for DXCC $_[0]',
-                               statdx => 'Total DX Spots for $_[1] days from $_[0]',
-                               storable => 'Please load the Storable module from CPAN', 
-                               sun => 'Location                              dd/mm/yyyy Rise   Set',
-                               sun_with_azel => 'Location                              dd/mm/yyyy Rise   Set      Azim   Elev',
-                               susdb1 => 'usage: callsign state city',
-                               susdb2 => 'USDB $_[0] was $_[1], $_[2]',
-                               susdb3 => 'USDB $_[0] now $_[1], $_[2]',
-                               susdb4 => 'USDB $_[0] deleted',
-                               suser1 => 'usage: callsign user_field_name value',
-                               suser2 => 'User $_[0] not found',
-                               suser3 => 'User field \'$_[0]\' was \'$_[1]\' now set to \'$_[2]\'',
-                               suser4 => 'User field name \'$_[0]\' doesn\'t exist',
-                               time1 => 'Local Time: $_[0] $_[1], UTC $_[2]',
-                               time2 => '$_[0] Local (standard) time: $_[1] ($_[2] Hours)',
-                               time3 => '$_[0]  $_[1]',
-                               talks => 'Talk enabled for $_[0]',
-                               talku => 'Talk disabled for $_[0]',
-                               talkend => 'Finished talking to you',
-                               talkinst => 'Entering Talkmode, /EX to end, /<cmd> to run a command',
-                               talknh => 'Sorry $_[0] is not online at the moment',
-                               talkprompt => 'Talk ($_[0])>',
-                               talkstart => 'Starting talking to you',
-                               unset => '$_[0] disabled for $_[1]',
-                               unsethop1 => 'usage: unset/hops <call> ann|spots|wwv|wcy',
-                               unsethop2 => 'hops unset on $_[1] for $_[0]', 
-                               user => 'User',
-                               userconn => 'Callsigns connected to',
-                               usernf => '*** User record for $_[0] not found ***',
-                               usstates => 'US State display enabled for $_[0]',
-                               usstateu => 'US State display disabled for $_[0]',
-                               wante => 'Want $_[0] enabled for $_[1]',
-                               wantd => 'Want $_[0] disabled for $_[1]',
-                               wcy1 => '$_[0] is missing or out of range',
-                               wcy2 => 'Duplicate WCY',
-                               wcy3 => 'Date        Hour   SFI   A   K Exp.K   R SA    GMF   Aurora   Logger',
-                         wcys => 'WCY enabled for $_[0]',
-                               wcyu => 'WCY disabled for $_[0]',
-                               wpc16s => 'Allow PC16 from $_[0] enabled',
-                               wpc16u => 'Allow PC16 from $_[0] disabled',
-                               wpc19s => 'Route PC19 for $_[0] enabled',
-                               wpc19u => 'Route PC19 for $_[0] disabled',
-                               wpc9xs => 'PC9X for $_[0] enabled',
-                               wpc9xu => 'PC9X for $_[0] disabled',
-                               wwv1 => '$_[0] is missing or out of range',
-                               wwv2 => 'Duplicate WWV',
-                               wwv3 => 'Date        Hour   SFI   A   K Forecast                              Logger',
-                               wwvs => 'WWV enabled for $_[0]',
-                               wwvu => 'WWV disabled $_[0]',
-                               wxs => 'WX enabled for $_[0]',
-                               wxu => 'WX disabled for $_[0]',
+                               qsl1 => q{Call           Manager   Times  Last Time Seen      De},
+                               rcmdo => q{RCMD "$_[0]" sent to $_[1]},
+                               read1 => q{Sorry, no new messages for you},
+                               read2 => q{Msg $_[0] not found},
+                               read3 => q{Msg $_[0] not available},
+                               rec => q{$_[0] records},
+                               reg => q{$_[0] registered},
+                               regc => q{$_[0] created and registered},
+                               reginac => q{Registration is not active (set/var $main::reqreg = 1 to activate)},
+                               regun => q{$_[0] unregistered},
+                               route => q{$_[0] on $_[1] via $_[2]},
+                               sat1 => q{Tracking Table for $_[0] for the next $_[1] hours every $_[2] mins},
+                               sat2 => q{dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km},
+                               sat3 => q{Syntax: SH/SAT <name> [<hours> <interval>]},
+                               sat4 => q{Satellites available/Age of Keps (days):-},
+                               sat5 => q{need nnnnn.AMSAT in subject to load keps from this message},
+                               satnf => q{Satellite $_[0] unknown},
+                               satdisc => q{-----},
+                               set => q{$_[0] enabled for $_[1]},
+                               sethop1 => q{usage: set/hops <call> ann|spots|wwv|wcy <no of hops>},
+                               sethop2 => q{$_[0] hops set on $_[1]$_[2] for $_[3]'},
+                               sethop3 => q{No hops set for $_[0]'},
+                               showconf => q{Node         Callsigns},
+                               shu => q{"SHU" is not enough! you need to type at least "SHUT" to shutdown the node},
+                               shutting => q{$main::mycall shutting down...},
+                               skims => q{RBN/Skimming set to $_[1] for $_[0]},
+                               sloc => q{Cluster lat $_[0] long $_[1], DON'T FORGET TO CHANGE YOUR DXVars.pm},
+                               snode1 => q{Node Call   Sort    Version},
+                               snode2 => q{$_[0] $_[1]  $_[2]},
+                               snode3 => q{$_[0] Unknown Call},
+                               sqra => q{Cluster QRA Locator$_[0], DON'T FORGET TO CHANGE YOUR DXVars.pm},
+                               sorry => q{Sorry},
+                               spf1 => q{spoof: creating new user $_[0]},
+                               stathf => q{HF DX Spot Stats, last $_[1] days from $_[0]},
+                               stathft => q{HF DX Spot Stats, last $_[2] days from $_[1] for DXCC $_[0]},
+                               statvhf => q{VHF+ DX Spot Stats, last $_[1] days from $_[0]},
+                               statvhft => q{VHF+ DX Spot Stats, last $_[2] days from $_[1] for DXCC $_[0]},
+                               statdx => q{Total DX Spots for $_[1] days from $_[0]},
+                               storable => q{Please load the Storable module from CPAN'},
+                               sun => q{Location                              dd/mm/yyyy Rise   Set},
+                               sun_with_azel => q{Location                              dd/mm/yyyy Rise   Set      Azim   Elev},
+                               susdb1 => q{usage: callsign state city},
+                               susdb2 => q{USDB $_[0] was $_[1], $_[2]},
+                               susdb3 => q{USDB $_[0] now $_[1], $_[2]},
+                               susdb4 => q{USDB $_[0] deleted},
+                               suser1 => q{usage: callsign user_field_name value},
+                               suser2 => q{User $_[0] not found},
+                               suser3 => q{User field '$_[0]' was '$_[1]' now set to '$_[2]'},
+                               suser4 => q{User field name '$_[0]' doesn't exist},
+                               time1 => q{Local Time: $_[0] $_[1], UTC $_[2]},
+                               time2 => q{$_[0] Local (standard) time: $_[1] ($_[2] Hours)},
+                               time3 => q{$_[0]  $_[1]},
+                               talks => q{Talk enabled for $_[0]},
+                               talku => q{Talk disabled for $_[0]},
+                               talkend => q{Finished talking to you},
+                               talkinst => q{Entering Talkmode, /EX to end, /<cmd> to run a command},
+                               talknh => q{Sorry $_[0] is not online at the moment},
+                               talkprompt => q{Talk ($_[0])>},
+                               talkstart => q{Starting talking to you},
+                               unset => q{$_[0] disabled for $_[1]},
+                               unsethop1 => q{usage: unset/hops <call> ann|spots|wwv|wcy},
+                               unsethop2 => q{hops unset on $_[1] for $_[0]'},
+                               user => q{User},
+                               userconn => q{Callsigns connected to},
+                               usernf => q{*** User record for $_[0] not found ***},
+                               usstates => q{US State display enabled for $_[0]},
+                               usstateu => q{US State display disabled for $_[0]},
+                               wante => q{Want $_[0] enabled for $_[1]},
+                               wantd => q{Want $_[0] disabled for $_[1]},
+                               wcy1 => q{$_[0] is missing or out of range},
+                               wcy2 => q{Duplicate WCY},
+                               wcy3 => q{Date        Hour   SFI   A   K Exp.K   R SA    GMF   Aurora   Logger},
+                               wcys => q{WCY enabled for $_[0]},
+                               wcyu => q{WCY disabled for $_[0]},
+                               wpc16s => q{Allow PC16 from $_[0] enabled},
+                               wpc16u => q{Allow PC16 from $_[0] disabled},
+                               wpc19s => q{Route PC19 for $_[0] enabled},
+                               wpc19u => q{Route PC19 for $_[0] disabled},
+                               wpc9xs => q{PC9X for $_[0] enabled},
+                               wpc9xu => q{PC9X for $_[0] disabled},
+                               wwv1 => q{$_[0] is missing or out of range},
+                               wwv2 => q{Duplicate WWV},
+                               wwv3 => q{Date        Hour   SFI   A   K Forecast                              Logger},
+                               wwvs => q{WWV enabled for $_[0]},
+                               wwvu => q{WWV disabled $_[0]},
+                               wxs => q{WX enabled for $_[0]},
+                               wxu => q{WX disabled for $_[0]},
                           },
                 nl => {
-                               addr => 'Addres gezet op: $_[0]',
-                               already => '$_[0] reeds geconnect',
-                               anns => 'Announce berichten AAN gezet voor $_[0]',
-                               annu => 'Announce berichten UIT gezet voor $_[0]',
-                               bbse1 => 'Geef je home bbs (mailbox),, set/bbs <home mailbox>',
-                               bbs => 'Je home bbs (mailbox) is nu \"$_[0]\"',
-                               beepoff => 'De beep staat nu UIT',
-                               beepon => 'De beep staat nu AAN',
-                               conother => 'Sorry $_[0] je bent reeds geconnect op een andere poort',
-                               concluster => 'Sorry $_[0] je bent reeds op een ander cluster geconnect',
-                               conscript => 'Geen connectscript aangeroepen \"$_[0]\" gevonden in $main::root/connect',
-                               confail => 'Verbinding met $_[0] mislukt ($_[1])',
-                               constart => 'Verbinding met $_[0] gestart',
-                               disc1 => 'Gedisconnect door $_[0]',
-                               disc2 => '$_[0] gedisconnect',
-                               dx1 => 'Frequentie $_[0] valt niet binnen een band [Opdracht: DX freq call commentaar](Zie sh/band)',
-                               dx2 => 'Ik heb een call nodig! [Opdracht: DX freq call commentaar]',
-                               dxs => 'DX Spots worden WEL doorgegeven aan $_[0]',
-                               dxu => 'DX Spots worden NIET doorgegeven aan $_[0]',
-                               e1 => 'Ongeldige opdracht',
-                               e2 => 'Fout: $_[0]',
-                               e3 => '$_[0]: $_[1] niet gevonden',
-                               e4 => 'Minimaal een prefix of een call nodig',
-                               e5 => 'Niet toegestaan',
-                               e6 => '*** Geen station gespecifiseerd ***',
-                               e7 => 'Callsign $_[0] is niet zichtbaar op het cluster',
-                               e8 => 'Ik heb een call en tekst nodig',
-                               e9 => 'Ik heb wel tekst nodig voor een announce!',
-                               e10 => '$_[0] is niet lokaal verbonden',
-                               e12 => 'Ik heb een node call nodig',
-                               e13 => '$_[0] is geen node',
-                               emaile1 => 'Geef uw E-mail addres, set/email <uw e-mail addres>',
-                               emaila => 'Uw E-Mail addres is nu \"$_[0]\"',
-                               email => 'E-mail addres gezet op: $_[0]',
-                               helpe1 => 'Help systeem niet beschikbaar, meld dit aan de sysop',
-                               helpe2 => 'Geen help beschikbaar over \"$_[0]\"',
-                               heres => 'Aanwezigheid AAN gezet voor $_[0]',
-                               heade1 => 'Gebruik gemaakt van de $main::mycall coordinaten, overweeg een set/location of set/qra',
-                               hereu => 'Aanwezigheid UIT gezet voor $_[0]',
-                               homebbs => 'Uw Home mailbox is nu $_[0]',
-                               homenode => 'Uw (Home) DX-Cluster is : $_[0]',
-                               hnodee1 => 'Geef mij uw lokale (home) DX-cluster, set/homenode <DX-cluster>',
-                               hnode => 'Uw (home) DX-cluster is nu \"$_[0]\"',
-                               iso => '$_[0] is geisoleerd (Isolated)',
-                               isou => '$_[0] is niet meer geisoleerd (UnIsolated)',
-                               isoc => '$_[0] gecreerd en geisoleerd (Isolated)',
-                               l1 => 'Sorry $_[0], u bent reeds op een ander kanaal ingelogt',
-                               l2 => 'Hallo $_[0], dit is $main::mycall in $main::myqth met DXSpider V$main::version',
-                               lang => 'De taal zijn nu Nederlandse',
-                               lh1 => '$main::data/hop_table.pl bestaat niet',
-                               loce1 => 'Geef uw coordinaten met, set/location <latitude longitude>',
-                               loce2 => 'Herken \"$_[0]\" niet als Lat/Long (vb 52 20 N 0 16 E)',
-                               loc => 'Uw Latitude en Longitude zijn nu \"$_[0]\"',
-                               lockout => '$_[0] heeft geen toegang meer (Locked out)',
-                               lockoutun => '$_[0] heeft wederom toegang (Unlocked)',
-                               m2 => '$_[0] Informatie: $_[1]',
-                               merge1 => 'Merge verzoek voor $_[1] spots en $_[2] WWV verzonden naar $_[0]',
-                               msgnew => 'Er is nieuwe post gearriveerd voor u',
-                               namee1 => 'Geef aub uw naam met, set/name <uw naam>',
-                               namee2 => 'Gebruiker $_[0] niet te vinden!',
-                               name => 'Uw naam is gezet op \"$_[0]\"',
-                               node => '$_[0] gezet als een AK1A stijl DX-cluster',
-                               nodeu => '$_[0] teruggezet naar gebruiker status',
-                               nodec => '$_[0] gecreeerd als AK1A stijl DX-cluster',
-                               nodee1 => 'U kunt deze opdracht niet uitvoeren zolang ($_[0]) on-line is',
-                               ok => 'Opdracht succesvol uitgevoerd',
-                               page => 'Druk op Enter om door te gaan, A om af te breken (nog $_[0] regels) >',
-                               pagelth => 'Paginalengte gezet op ($_[0]) regels',
-                               passerr => 'Gebruik: SET/PASS <wachtwoord> <call>',
-                               password => 'Wachtwoord gezet of gewijzigd voor $_[0]',
-                               pingo => 'Ping gestart naar $_[0]',
-                               pingi => 'Ping ontvangen van $_[0] $_[1] (Ave $_[2]) secs',
-                               priv => 'Privilege level gewijzigd op $_[0]',
-                               prx => '$main::mycall >',
-                               qll => 'Geef uw locator met set/location of set/qra',
-                               qthe1 => 'Geef uw woonplaats met, set/qth <woonplaats>',
-                               qth => 'Uw QTH is nu \"$_[0]\"',
-                               qrae1 => 'Geef uw QRA locator, set/qra <qra locator> (vb set/qra JO33FD)',
-                               qrashe1 => 'Geef uw QRA locator, vbg sh/qra JO33FD of sh/qra JO33FD IO93NS',
-                               qrae2 => 'Ik herken \"$_[0]\" niet als een QRA locator (vb JO33FD)',
-                               qra => 'Uw QRA Locator is nu \"$_[0]\"',
-                               rcmdo => 'RCMD \"$_[0]\" verzonden naar $_[1]',
-                               read1 => 'Sorry, geen berichten voor u',
-                               read2 => 'Bericht $_[0] niet gevonden',
-                               read3 => 'Bericht $_[0] niet beschikbaar',
-                               shutting => '$main::mycall gaat QRT...',
-                               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 berichten AAN gezet voor $_[0]',
-                               talku => 'Talk berichten UIT gezet voor $_[0]',
-                               usernf => '*** Gebruiker info van $_[0] niet gevonden ***',
-                               wwvs => 'WWV berichten AAN gezet voor $_[0]',
-                               wwvu => 'WWV berichten UIT gezet voor $_[0]',
-                               wxs => 'WX berichten AAN gezet voor $_[0]',
-                               wxu => 'WX berichten UIT gezet voor $_[0]',
+                               addr => q{Addres gezet op: $_[0]},
+                               already => q{$_[0] reeds geconnect},
+                               anns => q{Announce berichten AAN gezet voor $_[0]},
+                               annu => q{Announce berichten UIT gezet voor $_[0]},
+                               bbse1 => q{Geef je home bbs (mailbox),, set/bbs <home mailbox>},
+                               bbs => q{Je home bbs (mailbox) is nu "$_[0]"},
+                               beepoff => q{De beep staat nu UIT},
+                               beepon => q{De beep staat nu AAN},
+                               conother => q{Sorry $_[0] je bent reeds geconnect op een andere poort},
+                               concluster => q{Sorry $_[0] je bent reeds op een ander cluster geconnect},
+                               conscript => q{Geen connectscript aangeroepen "$_[0]" gevonden in $main::root/connect},
+                               confail => q{Verbinding met $_[0] mislukt ($_[1])},
+                               constart => q{Verbinding met $_[0] gestart},
+                               disc1 => q{Gedisconnect door $_[0]},
+                               disc2 => q{$_[0] gedisconnect},
+                               dx1 => q{Frequentie $_[0] valt niet binnen een band [Opdracht: DX freq call commentaar](Zie sh/band)},
+                               dx2 => q{Ik heb een call nodig! [Opdracht: DX freq call commentaar]},
+                               dxs => q{DX Spots worden WEL doorgegeven aan $_[0]},
+                               dxu => q{DX Spots worden NIET doorgegeven aan $_[0]},
+                               e1 => q{Ongeldige opdracht},
+                               e2 => q{Fout: $_[0]},
+                               e3 => q{$_[0]: $_[1] niet gevonden},
+                               e4 => q{Minimaal een prefix of een call nodig},
+                               e5 => q{Niet toegestaan},
+                               e6 => q{*** Geen station gespecifiseerd ***},
+                               e7 => q{Callsign $_[0] is niet zichtbaar op het cluster},
+                               e8 => q{Ik heb een call en tekst nodig},
+                               e9 => q{Ik heb wel tekst nodig voor een announce!},
+                               e10 => q{$_[0] is niet lokaal verbonden},
+                               e12 => q{Ik heb een node call nodig},
+                               e13 => q{$_[0] is geen node},
+                               emaile1 => q{Geef uw E-mail addres, set/email <uw e-mail addres>},
+                               emaila => q{Uw E-Mail addres is nu "$_[0]"},
+                               email => q{E-mail addres gezet op: $_[0]},
+                               helpe1 => q{Help systeem niet beschikbaar, meld dit aan de sysop},
+                               helpe2 => q{Geen help beschikbaar over "$_[0]"},
+                               heres => q{Aanwezigheid AAN gezet voor $_[0]},
+                               heade1 => q{Gebruik gemaakt van de $main::mycall coordinaten, overweeg een set/location of set/qra},
+                               hereu => q{Aanwezigheid UIT gezet voor $_[0]},
+                               homebbs => q{Uw Home mailbox is nu $_[0]},
+                               homenode => q{Uw (Home) DX-Cluster is : $_[0]},
+                               hnodee1 => q{Geef mij uw lokale (home) DX-cluster, set/homenode <DX-cluster>},
+                               hnode => q{Uw (home) DX-cluster is nu "$_[0]"},
+                               iso => q{$_[0] is geisoleerd (Isolated)},
+                               isou => q{$_[0] is niet meer geisoleerd (UnIsolated)},
+                               isoc => q{$_[0] gecreerd en geisoleerd (Isolated)},
+                               l1 => q{Sorry $_[0], u bent reeds op een ander kanaal ingelogt},
+                               l2 => q{Hallo $_[0], dit is $main::mycall in $main::myqth met DXSpider V$main::version},
+                               lang => q{De taal zijn nu Nederlandse},
+                               lh1 => q{$main::data/hop_table.pl bestaat niet},
+                               loce1 => q{Geef uw coordinaten met, set/location <latitude longitude>},
+                               loce2 => q{Herken "$_[0]" niet als Lat/Long (vb 52 20 N 0 16 E)},
+                               loc => q{Uw Latitude en Longitude zijn nu "$_[0]"},
+                               lockout => q{$_[0] heeft geen toegang meer (Locked out)},
+                               lockoutun => q{$_[0] heeft wederom toegang (Unlocked)},
+                               m2 => q{$_[0] Informatie: $_[1]},
+                               merge1 => q{Merge verzoek voor $_[1] spots en $_[2] WWV verzonden naar $_[0]},
+                               msgnew => q{Er is nieuwe post gearriveerd voor u},
+                               namee1 => q{Geef aub uw naam met, set/name <uw naam>},
+                               namee2 => q{Gebruiker $_[0] niet te vinden!},
+                               name => q{Uw naam is gezet op "$_[0]"},
+                               node => q{$_[0] gezet als een AK1A stijl DX-cluster},
+                               nodeu => q{$_[0] teruggezet naar gebruiker status},
+                               nodec => q{$_[0] gecreeerd als AK1A stijl DX-cluster},
+                               nodee1 => q{U kunt deze opdracht niet uitvoeren zolang ($_[0]) on-line is},
+                               ok => q{Opdracht succesvol uitgevoerd},
+                               page => q{Druk op Enter om door te gaan, A om af te breken (nog $_[0] regels) >},
+                               pagelth => q{Paginalengte gezet op ($_[0]) regels},
+                               passerr => q{Gebruik: SET/PASS <wachtwoord> <call>},
+                               password => q{Wachtwoord gezet of gewijzigd voor $_[0]},
+                               pingo => q{Ping gestart naar $_[0]},
+                               pingi => q{Ping ontvangen van $_[0] $_[1] (Ave $_[2]) secs},
+                               priv => q{Privilege level gewijzigd op $_[0]},
+                               prx => q{$main::mycall >},
+                               qll => q{Geef uw locator met set/location of set/qra},
+                               qthe1 => q{Geef uw woonplaats met, set/qth <woonplaats>},
+                               qth => q{Uw QTH is nu "$_[0]"},
+                               qrae1 => q{Geef uw QRA locator, set/qra <qra locator> (vb set/qra JO33FD)},
+                               qrashe1 => q{Geef uw QRA locator, vbg sh/qra JO33FD of sh/qra JO33FD IO93NS},
+                               qrae2 => q{Ik herken "$_[0]" niet als een QRA locator (vb JO33FD)},
+                               qra => q{Uw QRA Locator is nu "$_[0]"},
+                               rcmdo => q{RCMD "$_[0]" verzonden naar $_[1]},
+                               read1 => q{Sorry, geen berichten voor u},
+                               read2 => q{Bericht $_[0] niet gevonden},
+                               read3 => q{Bericht $_[0] niet beschikbaar},
+                               shutting => q{$main::mycall gaat QRT...},
+                               sloc => q{Cluster lat $_[0] long $_[1], DON'T FORGET TO CHANGE YOUR DXVars.pm},
+                               sqra => q{Cluster QRA Locator$_[0], DON'T FORGET TO CHANGE YOUR DXVars.pm},
+                               talks => q{Talk berichten AAN gezet voor $_[0]},
+                               talku => q{Talk berichten UIT gezet voor $_[0]},
+                               usernf => q{*** Gebruiker info van $_[0] niet gevonden ***},
+                               wwvs => q{WWV berichten AAN gezet voor $_[0]},
+                               wwvu => q{WWV berichten UIT gezet voor $_[0]},
+                               wxs => q{WX berichten AAN gezet voor $_[0]},
+                               wxu => q{WX berichten UIT gezet voor $_[0]},
                           },
                 fr => {
-                               addr => 'Adresse fixée Ã  : $_[0]',
-                               already => '$_[0] déjà connecté',
-                               anns => 'Annonces activées pour $_[0]',
-                               annu => 'Annonces désactivées pour $_[0]',
-                               annts => 'AnnTalk activé pour $_[0]',
-                               anntu => 'AnnTalk désactivé pour $_[0]',
-                               at => 'connecté en ce moment sur',
-                               badnode1 => 'Le serveur $_[0] est maintenant en rejet',
-                               badnode2 => 'Le serveur $_[0] n\'est maintenant plus en rejet',
-                               badnode3 => 'Liste des serveurs en rejet :-',
-                               bbse1 => 'Veuillez entrer l\'adresse de votre BBS avec : set/bbs <votre_BBS>',
-                               bbs => 'Votre BBS est définie comme Ã©tant \"$_[0]\"',
-                               beepoff => 'Bips désactivés',
-                               beepon => 'Bips activés',
-                               call1 => 'Recherche de l\'indicatif via $_[0]:',
-                               conother => 'Désolé $_[0], vous Ãªtes déjà connecté sur un autre port',
-                               concluster => 'Désolé $_[0], vous Ãªtes déjà connecté ailleurs au cluster (sur $_[1])',
-                               conscript => 'Pas de script de connexion \"$_[0]\" dans $main::root/connect !',
-                               confail => 'Echec de la connexion avec $_[0] ($_[1])',
-                               constart => 'Etablissement de la connexion avec $_[0]',
-                               deluser => 'L\'utilisateur $_[0] a Ã©té supprimé',
-                               db1 => 'Cette base de données est hébergée sur $_[0]',
-                               db2 => 'Désolé, mais la clé: $_[0] est introuvable dans $_[1]',
-                               db3 => 'Désolé, la base de données $_[0] n\'existe pas ici',
-                               db4 => 'Désolé, la base de données $_[0] sur $_[1] n\'est pas en ligne actuellement',
-                               db5 => 'Accès Ã  la base de données distante sur $_[0] en cours...veuillez patienter !',
-                               db6 => 'La base de données $_[0] existe déjà; vous devez d\'abord la supprimer',
-                               db7 => 'Base de données $_[0] créée pour le serveur distant $_[1]',
-                               db8 => 'Base de données $_[0] créée en local',
-                               db9 => 'Base de données $_[0] supprimée',
-                               db10 => '$_[0] enregistrements importés dans $_[1]',
-                               db11 => 'Envoi de votre requête Ã  $_[0], veuillez patienter...',
-                               db12 => 'Base de données  Serveur    Commande        Chaînage',
-                               dfreq1 => 'Fréquence $_[0] non valable. Il faut par exemple: 0/30000 ou hf ou hf/cw', 
-                               dir1 => 'Aucun message trouvé !',
-                               disc1 => 'Déconnecté par $_[0]',
-                               disc2 => 'Canal $_[0] déconnecté',
-                               disc3 => 'Pas de canal, mais connexion $_[0] terminée',
-                               disc4 => 'Pas de canal ni de connexion mais "orphelin" $_[0] déconnecté',
-                               done => 'Terminé.',
-                               dup => 'Désolé, ceci est un doublon.',
-                               dx1 => 'La fréquence $_[0] est hors bande (voir show/band); syntaxe: DX [BY indicatif] fréquence indicatif remarques',
-                               dx2 => 'L\'indicatif manque; syntaxe : DX [BY indicatif] fréquence indicatif remarques',
-                               dx3 => 'Indicatif ou fréquence non valable.',
-                               dxcqs => 'Zones DX CQ activées pour $_[0]',
-                               dxcqu => 'Zones DX CQ désactivées pour $_[0]',
-                               dxitus => 'Zones DX UIT activées pour $_[0]',
-                               dxituu => 'Zones DX UIT désactivées pour $_[0]',
-                               dxs => 'Infos DX activées pour $_[0]',
-                               dxu => 'Infos DX désactivées pour $_[0]',
-                               e1 => 'Commande inconnue',
-                               e2 => 'Erreur: $_[0]',
-                               e3 => '$_[0]: $_[1] non trouvé',
-                               e4 => 'Il faut au moins un préfixe ou un indicatif',
-                               e5 => 'Non autorisé.',
-                               e6 => '*** Aucune station spécifiée ***',
-                               e7 => '$_[0] n\'est pas atteignable sur le cluster',
-                               e8 => 'Il faut un indicatif et du texte.',
-                               e9 => 'Il faut un texte.',
-                               e10 => '$_[0] n\'est pas connecté localement',
-                               e11 => 'Le destinataire ne peut pas Ãªtre $main:mycall',
-                               e12 => 'Il faut spécifier un indicatif de serveur !',
-                               e13 => '$_[0] n\'est pas un serveur',
-                               e14 => 'Le premier argument doit Ãªtre une valeur numérique > 0',
-                               e15 => 'Paramètre incorrect : \"$_[0]\"',
-                               e16 => 'Le fichier \"$_[0]\" existe déjà',
-                               e17 => 'Prière de ne pas utiliser les mots : @_ ici !', 
-                               e18 => 'Connexion impossible avec $_[0] ($!)',
-                               e19 => 'Caractère non valide dans la ligne $_[0]',
-                               e20 => 'Symbole $_[0] non reconnu',
-                               e21 => '$_[0] n\'est pas une valeur numérique',
-                               e22 => '$_[0] n\'est pas un indicatif',
-                               e23 => '$_[0] n\'est pas un intervalle (exemple: 0/30000)', 
-                               e24 => 'Désolé, l\'accès Ã  Internet n\'est pas actif',
-                               e25 => 'Désolé, la valeur doit Ãªtre entre $_[0] et $_[1]',
-                               e26 => 'Trop d\'erreurs simultanées; vous allez Ãªtre déconnecté !',
-                               e27 => '$_[0] n\'est un préfixe ni sa valeur numérique.', 
-                               e28 => 'Désolé, vous devez d\'abord vous enregistrer (SP $main::myalias pour ce faire)',
-                               e29 => 'Il faut un mot de passe !',
-                               e30 => 'Impossible d\'ouvrir $_[0] $!',
-                               e31 => '$_[0] n\'est pas un utilisateur', 
-                               e32 => 'Il faut une phrase secrète !',
-                               e33 => '$_[0] n\'est pas un nombre de jours ou une date valable',
-                               e34 => 'Il faut un GROUPE puis du texte',
-                               e35 => 'Vous n\'êtes pas un membre de $_[0], rejoignez $_[0]',
 
-                               echoon => 'Echo activé',
-                               echooff => 'Echo désactivé',
-                               echow => 'L\'écho est actuellement désactivé (set/echo pour l\'activer)',
-                               emaile1 => 'Veuillez entrer votre adresse e-mail avec : set/email <votre_adresse_e-mail>',
-                               emaila => 'Votre adresse e-mail est enregistrée comme Ã©tant \"$_[0]\"',
-                               email => 'Adresse e-mail définie comme Ã©tant $_[0]',
-                               export1 => 'Syntaxe: export <numéro_de_msg> <nom_de_fichier>',
-                               export2 => '$_[3] rencontre une erreur Ã  l\'exportation du message $_[0] vers $_[1] ($_[2])',
-                               export3 => '$_[2 ] a exporté le message $_[0] vers $_[1]',
-                               filter1 => 'Filtre $_[0] mis Ã  jour dans $_[1]',
-                               filter2 => 'Mot clé de filtrage inconnu : $_[0]',
-                               filter3 => 'Pas de filtres définis pour $_[0]',
-                               filter4 => '$_[0]$_[1] Filtre $_[2] supprimé pour $_[3]',
-                               filter5 => 'Il faut une commande de filtrage...',
-                               filter6 => '$_[0]$_[1] Filtre pour $[2] introuvable',
-                               grids => 'Fonction DX Grid activée pour $_[0]',
-                               gridu => 'Fonction DX Grid désactivée pour $_[0]',
-                               illcall => 'Désolé, $_[0] n\'est pas un indicatif valable',
-                               hasha => '$_[0] existe déjà dans $_[1]',
-                               hashb => '$_[0] ajouté Ã  $_[1]',
-                               hashc => '$_[0] retiré de $_[1]',
-                               hashd => '$_[0] n\'est pas dans $_[1]', 
-                               hashe => '$_[0] ajouté le $_[1]', 
-                               heading => 'Azimut',
-                               helpe1 => 'Système d\'aide non disponible, prière de prévenir le sysop',
-                               helpe2 => 'Pas d\'aide disponible sur $_[0]',
-                               heres => '$_[0] est présent',
-                               heade1 => 'Calcul avec les coordonnées de $main::mycall; pensez Ã  faire un set/location ou set/qra !',
-                               hereu => '$_[0] est absent',
-                               homebbs => 'BBS usuelle définie comme Ã©tant $_[0]',
-                               homenode => 'Serveur cluster usuel défini comme Ã©tant $_[0]',
-                               homenode2 => 'Utilise',
-                               hnodee1 => 'Veuillez entrer votre serveur cluster usuel (set/homenode <votre_serveur>)',
-                               hnodee2 => 'Impossible de définir votre serveur usuel comme Ã©tant $_[0]',
-                               hnode => 'Votre serveur cluster usuel est défini comme Ã©tant \"$_[0]\"',
-                               init1 => 'Message d\'initialisation envoyé Ã  $_[0]',
-                               iso => '$_[0] isolé',
-                               isou => '$_[0] n\'est plus isolé',
-                               isoc => '$_[0] créé et isolé',
-                               isoari => 'Il existe un filtre de route entrante pour $_[0]; utilisez d\'abord clear/route $_[0]',
-                               isoaro => 'Il existe un filtre de route sortante pour $_[0]; utilisez d\'abord clear/route $_[0]',
-                               isow => '$_[0] est isolé; utilisez d\'abord unset/isolate $_[0]',
-                               join => 'Affiliation au groupe $_[0]',
-                               l1 => 'Désolé $_[0], vous Ãªtes déjà connecté sur un autre canal',
-                               l2 => 'Bonjour $_[0], bienvenue sur $main::mycall Ã  $main::myqth\nServeur DXSpider V$main::version ($main::build)',
-                               lang => 'Je parle maintenant français',
-                               lange1 => 'Syntaxe : set/language <langue>, où <langue> est Ã  choisir parmi ($_[0])',
-                               lange2 => 'Impossible de fixer la langue Ã  $_[0]', 
-                               lastconn => 'Dernière conn',
-                               leave => 'Départ du groupe $_[0]',
-                               lh1 => '$main::data/hop_table.pl n\'existe pas',
-                               local1 => 'Local',
-                               loce1 => 'Veuillez entrer vos coordonnées avec : set/location <latitude longitude>',
-                               loce2 => '\"$_[0]\" n\'est visiblement pas une latitude/longitude (ex: 46 20 N 6 12 E)',
-                               loce3 => '$_[0] est un QTH locator, veuillez utiliser : set/qra $_[0]',
-                               loc => 'Votre latitude/longitude est enregistrée comme Ã©tant \"$_[0]\"',
-                               location => 'Coordonnées',
-                               lockout => '$_[0] exclus',
-                               lockoutc => '$_[0] créé et exclus',
-                               lockoutun => '$_[0] n\'est plus exclus',
-                               lockoutuse => 'Syntaxe : sh/lockout <indicatif>|ALL',
-                               loginu => 'L\'utilisateur $_[0] s\'est connecté',
-                               logoutu => 'L\'utilisateur $_[0] s\'est déconnecté',
-                               loginn => 'Le serveur $_[0] s\'est connecté',
-                               logoutn => 'Le serveur $_[0] s\'est déconnecté',
-                               m1 => 'Veuillez entrer le sujet (max. 30 caractères):',
-                               m2 => 'Copie du message $_[0] envoyée Ã  $_[1]',
-                               m3 => 'Désolé, $_[0] n\'est pas une adresse de destination acceptable',
-                               m4 => 'Désolé, impossible d\'accéder au message $_[0]',
-                               m5 => 'Il faut spécifier un numéro de message !', 
-                               m6 => 'Réponse Ã  : $_[0]',
-                               m7 => 'Sujet : $_[0]',
-                               m8 => 'Entrez maintenant le texte (fin avec <Ctrl-Z> ou /EX, abandon avec /ABORT)',
-                               m9 => 'Vous avez du nouveau courrier (tapez R pour le lire)',
-                               m10 => 'Entrée du message abandonnée',
-                               m11 => 'Message numéro $_[0] enregistré et transmis Ã  $_[1]',
-                               m12 => 'Message numéro $_[0] supprimé',
-                               m13 => 'Message numéro $_[0] introuvable',
-                               m14 => 'Message numéro $_[0] marqué comme envoyé Ã  $_[1]',
-                               m15 => 'Message numéro $_[0] marqué comme non envoyé Ã  $_[1]',
-                               m16 => 'Il faut un numéro de message !',
-                               m17 => 'Désolé, impossible d\'envoyer des messages en mode $_[0]',
-                               m18 => 'Désolé, le message $_[0] possède actuellement le statut KEEP',
-                               msg1 => 'Bulletins mis en file d\'attente',
-                               msg2 => 'Messages personnels mis en file d\'attente',
-                               msg3 => 'Message $_[0]: $_[1] changé de $_[2] en $_[3]',
-                               msgu => 'Syntaxe: msg <commande> <numéro_de_message> données...',
-                               merge1 => 'Demande de fusionnement de $_[1] infos DX et $_[2] WWV envoyée Ã  $_[0]',
-                               moon => 'Emplacement                           jj/mm/aaaa Lever  Coucher',
-                               moon_with_azel => 'Emplacement                           jj/mm/aaaa Lever  Coucher  Azim   Elev',
-                               mond => 'Monitoring désactivé',
-                               mone => 'Monitoring activé',
-                               name1 => 'Nom',
-                               namee1 => 'Veuillez entrer votre nom avec : set/name <votre_nom>',
-                               namee2 => 'Utilisateur $_[0] introuvable.',
-                               name => 'Votre nom est enregistré comme Ã©tant \"$_[0]\"',
-                               nodea => '$_[0] défini comme serveur de type AK1A',
-                               nodeac => '$_[0] créé comme serveur de type AK1A',
-                               nodeb => '$_[0] défini comme BBS',
-                               nodebc => '$_[0] créé comme BBS',
-                               nodec => '$_[0] défini comme serveur de type CLX',
-                               nodecc => '$_[0] créé comme serveur de type CLX',
-                               noder => '$_[0] défini comme serveur de type AR-Cluster',
-                               noderc => '$_[0] créé comme serveur de type AR-Cluster',
-                               nodes => '$_[0] défini comme serveur de type DXSpider',
-                               nodesc => '$_[0] créé comme serveur de type DXSpider',
-                               nodex => '$_[0] défini comme serveur de type DXNET',
-                               nodexc => '$_[0] créé comme serveur de type DXNET',
-                               nodeu => '$_[0] défini comme utilisateur',
-                               nodee1 => 'Vous ne pouvez pas utiliser cette commande pendant que sa cible ($_[0]) est en ligne',
-                               notdone => 'PAS fait',
-                               nothere => 'désolé, $_[0] n\'est pas là en ce moment...', 
-                               obscount => 'Compteur d\'obsolescence des pings vers $_[0] mis Ã  $_[1]',
-                               ok => 'Opération réussie',
-                               outconn => 'Connexion en cours avec $_[0]',
-                               page => '<Enter> pour continuer ou <A> pour arrêter (il reste $_[0] lignes) >',
-                               pagelth => 'Longueur de page fixée Ã  $_[0]',
-                               passerr => 'Veuillez utiliser: SET/PASS <mot_de_passe> <indicatif>',
-                               passphrase => 'Phrase secrète définie ou modifiée pour $_[0]',
-                               passphraseu => 'Phrase secrète supprimée pour $_[0]',
-                               password => 'Mot de passe défini ou modifié pour $_[0]',
-                               passwordu => 'Mot de passe supprimé pour $_[0]',
-                               pc90s => 'PC90 activé pour $_[0]',
-                               pc90u => 'PC90 désactivé pour $_[0]',
-                               pingo => 'Ping envoyé vers $_[0]',
-                               pingi => 'Ping retourné par $_[0] en $_[1] (moyenne $_[2]) secondes',
-                               pinge1 => 'Vous ne pouvez pas vous pinger vous-même !',
-                               pingint => 'Intervalle de ping vers $_[0] fixé Ã  $_[1] secondes',
-                               'pos' => 'Indicatif source : latitude $_[0] : longitude $_[1] : $_[2]',
-                               prs => 'Prompt défini comme Ã©tant \"$_[0]\"',
-                               pru => 'Prompt remis Ã  sa valeur par défaut',
-                               priv => 'Niveau de privilège changé en $_[0]',
-                               prx => '$main::mycall >',
-                               pw0 => 'Entrez l\'ancien mot de passe : ',
-                               pw1 => 'Entrez le nouveau mot de passe : ',
-                               pw2 => 'Confirmez le nouveau mot de passe : ',
-                               pw3 => 'Mot de passe modifié',
-                               pw4 => 'Les mots de passe sont différents, changement PAS effectué',
-                               qll => 'Veuillez entrer votre emplacement avec set/location ou set/qra',
-                               qthe1 => 'Veuillez entrer votre QTH, set/qth <votre_qth>',
-                               qth => 'Votre QTH est enregistré comme Ã©tant \"$_[0]\"',
-                               qrae1 => 'Veuillez entrer votre QRA locator, set/qra <qra_locator> (exemple : set/qra JN36BE)',
-                               qrashe1 => 'Veuillez entrer un QRA locator, par exemple: sh/qra JN36BE or sh/qra JN36BE JO31NS',
-                               qrae2 => '\"$_[0]\" n\'est pas un QRA locator (exemple: JN36BE)',
-                               qra => 'Votre QRA Locator est enregistré comme Ã©tant \"$_[0]\"',
-                               qsl1 => 'Indicatif      Manager    Fois   Dernière annonce   Par',
-                               rcmdo => 'RCMD \"$_[0]\" envoyé Ã  $_[1]',
-                               read1 => 'Désolé, pas de nouveaux messages pour vous.',
-                               read2 => 'Message $_[0] introuvable',
-                               read3 => 'Message $_[0] non disponible',
-                               rec => '$_[0] enregistrements',
-                               reg => '$_[0] enregistré',
-                               regc => '$_[0] créé et enregistré',
-                               reginac => 'Le mode Enregistré n\'est pas actif (set/var \$main::reqreg = 1 pour l\'activer)',
-                               regun => 'Enregistrement de $_[0] supprimé',
-                               route => '$_[0] sur $_[1] via $_[2]',
-                               sat1 => 'Table de poursuite pour $_[0] pour les prochaines $_[1] heures toutes les $_[2] minutes',
-                               sat2 => 'jj/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km',
-                               sat3 => 'Syntaxe: SH/SAT <nom> [<heures> <intervalle>]',
-                               sat4 => 'Satellites disponibles/Age des Ã©léments orbitaux (jours):-',
-                               sat5 => 'nnnnn.AMSAT doit figurer dans le sujet pour que des Ã©léments orbitaux puissent Ãªtre chargés Ã  partir de ce message',
-                               satnf => 'Satellite $_[0] inconnu',
-                               satdisc => '-----',
-                               set => '$_[0] activé pour $_[1]',
-                               sethop1 => 'Syntaxe: set/hops <indicatif> ann|spots|route|wwv|wcy <nombre_de_hops>',
-                               sethop2 => '$_[0] hops définis pour $_[1]$_[2] vers $_[3]', 
-                               sethop3 => 'Pas de nombre de hops défini vers $_[0]', 
-                               showconf => 'Serveur      Utilisateurs',
-                               shu => '\"SHU\" ne suffit pas. Vous devez taper au moins \"SHUT\" pour arrêter le serveur !',
-                               shutting => '$main::mycall en cours d\'arrêt...',
-                               sloc => 'Latitude du serveur $_[0], longitude $_[1]. N\'OUBLIEZ PAS D\'ADAPTER VOTRE DXVars.pm',
-                               snode1 => 'Serveur     Type    Version',
-                               snode2 => '$_[0] $_[1]  $_[2]',
-                               snode3 => '$_[0] Indicatif inconnu',
-                               sqra => 'QRA Locator du serveur: $_[0]. N\'OUBLIEZ PAS D\'ADAPTER VOTRE DXVars.pm',
-                               sorry => 'Désolé !',
-                               spf1 => 'spoof: création du nouvel utilisateur $_[0]',
-                               stathf => 'Statistiques des infos DX en ondes courtes, 31 derniers jours :',
-                               stathft => 'Statistiques des infos DX en ondes courtes, 31 derniers jours pour le DXCC $_[0] :',
-                               statvhf => 'Statistiques des infos DX en VHF et au-delà, 31 derniers jours :',
-                               statvhft => 'Statistiques des infos DX en VHF et au-delà, 31 jours derniers pour le DXCC $_[0] :',
-                               statdx => 'Total des infos DX des 31 derniers jours',
-                               sun => 'Emplacement                           jj/mm/aaaa Lever  Coucher',
-                               sun_with_azel => 'Emplacement                           jj/mm/aaaa Lever  Coucher  Azim   Elev',
-                               susdb1 => 'Syntaxe : indicatif Ã©tat ville',
-                               susdb2 => 'USDB $_[0] Ã©tait $_[1], $_[2]',
-                               susdb3 => 'USDB $_[0] est maintenant $_[1], $_[2]',
-                               susdb4 => 'USDB $_[0] supprimé',
-                               suser1 => 'Syntaxe : indicatif nom_de_champ_utilisateur valeur',
-                               suser2 => 'Utilisateur $_[0] non trouvé',
-                               suser3 => 'Champ utilisateur \'$_[0]\' modifié de \'$_[1]\' Ã  \'$_[2]\'',
-                               suser4 => 'Le nom de champ utilisateur \'$_[0]\' n\'existe pas',
-                               time1 => 'Heure locale: $_[0] $_[1] ($_[2])',
-                               time2 => '$_[0] Heure locale (normale): $_[1] (UTC $_[2])',
-                               time3 => '$_[0]  $_[1]',
-                               talks => 'Talk activé pour $_[0]',
-                               talku => 'Talk désactivé pour $_[0]',
-                               talkend => 'conversation terminée avec vous',
-                               talkinst => 'Passage en mode conversation (/EX = terminer, /<cmd> = exécuter une commande)',
-                               talknh => 'désolé, $_[0] n\'est pas connecté en ce moment',
-                               talkprompt => 'Talk ($_[0])>',
-                               talkstart => 'début de conversation avec vous',
-                               unset => '$_[0] désactivé pour $_[1]',
-                               unsethop1 => 'Syntaxe: unset/hops <indicatif> ann|spots|route|wwv|wcy',
-                               unsethop2 => 'Nombre de hops supprimé vers $_[1] pour $_[0]', 
-                               user => 'Utilisateur',
-                               userconn => 'Utilisateurs connectés sur',
-                               usernf => '*** Pas d\'enregistrement utilisateur trouvé pour $_[0] ***',
-                               usstates => 'Affichage des Ã©tats US activé pour $_[0]',
-                               usstateu => 'Affichage des Ã©tats US désactivé pour $_[0]',
-                               wcy1 => '$_[0] manque ou est une valeur hors limites',
-                               wcy2 => 'Annonce WCY double',
-                               wcy3 => '   Date     Heure  SFI   A   K Kprévu  R  SA   GMF   Aurora  Source',
-                               wcys => 'WCY activé pour $_[0]',
-                               wcyu => 'WCY désactivé pour $_[0]',
-                               wpc16s => 'PC16 provenant de $_[0] autorisés',
-                               wpc16u => 'PC16 provenant de $_[0] refusés',
-                               wpc19s => 'Routage des PC19 pour $_[0] activé',
-                               wpc19u => 'Routage des PC19 pour $_[0] désactivé',
-                               wwv1 => '$_[0] manque ou est une valeur hors limites',
-                               wwv2 => 'Annonce WWV double',
-                               wwv3 => '   Date     Heure  SFI   A   K           Prévision                    Source',
-                               wwvs => 'WWV activé pour $_[0]',
-                               wwvu => 'WWV désactivé pour $_[0]',
-                               wxs => 'WX activé pour $_[0]',
-                               wxu => 'WX désactivé pour $_[0]',
+                               addr => q{Adresse fixée Ã  : $_[0]},
+                               already => q{$_[0] déjà connecté},
+                               anns => q{Annonces activées pour $_[0]},
+                               annu => q{Annonces désactivées pour $_[0]},
+                               annts => q{AnnTalk activé pour $_[0]},
+                               anntu => q{AnnTalk désactivé pour $_[0]},
+                               at => q{connecté en ce moment sur},
+                               badnode1 => q{Le serveur $_[0] est maintenant en rejet},
+                               badnode2 => q{Le serveur $_[0] n'est maintenant plus en rejet},
+                               badnode3 => q{Liste des serveurs en rejet :-},
+                               bbse1 => q{Veuillez entrer l'adresse de votre BBS avec : set/bbs <votre_BBS>},
+                               bbs => q{Votre BBS est définie comme Ã©tant "$_[0]"},
+                               beepoff => q{Bips désactivés},
+                               beepon => q{Bips activés},
+                               call1 => q{Recherche de l'indicatif via $_[0]:},
+                               conother => q{Désolé $_[0], vous Ãªtes déjà connecté sur un autre port},
+                               concluster => q{Désolé $_[0], vous Ãªtes déjà connecté ailleurs au cluster (sur $_[1])},
+                               conscript => q{Pas de script de connexion "$_[0]" dans $main::root/connect !},
+                               confail => q{Echec de la connexion avec $_[0] ($_[1])},
+                               constart => q{Etablissement de la connexion avec $_[0]},
+                               deluser => q{L'utilisateur $_[0] a Ã©té supprimé},
+                               db1 => q{Cette base de données est hébergée sur $_[0]},
+                               db2 => q{Désolé, mais la clé: $_[0] est introuvable dans $_[1]},
+                               db3 => q{Désolé, la base de données $_[0] n'existe pas ici},
+                               db4 => q{Désolé, la base de données $_[0] sur $_[1] n'est pas en ligne actuellement},
+                               db5 => q{Accès Ã  la base de données distante sur $_[0] en cours...veuillez patienter !},
+                               db6 => q{La base de données $_[0] existe déjà; vous devez d'abord la supprimer},
+                               db7 => q{Base de données $_[0] créée pour le serveur distant $_[1]},
+                               db8 => q{Base de données $_[0] créée en local},
+                               db9 => q{Base de données $_[0] supprimée},
+                               db10 => q{$_[0] enregistrements importés dans $_[1]},
+                               db11 => q{Envoi de votre requête Ã  $_[0], veuillez patienter...},
+                               db12 => q{Base de données  Serveur    Commande        Chaînage},
+                               dfreq1 => q{Fréquence $_[0] non valable. Il faut par exemple: 0/30000 ou hf ou hf/cw'},
+                               dir1 => q{Aucun message trouvé !},
+                               disc1 => q{Déconnecté par $_[0]},
+                               disc2 => q{Canal $_[0] déconnecté},
+                               disc3 => q{Pas de canal, mais connexion $_[0] terminée},
+                               disc4 => q{Pas de canal ni de connexion mais "orphelin" $_[0] déconnecté},
+                               done => q{Terminé.},
+                               dup => q{Désolé, ceci est un doublon.},
+                               dx1 => q{La fréquence $_[0] est hors bande (voir show/band); syntaxe: DX [BY indicatif] fréquence indicatif remarques},
+                               dx2 => q{L'indicatif manque; syntaxe : DX [BY indicatif] fréquence indicatif remarques},
+                               dx3 => q{Indicatif ou fréquence non valable.},
+                               dxcqs => q{Zones DX CQ activées pour $_[0]},
+                               dxcqu => q{Zones DX CQ désactivées pour $_[0]},
+                               dxitus => q{Zones DX UIT activées pour $_[0]},
+                               dxituu => q{Zones DX UIT désactivées pour $_[0]},
+                               dxs => q{Infos DX activées pour $_[0]},
+                               dxu => q{Infos DX désactivées pour $_[0]},
+                               e1 => q{Commande inconnue},
+                               e2 => q{Erreur: $_[0]},
+                               e3 => q{$_[0]: $_[1] non trouvé},
+                               e4 => q{Il faut au moins un préfixe ou un indicatif},
+                               e5 => q{Non autorisé.},
+                               e6 => q{*** Aucune station spécifiée ***},
+                               e7 => q{$_[0] n'est pas atteignable sur le cluster},
+                               e8 => q{Il faut un indicatif et du texte.},
+                               e9 => q{Il faut un texte.},
+                               e10 => q{$_[0] n'est pas connecté localement},
+                               e11 => q{Le destinataire ne peut pas Ãªtre $main:mycall},
+                               e12 => q{Il faut spécifier un indicatif de serveur !},
+                               e13 => q{$_[0] n'est pas un serveur},
+                               e14 => q{Le premier argument doit Ãªtre une valeur numérique > 0},
+                               e15 => q{Paramètre incorrect : "$_[0]"},
+                               e16 => q{Le fichier "$_[0]" existe déjà},
+                               e17 => q{Prière de ne pas utiliser les mots : @_ ici !'},
+                               e18 => q{Connexion impossible avec $_[0] ($!)},
+                               e19 => q{Caractère non valide dans la ligne $_[0]},
+                               e20 => q{Symbole $_[0] non reconnu},
+                               e21 => q{$_[0] n'est pas une valeur numérique},
+                               e22 => q{$_[0] n'est pas un indicatif},
+                               e23 => q{$_[0] n'est pas un intervalle (exemple: 0/30000)'},
+                               e24 => q{Désolé, l'accès Ã  Internet n'est pas actif},
+                               e25 => q{Désolé, la valeur doit Ãªtre entre $_[0] et $_[1]},
+                               e26 => q{Trop d'erreurs simultanées; vous allez Ãªtre déconnecté !},
+                               e27 => q{$_[0] n'est un préfixe ni sa valeur numérique.'},
+                               e28 => q{Désolé, vous devez d'abord vous enregistrer (SP $main::myalias pour ce faire)},
+                               e29 => q{Il faut un mot de passe !},
+                               e30 => q{Impossible d'ouvrir $_[0] $!},
+                               e31 => q{$_[0] n'est pas un utilisateur'},
+                               e32 => q{Il faut une phrase secrète !},
+                               e33 => q{$_[0] n'est pas un nombre de jours ou une date valable},
+                               e34 => q{Il faut un GROUPE puis du texte},
+                               e35 => q{Vous n'êtes pas un membre de $_[0], rejoignez $_[0]},
+
+                               echoon => q{Echo activé},
+                               echooff => q{Echo désactivé},
+                               echow => q{L'écho est actuellement désactivé (set/echo pour l'activer)},
+                               emaile1 => q{Veuillez entrer votre adresse e-mail avec : set/email <votre_adresse_e-mail>},
+                               emaila => q{Votre adresse e-mail est enregistrée comme Ã©tant "$_[0]"},
+                               email => q{Adresse e-mail définie comme Ã©tant $_[0]},
+                               export1 => q{Syntaxe: export <numéro_de_msg> <nom_de_fichier>},
+                               export2 => q{$_[3] rencontre une erreur Ã  l'exportation du message $_[0] vers $_[1] ($_[2])},
+                               export3 => q{$_[2 ] a exporté le message $_[0] vers $_[1]},
+                               filter1 => q{Filtre $_[0] mis Ã  jour dans $_[1]},
+                               filter2 => q{Mot clé de filtrage inconnu : $_[0]},
+                               filter3 => q{Pas de filtres définis pour $_[0]},
+                               filter4 => q{$_[0]$_[1] Filtre $_[2] supprimé pour $_[3]},
+                               filter5 => q{Il faut une commande de filtrage...},
+                               filter6 => q{$_[0]$_[1] Filtre pour $[2] introuvable},
+                               grids => q{Fonction DX Grid activée pour $_[0]},
+                               gridu => q{Fonction DX Grid désactivée pour $_[0]},
+                               illcall => q{Désolé, $_[0] n'est pas un indicatif valable},
+                               hasha => q{$_[0] existe déjà dans $_[1]},
+                               hashb => q{$_[0] ajouté Ã  $_[1]},
+                               hashc => q{$_[0] retiré de $_[1]},
+                               hashd => q{$_[0] n'est pas dans $_[1]'},
+                               hashe => q{$_[0] ajouté le $_[1]'},
+                               heading => q{Azimut},
+                               helpe1 => q{Système d'aide non disponible, prière de prévenir le sysop},
+                               helpe2 => q{Pas d'aide disponible sur $_[0]},
+                               heres => q{$_[0] est présent},
+                               heade1 => q{Calcul avec les coordonnées de $main::mycall; pensez Ã  faire un set/location ou set/qra !},
+                               hereu => q{$_[0] est absent},
+                               homebbs => q{BBS usuelle définie comme Ã©tant $_[0]},
+                               homenode => q{Serveur cluster usuel défini comme Ã©tant $_[0]},
+                               homenode2 => q{Utilise},
+                               hnodee1 => q{Veuillez entrer votre serveur cluster usuel (set/homenode <votre_serveur>)},
+                               hnodee2 => q{Impossible de définir votre serveur usuel comme Ã©tant $_[0]},
+                               hnode => q{Votre serveur cluster usuel est défini comme Ã©tant "$_[0]"},
+                               init1 => q{Message d'initialisation envoyé Ã  $_[0]},
+                               iso => q{$_[0] isolé},
+                               isou => q{$_[0] n'est plus isolé},
+                               isoc => q{$_[0] créé et isolé},
+                               isoari => q{Il existe un filtre de route entrante pour $_[0]; utilisez d'abord clear/route $_[0]},
+                               isoaro => q{Il existe un filtre de route sortante pour $_[0]; utilisez d'abord clear/route $_[0]},
+                               isow => q{$_[0] est isolé; utilisez d'abord unset/isolate $_[0]},
+                               join => q{Affiliation au groupe $_[0]},
+                               l1 => q{Désolé $_[0], vous Ãªtes déjà connecté sur un autre canal},
+                               l2 => q{Bonjour $_[0], bienvenue sur $main::mycall Ã  $main::myqth\nServeur DXSpider V$main::version ($main::build)},
+                               lang => q{Je parle maintenant français},
+                               lange1 => q{Syntaxe : set/language <langue>, où <langue> est Ã  choisir parmi ($_[0])},
+                               lange2 => q{Impossible de fixer la langue Ã  $_[0]'},
+                               lastconn => q{Dernière conn},
+                               leave => q{Départ du groupe $_[0]},
+                               lh1 => q{$main::data/hop_table.pl n'existe pas},
+                               local1 => q{Local},
+                               loce1 => q{Veuillez entrer vos coordonnées avec : set/location <latitude longitude>},
+                               loce2 => q{"$_[0]" n'est visiblement pas une latitude/longitude (ex: 46 20 N 6 12 E)},
+                               loce3 => q{$_[0] est un QTH locator, veuillez utiliser : set/qra $_[0]},
+                               loc => q{Votre latitude/longitude est enregistrée comme Ã©tant "$_[0]"},
+                               location => q{Coordonnées},
+                               lockout => q{$_[0] exclus},
+                               lockoutc => q{$_[0] créé et exclus},
+                               lockoutun => q{$_[0] n'est plus exclus},
+                               lockoutuse => q{Syntaxe : sh/lockout <indicatif>|ALL},
+                               loginu => q{L'utilisateur $_[0] s'est connecté},
+                               logoutu => q{L'utilisateur $_[0] s'est déconnecté},
+                               loginn => q{Le serveur $_[0] s'est connecté},
+                               logoutn => q{Le serveur $_[0] s'est déconnecté},
+                               m1 => q{Veuillez entrer le sujet (max. 30 caractères):},
+                               m2 => q{Copie du message $_[0] envoyée Ã  $_[1]},
+                               m3 => q{Désolé, $_[0] n'est pas une adresse de destination acceptable},
+                               m4 => q{Désolé, impossible d'accéder au message $_[0]},
+                               m5 => q{Il faut spécifier un numéro de message !'},
+                               m6 => q{Réponse Ã  : $_[0]},
+                               m7 => q{Sujet : $_[0]},
+                               m8 => q{Entrez maintenant le texte (fin avec <Ctrl-Z> ou /EX, abandon avec /ABORT)},
+                               m9 => q{Vous avez du nouveau courrier (tapez R pour le lire)},
+                               m10 => q{Entrée du message abandonnée},
+                               m11 => q{Message numéro $_[0] enregistré et transmis Ã  $_[1]},
+                               m12 => q{Message numéro $_[0] supprimé},
+                               m13 => q{Message numéro $_[0] introuvable},
+                               m14 => q{Message numéro $_[0] marqué comme envoyé Ã  $_[1]},
+                               m15 => q{Message numéro $_[0] marqué comme non envoyé Ã  $_[1]},
+                               m16 => q{Il faut un numéro de message !},
+                               m17 => q{Désolé, impossible d'envoyer des messages en mode $_[0]},
+                               m18 => q{Désolé, le message $_[0] possède actuellement le statut KEEP},
+                               msg1 => q{Bulletins mis en file d'attente},
+                               msg2 => q{Messages personnels mis en file d'attente},
+                               msg3 => q{Message $_[0]: $_[1] changé de $_[2] en $_[3]},
+                               msgu => q{Syntaxe: msg <commande> <numéro_de_message> données...},
+                               merge1 => q{Demande de fusionnement de $_[1] infos DX et $_[2] WWV envoyée Ã  $_[0]},
+                               moon => q{Emplacement                           jj/mm/aaaa Lever  Coucher},
+                               moon_with_azel => q{Emplacement                           jj/mm/aaaa Lever  Coucher  Azim   Elev},
+                               mond => q{Monitoring désactivé},
+                               mone => q{Monitoring activé},
+                               name1 => q{Nom},
+                               namee1 => q{Veuillez entrer votre nom avec : set/name <votre_nom>},
+                               namee2 => q{Utilisateur $_[0] introuvable.},
+                               name => q{Votre nom est enregistré comme Ã©tant "$_[0]"},
+                               nodea => q{$_[0] défini comme serveur de type AK1A},
+                               nodeac => q{$_[0] créé comme serveur de type AK1A},
+                               nodeb => q{$_[0] défini comme BBS},
+                               nodebc => q{$_[0] créé comme BBS},
+                               nodec => q{$_[0] défini comme serveur de type CLX},
+                               nodecc => q{$_[0] créé comme serveur de type CLX},
+                               noder => q{$_[0] défini comme serveur de type AR-Cluster},
+                               noderc => q{$_[0] créé comme serveur de type AR-Cluster},
+                               nodes => q{$_[0] défini comme serveur de type DXSpider},
+                               nodesc => q{$_[0] créé comme serveur de type DXSpider},
+                               nodex => q{$_[0] défini comme serveur de type DXNET},
+                               nodexc => q{$_[0] créé comme serveur de type DXNET},
+                               nodeu => q{$_[0] défini comme utilisateur},
+                               nodee1 => q{Vous ne pouvez pas utiliser cette commande pendant que sa cible ($_[0]) est en ligne},
+                               notdone => q{PAS fait},
+                               nothere => q{désolé, $_[0] n'est pas là en ce moment...'},
+                               obscount => q{Compteur d'obsolescence des pings vers $_[0] mis Ã  $_[1]},
+                               ok => q{Opération réussie},
+                               outconn => q{Connexion en cours avec $_[0]},
+                               page => q{<Enter> pour continuer ou <A> pour arrêter (il reste $_[0] lignes) >},
+                               pagelth => q{Longueur de page fixée Ã  $_[0]},
+                               passerr => q{Veuillez utiliser: SET/PASS <mot_de_passe> <indicatif>},
+                               passphrase => q{Phrase secrète définie ou modifiée pour $_[0]},
+                               passphraseu => q{Phrase secrète supprimée pour $_[0]},
+                               password => q{Mot de passe défini ou modifié pour $_[0]},
+                               passwordu => q{Mot de passe supprimé pour $_[0]},
+                               pc90s => q{PC90 activé pour $_[0]},
+                               pc90u => q{PC90 désactivé pour $_[0]},
+                               pingo => q{Ping envoyé vers $_[0]},
+                               pingi => q{Ping retourné par $_[0] en $_[1] (moyenne $_[2]) secondes},
+                               pinge1 => q{Vous ne pouvez pas vous pinger vous-même !},
+                               pingint => q{Intervalle de ping vers $_[0] fixé Ã  $_[1] secondes},
+                               'pos' => q{Indicatif source : latitude $_[0] : longitude $_[1] : $_[2]},
+                               prs => q{Prompt défini comme Ã©tant "$_[0]"},
+                               pru => q{Prompt remis Ã  sa valeur par défaut},
+                               priv => q{Niveau de privilège changé en $_[0]},
+                               prx => q{$main::mycall >},
+                               pw0 => q{Entrez l'ancien mot de passe : },
+                               pw1 => q{Entrez le nouveau mot de passe : },
+                               pw2 => q{Confirmez le nouveau mot de passe : },
+                               pw3 => q{Mot de passe modifié},
+                               pw4 => q{Les mots de passe sont différents, changement PAS effectué},
+                               qll => q{Veuillez entrer votre emplacement avec set/location ou set/qra},
+                               qthe1 => q{Veuillez entrer votre QTH, set/qth <votre_qth>},
+                               qth => q{Votre QTH est enregistré comme Ã©tant "$_[0]"},
+                               qrae1 => q{Veuillez entrer votre QRA locator, set/qra <qra_locator> (exemple : set/qra JN36BE)},
+                               qrashe1 => q{Veuillez entrer un QRA locator, par exemple: sh/qra JN36BE or sh/qra JN36BE JO31NS},
+                               qrae2 => q{"$_[0]" n'est pas un QRA locator (exemple: JN36BE)},
+                               qra => q{Votre QRA Locator est enregistré comme Ã©tant "$_[0]"},
+                               qsl1 => q{Indicatif      Manager    Fois   Dernière annonce   Par},
+                               rcmdo => q{RCMD "$_[0]" envoyé Ã  $_[1]},
+                               read1 => q{Désolé, pas de nouveaux messages pour vous.},
+                               read2 => q{Message $_[0] introuvable},
+                               read3 => q{Message $_[0] non disponible},
+                               rec => q{$_[0] enregistrements},
+                               reg => q{$_[0] enregistré},
+                               regc => q{$_[0] créé et enregistré},
+                               reginac => q{Le mode Enregistré n'est pas actif (set/var \$main::reqreg = 1 pour l'activer)},
+                               regun => q{Enregistrement de $_[0] supprimé},
+                               route => q{$_[0] sur $_[1] via $_[2]},
+                               sat1 => q{Table de poursuite pour $_[0] pour les prochaines $_[1] heures toutes les $_[2] minutes},
+                               sat2 => q{jj/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km},
+                               sat3 => q{Syntaxe: SH/SAT <nom> [<heures> <intervalle>]},
+                               sat4 => q{Satellites disponibles/Age des Ã©léments orbitaux (jours):-},
+                               sat5 => q{nnnnn.AMSAT doit figurer dans le sujet pour que des Ã©léments orbitaux puissent Ãªtre chargés Ã  partir de ce message},
+                               satnf => q{Satellite $_[0] inconnu},
+                               satdisc => q{-----},
+                               set => q{$_[0] activé pour $_[1]},
+                               sethop1 => q{Syntaxe: set/hops <indicatif> ann|spots|route|wwv|wcy <nombre_de_hops>},
+                               sethop2 => q{$_[0] hops définis pour $_[1]$_[2] vers $_[3]'},
+                               sethop3 => q{Pas de nombre de hops défini vers $_[0]'},
+                               showconf => q{Serveur      Utilisateurs},
+                               shu => q{"SHU" ne suffit pas. Vous devez taper au moins "SHUT" pour arrêter le serveur !},
+                               shutting => q{$main::mycall en cours d'arrêt...},
+                               sloc => q{Latitude du serveur $_[0], longitude $_[1]. N'OUBLIEZ PAS D'ADAPTER VOTRE DXVars.pm},
+                               snode1 => q{Serveur     Type    Version},
+                               snode2 => q{$_[0] $_[1]  $_[2]},
+                               snode3 => q{$_[0] Indicatif inconnu},
+                               sqra => q{QRA Locator du serveur: $_[0]. N'OUBLIEZ PAS D'ADAPTER VOTRE DXVars.pm},
+                               sorry => q{Désolé !},
+                               spf1 => q{spoof: création du nouvel utilisateur $_[0]},
+                               stathf => q{Statistiques des infos DX en ondes courtes, 31 derniers jours :},
+                               stathft => q{Statistiques des infos DX en ondes courtes, 31 derniers jours pour le DXCC $_[0] :},
+                               statvhf => q{Statistiques des infos DX en VHF et au-delà, 31 derniers jours :},
+                               statvhft => q{Statistiques des infos DX en VHF et au-delà, 31 jours derniers pour le DXCC $_[0] :},
+                               statdx => q{Total des infos DX des 31 derniers jours},
+                               sun => q{Emplacement                           jj/mm/aaaa Lever  Coucher},
+                               sun_with_azel => q{Emplacement                           jj/mm/aaaa Lever  Coucher  Azim   Elev},
+                               susdb1 => q{Syntaxe : indicatif Ã©tat ville},
+                               susdb2 => q{USDB $_[0] Ã©tait $_[1], $_[2]},
+                               susdb3 => q{USDB $_[0] est maintenant $_[1], $_[2]},
+                               susdb4 => q{USDB $_[0] supprimé},
+                               suser1 => q{Syntaxe : indicatif nom_de_champ_utilisateur valeur},
+                               suser2 => q{Utilisateur $_[0] non trouvé},
+                               suser3 => q{Champ utilisateur '$_[0]' modifié de '$_[1]' Ã  '$_[2]'},
+                               suser4 => q{Le nom de champ utilisateur '$_[0]' n'existe pas},
+                               time1 => q{Heure locale: $_[0] $_[1] ($_[2])},
+                               time2 => q{$_[0] Heure locale (normale): $_[1] (UTC $_[2])},
+                               time3 => q{$_[0]  $_[1]},
+                               talks => q{Talk activé pour $_[0]},
+                               talku => q{Talk désactivé pour $_[0]},
+                               talkend => q{conversation terminée avec vous},
+                               talkinst => q{Passage en mode conversation (/EX = terminer, /<cmd> = exécuter une commande)},
+                               talknh => q{désolé, $_[0] n'est pas connecté en ce moment},
+                               talkprompt => q{Talk ($_[0])>},
+                               talkstart => q{début de conversation avec vous},
+                               unset => q{$_[0] désactivé pour $_[1]},
+                               unsethop1 => q{Syntaxe: unset/hops <indicatif> ann|spots|route|wwv|wcy},
+                               unsethop2 => q{Nombre de hops supprimé vers $_[1] pour $_[0]'},
+                               user => q{Utilisateur},
+                               userconn => q{Utilisateurs connectés sur},
+                               usernf => q{*** Pas d'enregistrement utilisateur trouvé pour $_[0] ***},
+                               usstates => q{Affichage des Ã©tats US activé pour $_[0]},
+                               usstateu => q{Affichage des Ã©tats US désactivé pour $_[0]},
+                               wcy1 => q{$_[0] manque ou est une valeur hors limites},
+                               wcy2 => q{Annonce WCY double},
+                               wcy3 => q{   Date     Heure  SFI   A   K Kprévu  R  SA   GMF   Aurora  Source},
+                               wcys => q{WCY activé pour $_[0]},
+                               wcyu => q{WCY désactivé pour $_[0]},
+                               wpc16s => q{PC16 provenant de $_[0] autorisés},
+                               wpc16u => q{PC16 provenant de $_[0] refusés},
+                               wpc19s => q{Routage des PC19 pour $_[0] activé},
+                               wpc19u => q{Routage des PC19 pour $_[0] désactivé},
+                               wwv1 => q{$_[0] manque ou est une valeur hors limites},
+                               wwv2 => q{Annonce WWV double},
+                               wwv3 => q{   Date     Heure  SFI   A   K           Prévision                    Source},
+                               wwvs => q{WWV activé pour $_[0]},
+                               wwvu => q{WWV désactivé pour $_[0]},
+                               wxs => q{WX activé pour $_[0]},
+                               wxu => q{WX désactivé pour $_[0]},
                           },
                 es => {                               
-                               addr => 'La dirección es ahora: $_[0]',
-                               already => '$_[0] ya está conectado',
-                               anns => 'Activada la recepción de anuncios para $_[0]',
-                               annu => 'Desactivada la recepción de anuncios para $_[0]',
-                               annts => 'Modo AnnTalk activado para $_[0]',
-                               anntu => 'Modo AnnTalk desactivado para $_[0]',
-                               at => 'at',
-                               badnode1 => 'No se aceptan spots con origen en $_[0], se añade a la lista badnode',
-                               badnode2 => 'Se aceptan spots del nodo $_[0], sale de la lista badnode',
-                               badnode3 => 'Lista de nodos rechazados:',
-                               bbse1 => 'Por favor introduce tu BBS, set/bbs <tu bbs>',
-                               bbs => 'Tu BBS es ahora \"$_[0]\"',
-                               beepoff => 'Avisos sonoros desactivados',
-                               beepon => 'Avisos sonoros activados',
-                               believes => 'Creo en el nodo $_[0] via $_[1]',
-                               believeu => 'No creo en el nodo $_[0] via $_[1]',
-                               buddya => '$_[0] se añade a tu lista de indicativos amigos',
-                               buddyu => '$_[0] se elimina de tu lista de indicativos amigos',
-                               call1 => 'Se encontró el indicativo vía $_[0]:',
-                               chatend => 'Finalizado el modo chat en el canal $_[0]',
-                               chatinst => 'Entrando en modo Chat en el canal $_[0], /EX para salir, /<cmd> para ejecutar un comando',
-                               chatprompt => 'Chat ($_[0])>',
-                               chattoomany => 'Operación no permitida, actualmente estas en el canal $_[1], usa /chat $_[0]',
-                               conother => 'Lo siento $_[0] ya estás conectado en otro puerto',
-                               concluster => 'Lo siento $_[0] ya estás conectado en otro cluster',
-                               conscript => 'No hay ningún script que se llame \"$_[0]\" en $main::root/connect',
-                               confail => 'La conexión con $_[0] ha fallado ($_[1])',
-                               constart => 'Se inicia la conexión a $_[0]',
-                               conbump => 'Reconectado como $_[0] en $_[1], Esta sesión termina y se te desconecta',
+                               addr => q{La dirección es ahora: $_[0]},
+                               already => q{$_[0] ya está conectado},
+                               anns => q{Activada la recepción de anuncios para $_[0]},
+                               annu => q{Desactivada la recepción de anuncios para $_[0]},
+                               annts => q{Modo AnnTalk activado para $_[0]},
+                               anntu => q{Modo AnnTalk desactivado para $_[0]},
+                               at => q{at},
+                               badnode1 => q{No se aceptan spots con origen en $_[0], se añade a la lista badnode},
+                               badnode2 => q{Se aceptan spots del nodo $_[0], sale de la lista badnode},
+                               badnode3 => q{Lista de nodos rechazados:},
+                               bbse1 => q{Por favor introduce tu BBS, set/bbs <tu bbs>},
+                               bbs => q{Tu BBS es ahora "$_[0]"},
+                               beepoff => q{Avisos sonoros desactivados},
+                               beepon => q{Avisos sonoros activados},
+                               believes => q{Creo en el nodo $_[0] via $_[1]},
+                               believeu => q{No creo en el nodo $_[0] via $_[1]},
+                               buddya => q{$_[0] se añade a tu lista de indicativos amigos},
+                               buddyu => q{$_[0] se elimina de tu lista de indicativos amigos},
+                               call1 => q{Se encontró el indicativo vía $_[0]:},
+                               chatend => q{Finalizado el modo chat en el canal $_[0]},
+                               chatinst => q{Entrando en modo Chat en el canal $_[0], /EX para salir, /<cmd> para ejecutar un comando},
+                               chatprompt => q{Chat ($_[0])>},
+                               chattoomany => q{Operación no permitida, actualmente estas en el canal $_[1], usa /chat $_[0]},
+                               conother => q{Lo siento $_[0] ya estás conectado en otro puerto},
+                               concluster => q{Lo siento $_[0] ya estás conectado en otro cluster},
+                               conscript => q{No hay ningún script que se llame "$_[0]" en $main::root/connect},
+                               confail => q{La conexión con $_[0] ha fallado ($_[1])},
+                               constart => q{Se inicia la conexión a $_[0]},
+                               conbump => q{Reconectado como $_[0] en $_[1], Esta sesión termina y se te desconecta},
                                deluser =>'El usuario $_[0] ha sido borrado de la base de datos',
-                               db1 => 'Esta base de datos está en $_[0]',
-                               db2 => 'Lo siento, pero no se encontró $_[0] en $_[1]',
-                               db3 => 'Lo siento, la base de datos $_[0] no existe aquí',
-                               db4 => 'Lo siento, la base de datos $_[0] situada en $_[1] no se encuentra disponible',
-                               db5 => 'Accediendo a la base de datos remota $_[0]...espere...',
-                               db6 => 'La base de datos $_[0] ya existe, bórrala primero',
-                               db7 => 'La base de datos $_[0] creada para el nodo remoto $_[1]',
-                               db8 => 'Base de datos $_[0] creada localmente',
-                               db9 => 'La base de datos $_[0] ha sido eliminada',
-                               db10 => '$_[0] registros importados para la base de datos $_[1]',
-                               db11 => 'Tu petición ha sido enviada a $_[0], por favor espera...',
-                               dfreq1 => 'La frecuencia no es válida $_[0] ej: 0/30000 o hf o hf/cw',
-                               dir1 => 'No hay mensajes nuevos',
-                               disc1 => '.',
-                               disc2 => 'Canal $_[0] desconectado',
-                               disc3 => 'No estaba activo el canal, pero la conexión de $_[0] ha sido eliminada',
-                               disc4 => 'No existía el canal o la conexión, $_[0] se elimina',
-                               done => 'Comando ejecutado con Ã©xito.',
-                               dup => 'Lo siento, esto es un duplicado',
-                               dx1 => 'Frecuencia $_[0] fuera de banda (ver show/band); usa: DX [BY indicativo] frec indic. comentario',
-                               dx2 => 'Necesita indicativo; usa: DX [BY indicativo] frec indic. comentario',
-                               dx3 => 'El indicativo o la frecuencia es incorrecta',
-                               dxcqs => 'Activada la recepción de Zonas CQ en spots de DX para $_[0]',
-                               dxcqu => 'Desactivada la recepción de Zonas CQ en spots de DX para $_[0]',
-                               dxitus => 'Activada la recepción de Zonas ITU en spots de DX para $_[0]',
-                               dxituu => 'Desactivada la recepción de Zonas ITU en spots de DX para $_[0]',
-                               dxs => 'Activada la recepción de spots de DX para $_[0]',
-                               dxu => 'Desactivada la recepción de spots de DX para $_[0]',
-                               e1 => 'Este comando no es válido',
-                               e2 => 'Error: $_[0]',
-                               e3 => '$_[0]: $_[1] no encontrado',
-                               e4 => 'Se necesita, por lo menos, un prefijo o indicativo',
-                               e5 => 'No estás autorizado',
-                               e6 => '*** No se ha especificado una estación ***',
-                               e7 => '$_[0] no está visible en la red actualmente',
-                               e8 => 'Se necesita un indicativo y algún texto',
-                               e9 => 'Se necesita al menos algún texto',
-                               e10 => '$_[0] no se encuentra conectado',
-                               e11 => 'No puedes usar tu propio $main:mycall como destino',
-                               e12 => 'Se necesita el indicativo del nodo',
-                               e13 => '$_[0] no es un nodo',
-                               e14 => 'El primer argumento debe de ser numérico y > 0',
-                               e15 => 'calificador no válido \"$_[0]\"',
-                               e16 => 'El fichero \"$_[0]\" ya existe',
-                               e17 => 'Por favor no uses la palabra: @_ aquí',
-                               e18 => 'No se puede conectar con $_[0] ($!)',
-                               e19 => 'Carácter no válido en la línea $_[0]',
-                               e20 => 'Símbolo $_[0] no reconocido',
-                               e21 => '$_[0] no es numérico',
-                               e22 => '$_[0] no es un indicativo',
-                               e23 => '$_[0] fuera de rango (ej: 0/30000)',
-                               e24 => 'Lo siento, el acceso a internet no está habilitado',
-                               e25 => 'Lo siento el valor debe de estar entre $_[0] y $_[1]',
-                               e26 => 'Demasiados errores, serás desconectado',
-                               e27 => '$_[0] no es un número o un prefijo',
-                               e28 => 'Lo siento, necesitas registrarte (SP $main::myalias para registrarte)',   
-                               e29 => 'Necesitas password', 
-                               e30 => 'No se puede abrir $_[0] $!',
-                               e31 => '$_[0] no es un usuario', 
-                               e32 => 'Se necesita una frase de contraseña',
-                               e33 => '$_[0] No es un número de días o una fecha válida',
-                               e34 => 'Se necesita un grupo y algún texto',
-                               e35 => 'No eres un miembro del grupo $_[0], usa join $_[0] para entrar en este grupo',
-                               e36 => 'Solo puedes hacer esto desde el prompt de usuario',
-  
-                               echoon => 'Eco local activado',
-                               echooff => 'Eco local desactivado',
-                               echow => '*Eco local desactivado, set/echo para activarlo',
-                               emaile1 => 'Por favor introduce tu E-mail, set/email <tu E-mail>',
-                               emaila => 'Tu dirección E-mail es ahora \"$_[0]\"',
-                               email => 'La dirección E-mail es ahora: $_[0]',
-                               export1 => 'uso: export <número_mensaje> <nombre_fichero>',
-                               export2 => '$_[3] hubo un error exportando mensaje $_[0] a $_[1] ($_[2])',
-                               export3 => '$_[2 ] exportando mensaje $_[0] a $_[1]',
-                               filter1 => 'Filtro $_[0] actualizado con el nombre $_[1]',
-                               filter2 => 'Es necesario un valor para $_[0]',
-                               filter3 => 'No hay filtros definidos para $_[0]',
-                               filter4 => 'Filtro número $_[2] del tipo: $_[0]$_[1]  borrado para $_[3]',
-                               filter5 => 'Se necesitan algunos comandos para el filtro...',
-                               filter6 => '$_[0]$_[1] Filtro para $[2] no encontrado',
-                               grids => 'Activada recepción de locators en spot (DX Grid) para $_[0]',
-                               gridu => 'Desactivada recepción de locators en spot (DX Grid) para $_[0]',
-                               gtks => 'Terminal GTK activado para $_[0]',
-                               gtku => 'Terminal GTK desactivado para $_[0]',
-                               illcall => 'Lo siento, $_[0] no es un indicativo válido',
-                               hasha => '$_[0] ya existe en $_[1]',
-                               hashb => '$_[0] añadido a $_[1]',
-                               hashc => '$_[0] eliminado de $_[1]',
-                               hashd => '$_[0] no se encuentra en $_[1]',
-                               hashe => '$_[0] activado $_[1]',
-                               heading => 'Rumbo',
-                               helpe1 => 'La ayuda no está disponible, comunícaselo al sysop',
-                               helpe2 => 'No hay ayuda disponible para $_[0]',
-                               heres => 'Se informa a la red: $_[0] está presente',
-                               heade1 => 'Usando las coord. de $main::mycall, se recomienda usar set/location o set/qra',
-                               hereu => 'Se informa a la red: $_[0] está ausente',
-                               homebbs => 'Tu  BBS es ahora: $_[0]',
-                               homenode => 'Tu cluster habitual es ahora: $_[0]',
-                               hnodee1 => 'Por favor introduce tu cluster habitual, set/homenode <Tu DX cluster>',
-                               hnodee2 => 'Error al definir homenode en $_[0]',
-                               hnode => 'Tu nodo habitual es ahora \"$_[0]\"',
-                               init1 => 'Enviado mensaje de inicialización a $_[0]',
-                               iso => 'El cluster $_[0] se pone en modo pasivo (Aislado)',
-                               isou => 'El cluster $_[0] se pone en modo activo',
-                               isoc => '$_[0] creado y definido como pasivo (Aislado)',
-                               isoari => 'Existe un filtro de rutas "input" para $_[0]; clear/route input $_[0] primero',
-                               isoaro => 'Existe un filtro de rutas para $_[0]; clear/route $_[0] primero',   
-                               isow => '$_[0] está en modo aislado; unset/isolate $_[0] primero',
-                               join => 'Entras en el grupo $_[0]',
-                               l1 => 'Lo siento $_[0], ya estás conectado en otro canal',
-                               l2 => 'Hola $_[0], esta es $main::mycall en $main::myqth usando DXSpider V$main::version',
-                               lang => 'El idioma seleccionado es el Español',
-                               lange1 => 'set/language <idioma> donde <idioma> es uno entre ($_[0])',
-                               lange2 => 'Error al seleccionar idioma en $_[0]',
-                               lastconn => 'Última conexión',
-                               leave => 'Abandonas el grupo $_[0]',
-                               lh1 => '$main::data/hop_table.pl no existe',
-                               local1 => 'Local',
-                               loce1 => 'Por favor introduce tu posición, set/location <latitud longitud>',
-                               loce2 => 'No se reconoce \"$_[0]\" como una Lat/Long (ej: 52 20 N 0 16E)',
-                               loce3 => '$_[0] es un QRA locator, por favor usa: set/qra $_[0]',
-                               loc => 'Tu Lat/Long es ahora \"$_[0]\"',
-                               location => 'Location',
-                               lockout => '$_[0] Excluido del sistema',
-                               lockoutc => '$_[0] Creado y excluido del sistema',
-                               lockoutun => '$_[0] Autorizado para conectar',
-                               lockoutuse => 'Uso: sh/lockout <indicativo|prefijo>|ALL',
-                               loginb => 'El colega $_[0] ha conectado',
-                               loginbn => 'El colega $_[0] ha conectado en $_[1]',
-                               logoutb => 'El colega $_[0] se ha desconectado',
-                               logoutbn => 'El colega $_[0] se ha desconectado de $_[1]',
-                               loginu => '$_[0] conecta',
-                               logoutu => '$_[0] se desconecta',
-                               loginn => '$_[0] conecta',
-                               logoutn => '$_[0] se desconecta',
-                               m1 => 'Introduce el título (máx. 30 caractéres):',
-                               m2 => 'Copia del mensaje $_[0] enviada a $_[1]',
-                               m3 => 'Lo siento, $_[0] no se aceptan mensajes a ese tópico',
-                               m4 => 'Lo siento, no se puede acceder al mensaje $_[0]',
-                               m5 => 'Lo siento, se necesita un número de mensaje',
-                               m6 => 'Reenviado a: $_[0]',
-                               m7 => 'Título : $_[0]',
-                               m8 => 'Introduce mensaje. /EX para terminar o /ABORT para interrumpir',
-                               m9 => 'Hay correo nuevo para ti. Bórralo una vez leído.',
-                               m10 => 'Mensaje interrumpido',
-                               m11 => 'Mensaje nr $_[0] guardado y enviado a $_[1]',
-                               m12 => 'Mensaje nr $_[0] borrado',
-                               m13 => 'Mensaje nr $_[0] no encontrado',
-                               m14 => 'Mensaje nr $_[0] marcado para ser enviado a $_[1]',
-                               m15 => 'El mensaje nr $_[0] no se enviará a $_[1]',
-                               m16 => 'Se necesita un número de mensaje',
-                               m17 => 'Lo siento, no puedo enviar el mensaje en $_[0] modo',
-                               m18 => 'Lo siento, el mensaje $_[0] está actualmente marcado como KEEP (Guardarlo)',
-                               m19 => 'Fichero de inicio de conexión de $_[0] guardado, contiene $_[1] línea(s)',
-                               m20 => 'Fichero de inicio de conexión vacio de  $_[0] borrado',
-                               msg1 => 'Cola de mensajes tipo Boletín',
-                               msg2 => 'Cola de mensajes tipo Privados',
-                               msg3 => 'Msg $_[0]: $_[1] cambiado de $_[2] a $_[3]',
-                               msgu => 'Uso: msg <cmd> <msgno> data...',
-                               merge1 => 'Petición de envío de $_[1] spots y $_[2] WWV enviada a $_[0]',
-                               moon => 'QTH                                   dd/mm/yyyy Salida Puesta',
-                               moon_with_azel => 'QTH                                   dd/mm/yyyy Salida Puesta   Azim   Elev',                                 
-                               mond => 'Activado modo monitor',
-                               mone => 'Desactivado modo monitor',
-                               name1 => 'Nombre',
-                               namee1 => 'Por favor, introduce tu nombre con set/name <tu nombre>',
-                               namee2 => 'No se encuentra el usuario $_[0]!',
-                               name => 'Tu nombre es \"$_[0]\"',
-                               nodea => '$_[0] definido como nodo AK1A ',
-                               nodeac => '$_[0] creado como nodo AK1A ',
-                               nodeb => '$_[0] definido como BBS',
-                               nodebc => '$_[0] creado como BBS',
-                               nodec => '$_[0] definido como nodo CLX ',
-                               nodecc => '$_[0] creado como nodo CLX ',
-                               noder => '$_[0] definido como nodo AR-Cluster ',
-                               noderc => '$_[0] creado como nodo AR-Cluster ',
-                               nodes => '$_[0] definido como nodo DXSpider ',
-                               nodesc => '$_[0] creado como nodo DXSpider ',
-                               nodex => '$_[0] definido como nodo DXNET ',
-                               nodexc => '$_[0] creado como nodo DXNET ',
-                               nodeu => '$_[0] es ahora un usuario',
-                               nodee1 => 'No puedes usar este comando mientras $_[0] se encuentre conectado',
-                               notdone => 'No se ha podido realizar la operación',
-                               nothere => 'Lo siento, pero $_[0] no está aquí ahora, inténtalo mas tarde',
-                               obscount => 'El parámetro Ping obsolescence count para $_[0] se ajusta a $_[1]',
-                               ok => 'Operación realizada',
-                               outconn => 'Iniciando conexión con  $_[0]',
-                               page => 'Teclea Enter para continuar, A para abortar (Quedan $_[0] líneas) >',
-                               pagelth => 'La longitud de las páginas es ahora de $_[0] línea(s)',
-                               passerr => 'Por favor usa: SET/PASS <password> <indicativo>',
-                               passphrase => 'Passphrase definida o cambiada para $_[0]',
-                               passphraseu => 'Passphrase borrada para $_[0]',
-                               password => 'El Password ha sido definido o cambiado para $_[0]',
-                               passwordu => 'Contraseña borrada para $_[0]',
-                               pc90s => 'PC90 activado para $_[0]',
-                               pc90u => 'PC90 desactivado para $_[0]',
-                               pingo => 'Iniciado el ping a $_[0]',
-                               pingi => 'Ping devuelto por $_[0] en $_[1] (Ave $_[2]) segundos',
-                               pinge1 => 'No puedes enviarte un ping a ti mismo!',
-                               pingint => 'Intervalo de ping para $_[0] ajustado a $_[1] segundos',
-                               'pos' => 'Desde el indicativo: $_[0] Lat: $_[1] Long: $_[2]',
-                               prs => 'El Prompt ha sido cambiado',
-                               pru => 'El Prompt vuelve a ser el normal por defecto',
-                               priv => 'Nivel de privilegios modificado para $_[0]',
-                               prx => '$main::mycall >',
-                               pw0 => 'Escribe el password antiguo: ',
-                               pw1 => 'Escribe el nuevo password: ',
-                               pw2 => 'Confirma el nuevo password: ',
-                               pw3 => 'El Password ha sido cambiado',
-                               pw4 => 'Los passwords no coinciden, NO se han cambiado',
-                               qll => 'Por favor introduce tu locator con set/location o set/qra',
-                               qthe1 => 'Por favor introduce tu QTH, set/qth <tu qth>',
-                               qth => 'Tu QTH es ahora \"$_[0]\"',
-                               qrae1 => 'Por favor introduce tu QRA locator, set/qra <qra locator> (ej: set/qra JO02LQ)',
-                               qrashe1 => 'Por favor introduce un QRA locator, ej sh/qra JO02LQ o sh/qra JO02LQ IO93NS',
-                               qrae2 => 'No se reconoce \"$_[0]\" como un QRA locator ( ej JO02LQ)',
-                               qra => 'Tu QRA Locator es ahora \"$_[0]\"',
-                               qsl1 => 'Indicativo     Manager   Nº veces  Ãšltimo Spot      De',
-                               rcmdo => 'RCMD \"$_[0]\" enviado a $_[1]',
-                               read1 => 'Lo siento, no hay mensajes nuevos para ti',
-                               read2 => 'Mensaje $_[0] no encontrado',
-                               read3 => 'Mensaje $_[0] no disponible',
-                               rec => '$_[0] registro(s)',
-                               reg => '$_[0] registrado',
-                               regc => '$_[0] creado y registrado',
-                               reginac => 'El registro no está activo (set/var \$main::regreq = 1 para activarlo)',
-                               regun => 'El usuario $_[0] no está registrado',
-                               route => '$_[0] en $_[1] vía $_[2]',
-                               sat1 => 'Tabla de seguimiento $_[0] para las próximas $_[1] horas cada $_[2] minutos',
-                               sat2 => 'dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km',
-                               sat3 => 'Sintaxis: SH/SAT <nombre> [<horas> <intervalo>]',
-                               sat4 => 'Satélites disponibles:',
-                               sat5 => 'Es necesario el título nnnn.AMSAT para actualizar datos keps. desde un mensaje',
-                               satnf => 'Satélite $_[0] desconocido',
-                               satdisc => '-----',
-                               set => '$_[0] habilitado para $_[1]',
-                               sethop1 => 'Uso: set/hops <indicativo> ann|spots|wwv|wcy <nr de hops>',
-                               sethop2 => '$_[0] hops set on $_[1]$_[2] para $_[3]',
-                               sethop3 => 'No hay hops definidos para $_[0]',
-                               showconf => 'Nodo         Indicativos',
-                               shu => '\"SHU\" No es suficiente! Es necesario como mínimo escribir \"SHUT\" para apagar el cluster',
-                               shutting => '$main::mycall shutting down...',
-                               sloc => 'Cluster lat $_[0] long $_[1], NO OLVIDES CAMBIAR TU DXVars.pm',
-                               snode1 => 'Nodo Call   Sort    Versión',
-                               snode2 => '$_[0] $_[1]  $_[2]',
-                               snode3 => '$_[0] Indicativo desconocido',
-                               sqra => 'Cluster QRA Locator$_[0], NO OLVIDES CAMBIAR TU DXVars.pm',
-                               sorry => 'Lo siento',
-                               spf1 => 'spoof: creando nuevo usuario $_[0]',
-                               stathf => 'Estadísticas de spots en HF de los Ãºltimos $_[1] días desde el $_[0]',
-                               stathft => 'Estadísticas de spots en HF de los Ãºltimos $_[2] días desde el $_[1] para DXCC $_[0]',
-                               statvhf => 'VHF + DX Spot Stats, Ãºltimos $_[1] días desde el $_[0]',
-                               statvhft => 'VHF + DX Spot Stats, Ãºltimos $_[2] días desde el $_[1] para DXCC $_[0]',
-                               statdx => 'Total de Spots de DX en los Ãºltimos $_[1] días desde el $_[0]',
-                               storable => 'Por favor, instale el módulo Storable de CPAN', 
-                               sun => 'QTH                                   dd/mm/yyyy Salida Puesta',
-                               sun_with_azel => 'QTH                                   dd/mm/yyyy Salida Puesta   Azim   Elev',
-                               susdb1 => 'Uso: indicativo estado ciudad',
-                               susdb2 => 'USDB $_[0] era $_[1], $_[2]',
-                               susdb3 => 'USDB $_[0] es ahora $_[1], $_[2]',
-                               susdb4 => 'USDB $_[0] borrado',
-                               suser1 => 'Uso: indicativo user_field_name valor',
-                               suser2 => 'Usuario $_[0] no encontrado',
-                               suser3 => 'User field \'$_[0]\' era \'$_[1]\' ahora es \'$_[2]\'',
-                               suser4 => 'User field name \'$_[0]\' no existe',
-                               time1 => 'Horario local: $_[0] $_[1], UTC $_[2]',
-                               time2 => '$_[0] Local (standard) time: $_[1] ($_[2] Horas)',
-                               time3 => '$_[0]  $_[1]',
-                               talks => 'Recepción de mensajes Talk activado para $_[0]',
-                               talku => 'Recepción de mensajes Talk desactivado para $_[0]',
-                               talkend => 'Finalizado modo talk contigo',
-                               talkinst => 'Entrando en modo talk, /EX para salir, /<cmd> para ejecutar un comando',
-                               talknh => 'Lo siento $_[0] no está conectado en este momento',
-                               talkprompt => 'Talk ($_[0])>',
-                               talkstart => 'Iniciando modo talk contigo',
-                               unset => '$_[0] desactivado para $_[1]',
-                               unsethop1 => 'Uso: unset/hops <indicativo> ann|spots|wwv|wcy',
-                               unsethop2 => 'Borrados los hops para $_[1] en $_[0]', 
-                               user => 'Usuario',
-                               userconn => 'Indicativos conectados a',
-                               usernf => '*** No se encuentra el registro de usuario de $_[0] ***',
-                               usstates => 'Activada vista del estado USA en spots para $_[0]',
-                               usstateu => 'Desactivada vista del estado USA en spots para $_[0]',
-                               usernf => '*** Registro de usuario $_[0] no encontrado ***',
-                               wcy1 => '$_[0] falta o está fuera de rango',
-                               wcy2 => 'WCY Duplicado',
-                               wcy3 => 'Fecha       Hora   SFI   A   K Exp.K   R SA    GMF   Aurora   Logger',
-                               wcys => 'Activada recepción de anuncios WCY para $_[0]',
-                               wcyu => 'Desactivada recepción de anuncios WWV para $_[0]',
-                               wpc16s => 'Admitir PC16 de $_[0] activado',
-                               wpc16u => 'Admitir PC16 de $_[0] desactivado',
-                               wpc19s => 'Activada ruta PC19 para $_[0]',
-                               wpc19u => 'Desactivada ruta PC19 para $_[0]',
-                               wpc90s => 'PC90 para $_[0] activado',
-                               wpc90u => 'PC90 para $_[0] descativado',
-                               wwv1 => '$_[0] falta o está fuera de rango',
-                               wwv2 => 'WWV Duplicado',
-                               wwv3 => 'Fecha       Hora   SFI   A   K Previsión                              Logger',
-                               wwvs => 'Activada recepción de anuncios WWV para $_[0]',
-                               wwvu => 'Desactivada recepción de anuncios WWV para $_[0]',
-                               wxs => 'Activada recepción de anuncios WX para $_[0]',
-                               wxu => 'Desactivada recepción de anuncios WX para $_[0]',
+
+                               db1 => q{Esta base de datos está en $_[0]},
+                               db2 => q{Lo siento, pero no se encontró $_[0] en $_[1]},
+                               db3 => q{Lo siento, la base de datos $_[0] no existe aquí},
+                               db4 => q{Lo siento, la base de datos $_[0] situada en $_[1] no se encuentra disponible},
+                               db5 => q{Accediendo a la base de datos remota $_[0]...espere...},
+                               db6 => q{La base de datos $_[0] ya existe, bórrala primero},
+                               db7 => q{La base de datos $_[0] creada para el nodo remoto $_[1]},
+                               db8 => q{Base de datos $_[0] creada localmente},
+                               db9 => q{La base de datos $_[0] ha sido eliminada},
+                               db10 => q{$_[0] registros importados para la base de datos $_[1]},
+                               db11 => q{Tu petición ha sido enviada a $_[0], por favor espera...},
+                               dfreq1 => q{La frecuencia no es válida $_[0] ej: 0/30000 o hf o hf/cw},
+                               dir1 => q{No hay mensajes nuevos},
+                               disc1 => q{.},
+                               disc2 => q{Canal $_[0] desconectado},
+                               disc3 => q{No estaba activo el canal, pero la conexión de $_[0] ha sido eliminada},
+                               disc4 => q{No existía el canal o la conexión, $_[0] se elimina},
+                               done => q{Comando ejecutado con Ã©xito.},
+                               dup => q{Lo siento, esto es un duplicado},
+                               dx1 => q{Frecuencia $_[0] fuera de banda (ver show/band); usa: DX [BY indicativo] frec indic. comentario},
+                               dx2 => q{Necesita indicativo; usa: DX [BY indicativo] frec indic. comentario},
+                               dx3 => q{El indicativo o la frecuencia es incorrecta},
+                               dxcqs => q{Activada la recepción de Zonas CQ en spots de DX para $_[0]},
+                               dxcqu => q{Desactivada la recepción de Zonas CQ en spots de DX para $_[0]},
+                               dxitus => q{Activada la recepción de Zonas ITU en spots de DX para $_[0]},
+                               dxituu => q{Desactivada la recepción de Zonas ITU en spots de DX para $_[0]},
+                               dxs => q{Activada la recepción de spots de DX para $_[0]},
+                               dxu => q{Desactivada la recepción de spots de DX para $_[0]},
+                               e1 => q{Este comando no es válido},
+                               e2 => q{Error: $_[0]},
+                               e3 => q{$_[0]: $_[1] no encontrado},
+                               e4 => q{Se necesita, por lo menos, un prefijo o indicativo},
+                               e5 => q{No estás autorizado},
+                               e6 => q{*** No se ha especificado una estación ***},
+                               e7 => q{$_[0] no está visible en la red actualmente},
+                               e8 => q{Se necesita un indicativo y algún texto},
+                               e9 => q{Se necesita al menos algún texto},
+                               e10 => q{$_[0] no se encuentra conectado},
+                               e11 => q{No puedes usar tu propio $main:mycall como destino},
+                               e12 => q{Se necesita el indicativo del nodo},
+                               e13 => q{$_[0] no es un nodo},
+                               e14 => q{El primer argumento debe de ser numérico y > 0},
+                               e15 => q{calificador no válido "$_[0]"},
+                               e16 => q{El fichero "$_[0]" ya existe},
+                               e17 => q{Por favor no uses la palabra: @_ aquí},
+                               e18 => q{No se puede conectar con $_[0] ($!)},
+                               e19 => q{Carácter no válido en la línea $_[0]},
+                               e20 => q{Símbolo $_[0] no reconocido},
+                               e21 => q{$_[0] no es numérico},
+                               e22 => q{$_[0] no es un indicativo},
+                               e23 => q{$_[0] fuera de rango (ej: 0/30000)},
+                               e24 => q{Lo siento, el acceso a internet no está habilitado},
+                               e25 => q{Lo siento el valor debe de estar entre $_[0] y $_[1]},
+                               e26 => q{Demasiados errores, serás desconectado},
+                               e27 => q{$_[0] no es un número o un prefijo},
+                               e28 => q{Lo siento, necesitas registrarte (SP $main::myalias para registrarte)', },
+                               e29 => q{Necesitas password'},
+                               e30 => q{No se puede abrir $_[0] $!},
+                               e31 => q{$_[0] no es un usuario'},
+                               e32 => q{Se necesita una frase de contraseña},
+                               e33 => q{$_[0] No es un número de días o una fecha válida},
+                               e34 => q{Se necesita un grupo y algún texto},
+                               e35 => q{No eres un miembro del grupo $_[0], usa join $_[0] para entrar en este grupo},
+                               e36 => q{Solo puedes hacer esto desde el prompt de usuario},
+
+                               echoon => q{Eco local activado},
+                               echooff => q{Eco local desactivado},
+                               echow => q{*Eco local desactivado, set/echo para activarlo},
+                               emaile1 => q{Por favor introduce tu E-mail, set/email <tu E-mail>},
+                               emaila => q{Tu dirección E-mail es ahora "$_[0]"},
+                               email => q{La dirección E-mail es ahora: $_[0]},
+                               export1 => q{uso: export <número_mensaje> <nombre_fichero>},
+                               export2 => q{$_[3] hubo un error exportando mensaje $_[0] a $_[1] ($_[2])},
+                               export3 => q{$_[2 ] exportando mensaje $_[0] a $_[1]},
+                               filter1 => q{Filtro $_[0] actualizado con el nombre $_[1]},
+                               filter2 => q{Es necesario un valor para $_[0]},
+                               filter3 => q{No hay filtros definidos para $_[0]},
+                               filter4 => q{Filtro número $_[2] del tipo: $_[0]$_[1]  borrado para $_[3]},
+                               filter5 => q{Se necesitan algunos comandos para el filtro...},
+                               filter6 => q{$_[0]$_[1] Filtro para $[2] no encontrado},
+                               grids => q{Activada recepción de locators en spot (DX Grid) para $_[0]},
+                               gridu => q{Desactivada recepción de locators en spot (DX Grid) para $_[0]},
+                               gtks => q{Terminal GTK activado para $_[0]},
+                               gtku => q{Terminal GTK desactivado para $_[0]},
+                               illcall => q{Lo siento, $_[0] no es un indicativo válido},
+                               hasha => q{$_[0] ya existe en $_[1]},
+                               hashb => q{$_[0] añadido a $_[1]},
+                               hashc => q{$_[0] eliminado de $_[1]},
+                               hashd => q{$_[0] no se encuentra en $_[1]},
+                               hashe => q{$_[0] activado $_[1]},
+                               heading => q{Rumbo},
+                               helpe1 => q{La ayuda no está disponible, comunícaselo al sysop},
+                               helpe2 => q{No hay ayuda disponible para $_[0]},
+                               heres => q{Se informa a la red: $_[0] está presente},
+                               heade1 => q{Usando las coord. de $main::mycall, se recomienda usar set/location o set/qra},
+                               hereu => q{Se informa a la red: $_[0] está ausente},
+                               homebbs => q{Tu  BBS es ahora: $_[0]},
+                               homenode => q{Tu cluster habitual es ahora: $_[0]},
+                               hnodee1 => q{Por favor introduce tu cluster habitual, set/homenode <Tu DX cluster>},
+                               hnodee2 => q{Error al definir homenode en $_[0]},
+                               hnode => q{Tu nodo habitual es ahora "$_[0]"},
+                               init1 => q{Enviado mensaje de inicialización a $_[0]},
+                               iso => q{El cluster $_[0] se pone en modo pasivo (Aislado)},
+                               isou => q{El cluster $_[0] se pone en modo activo},
+                               isoc => q{$_[0] creado y definido como pasivo (Aislado)},
+                               isoari => q{Existe un filtro de rutas "input" para $_[0]; clear/route input $_[0] primero},
+                               isoaro => q{Existe un filtro de rutas para $_[0]; clear/route $_[0] primero', },
+                               isow => q{$_[0] está en modo aislado; unset/isolate $_[0] primero},
+                               join => q{Entras en el grupo $_[0]},
+                               l1 => q{Lo siento $_[0], ya estás conectado en otro canal},
+                               l2 => q{Hola $_[0], esta es $main::mycall en $main::myqth usando DXSpider V$main::version},
+                               lang => q{El idioma seleccionado es el Español},
+                               lange1 => q{set/language <idioma> donde <idioma> es uno entre ($_[0])},
+                               lange2 => q{Error al seleccionar idioma en $_[0]},
+                               lastconn => q{Última conexión},
+                               leave => q{Abandonas el grupo $_[0]},
+                               lh1 => q{$main::data/hop_table.pl no existe},
+                               local1 => q{Local},
+                               loce1 => q{Por favor introduce tu posición, set/location <latitud longitud>},
+                               loce2 => q{No se reconoce "$_[0]" como una Lat/Long (ej: 52 20 N 0 16E)},
+                               loce3 => q{$_[0] es un QRA locator, por favor usa: set/qra $_[0]},
+                               loc => q{Tu Lat/Long es ahora "$_[0]"},
+                               location => q{Location},
+                               lockout => q{$_[0] Excluido del sistema},
+                               lockoutc => q{$_[0] Creado y excluido del sistema},
+                               lockoutun => q{$_[0] Autorizado para conectar},
+                               lockoutuse => q{Uso: sh/lockout <indicativo|prefijo>|ALL},
+                               loginb => q{El colega $_[0] ha conectado},
+                               loginbn => q{El colega $_[0] ha conectado en $_[1]},
+                               logoutb => q{El colega $_[0] se ha desconectado},
+                               logoutbn => q{El colega $_[0] se ha desconectado de $_[1]},
+                               loginu => q{$_[0] conecta},
+                               logoutu => q{$_[0] se desconecta},
+                               loginn => q{$_[0] conecta},
+                               logoutn => q{$_[0] se desconecta},
+                               m1 => q{Introduce el título (máx. 30 caractéres):},
+                               m2 => q{Copia del mensaje $_[0] enviada a $_[1]},
+                               m3 => q{Lo siento, $_[0] no se aceptan mensajes a ese tópico},
+                               m4 => q{Lo siento, no se puede acceder al mensaje $_[0]},
+                               m5 => q{Lo siento, se necesita un número de mensaje},
+                               m6 => q{Reenviado a: $_[0]},
+                               m7 => q{Título : $_[0]},
+                               m8 => q{Introduce mensaje. /EX para terminar o /ABORT para interrumpir},
+                               m9 => q{Hay correo nuevo para ti. Bórralo una vez leído.},
+                               m10 => q{Mensaje interrumpido},
+                               m11 => q{Mensaje nr $_[0] guardado y enviado a $_[1]},
+                               m12 => q{Mensaje nr $_[0] borrado},
+                               m13 => q{Mensaje nr $_[0] no encontrado},
+                               m14 => q{Mensaje nr $_[0] marcado para ser enviado a $_[1]},
+                               m15 => q{El mensaje nr $_[0] no se enviará a $_[1]},
+                               m16 => q{Se necesita un número de mensaje},
+                               m17 => q{Lo siento, no puedo enviar el mensaje en $_[0] modo},
+                               m18 => q{Lo siento, el mensaje $_[0] está actualmente marcado como KEEP (Guardarlo)},
+                               m19 => q{Fichero de inicio de conexión de $_[0] guardado, contiene $_[1] línea(s)},
+                               m20 => q{Fichero de inicio de conexión vacio de  $_[0] borrado},
+                               msg1 => q{Cola de mensajes tipo Boletín},
+                               msg2 => q{Cola de mensajes tipo Privados},
+                               msg3 => q{Msg $_[0]: $_[1] cambiado de $_[2] a $_[3]},
+                               msgu => q{Uso: msg <cmd> <msgno> data...},
+                               merge1 => q{Petición de envío de $_[1] spots y $_[2] WWV enviada a $_[0]},
+                               moon => q{QTH                                   dd/mm/yyyy Salida Puesta},
+                               moon_with_azel => q{QTH                                   dd/mm/yyyy Salida Puesta   Azim   Elev',                               },
+                               mond => q{Activado modo monitor},
+                               mone => q{Desactivado modo monitor},
+                               name1 => q{Nombre},
+                               namee1 => q{Por favor, introduce tu nombre con set/name <tu nombre>},
+                               namee2 => q{No se encuentra el usuario $_[0]!},
+                               name => q{Tu nombre es "$_[0]"},
+                               nodea => q{$_[0] definido como nodo AK1A },
+                               nodeac => q{$_[0] creado como nodo AK1A },
+                               nodeb => q{$_[0] definido como BBS},
+                               nodebc => q{$_[0] creado como BBS},
+                               nodec => q{$_[0] definido como nodo CLX },
+                               nodecc => q{$_[0] creado como nodo CLX },
+                               noder => q{$_[0] definido como nodo AR-Cluster },
+                               noderc => q{$_[0] creado como nodo AR-Cluster },
+                               nodes => q{$_[0] definido como nodo DXSpider },
+                               nodesc => q{$_[0] creado como nodo DXSpider },
+                               nodex => q{$_[0] definido como nodo DXNET },
+                               nodexc => q{$_[0] creado como nodo DXNET },
+                               nodeu => q{$_[0] es ahora un usuario},
+                               nodee1 => q{No puedes usar este comando mientras $_[0] se encuentre conectado},
+                               notdone => q{No se ha podido realizar la operación},
+                               nothere => q{Lo siento, pero $_[0] no está aquí ahora, inténtalo mas tarde},
+                               obscount => q{El parámetro Ping obsolescence count para $_[0] se ajusta a $_[1]},
+                               ok => q{Operación realizada},
+                               outconn => q{Iniciando conexión con  $_[0]},
+                               page => q{Teclea Enter para continuar, A para abortar (Quedan $_[0] líneas) >},
+                               pagelth => q{La longitud de las páginas es ahora de $_[0] línea(s)},
+                               passerr => q{Por favor usa: SET/PASS <password> <indicativo>},
+                               passphrase => q{Passphrase definida o cambiada para $_[0]},
+                               passphraseu => q{Passphrase borrada para $_[0]},
+                               password => q{El Password ha sido definido o cambiado para $_[0]},
+                               passwordu => q{Contraseña borrada para $_[0]},
+                               pc90s => q{PC90 activado para $_[0]},
+                               pc90u => q{PC90 desactivado para $_[0]},
+                               pingo => q{Iniciado el ping a $_[0]},
+                               pingi => q{Ping devuelto por $_[0] en $_[1] (Ave $_[2]) segundos},
+                               pinge1 => q{No puedes enviarte un ping a ti mismo!},
+                               pingint => q{Intervalo de ping para $_[0] ajustado a $_[1] segundos},
+                               'pos' => q{Desde el indicativo: $_[0] Lat: $_[1] Long: $_[2]},
+                               prs => q{El Prompt ha sido cambiado},
+                               pru => q{El Prompt vuelve a ser el normal por defecto},
+                               priv => q{Nivel de privilegios modificado para $_[0]},
+                               prx => q{$main::mycall >},
+                               pw0 => q{Escribe el password antiguo: },
+                               pw1 => q{Escribe el nuevo password: },
+                               pw2 => q{Confirma el nuevo password: },
+                               pw3 => q{El Password ha sido cambiado},
+                               pw4 => q{Los passwords no coinciden, NO se han cambiado},
+                               qll => q{Por favor introduce tu locator con set/location o set/qra},
+                               qthe1 => q{Por favor introduce tu QTH, set/qth <tu qth>},
+                               qth => q{Tu QTH es ahora "$_[0]"},
+                               qrae1 => q{Por favor introduce tu QRA locator, set/qra <qra locator> (ej: set/qra JO02LQ)},
+                               qrashe1 => q{Por favor introduce un QRA locator, ej sh/qra JO02LQ o sh/qra JO02LQ IO93NS},
+                               qrae2 => q{No se reconoce "$_[0]" como un QRA locator ( ej JO02LQ)},
+                               qra => q{Tu QRA Locator es ahora "$_[0]"},
+                               qsl1 => q{Indicativo     Manager   Nº veces  Ãšltimo Spot      De},
+                               rcmdo => q{RCMD "$_[0]" enviado a $_[1]},
+                               read1 => q{Lo siento, no hay mensajes nuevos para ti},
+                               read2 => q{Mensaje $_[0] no encontrado},
+                               read3 => q{Mensaje $_[0] no disponible},
+                               rec => q{$_[0] registro(s)},
+                               reg => q{$_[0] registrado},
+                               regc => q{$_[0] creado y registrado},
+                               reginac => q{El registro no está activo (set/var \$main::regreq = 1 para activarlo)},
+                               regun => q{El usuario $_[0] no está registrado},
+                               route => q{$_[0] en $_[1] vía $_[2]},
+                               sat1 => q{Tabla de seguimiento $_[0] para las próximas $_[1] horas cada $_[2] minutos},
+                               sat2 => q{dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km},
+                               sat3 => q{Sintaxis: SH/SAT <nombre> [<horas> <intervalo>]},
+                               sat4 => q{Satélites disponibles:},
+                               sat5 => q{Es necesario el título nnnn.AMSAT para actualizar datos keps. desde un mensaje},
+                               satnf => q{Satélite $_[0] desconocido},
+                               satdisc => q{-----},
+                               set => q{$_[0] habilitado para $_[1]},
+                               sethop1 => q{Uso: set/hops <indicativo> ann|spots|wwv|wcy <nr de hops>},
+                               sethop2 => q{$_[0] hops set on $_[1]$_[2] para $_[3]},
+                               sethop3 => q{No hay hops definidos para $_[0]},
+                               showconf => q{Nodo         Indicativos},
+                               shu => q{"SHU" No es suficiente! Es necesario como mínimo escribir "SHUT" para apagar el cluster},
+                               shutting => q{$main::mycall shutting down...},
+                               sloc => q{Cluster lat $_[0] long $_[1], NO OLVIDES CAMBIAR TU DXVars.pm},
+                               snode1 => q{Nodo Call   Sort    Versión},
+                               snode2 => q{$_[0] $_[1]  $_[2]},
+                               snode3 => q{$_[0] Indicativo desconocido},
+                               sqra => q{Cluster QRA Locator$_[0], NO OLVIDES CAMBIAR TU DXVars.pm},
+                               sorry => q{Lo siento},
+                               spf1 => q{spoof: creando nuevo usuario $_[0]},
+                               stathf => q{Estadísticas de spots en HF de los Ãºltimos $_[1] días desde el $_[0]},
+                               stathft => q{Estadísticas de spots en HF de los Ãºltimos $_[2] días desde el $_[1] para DXCC $_[0]},
+                               statvhf => q{VHF + DX Spot Stats, Ãºltimos $_[1] días desde el $_[0]},
+                               statvhft => q{VHF + DX Spot Stats, Ãºltimos $_[2] días desde el $_[1] para DXCC $_[0]},
+                               statdx => q{Total de Spots de DX en los Ãºltimos $_[1] días desde el $_[0]},
+                               storable => q{Por favor, instale el módulo Storable de CPAN'},
+                               sun => q{QTH                                   dd/mm/yyyy Salida Puesta},
+                               sun_with_azel => q{QTH                                   dd/mm/yyyy Salida Puesta   Azim   Elev},
+                               susdb1 => q{Uso: indicativo estado ciudad},
+                               susdb2 => q{USDB $_[0] era $_[1], $_[2]},
+                               susdb3 => q{USDB $_[0] es ahora $_[1], $_[2]},
+                               susdb4 => q{USDB $_[0] borrado},
+                               suser1 => q{Uso: indicativo user_field_name valor},
+                               suser2 => q{Usuario $_[0] no encontrado},
+                               suser3 => q{User field '$_[0]' era '$_[1]' ahora es '$_[2]'},
+                               suser4 => q{User field name '$_[0]' no existe},
+                               time1 => q{Horario local: $_[0] $_[1], UTC $_[2]},
+                               time2 => q{$_[0] Local (standard) time: $_[1] ($_[2] Horas)},
+                               time3 => q{$_[0]  $_[1]},
+                               talks => q{Recepción de mensajes Talk activado para $_[0]},
+                               talku => q{Recepción de mensajes Talk desactivado para $_[0]},
+                               talkend => q{Finalizado modo talk contigo},
+                               talkinst => q{Entrando en modo talk, /EX para salir, /<cmd> para ejecutar un comando},
+                               talknh => q{Lo siento $_[0] no está conectado en este momento},
+                               talkprompt => q{Talk ($_[0])>},
+                               talkstart => q{Iniciando modo talk contigo},
+                               unset => q{$_[0] desactivado para $_[1]},
+                               unsethop1 => q{Uso: unset/hops <indicativo> ann|spots|wwv|wcy},
+                               unsethop2 => q{Borrados los hops para $_[1] en $_[0]'},
+                               user => q{Usuario},
+                               userconn => q{Indicativos conectados a},
+                               usernf => q{*** No se encuentra el registro de usuario de $_[0] ***},
+                               usstates => q{Activada vista del estado USA en spots para $_[0]},
+                               usstateu => q{Desactivada vista del estado USA en spots para $_[0]},
+                               usernf => q{*** Registro de usuario $_[0] no encontrado ***},
+                               wcy1 => q{$_[0] falta o está fuera de rango},
+                               wcy2 => q{WCY Duplicado},
+                               wcy3 => q{Fecha       Hora   SFI   A   K Exp.K   R SA    GMF   Aurora   Logger},
+                               wcys => q{Activada recepción de anuncios WCY para $_[0]},
+                               wcyu => q{Desactivada recepción de anuncios WWV para $_[0]},
+                               wpc16s => q{Admitir PC16 de $_[0] activado},
+                               wpc16u => q{Admitir PC16 de $_[0] desactivado},
+                               wpc19s => q{Activada ruta PC19 para $_[0]},
+                               wpc19u => q{Desactivada ruta PC19 para $_[0]},
+                               wpc90s => q{PC90 para $_[0] activado},
+                               wpc90u => q{PC90 para $_[0] descativado},
+                               wwv1 => q{$_[0] falta o está fuera de rango},
+                               wwv2 => q{WWV Duplicado},
+                               wwv3 => q{Fecha       Hora   SFI   A   K Previsión                              Logger},
+                               wwvs => q{Activada recepción de anuncios WWV para $_[0]},
+                               wwvu => q{Desactivada recepción de anuncios WWV para $_[0]},
+                               wxs => q{Activada recepción de anuncios WX para $_[0]},
+                               wxu => q{Desactivada recepción de anuncios WX para $_[0]},
                           },
                 de => {
-                               addr => 'Adresse gesetzt auf: $_[0]',
-                               already => '$_[0] bereits verbunden',
-                               anns => 'Announce flag gesetzt auf $_[0]',
-                               annu => 'Announce flag zurueckgesetzt auf $_[0]',
-                               annts => 'AnnTalk flag gesetzt auf $_[0]',
-                               anntu => 'AnnTalk flag zurueckgesetzt auf $_[0]',
-                               badnode1 => '$_[0] ist nun ein bad node',
-                               badnode2 => '$_[0] ist nun ein good node',
-                               badnode3 => 'Liste der Bad Nodes:-',
-                               bbse1 => 'Bitte die BBS Adresse eingeben,, set/bbs <your bbs address>',
-                               bbs => 'Deine BBS Adresse ist nun \"$_[0]\"',
-                               beepoff => 'Beeps sind nun aus',
-                               beepon => 'Beeps sind jetzt eingeschaltet',
-                               call1 => 'Callsign lookup via $_[0]:',
-                               conother => 'Sorry $_[0] Du bist zu diesem Cluster auf einem anderen Port connected',
-                               concluster => 'Sorry $_[0] Du bist schon anderswo mit einem Cluster verbunden (on $_[1])',
-                               conscript => 'Kein connect script mit Namen \"$_[0]\" gefunden in $main::root/connect',
-                               confail => 'Verbindungsaufbau zu $_[0] misslungen ($_[1])',
-                               constart => 'Verbindungsaufbau zu $_[0] gestartet',
-                               deluser => 'User $_[0] wurde geloescht',
-                               db1 => 'Diese Datenbank ist untergebracht bei $_[0]',
-                               db2 => 'Sorry, aber Schluesselwort: $_[0] wurde nicht gefunden in $_[1]',
-                               db3 => 'Sorry, Datenbank $_[0] existiert hier nicht',
-                               db4 => 'Sorry, Datenbank $_[0] untergebracht bei $_[1] ist nicht online',
-                               db5 => 'Zugriff auf fremde Datenbank bei $_[0]...standby...',
-                               db6 => 'Datenbank $_[0] existiert bereits, bitte zuerst loeschen',
-                               db7 => 'Datenbank $_[0] angelegt fuer remote Cluster $_[1]',
-                               db8 => 'Datenbank $_[0] lokal angelegt',
-                               db9 => 'Datenbank $_[0] entfernt',
-                               db10 => '$_[0] Datensaetze importiert in $_[1]',
-                               db11 => 'Sende Deine Anfrage(n)an $_[0], bitte stand by...',
-                               db12 => 'DB Name          Location   Cmd             Chain',
-                               dfreq1 => 'Ungueltige Freq $_[0] brauche: z.B. 0/30000 oder hf oder hf/cw',
-                               dir1 => 'Keine Nachricht gefunden',
-                               disc1 => 'Disconnected von $_[0]',
-                               disc2 => 'Kanal $_[0] disconnected',
-                               disc3 => 'Kein Kanal, aber Verbindung $_[0] disconnected',
-                               disc4 => 'Kein Kanal oder Verbindung, aber Waise $_[0] disconnected',
-                               done => 'Done',
-                               dup => 'Sorry, dies ist ein Duplikat',
-                               dx1 => 'Frequenz $_[0] nicht im Band (siehe show/band); Gebrauch: DX [BY call] Freq Call Kommentar',
-                               dx2 => 'Brauche ein Rufzeichen; Gebrauch: DX [BY call] Freq Call Kommentar',
-                               dx3 => 'Das Rufzeichen oder Frequenz ist ungueltig',
-                               dxcqs => 'DX CQ Zones aktiviert fuer $_[0]',
-                               dxcqu => 'DX CQ Zones deaktiviert fuer $_[0]',
-                               dxitus => 'DX ITU Zones aktiviert fuer $_[0]',
-                               dxituu => 'DX ITU Zones deaktiviert fuer $_[0]',
-                               dxs => 'DX Spots flag gesetzt auf $_[0]',
-                               dxu => 'DX Spots flag zurueckgesetzt auf $_[0]',
-                               e1 => 'Ungueltiger Befehl',
-                               e2 => 'Fehler: $_[0]',
-                               e3 => '$_[0]: $_[1] nicht gefunden',
-                               e4 => 'Brauche zumindestens einen Prefix oder ein Rufzeichen',
-                               e5 => 'Nicht erlaubt',
-                               e6 => '*** Keine Station angegeben ***',
-                               e7 => 'Rufzeichen $_[0] nicht sichtbar im Cluster',
-                               e8 => 'Brauche ein Rufzeichen und etwas Text',
-                               e9 => 'Brauche wenigstens etwas Text',
-                               e10 => '$_[0] nicht lokal connected',
-                               e11 => 'Kann nicht $main:mein Rufzeichen als Ziel',
-                               e12 => 'Brauche ein Node Rufzeichen',
-                               e13 => '$_[0] ist kein Node',
-                               e14 => 'Erstes Argument muss eine Zahl und > 0 sein',
-                               e15 => 'Unguelitges Abfragekriterium \"$_[0]\"',
-                               e16 => 'Datei \"$_[0]\" existiert',
-                               e17 => 'Bitte gebrauche dieses Wort: @_ nicht hier',
-                               e18 => 'Kann nicht verbinden mit $_[0] ($!)',
-                               e19 => 'Ungueltiger Character in der Zeile $_[0]',
-                               e20 => 'Kuerzel $_[0] nicht erkannt',
-                               e21 => '$_[0] nicht numerisch',
-                               e22 => '$_[0] kein Rufzeichen',
-                               e23 => '$_[0] kein Bereich (z.B. 0/30000)',
-                               e24 => 'Sorry, Internet Zugriff ist nicht freigeschaltet',
-                               e25 => 'Sorry der Wert muss zwischen $_[0] und $_[1] sein',
-                               e26 => 'Zu viele Fehler gleichzeitig, Du wirst disconnected',
-                               e27 => '$_[0] kein numerisches oder Rufzeichen Prefix',
-                               e28 => 'Sorry, Du musst Dich registrieren (SP $main::myalias to register)',
-                               e29 => 'Brauche eine Passwort',
-                               e30 => 'Kann nicht $_[0] $ oeffnen!',
-                               e31 => '$_[0] ist kein User', 
-                               e32 => 'Brauche ein Passwort',
-                               e33 => '$_[0] ist keine Anzahl von Tagen oder ein gueltiges Datum',
-                               e34 => 'Brauche eine GROUP und etwas Text',
-                               e35 => 'Du bist kein Mitglied von $_[0], trete $_[0] bei',
-                               echoon => 'Echo enabled',
-                               echooff => 'Echo disabled',
-                               echow => '*Echo ist momentan disabled, set/echo zum aktivieren',
-                               emaile1 => 'Bitte E-Mail Addresse eingeben, set/email <Deine e-mail Adresse>',
-                               emaila => 'Deine E-Mail Adresse ist nun \"$_[0]\"',
-                               email => 'E-mail Adresse gesetzt auf: $_[0]',
-                               export1 => 'Gebrauch: export <msgno> <dateiname>',
-                               export2 => '$_[3] has error exporting msg $_[0]to $_[1] ($_[2])',
-                               export3 => '$_[2 ] exportierte msg $_[0] to $_[1]',
-                               filter1 => 'Filter $_[0] upgedated fuer $_[1]',
-                               filter2 => 'Unbekanntes Filter Schluesselwort $_[0]',
-                               filter3 => 'Keine Filter definiert fuer $_[0]',
-                               filter4 => '$_[0]$_[1] Filter $_[2] geloescht fuer$_[3]',
-                               filter5 => 'brauche ein paar Filter Kommandos...',
-                               filter6 => '$_[0]$_[1] Filter fuer $[2] nicht gefunden',
-                               grids => 'DX Grid flag gesetzt auf $_[0]',
-                               gridu => 'DX Grid flag zurueckgesetzt auf $_[0]',
-                               illcall => 'Sorry, $_[0] ist ein ungueltiges Rufzeichen',
-                               hasha => '$_[0] existiert bereits in $_[1]',
-                               hashb => '$_[0] zugefuegt zu $_[1]',
-                               hashc => '$_[0] entfernt von $_[1]',
-                               hashd => '$_[0] nicht in $_[1]',
-                               hashe => '$_[0] gesetzt auf $_[1]',
-                               helpe1 => 'Hilfe System nicht verfuegbar, bitte Sysop benachrichtigen',
-                               helpe2 => 'Keine Hilfe verfuegbar auf $_[0]',
-                               heres => 'Hier gesetzt auf $_[0]',
-                               heade1 => 'Using $main::mycall Coords, entspricht einem set/location or set/qra',
-                               hereu => 'HERE zurueckgesetzt auf $_[0]',
-                               homebbs => 'Heimat-BBS gesetzt auf: $_[0]',
-                               homenode => 'Heimat-Node gesetzt auf: $_[0]',
-                               hnodee1 => 'Bitte Heimat-Node eingeben, set/homenode <Dein Heimat DX Cluster>',
-                               hnodee2 => 'Heimat-Node setzen ist misslungen $_[0]',
-                               hnode => 'Dein Heimat-Node ist nun \"$_[0]\"',
-                               init1 => 'Initialisierungs-Nachricht gesendet an $_[0]',
-                               iso => '$_[0] Isoliert',
-                               isou => '$_[0] UnIsoliert',
-                               isoc => '$_[0] erstellt und Isoliert',
-                               isoari => 'Es gibt einen  Eingabe Route Filter fuer $_[0]; clear/route input $_[0] zuerst',
-                               isoaro => 'Es gibt einen Ausgabe Route Filter fuer $_[0]; clear/route $_[0] zuerst',
-                               isow => '$_[0] ist isoliert; unset/isolate $_[0] zuerst',
-                               join => 'Trete Gespraechsgruppe $_[0] bei',
-                               l1 => 'Sorry $_[0], Du bist bereits auf einem anderen Kanal eingeloggt',
-                               l2 => 'Moin $_[0], hier ist $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
-                               lang => 'Sprache ist jetzt Deutsch',
-                               lange1 => 'set/language <lang> wobei <lang> ist eine von ($_[0])',
-                               lange2 => 'Fehler beim Setzen der Sprache auf $_[0]',
-                               lh1 => '$main::data/hop_table.pl existiert nicht',
-                               loce1 => 'Bitte Deinen Standort eingeben, set/location <latitude longitude>',
-                               loce2 => 'Nicht anerkannt \"$_[0]\" als Lat/Long (z.B. 52 20 N 0 16 E)',
-                               loce3 => '$_[0] ist ein QRA Locator, Gebrauch: set/qra $_[0]',
-                               loc => 'Dein Lat/Long ist nun \"$_[0]\"',
-                               lockout => '$_[0] ausgesperrt',
-                               lockoutc => '$_[0] erstellt und ausgesperrt',
-                               lockoutun => '$_[0] Aussperrung aufgehoben',
-                               lockoutuse => 'Gebrauch: sh/lockout <Rufzeichen>|ALL',
-                               loginu => 'User $_[0] hat eingeloggt',
-                               logoutu => 'User $_[0] hat ausgeloggt',
-                               loginn => 'Node $_[0] hat eingeloggt',
-                               logoutn => 'Node $_[0] hat ausgeloggt',
-                               m1 => 'Betreff eingeben (max. 30 Zeichen):',
-                               m2 => 'Kopie der msg $_[0] gesendet an $_[1]',
-                               m3 => 'Sorry, $_[0] ist keine akzeptable TO Adresse',
-                               m4 => 'Sorry, kann nicht zugreifen auf Nachricht $_[0]',
-                               m5 => 'Sorry, ich brauche eine Nachrichten Nummer',
-                               m6 => 'Reply to: $_[0]',
-                               m7 => 'Betreff : $_[0]',
-                               m8 => 'Nachricht eingeben, /EX zum Absenden oder /ABORT zum Abbrechen',
-                               m9 => 'Neue Nachricht(en) fuer Dich',
-                               m10 => 'Nachricht abgebrochen',
-                               m11 => 'Nachricht Nr. $_[0] gesichert und weitergeleitet an $_[1]',
-                               m12 => 'Nachricht Nr. $_[0] geloescht',
-                               m13 => 'Nachricht Nr. $_[0] fehlt',
-                               m14 => 'Nachricht Nr. $_[0] markiert als gesendet an $_[1]',
-                               m15 => 'Nachricht Nr. $_[0] unmarkiert als gesendet an $_[1]',
-                               m16 => 'Brauche eine Nachrichten-Nummer',
-                               m17 => 'Sorry, kann Nachricht nicht senden im $_[0] Mode',
-                               m18 => 'Sorry, Status von Nachricht Nr. $_[0] ist momentan KEEP',
-                               msg1 => 'Bulletin Nachrichten aufgeschoben',
-                               msg2 => 'Private Nachrichten aufgeschoben',
-                               msg3 => 'Msg $_[0]: $_[1] geaendert von $_[2] auf $_[3]',
-                               msgu => 'Gebrauch: msg <cmd> <msgno> data...',
-                               merge1 => 'Merge request fuer $_[1] Spots und $_[2] WWV gesendet an $_[0]',
-                               moon => 'Standort                              dd/mm/yyyy Rise   Set',
-                               moon_with_azel => 'Standort                              dd/mm/yyyy Rise   Set      Azim   Elev',
-                               mond => 'Ueberwachung Disabled',
-                               mone => 'Ueberwachung Enabled',
-                               namee1 => 'Bitte Deinen Namen eingeben, set/name <Dein Name>',
-                               namee2 => 'Kann User $_[0] nicht finden!',
-                               name => 'Dein Name ist jetzt \"$_[0]\"',
-                               nodea => '$_[0] gesetzt als AK1A style Node',
-                               nodeac => '$_[0] erstellt als AK1A style Node',
-                               nodeb => '$_[0] gesetzt als BBS',
-                               nodebc => '$_[0] erstellt als BBS',
-                               nodec => '$_[0] gesetzt als CLX style Node',
-                               nodecc => '$_[0] erstellt als CLX style Node',
-                               noder => '$_[0] gesetzt als AR-Cluster style Node',
-                               noderc => '$_[0] erstellt als AR-Cluster style Node',
-                               nodes => '$_[0] gesetzt als DXSpider style Node',
-                               nodesc => '$_[0] erstellt als DXSpider style Node',
-                               nodex => '$_[0] gesetzt als DXNET style Node',
-                               nodexc => '$_[0] erstellt als DXNET style Node',
-                               nodeu => '$_[0] zurueckgesetzt als ein User',
-                               nodee1 => 'Du kannst dieses Kommando nicht ausfuehren waehrend Dein Ziel ($_[0]) online ist',
-                               notdone => 'Nicht ausgefuehrt',
-                               nothere => 'Sorry, aber $_[0] ist nicht hier im Moment, bitte spaeter noch einmal Versuchen',
-                               obscount => 'Ping obsolescence count on $_[0] set to $_[1]',
-                               ok => 'Operation erfolgreich',
-                               outconn => 'Outstanding connect to $_[0]',
-                               page => 'Druecke Enter zum fortfahren, A zum abbrechen ($_[0] lines) >',
-                               pagelth => 'Seitenlaenge ist nun $_[0]',
-                               passerr => 'Gebrauch: SET/PASS <Passwort> <Rufzeichen>',
-                               password => 'Passwort gesetzt oder geaendert fuer $_[0]',
-                               passwordu => 'Passwort geloescht fuer $_[0]',
-                               pingo => 'Ping gestartet nach $_[0]',
-                               pingi => 'Ping erfolgreich zu $_[0] $_[1] (durchschn. $_[2]) Sekunden',
-                               pinge1 => 'Du kannst Dich nicht selber pingen!',
-                               pingint => 'Ping-Intervall zu $_[0] gesetzt auf $_[1] Sekunden',
-                               'pos' => 'Von Rufzeichen: $_[0] Breite: $_[1] Laenge: $_[2]',
-                               prs => 'Prompt gesetzt auf \"$_[0]\"',
-                               pru => 'Prompt jetzt zurueckgesetzt auf Default-Einstellung',
-                               priv => 'Priviligierten Level geaendert auf $_[0]',
-                               prx => '$main::mycall >',
-                               pw0 => 'Altes Passwort eingeben: ',
-                               pw1 => 'Neues Passwort eingeben: ',
-                               pw2 => 'Wiederhole neues Passwort: ',
-                               pw3 => 'Passwort geaendert',
-                               pw4 => 'Passwoerter differieren, Passwort NICHT geaendert',
-                               qll => 'Bitte gib Deinen Standort als geograph. Koordinaten mit set/location oder als Maidenhead-Kenner mit set/qra ein',
-                               qthe1 => 'Bitte gib Dein QTH ein mit set/qth <Dein qth>',
-                               qth => 'Dein QTH ist nun \"$_[0]\"',
-                               qrae1 => 'Bitte gib Deinen QRA Locator ein mit set/qra <qra locator> (z.B. set/qra JO44RK)',
-                               qrashe1 => 'Bitte einen QRA Locator eingeben, z.B. sh/qra JO02LQ oder sh/qra JO02LQ IO93NS',
-                               qrae2 => 'Erkenne nicht \"$_[0]\" als einen QRA Locator (z.B. JO02LQ)',
-                               qra => 'Dein QRA Locator ist nun \"$_[0]\"',
-                               rcmdo => 'RCMD \"$_[0]\" gesendet an $_[1]',
-                               read1 => 'Sorry, keine neuen Nachrichten fuer Dich',
-                               read2 => 'Msg $_[0] nicht gefunden',
-                               read3 => 'Msg $_[0] nicht verfuegbar',
-                               rec => '$_[0] records',
-                               reg => '$_[0] registriert',
-                               regc => '$_[0] erstellt und registriert',
-                               reginac => 'Registrierung ist nicht aktiv (set/var \$main::reqreg = 1 to activate)',
-                               regun => '$_[0] unregistriert',
-                               route => '$_[0] auf $_[1] via $_[2]',
-                               sat1 => 'Tracking Tabelle fuer $_[0] fuer die naechsten $_[1] Stunden alle $_[2] mins',
-                               sat2 => 'dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km',
-                               sat3 => 'Syntax: SH/SAT <name> [<hours> <interval>]',
-                               sat4 => 'Satelliten verfuegbar:-',
-                               sat5 => 'Brauche nnnnn.AMSAT im Betreff um Keplerelemente von dieser Nachricht zu laden',
-                               satnf => 'Satellit $_[0] unbekannt',
-                               satdisc => '-----',
-                               sethop1 => 'Gebrauch: set/hops <Rufzeichen> ann|spots|wwv|wcy <Anzahl der Hops>',
-                               sethop2 => '$_[0] hops gesetzt auf $_[1]$_[2] fuer $_[3]',
-                               sethop3 => 'Keine hops gesetzt fuer $_[0]',
-                               shu => '\"SHU\" genuegt nicht! Du musst mindestens \"SHUT\" eingeben, um den Node herunterzufahren',
-                               shutting => '$main::mycall shutting down...',
-                               sloc => 'Cluster lat $_[0] long $_[1], Nicht vergessen die DXVars.pm zu aendern',
-                               snode1 => 'Node Call   Sort    Version',
-                               snode2 => '$_[0] $_[1]  $_[2]',
-                               snode3 => '$_[0] Unbekanntes Rufzeichen',
-                               sqra => 'Cluster QRA Locator$_[0], Nicht vergessen die DXVars.pm zu aendern',
-                               sorry => 'Sorry',
-                               spf1 => 'spoof: erzeuge neuen User $_[0]',
-                               stathf => 'HF DX Spot Stats, letzte 31 Tage',
-                               stathft => 'HF DX Spot Stats, letzte 31 Tage fuer DXCC $_[0]',
-                               statvhf => 'VHF+ DX Spot Stats, letzte 31 Tage',
-                               statvhft => 'VHF+ DX Spot Stats, letzte 31 Tage fuer DXCC $_[0]',
-                               statdx => 'Total DX Spots letzte 31 Tage',
-                               sun => 'Location                              dd/mm/jjjj Rise   Set',
-                               sun_with_azel => 'Location                              dd/mm/jjjj Rise   Set      Azim   Elev',
-                               suser1 => 'Gebrauch: Rufzeichen user_field_name value',
-                               suser2 => 'User $_[0] nicht gefunden',
-                               suser3 => 'User Feld \'$_[0]\' war \'$_[1]\' nun gesetzt auf \'$_[2]\'',
-                               suser4 => 'User Feld Name \'$_[0]\' existiert nicht',
-                               time1 => 'Lokala Zeit: $_[0] $_[1], UTC $_[2]',
-                               time2 => '$_[0] Lokale (standard) Zeit: $_[1] ($_[2] Stunden)',
-                               time3 => '$_[0]  $_[1]',
-                               talks => 'Talk flag gesetzt auf $_[0]',
-                               talku => 'Talk flag zurueckgesetzt auf $_[0]',
-                               talkend => 'Beendet Talk zu Dir',
-                               talkinst => 'Talkmode, /EX zum Beenden, /<cmd> um ein Kommando auszufuehren',
-                               talknh => 'Sorry $_[0] ist im moment nicht online',
-                               talkprompt => 'Talk ($_[0])>',
-                               talkstart => 'Startet Talkmode zu Dir',
-                               unset => '$_[0] deaktiviert fuer $_[1]',
-                               unsethop1 => 'Gebrauch: unset/hops <call> ann|spots|wwv|wcy',
-                               user => 'User',
-                               userconn => 'Rufzeichen verbunden mit',
-                               usernf => '*** User Satz fuer $_[0] nicht gefunden ***',
-                               wwvs => 'WWV flag gesetzt auf $_[0]',
-                               wwvu => 'WWV flag zurueckgesetzt auf $_[0]',
-                               wxs => 'WX flag gesetzt auf $_[0]',
-                               wxu => 'WX flag zurueckgesetzt auf $_[0]',
+
+                               addr => q{Adresse gesetzt auf: $_[0]},
+                               already => q{$_[0] bereits verbunden},
+                               anns => q{Announce flag gesetzt auf $_[0]},
+                               annu => q{Announce flag zurueckgesetzt auf $_[0]},
+                               annts => q{AnnTalk flag gesetzt auf $_[0]},
+                               anntu => q{AnnTalk flag zurueckgesetzt auf $_[0]},
+                               badnode1 => q{$_[0] ist nun ein bad node},
+                               badnode2 => q{$_[0] ist nun ein good node},
+                               badnode3 => q{Liste der Bad Nodes:-},
+                               bbse1 => q{Bitte die BBS Adresse eingeben,, set/bbs <your bbs address>},
+                               bbs => q{Deine BBS Adresse ist nun "$_[0]"},
+                               beepoff => q{Beeps sind nun aus},
+                               beepon => q{Beeps sind jetzt eingeschaltet},
+                               call1 => q{Callsign lookup via $_[0]:},
+                               conother => q{Sorry $_[0] Du bist zu diesem Cluster auf einem anderen Port connected},
+                               concluster => q{Sorry $_[0] Du bist schon anderswo mit einem Cluster verbunden (on $_[1])},
+                               conscript => q{Kein connect script mit Namen "$_[0]" gefunden in $main::root/connect},
+                               confail => q{Verbindungsaufbau zu $_[0] misslungen ($_[1])},
+                               constart => q{Verbindungsaufbau zu $_[0] gestartet},
+                               deluser => q{User $_[0] wurde geloescht},
+                               db1 => q{Diese Datenbank ist untergebracht bei $_[0]},
+                               db2 => q{Sorry, aber Schluesselwort: $_[0] wurde nicht gefunden in $_[1]},
+                               db3 => q{Sorry, Datenbank $_[0] existiert hier nicht},
+                               db4 => q{Sorry, Datenbank $_[0] untergebracht bei $_[1] ist nicht online},
+                               db5 => q{Zugriff auf fremde Datenbank bei $_[0]...standby...},
+                               db6 => q{Datenbank $_[0] existiert bereits, bitte zuerst loeschen},
+                               db7 => q{Datenbank $_[0] angelegt fuer remote Cluster $_[1]},
+                               db8 => q{Datenbank $_[0] lokal angelegt},
+                               db9 => q{Datenbank $_[0] entfernt},
+                               db10 => q{$_[0] Datensaetze importiert in $_[1]},
+                               db11 => q{Sende Deine Anfrage(n)an $_[0], bitte stand by...},
+                               db12 => q{DB Name          Location   Cmd             Chain},
+                               dfreq1 => q{Ungueltige Freq $_[0] brauche: z.B. 0/30000 oder hf oder hf/cw},
+                               dir1 => q{Keine Nachricht gefunden},
+                               disc1 => q{Disconnected von $_[0]},
+                               disc2 => q{Kanal $_[0] disconnected},
+                               disc3 => q{Kein Kanal, aber Verbindung $_[0] disconnected},
+                               disc4 => q{Kein Kanal oder Verbindung, aber Waise $_[0] disconnected},
+                               done => q{Done},
+                               dup => q{Sorry, dies ist ein Duplikat},
+                               dx1 => q{Frequenz $_[0] nicht im Band (siehe show/band); Gebrauch: DX [BY call] Freq Call Kommentar},
+                               dx2 => q{Brauche ein Rufzeichen; Gebrauch: DX [BY call] Freq Call Kommentar},
+                               dx3 => q{Das Rufzeichen oder Frequenz ist ungueltig},
+                               dxcqs => q{DX CQ Zones aktiviert fuer $_[0]},
+                               dxcqu => q{DX CQ Zones deaktiviert fuer $_[0]},
+                               dxitus => q{DX ITU Zones aktiviert fuer $_[0]},
+                               dxituu => q{DX ITU Zones deaktiviert fuer $_[0]},
+                               dxs => q{DX Spots flag gesetzt auf $_[0]},
+                               dxu => q{DX Spots flag zurueckgesetzt auf $_[0]},
+                               e1 => q{Ungueltiger Befehl},
+                               e2 => q{Fehler: $_[0]},
+                               e3 => q{$_[0]: $_[1] nicht gefunden},
+                               e4 => q{Brauche zumindestens einen Prefix oder ein Rufzeichen},
+                               e5 => q{Nicht erlaubt},
+                               e6 => q{*** Keine Station angegeben ***},
+                               e7 => q{Rufzeichen $_[0] nicht sichtbar im Cluster},
+                               e8 => q{Brauche ein Rufzeichen und etwas Text},
+                               e9 => q{Brauche wenigstens etwas Text},
+                               e10 => q{$_[0] nicht lokal connected},
+                               e11 => q{Kann nicht $main:mein Rufzeichen als Ziel},
+                               e12 => q{Brauche ein Node Rufzeichen},
+                               e13 => q{$_[0] ist kein Node},
+                               e14 => q{Erstes Argument muss eine Zahl und > 0 sein},
+                               e15 => q{Unguelitges Abfragekriterium "$_[0]"},
+                               e16 => q{Datei "$_[0]" existiert},
+                               e17 => q{Bitte gebrauche dieses Wort: @_ nicht hier},
+                               e18 => q{Kann nicht verbinden mit $_[0] ($!)},
+                               e19 => q{Ungueltiger Character in der Zeile $_[0]},
+                               e20 => q{Kuerzel $_[0] nicht erkannt},
+                               e21 => q{$_[0] nicht numerisch},
+                               e22 => q{$_[0] kein Rufzeichen},
+                               e23 => q{$_[0] kein Bereich (z.B. 0/30000)},
+                               e24 => q{Sorry, Internet Zugriff ist nicht freigeschaltet},
+                               e25 => q{Sorry der Wert muss zwischen $_[0] und $_[1] sein},
+                               e26 => q{Zu viele Fehler gleichzeitig, Du wirst disconnected},
+                               e27 => q{$_[0] kein numerisches oder Rufzeichen Prefix},
+                               e28 => q{Sorry, Du musst Dich registrieren (SP $main::myalias to register)},
+                               e29 => q{Brauche eine Passwort},
+                               e30 => q{Kann nicht $_[0] $ oeffnen!},
+                               e31 => q{$_[0] ist kein User'},
+                               e32 => q{Brauche ein Passwort},
+                               e33 => q{$_[0] ist keine Anzahl von Tagen oder ein gueltiges Datum},
+                               e34 => q{Brauche eine GROUP und etwas Text},
+                               e35 => q{Du bist kein Mitglied von $_[0], trete $_[0] bei},
+                               echoon => q{Echo enabled},
+                               echooff => q{Echo disabled},
+                               echow => q{*Echo ist momentan disabled, set/echo zum aktivieren},
+                               emaile1 => q{Bitte E-Mail Addresse eingeben, set/email <Deine e-mail Adresse>},
+                               emaila => q{Deine E-Mail Adresse ist nun "$_[0]"},
+                               email => q{E-mail Adresse gesetzt auf: $_[0]},
+                               export1 => q{Gebrauch: export <msgno> <dateiname>},
+                               export2 => q{$_[3] has error exporting msg $_[0]to $_[1] ($_[2])},
+                               export3 => q{$_[2 ] exportierte msg $_[0] to $_[1]},
+                               filter1 => q{Filter $_[0] upgedated fuer $_[1]},
+                               filter2 => q{Unbekanntes Filter Schluesselwort $_[0]},
+                               filter3 => q{Keine Filter definiert fuer $_[0]},
+                               filter4 => q{$_[0]$_[1] Filter $_[2] geloescht fuer$_[3]},
+                               filter5 => q{brauche ein paar Filter Kommandos...},
+                               filter6 => q{$_[0]$_[1] Filter fuer $[2] nicht gefunden},
+                               grids => q{DX Grid flag gesetzt auf $_[0]},
+                               gridu => q{DX Grid flag zurueckgesetzt auf $_[0]},
+                               illcall => q{Sorry, $_[0] ist ein ungueltiges Rufzeichen},
+                               hasha => q{$_[0] existiert bereits in $_[1]},
+                               hashb => q{$_[0] zugefuegt zu $_[1]},
+                               hashc => q{$_[0] entfernt von $_[1]},
+                               hashd => q{$_[0] nicht in $_[1]},
+                               hashe => q{$_[0] gesetzt auf $_[1]},
+                               helpe1 => q{Hilfe System nicht verfuegbar, bitte Sysop benachrichtigen},
+                               helpe2 => q{Keine Hilfe verfuegbar auf $_[0]},
+                               heres => q{Hier gesetzt auf $_[0]},
+                               heade1 => q{Using $main::mycall Coords, entspricht einem set/location or set/qra},
+                               hereu => q{HERE zurueckgesetzt auf $_[0]},
+                               homebbs => q{Heimat-BBS gesetzt auf: $_[0]},
+                               homenode => q{Heimat-Node gesetzt auf: $_[0]},
+                               hnodee1 => q{Bitte Heimat-Node eingeben, set/homenode <Dein Heimat DX Cluster>},
+                               hnodee2 => q{Heimat-Node setzen ist misslungen $_[0]},
+                               hnode => q{Dein Heimat-Node ist nun "$_[0]"},
+                               init1 => q{Initialisierungs-Nachricht gesendet an $_[0]},
+                               iso => q{$_[0] Isoliert},
+                               isou => q{$_[0] UnIsoliert},
+                               isoc => q{$_[0] erstellt und Isoliert},
+                               isoari => q{Es gibt einen  Eingabe Route Filter fuer $_[0]; clear/route input $_[0] zuerst},
+                               isoaro => q{Es gibt einen Ausgabe Route Filter fuer $_[0]; clear/route $_[0] zuerst},
+                               isow => q{$_[0] ist isoliert; unset/isolate $_[0] zuerst},
+                               join => q{Trete Gespraechsgruppe $_[0] bei},
+                               l1 => q{Sorry $_[0], Du bist bereits auf einem anderen Kanal eingeloggt},
+                               l2 => q{Moin $_[0], hier ist $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build},
+                               lang => q{Sprache ist jetzt Deutsch},
+                               lange1 => q{set/language <lang> wobei <lang> ist eine von ($_[0])},
+                               lange2 => q{Fehler beim Setzen der Sprache auf $_[0]},
+                               lh1 => q{$main::data/hop_table.pl existiert nicht},
+                               loce1 => q{Bitte Deinen Standort eingeben, set/location <latitude longitude>},
+                               loce2 => q{Nicht anerkannt "$_[0]" als Lat/Long (z.B. 52 20 N 0 16 E)},
+                               loce3 => q{$_[0] ist ein QRA Locator, Gebrauch: set/qra $_[0]},
+                               loc => q{Dein Lat/Long ist nun "$_[0]"},
+                               lockout => q{$_[0] ausgesperrt},
+                               lockoutc => q{$_[0] erstellt und ausgesperrt},
+                               lockoutun => q{$_[0] Aussperrung aufgehoben},
+                               lockoutuse => q{Gebrauch: sh/lockout <Rufzeichen>|ALL},
+                               loginu => q{User $_[0] hat eingeloggt},
+                               logoutu => q{User $_[0] hat ausgeloggt},
+                               loginn => q{Node $_[0] hat eingeloggt},
+                               logoutn => q{Node $_[0] hat ausgeloggt},
+                               m1 => q{Betreff eingeben (max. 30 Zeichen):},
+                               m2 => q{Kopie der msg $_[0] gesendet an $_[1]},
+                               m3 => q{Sorry, $_[0] ist keine akzeptable TO Adresse},
+                               m4 => q{Sorry, kann nicht zugreifen auf Nachricht $_[0]},
+                               m5 => q{Sorry, ich brauche eine Nachrichten Nummer},
+                               m6 => q{Reply to: $_[0]},
+                               m7 => q{Betreff : $_[0]},
+                               m8 => q{Nachricht eingeben, /EX zum Absenden oder /ABORT zum Abbrechen},
+                               m9 => q{Neue Nachricht(en) fuer Dich},
+                               m10 => q{Nachricht abgebrochen},
+                               m11 => q{Nachricht Nr. $_[0] gesichert und weitergeleitet an $_[1]},
+                               m12 => q{Nachricht Nr. $_[0] geloescht},
+                               m13 => q{Nachricht Nr. $_[0] fehlt},
+                               m14 => q{Nachricht Nr. $_[0] markiert als gesendet an $_[1]},
+                               m15 => q{Nachricht Nr. $_[0] unmarkiert als gesendet an $_[1]},
+                               m16 => q{Brauche eine Nachrichten-Nummer},
+                               m17 => q{Sorry, kann Nachricht nicht senden im $_[0] Mode},
+                               m18 => q{Sorry, Status von Nachricht Nr. $_[0] ist momentan KEEP},
+                               msg1 => q{Bulletin Nachrichten aufgeschoben},
+                               msg2 => q{Private Nachrichten aufgeschoben},
+                               msg3 => q{Msg $_[0]: $_[1] geaendert von $_[2] auf $_[3]},
+                               msgu => q{Gebrauch: msg <cmd> <msgno> data...},
+                               merge1 => q{Merge request fuer $_[1] Spots und $_[2] WWV gesendet an $_[0]},
+                               moon => q{Standort                              dd/mm/yyyy Rise   Set},
+                               moon_with_azel => q{Standort                              dd/mm/yyyy Rise   Set      Azim   Elev},
+                               mond => q{Ueberwachung Disabled},
+                               mone => q{Ueberwachung Enabled},
+                               namee1 => q{Bitte Deinen Namen eingeben, set/name <Dein Name>},
+                               namee2 => q{Kann User $_[0] nicht finden!},
+                               name => q{Dein Name ist jetzt "$_[0]"},
+                               nodea => q{$_[0] gesetzt als AK1A style Node},
+                               nodeac => q{$_[0] erstellt als AK1A style Node},
+                               nodeb => q{$_[0] gesetzt als BBS},
+                               nodebc => q{$_[0] erstellt als BBS},
+                               nodec => q{$_[0] gesetzt als CLX style Node},
+                               nodecc => q{$_[0] erstellt als CLX style Node},
+                               noder => q{$_[0] gesetzt als AR-Cluster style Node},
+                               noderc => q{$_[0] erstellt als AR-Cluster style Node},
+                               nodes => q{$_[0] gesetzt als DXSpider style Node},
+                               nodesc => q{$_[0] erstellt als DXSpider style Node},
+                               nodex => q{$_[0] gesetzt als DXNET style Node},
+                               nodexc => q{$_[0] erstellt als DXNET style Node},
+                               nodeu => q{$_[0] zurueckgesetzt als ein User},
+                               nodee1 => q{Du kannst dieses Kommando nicht ausfuehren waehrend Dein Ziel ($_[0]) online ist},
+                               notdone => q{Nicht ausgefuehrt},
+                               nothere => q{Sorry, aber $_[0] ist nicht hier im Moment, bitte spaeter noch einmal Versuchen},
+                               obscount => q{Ping obsolescence count on $_[0] set to $_[1]},
+                               ok => q{Operation erfolgreich},
+                               outconn => q{Outstanding connect to $_[0]},
+                               page => q{Druecke Enter zum fortfahren, A zum abbrechen ($_[0] lines) >},
+                               pagelth => q{Seitenlaenge ist nun $_[0]},
+                               passerr => q{Gebrauch: SET/PASS <Passwort> <Rufzeichen>},
+                               password => q{Passwort gesetzt oder geaendert fuer $_[0]},
+                               passwordu => q{Passwort geloescht fuer $_[0]},
+                               pingo => q{Ping gestartet nach $_[0]},
+                               pingi => q{Ping erfolgreich zu $_[0] $_[1] (durchschn. $_[2]) Sekunden},
+                               pinge1 => q{Du kannst Dich nicht selber pingen!},
+                               pingint => q{Ping-Intervall zu $_[0] gesetzt auf $_[1] Sekunden},
+                               'pos' => q{Von Rufzeichen: $_[0] Breite: $_[1] Laenge: $_[2]},
+                               prs => q{Prompt gesetzt auf "$_[0]"},
+                               pru => q{Prompt jetzt zurueckgesetzt auf Default-Einstellung},
+                               priv => q{Priviligierten Level geaendert auf $_[0]},
+                               prx => q{$main::mycall >},
+                               pw0 => q{Altes Passwort eingeben: },
+                               pw1 => q{Neues Passwort eingeben: },
+                               pw2 => q{Wiederhole neues Passwort: },
+                               pw3 => q{Passwort geaendert},
+                               pw4 => q{Passwoerter differieren, Passwort NICHT geaendert},
+                               qll => q{Bitte gib Deinen Standort als geograph. Koordinaten mit set/location oder als Maidenhead-Kenner mit set/qra ein},
+                               qthe1 => q{Bitte gib Dein QTH ein mit set/qth <Dein qth>},
+                               qth => q{Dein QTH ist nun "$_[0]"},
+                               qrae1 => q{Bitte gib Deinen QRA Locator ein mit set/qra <qra locator> (z.B. set/qra JO44RK)},
+                               qrashe1 => q{Bitte einen QRA Locator eingeben, z.B. sh/qra JO02LQ oder sh/qra JO02LQ IO93NS},
+                               qrae2 => q{Erkenne nicht "$_[0]" als einen QRA Locator (z.B. JO02LQ)},
+                               qra => q{Dein QRA Locator ist nun "$_[0]"},
+                               rcmdo => q{RCMD "$_[0]" gesendet an $_[1]},
+                               read1 => q{Sorry, keine neuen Nachrichten fuer Dich},
+                               read2 => q{Msg $_[0] nicht gefunden},
+                               read3 => q{Msg $_[0] nicht verfuegbar},
+                               rec => q{$_[0] records},
+                               reg => q{$_[0] registriert},
+                               regc => q{$_[0] erstellt und registriert},
+                               reginac => q{Registrierung ist nicht aktiv (set/var \$main::reqreg = 1 to activate)},
+                               regun => q{$_[0] unregistriert},
+                               route => q{$_[0] auf $_[1] via $_[2]},
+                               sat1 => q{Tracking Tabelle fuer $_[0] fuer die naechsten $_[1] Stunden alle $_[2] mins},
+                               sat2 => q{dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km},
+                               sat3 => q{Syntax: SH/SAT <name> [<hours> <interval>]},
+                               sat4 => q{Satelliten verfuegbar:-},
+                               sat5 => q{Brauche nnnnn.AMSAT im Betreff um Keplerelemente von dieser Nachricht zu laden},
+                               satnf => q{Satellit $_[0] unbekannt},
+                               satdisc => q{-----},
+                               sethop1 => q{Gebrauch: set/hops <Rufzeichen> ann|spots|wwv|wcy <Anzahl der Hops>},
+                               sethop2 => q{$_[0] hops gesetzt auf $_[1]$_[2] fuer $_[3]},
+                               sethop3 => q{Keine hops gesetzt fuer $_[0]},
+                               shu => q{"SHU" genuegt nicht! Du musst mindestens "SHUT" eingeben, um den Node herunterzufahren},
+                               shutting => q{$main::mycall shutting down...},
+                               sloc => q{Cluster lat $_[0] long $_[1], Nicht vergessen die DXVars.pm zu aendern},
+                               snode1 => q{Node Call   Sort    Version},
+                               snode2 => q{$_[0] $_[1]  $_[2]},
+                               snode3 => q{$_[0] Unbekanntes Rufzeichen},
+                               sqra => q{Cluster QRA Locator$_[0], Nicht vergessen die DXVars.pm zu aendern},
+                               sorry => q{Sorry},
+                               spf1 => q{spoof: erzeuge neuen User $_[0]},
+                               stathf => q{HF DX Spot Stats, letzte 31 Tage},
+                               stathft => q{HF DX Spot Stats, letzte 31 Tage fuer DXCC $_[0]},
+                               statvhf => q{VHF+ DX Spot Stats, letzte 31 Tage},
+                               statvhft => q{VHF+ DX Spot Stats, letzte 31 Tage fuer DXCC $_[0]},
+                               statdx => q{Total DX Spots letzte 31 Tage},
+                               sun => q{Location                              dd/mm/jjjj Rise   Set},
+                               sun_with_azel => q{Location                              dd/mm/jjjj Rise   Set      Azim   Elev},
+                               suser1 => q{Gebrauch: Rufzeichen user_field_name value},
+                               suser2 => q{User $_[0] nicht gefunden},
+                               suser3 => q{User Feld '$_[0]' war '$_[1]' nun gesetzt auf '$_[2]'},
+                               suser4 => q{User Feld Name '$_[0]' existiert nicht},
+                               time1 => q{Lokala Zeit: $_[0] $_[1], UTC $_[2]},
+                               time2 => q{$_[0] Lokale (standard) Zeit: $_[1] ($_[2] Stunden)},
+                               time3 => q{$_[0]  $_[1]},
+                               talks => q{Talk flag gesetzt auf $_[0]},
+                               talku => q{Talk flag zurueckgesetzt auf $_[0]},
+                               talkend => q{Beendet Talk zu Dir},
+                               talkinst => q{Talkmode, /EX zum Beenden, /<cmd> um ein Kommando auszufuehren},
+                               talknh => q{Sorry $_[0] ist im moment nicht online},
+                               talkprompt => q{Talk ($_[0])>},
+                               talkstart => q{Startet Talkmode zu Dir},
+                               unset => q{$_[0] deaktiviert fuer $_[1]},
+                               unsethop1 => q{Gebrauch: unset/hops <call> ann|spots|wwv|wcy},
+                               user => q{User},
+                               userconn => q{Rufzeichen verbunden mit},
+                               usernf => q{*** User Satz fuer $_[0] nicht gefunden ***},
+                               wwvs => q{WWV flag gesetzt auf $_[0]},
+                               wwvu => q{WWV flag zurueckgesetzt auf $_[0]},
+                               wxs => q{WX flag gesetzt auf $_[0]},
+                               wxu => q{WX flag zurueckgesetzt auf $_[0]},
                           },
                 it => {
-                               addr => 'Indirizzo impostato a: $_[0]',
-            already => '$_[0] e\' connesso',
-                               anns => 'Annunci attivati alle_[0]',
-                               annu => 'Annunci disattivati alle $_[0]',
-                               annts => 'Talk attivato alle $_[0]',
-                               anntu => 'Talk disattivato alle $_[0]',
-                               badnode1 => '$_[0] e\' un nodo disabilitato',
-                               badnode2 => '$_[0] e\' un nodo attivo',
-                               badnode3 => 'Lista dei nodi disabilitati:-',
-                               bbse1 => 'Per favore inserisci l\'indirizzo del tuo BBS con set/bbs <tuo bbs>',
-                               bbs => 'Il tuo BBS e\' ora \"$_[0]\"',
-                               beepoff => 'I beep sono disattivati',
-                               beepon => 'I beep sono attivati',
-                               call1 => 'Ricerca del nominativo via $_[0]:',
-                               conother => 'Spiacente $_[0] sei connesso già su un\'altra porta',
-                               concluster => 'Spiacente $_[0] sei connesso già alla rete cluster (su $_[1])',
-                               conscript => 'nessuno script di connessione chiamato \"$_[0]\" trovato in $main::root/connect',
-                               confail => 'connessione a $_[0] fallita ($_[1])',
-                               constart => 'connessione a $_[0] iniziata',
-                               deluser => 'L\'utente $_[0] e\' stato eliminato',
-                               db1 => 'Questo database e\' presso $_[0]',
-                               db2 => 'Spiacente, ma la chiave: $_[0] non e\' stata trovata in $_[1]',
-                               db3 => 'Spiacente, il database $_[0] non esiste qui',
-                               db4 => 'Spiacente, il database $_[0] presso $_[1] non e\' disponibile al momento',
-                               db5 => 'Sto accedendo al database remoto presso $_[0]...attendere...',
-                               db6 => 'Il database $_[0] esiste già, cancellalo prima',
-                               db7 => 'Il database $_[0] e\' stato creato per il nodo remoto $_[1]',
-                               db8 => 'Il database $_[0] e\' stato creato localmente',
-                               db9 => 'Il database $_[0] e\' stato eliminato',
-                               db10 => '$_[0] record importati in $_[1]',
-                               db11 => 'Sto inviando le tue richieste a $_[0], attendi...',
-                               dfreq1 => 'Frequenza non valida $_[0], deve essere del tipo 0/30000 o hf o hf/cw', 
-                               dir1 => 'Nessun messaggio trovato',
-                               disc1 => 'Disconnesso da $_[0]',
-                               disc2 => 'Canalew $_[0] disconnesso',
-                               disc3 => 'Nessun canale, ma la connessione $_[0] disconnessa',
-                               disc4 => 'Nessun canale o connessione ma $_[0] disconnesso',
-                               done => 'Fatto',
-                               dup => 'Spiacente, questo e\' un doppione',
-                               dx1 => 'Frequenza $_[0] non nella banda (controlla show/band); sintassi: DX [BY nominativo] freq nominativo commento',
-                               dx2 => 'Serve un nominatico; sintassi: DX [BY nominativo] freq nominativo commento',
-                               dx3 => 'Il nominativo o la frequenza sono errati',
-                               dxs => 'DX Spots attivati alle $_[0]',
-                               dxu => 'DX Spots disattivati alle $_[0]',
-                               e1 => 'Comando errato',
-                               e2 => 'Errore: $_[0]',
-                               e3 => '$_[0]: $_[1] non trovato',
-                               e4 => 'Inserire un prefisso o un nominativo',
-                               e5 => 'Non permesso',
-                               e6 => '*** Nessuna stazione specificata ***',
-                               e7 => 'il nominativo $_[0] non e\' visibile sul cluster',
-                               e8 => 'Inserire un nominativo o del testo',
-                               e9 => 'Inserire del testo',
-                               e10 => '$_[0] non connesso localmente',
-                               e11 => 'Impossibile usare $main:mycall come destinazione',
-                               e12 => 'Inserire il nominativo di un nodo',
-                               e13 => '$_[0] non e\' un nodo',
-                               e14 => 'Il primo argomento deve essere numerico e > 0',
-                               e15 => 'qualificatore non valido \"$_[0]\"',
-                               e16 => 'Il file \"$_[0]\" esiste',
-                               e17 => 'Non usare le parole: @_ qui', 
-                               e18 => 'Impossibile connettere $_[0] ($!)',
-                               e19 => 'Carattere non valido nella linea  $_[0]',
-                               e20 => 'separatore $_[0] non riconosciuto',
-                               e21 => '$_[0] non e\' numerico',
-                               e22 => '$_[0] non e\' un nominativo',
-                               e23 => '$_[0] non e\' un intervallo (es 0/30000)', 
-                               e24 => 'Spiacente, l\'accesso ad internet non e\' abilitato',
-                               e25 => 'Spiacente il valore deve essere tra $_[0] e $_[1]',
-                               e26 => 'Troppi errori, stai per essere disconnesso',
-                               e27 => '$_[0] non e\' un prefisso numeroco o di nominativo', 
-                               e28 => 'Spiacente, devi essere registrato  (SP $main::myalias per registrarti)',
-                               e29 => 'E\' necessaria una password',
+                               addr => q{Indirizzo impostato a: $_[0]},
+                               already => q{$_[0] e' connesso},
+                               anns => q{Annunci attivati alle_[0]},
+                               annu => q{Annunci disattivati alle $_[0]},
+                               annts => q{Talk attivato alle $_[0]},
+                               anntu => q{Talk disattivato alle $_[0]},
+                               badnode1 => q{$_[0] e' un nodo disabilitato},
+                               badnode2 => q{$_[0] e' un nodo attivo},
+                               badnode3 => q{Lista dei nodi disabilitati:-},
+                               bbse1 => q{Per favore inserisci l'indirizzo del tuo BBS con set/bbs <tuo bbs>},
+                               bbs => q{Il tuo BBS e' ora "$_[0]"},
+                               beepoff => q{I beep sono disattivati},
+                               beepon => q{I beep sono attivati},
+                               call1 => q{Ricerca del nominativo via $_[0]:},
+                               conother => q{Spiacente $_[0] sei connesso già su un'altra porta},
+                               concluster => q{Spiacente $_[0] sei connesso già alla rete cluster (su $_[1])},
+                               conscript => q{nessuno script di connessione chiamato "$_[0]" trovato in $main::root/connect},
+                               confail => q{connessione a $_[0] fallita ($_[1])},
+                               constart => q{connessione a $_[0] iniziata},
+                               deluser => q{L'utente $_[0] e' stato eliminato},
+                               db1 => q{Questo database e' presso $_[0]},
+                               db2 => q{Spiacente, ma la chiave: $_[0] non e' stata trovata in $_[1]},
+                               db3 => q{Spiacente, il database $_[0] non esiste qui},
+                               db4 => q{Spiacente, il database $_[0] presso $_[1] non e' disponibile al momento},
+                               db5 => q{Sto accedendo al database remoto presso $_[0]...attendere...},
+                               db6 => q{Il database $_[0] esiste già, cancellalo prima},
+                               db7 => q{Il database $_[0] e' stato creato per il nodo remoto $_[1]},
+                               db8 => q{Il database $_[0] e' stato creato localmente},
+                               db9 => q{Il database $_[0] e' stato eliminato},
+                               db10 => q{$_[0] record importati in $_[1]},
+                               db11 => q{Sto inviando le tue richieste a $_[0], attendi...},
+                               dfreq1 => q{Frequenza non valida $_[0], deve essere del tipo 0/30000 o hf o hf/cw'},
+                               dir1 => q{Nessun messaggio trovato},
+                               disc1 => q{Disconnesso da $_[0]},
+                               disc2 => q{Canalew $_[0] disconnesso},
+                               disc3 => q{Nessun canale, ma la connessione $_[0] disconnessa},
+                               disc4 => q{Nessun canale o connessione ma $_[0] disconnesso},
+                               done => q{Fatto},
+                               dup => q{Spiacente, questo e' un doppione},
+                               dx1 => q{Frequenza $_[0] non nella banda (controlla show/band); sintassi: DX [BY nominativo] freq nominativo commento},
+                               dx2 => q{Serve un nominatico; sintassi: DX [BY nominativo] freq nominativo commento},
+                               dx3 => q{Il nominativo o la frequenza sono errati},
+                               dxs => q{DX Spots attivati alle $_[0]},
+                               dxu => q{DX Spots disattivati alle $_[0]},
+                               e1 => q{Comando errato},
+                               e2 => q{Errore: $_[0]},
+                               e3 => q{$_[0]: $_[1] non trovato},
+                               e4 => q{Inserire un prefisso o un nominativo},
+                               e5 => q{Non permesso},
+                               e6 => q{*** Nessuna stazione specificata ***},
+                               e7 => q{il nominativo $_[0] non e' visibile sul cluster},
+                               e8 => q{Inserire un nominativo o del testo},
+                               e9 => q{Inserire del testo},
+                               e10 => q{$_[0] non connesso localmente},
+                               e11 => q{Impossibile usare $main:mycall come destinazione},
+                               e12 => q{Inserire il nominativo di un nodo},
+                               e13 => q{$_[0] non e' un nodo},
+                               e14 => q{Il primo argomento deve essere numerico e > 0},
+                               e15 => q{qualificatore non valido "$_[0]"},
+                               e16 => q{Il file "$_[0]" esiste},
+                               e17 => q{Non usare le parole: @_ qui'},
+                               e18 => q{Impossibile connettere $_[0] ($!)},
+                               e19 => q{Carattere non valido nella linea  $_[0]},
+                               e20 => q{separatore $_[0] non riconosciuto},
+                               e21 => q{$_[0] non e' numerico},
+                               e22 => q{$_[0] non e' un nominativo},
+                               e23 => q{$_[0] non e' un intervallo (es 0/30000)'},
+                               e24 => q{Spiacente, l'accesso ad internet non e' abilitato},
+                               e25 => q{Spiacente il valore deve essere tra $_[0] e $_[1]},
+                               e26 => q{Troppi errori, stai per essere disconnesso},
+                               e27 => q{$_[0] non e' un prefisso numeroco o di nominativo'},
+                               e28 => q{Spiacente, devi essere registrato  (SP $main::myalias per registrarti)},
+                               e29 => q{E' necessaria una password},
+
+                               echoon => q{Echo abilitato},
+                               echooff => q{Echo disabilitato},
+                               echow => q{*Echo e' al momento disabilitato, usa set/echo per abilitarlo},
+                               emaile1 => q{Per favore inserisci il tuo indirizzo email con: set/email <indirizzo>},
+                               emaila => q{Il tuo indirizzo email e' ora "$_[0]"},
+                               email => q{Indirizzo email impostato a: $_[0]},
+                               export1 => q{sintassi: export <num_mess> <nome_file>},
+                               export2 => q{$_[3] ha problemi esportando i messaggi da $_[0] a $_[1] ($_[2])},
+                               export3 => q{$_[2 ] messaggi esportati da $_[0] a $_[1]},
+                               filter1 => q{Filtro $_[0] aggiornato per $_[1]},
+                               filter2 => q{Chiave sconosciuta per il filtro $_[0]},
+                               filter3 => q{Nessun filtro definito per $_[0]},
+                               filter4 => q{$_[0]$_[1] Filtro $_[2] cancellato per $_[3]},
+                               filter5 => q{necessito qualche comando per i filtri...},
+                               filter6 => q{$_[0]$_[1] Filtro per $[2] non trovato},
+                               grids => q{DX Grid attivato alle $_[0]},
+                               gridu => q{DX Grid disattivato alle $_[0]},
+                               illcall => q{Spiacente, $_[0] non e' un nominativo valido},
+                               hasha => q{$_[0] già esiste $_[1]},
+                               hashb => q{$_[0] aggiunto a $_[1]},
+                               hashc => q{$_[0] rimosso da $_[1]},
+                               hashd => q{$_[0] non in $_[1]'},
+                               hashe => q{$_[0] impostato a $_[1]'},
+                               helpe1 => q{Aiuto non disponibile, contatta il sysop},
+                               helpe2 => q{Nessun aiuto per $_[0]},
+                               heres => q{Here abilitato per $_[0]},
+                               heade1 => q{Sto usando le coordinate $main::mycall, e' preferibile impostarle con set/location o set/qra},
+                               hereu => q{Here disattivato per $_[0]},
+                               homebbs => q{Home BBS impostata a: $_[0]},
+                               homenode => q{Home Node impostato a: $_[0]},
+                               hnodee1 => q{Per piacere imposta il tuo Home Node con set/homenode <nominativo_cluster>},
+                               hnodee2 => q{Impostazione dell'homenode fallita per $_[0]},
+                               hnode => q{Il tuo Homenode e' adesso "$_[0]"},
+                               init1 => q{inizializzaione inviata a $_[0]},
+                               iso => q{$_[0] Isolato},
+                               isou => q{$_[0] non Isolato},
+                               isoc => q{$_[0] creato ed isolato},
+                               isoari => q{c'e' una filtro sulla rotta in ingresso per $_[0]; eliminala con clear/route input $_[0] prima},
+                               isoaro => q{c'e' una filtro sulla rotta in uscita per $_[0]; eliminala con clear/route $_[0] prima},
+                               isow => q{$_[0] e' isolato; unset/isolate $_[0] prima},
+                               l1 => q{Spiacente $_[0], sei già collegato sun un altro canale},
+                               l2 => q{Benvenuto $_[0] sul Cluster $main::mycall a $main::myqth\nsoftware in uso DXSpider V$main::version build $main::build},
+                               lang => q{La lingua selezionata e' adesso Italiano},
+                               lange1 => q{set/language <lingua> dove <lingua> e' una tra ($_[0])},
+                               lange2 => q{impostazione lingua fallita per $_[0]'},
+                               lh1 => q{$main::data/hop_table.pl non esiste},
+                               loce1 => q{Per piacere inserisci la tua posizione, set/location <latitudine longitudine>},
+                               loce2 => q{Non riconosco "$_[0]" come Lat/Long (es 52 20 N 0 16 E)},
+                               loce3 => q{$_[0] e' una locatore QRA, usa: set/qra $_[0]},
+                               loc => q{I tuoi dati Lat/Long sono ora "$_[0]"},
+                               lockout => q{$_[0] Bloccato},
+                               lockoutc => q{$_[0] Creato e bloccato},
+                               lockoutun => q{$_[0] Sbloccato},
+                               lockoutuse => q{sintassi: sh/lockout <nominativo>|ALL},
+                               loginu => q{L'utente $_[0] e' entrato nel cluster},
+                               logoutu => q{L'utente $_[0] e' uscito dal cluster},
+                               loginn => q{Il nodo $_[0] si e' connesso},
+                               logoutn => q{Il nodo $_[0] si e' disconnesso},
+                               m1 => q{Inserisci il Soggetto (30 caratteri):},
+                               m2 => q{Copia del messaggio $_[0] spedita a $_[1]},
+                               m3 => q{Spiacente, $_[0] non e' un destinatario accettabile},
+                               m4 => q{Spiacente, non posso accedere al messaggio $_[0]},
+                               m5 => q{Spiacente, ho bisogno del numero di un messaggio'},
+                               m6 => q{Rispondi a: $_[0]},
+                               m7 => q{Soggetto : $_[0]},
+                               m8 => q{Scrivi il messaggio e batti /EX per spedirlo o /ABORT per uscire},
+                               m9 => q{Nuovi messaggi sono arrivati per te},
+                               m10 => q{Messaggio abortito},
+                               m11 => q{Il messaggio $_[0] e' stato salvato e inviato a $_[1]},
+                               m12 => q{Il messaggio $_[0] e' stato cancellato},
+                               m13 => q{Il messaggio $_[0] non esiste},
+                               m14 => q{Il messaggio $_[0] e' stato marcato come spedito a $_[1]},
+                               m15 => q{Il messaggio $_[0] risolta ora non spedito a $_[1]},
+                               m16 => q{Specificare il numero del messaggio},
+                               m17 => q{Spiacente, impossibile spedire messaggi in modo $_[0]},
+                               msg1 => q{Bollettino messo in coda},
+                               msg2 => q{Messaggio messo in coda},
+                               msg3 => q{Msg $_[0]: $_[1] cambiato da $_[2] a $_[3]},
+                               msgu => q{sintassi: msg <comando> <num_mess> dati...},
+                               merge1 => q{Richiesta di merge per gli spot $_[1] e i WWV $_[2] spedita a $_[0]},
+                               moon => q{Localita                              gg/mm/aaaa Alba   Tramonto},
+                               moon_with_azel => q{Località                                     gg/mm/aaaa Alba   Tramonto Azim   Elev},
+                               mond => q{Monitor disabilitato},
+                               mone => q{Monitor abilitato},
+                               namee1 => q{Per favore inserisci con set/name <nome>},
+                               namee2 => q{Impossibile trovare l'utente $_[0]!},
+                               name => q{Il tuo nome ora e' "$_[0]"},
+                               nodea => q{$_[0] impostato come nodo stile AK1A},
+                               nodeac => q{$_[0] creato come nodo stile AK1A},
+                               nodeb => q{$_[0] impostato come BBS},
+                               nodebc => q{$_[0] creato come BBS},
+                               nodec => q{$_[0] impostato come nodo stile CLX},
+                               nodecc => q{$_[0] creato come nodo stile CLX},
+                               noder => q{$_[0] impostato come nodo stile AR-Cluster},
+                               noderc => q{$_[0] creato come nodo stile AR-Cluster},
+                               nodes => q{$_[0] impostato come nodo stile DXSpider},
+                               nodesc => q{$_[0] creato come nodo stile DXSpider},
+                               nodex => q{$_[0] impostato come nodo stile DXNET},
+                               nodexc => q{$_[0] creato come nodo stile DXNET},
+                               nodeu => q{$_[0] impostato come utente},
+                               nodee1 => q{Non puoi utilizzare questo comando mentre il destinatario ($_[0]) e' connesso},
+                               notdone => q{Non eseguito},
+                               nothere => q{Spiacente, ma $_[0] non e' presente al momento, prova più tardi'},
+                               obscount => q{Contatore di obsolescenza del ping per $_[0] impostato a $_[1]},
+                               ok => q{Operazione eseguita con successo},
+                               outconn => q{Connessione in corso per $_[0]},
+                               page => q{Premi Invio per continuare, A per annullare ($_[0] linee) >},
+                               pagelth => q{La lunghezza della pagina e' adesso $_[0]},
+                               passerr => q{sintassi: SET/PASS <password> <nominativo>},
+                               password => q{Password impostata o cambiata per $_[0]},
+                               passwordu => q{Password rimossa per $_[0]},
+                               pingo => q{Ping mandato a $_[0]},
+                               pingi => q{Ping ritornato da $_[0] $_[1] (media $_[2]) secondi},
+                               pinge1 => q{Non puoi far un ping su te stesso!},
+                               pingint => q{Intervallo di ping per $_[0] impostato a $_[1] secondi},
+                               'pos' => q{Dal nominativo: $_[0] Lat: $_[1] Long: $_[2]},
+                               priv => q{Privilegi cambiati per $_[0]},
+                               prs => q{Prompt impostato a "$_[0]"},
+                               pru => q{Prompt reimpostato al predefinito},
+                               prx => q{$main::mycall >},
+                               pw0 => q{Inserisci la vecchia password: },
+                               pw1 => q{Inserisci la nuova password: },
+                               pw2 => q{Reinserisci la nuova password: },
+                               pw3 => q{Password modificata},
+                               pw4 => q{Le password sono differenti, password NON cambiata},
+                               qll => q{Per favore inserisci la tua località con set/location o set/qra},
+                               qthe1 => q{Per favore inserisci il tuo QTH con set/qth <qth>},
+                               qth => q{Il tuo QTH e' adesso "$_[0]"},
+                               qrae1 => q{Per favore inserisci il tuo locatore QRA con set/qra <locatore> (es set/qra JM77GF)},
+                               qrashe1 => q{Please enter a QRA locator, eg sh/qra JO02LQ or sh/qra JO02LQ IO93NS},
+                               qrae2 => q{Non riconosco "$_[0]" come locatore QRA (es JM77GF)},
+                               qra => q{Il tuo locatore QRA e' adesso "$_[0]"},
+                               rcmdo => q{RCMD "$_[0]" spedito a $_[1]},
+                               rec => q{$_[0] records},
+                               read1 => q{Spiacente, non ci sono nuovi messaggi per te},
+                               read2 => q{Messaggio $_[0] non trovato},
+                               read3 => q{Messaggio $_[0] non disponibile},
+                               rec => q{$_[0] records},
+                               reg => q{$_[0] registrato},
+                               regc => q{$_[0] creato e registrato},
+                               reginac => q{La registrazione non e' attiva (set/var \$main::reqreg = 1 per attivarla)},
+                               regun => q{$_[0] deregistrato},
+                               route => q{$_[0] su $_[1] via $_[2]},
+                               sat1 => q{Tracking Table for $_[0] for the next $_[1] hours every $_[2] mins},
+                               sat2 => q{dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km},
+                               sat3 => q{Sintassi: SH/SAT <nome> [<ore> <intervallo>]},
+                               sat4 => q{Satelliti disponibili/Età dei Kepleriani (giorni):-},
+                               sat5 => q{serve nnnnn.AMSAT nel soggetto per caricare i kepleriani dal messaggio},
+                               satnf => q{Satellite $_[0] sconosciuto},
+                               satdisc => q{-----},
+                               sethop1 => q{sintassi: set/hops <nominativo> ann|spots|wwv|wcy <num di salti>},
+                               sethop2 => q{$_[0] salti impostai per $_[1]$_[2] per $_[3]'},
+                               sethop3 => q{Nessun salto impostato per $_[0]'},
+                               shutting => q{$main::mycall si sta arrestando...},
+                               sloc => q{Cluster lat $_[0] long $_[1], Non scordare di camberli nel file DXVars.pm},
+                               snode1 => q{Nodo Nominativo Ordine    Versione},
+                               snode2 => q{$_[0] $_[1]  $_[2]},
+                               snode3 => q{$_[0] Nominativo sconosciuto},
+                               sqra => q{Locatore QRA del Cluster$_[0], NON DIMENTICARE DI CAMBIARLO NEL TUO FILE DXVars.pm},
+                               sorry => q{Spiacente},
+                               spf1 => q{spoof: sto creando il nuovo utente $_[0]},
+                               stathf => q{Statistiche HF DX Spot, ultimi 31 giorni},
+                               stathft => q{Statistiche HF DX Spot, ultimi 31 giorni per DXCC $_[0]},
+                               statvhf => q{Statistiche VHF+ DX Spot, ultimi 31 giorni},
+                               statvhft => q{Statistiche VHF+ DX Spot, ultimi 31 days per DXCC $_[0]},
+                               statdx => q{Totale DX Spots degli ultimi 31 giorni},
+                               sun => q{Località                              gg/mm/aaaa Alba   Tramonto},
+                               sun_with_azel => q{Località                                     gg/mm/aaaa Alba   Tramonto Azim   Elev},
 
-                               echoon => 'Echo abilitato',
-                               echooff => 'Echo disabilitato',
-                               echow => '*Echo e\' al momento disabilitato, usa set/echo per abilitarlo',
-                               emaile1 => 'Per favore inserisci il tuo indirizzo email con: set/email <indirizzo>',
-                               emaila => 'Il tuo indirizzo email e\' ora \"$_[0]\"',
-                               email => 'Indirizzo email impostato a: $_[0]',
-                               export1 => 'sintassi: export <num_mess> <nome_file>',
-                               export2 => '$_[3] ha problemi esportando i messaggi da $_[0] a $_[1] ($_[2])',
-                               export3 => '$_[2 ] messaggi esportati da $_[0] a $_[1]',
-                               filter1 => 'Filtro $_[0] aggiornato per $_[1]',
-                               filter2 => 'Chiave sconosciuta per il filtro $_[0]',
-                               filter3 => 'Nessun filtro definito per $_[0]',
-                               filter4 => '$_[0]$_[1] Filtro $_[2] cancellato per $_[3]',
-                               filter5 => 'necessito qualche comando per i filtri...',
-                               filter6 => '$_[0]$_[1] Filtro per $[2] non trovato',
-                               grids => 'DX Grid attivato alle $_[0]',
-                               gridu => 'DX Grid disattivato alle $_[0]',
-                               illcall => 'Spiacente, $_[0] non e\' un nominativo valido',
-                               hasha => '$_[0] già esiste $_[1]',
-                               hashb => '$_[0] aggiunto a $_[1]',
-                               hashc => '$_[0] rimosso da $_[1]',
-                               hashd => '$_[0] non in $_[1]', 
-                               hashe => '$_[0] impostato a $_[1]', 
-                               helpe1 => 'Aiuto non disponibile, contatta il sysop',
-                               helpe2 => 'Nessun aiuto per $_[0]',
-                               heres => 'Here abilitato per $_[0]',
-                               heade1 => 'Sto usando le coordinate $main::mycall, e\' preferibile impostarle con set/location o set/qra',
-                               hereu => 'Here disattivato per $_[0]',
-                               homebbs => 'Home BBS impostata a: $_[0]',
-                               homenode => 'Home Node impostato a: $_[0]',
-                               hnodee1 => 'Per piacere imposta il tuo Home Node con set/homenode <nominativo_cluster>',
-                               hnodee2 => 'Impostazione dell\'homenode fallita per $_[0]',
-                               hnode => 'Il tuo Homenode e\' adesso \"$_[0]\"',
-                               init1 => 'inizializzaione inviata a $_[0]',
-                               iso => '$_[0] Isolato',
-                               isou => '$_[0] non Isolato',
-                               isoc => '$_[0] creato ed isolato',
-                               isoari => 'c\'e\' una filtro sulla rotta in ingresso per $_[0]; eliminala con clear/route input $_[0] prima',
-                               isoaro => 'c\'e\' una filtro sulla rotta in uscita per $_[0]; eliminala con clear/route $_[0] prima',
-                               isow => '$_[0] e\' isolato; unset/isolate $_[0] prima',
-                               l1 => 'Spiacente $_[0], sei già collegato sun un altro canale',
-                               l2 => 'Benvenuto $_[0] sul Cluster $main::mycall a $main::myqth\nsoftware in uso DXSpider V$main::version build $main::build',
-                               lang => 'La lingua selezionata e\' adesso Italiano',
-                               lange1 => 'set/language <lingua> dove <lingua> e\' una tra ($_[0])',
-                               lange2 => 'impostazione lingua fallita per $_[0]', 
-                               lh1 => '$main::data/hop_table.pl non esiste',
-                               loce1 => 'Per piacere inserisci la tua posizione, set/location <latitudine longitudine>',
-                               loce2 => 'Non riconosco \"$_[0]\" come Lat/Long (es 52 20 N 0 16 E)',
-                               loce3 => '$_[0] e\' una locatore QRA, usa: set/qra $_[0]',
-                               loc => 'I tuoi dati Lat/Long sono ora \"$_[0]\"',
-                               lockout => '$_[0] Bloccato',
-                               lockoutc => '$_[0] Creato e bloccato',
-                               lockoutun => '$_[0] Sbloccato',
-                               lockoutuse => 'sintassi: sh/lockout <nominativo>|ALL',
-                               loginu => 'L\'utente $_[0] e\' entrato nel cluster',
-                               logoutu => 'L\'utente $_[0] e\' uscito dal cluster',
-                               loginn => 'Il nodo $_[0] si e\' connesso',
-                               logoutn => 'Il nodo $_[0] si e\' disconnesso',
-                               m1 => 'Inserisci il Soggetto (30 caratteri):',
-                               m2 => 'Copia del messaggio $_[0] spedita a $_[1]',
-                               m3 => 'Spiacente, $_[0] non e\' un destinatario accettabile',
-                               m4 => 'Spiacente, non posso accedere al messaggio $_[0]',
-                               m5 => 'Spiacente, ho bisogno del numero di un messaggio', 
-                               m6 => 'Rispondi a: $_[0]',
-                               m7 => 'Soggetto : $_[0]',
-                               m8 => 'Scrivi il messaggio e batti /EX per spedirlo o /ABORT per uscire',
-                               m9 => 'Nuovi messaggi sono arrivati per te',
-                               m10 => 'Messaggio abortito',
-                               m11 => 'Il messaggio $_[0] e\' stato salvato e inviato a $_[1]',
-                               m12 => 'Il messaggio $_[0] e\' stato cancellato',
-                               m13 => 'Il messaggio $_[0] non esiste',
-                               m14 => 'Il messaggio $_[0] e\' stato marcato come spedito a $_[1]',
-                               m15 => 'Il messaggio $_[0] risolta ora non spedito a $_[1]',
-                               m16 => 'Specificare il numero del messaggio',
-                               m17 => 'Spiacente, impossibile spedire messaggi in modo $_[0]',
-                               msg1 => 'Bollettino messo in coda',
-                               msg2 => 'Messaggio messo in coda',
-                               msg3 => 'Msg $_[0]: $_[1] cambiato da $_[2] a $_[3]',
-                               msgu => 'sintassi: msg <comando> <num_mess> dati...',
-                               merge1 => 'Richiesta di merge per gli spot $_[1] e i WWV $_[2] spedita a $_[0]',
-                               moon => 'Localita                              gg/mm/aaaa Alba   Tramonto',
-                               moon_with_azel => 'Località 
-                                        gg/mm/aaaa Alba   Tramonto Azim   Elev',
-                               mond => 'Monitor disabilitato',
-                               mone => 'Monitor abilitato',
-                               namee1 => 'Per favore inserisci con set/name <nome>',
-                               namee2 => 'Impossibile trovare l\'utente $_[0]!',
-                               name => 'Il tuo nome ora e\' \"$_[0]\"',
-                               nodea => '$_[0] impostato come nodo stile AK1A',
-                               nodeac => '$_[0] creato come nodo stile AK1A',
-                               nodeb => '$_[0] impostato come BBS',
-                               nodebc => '$_[0] creato come BBS',
-                               nodec => '$_[0] impostato come nodo stile CLX',
-                               nodecc => '$_[0] creato come nodo stile CLX',
-                               noder => '$_[0] impostato come nodo stile AR-Cluster',
-                               noderc => '$_[0] creato come nodo stile AR-Cluster',
-                               nodes => '$_[0] impostato come nodo stile DXSpider',
-                               nodesc => '$_[0] creato come nodo stile DXSpider',
-                               nodex => '$_[0] impostato come nodo stile DXNET',
-                               nodexc => '$_[0] creato come nodo stile DXNET',
-                               nodeu => '$_[0] impostato come utente',
-                               nodee1 => 'Non puoi utilizzare questo comando mentre il destinatario ($_[0]) e\' connesso',
-                               notdone => 'Non eseguito',
-                               nothere => 'Spiacente, ma $_[0] non e\' presente al momento, prova più tardi', 
-                               obscount => 'Contatore di obsolescenza del ping per $_[0] impostato a $_[1]',
-                               ok => 'Operazione eseguita con successo',
-                               outconn => 'Connessione in corso per $_[0]',
-                               page => 'Premi Invio per continuare, A per annullare ($_[0] linee) >',
-                               pagelth => 'La lunghezza della pagina e\' adesso $_[0]',
-                               passerr => 'sintassi: SET/PASS <password> <nominativo>',
-                               password => 'Password impostata o cambiata per $_[0]',
-                               passwordu => 'Password rimossa per $_[0]',
-                               pingo => 'Ping mandato a $_[0]',
-                               pingi => 'Ping ritornato da $_[0] $_[1] (media $_[2]) secondi',
-                               pinge1 => 'Non puoi far un ping su te stesso!',
-                               pingint => 'Intervallo di ping per $_[0] impostato a $_[1] secondi',
-                               'pos' => 'Dal nominativo: $_[0] Lat: $_[1] Long: $_[2]',
-                               priv => 'Privilegi cambiati per $_[0]',
-                               prs => 'Prompt impostato a \"$_[0]\"',
-                               pru => 'Prompt reimpostato al predefinito',
-                               prx => '$main::mycall >',
-                               pw0 => 'Inserisci la vecchia password: ',
-                               pw1 => 'Inserisci la nuova password: ',
-                               pw2 => 'Reinserisci la nuova password: ',
-                               pw3 => 'Password modificata',
-                               pw4 => 'Le password sono differenti, password NON cambiata',
-                               qll => 'Per favore inserisci la tua località con set/location o set/qra',
-                               qthe1 => 'Per favore inserisci il tuo QTH con set/qth <qth>',
-                               qth => 'Il tuo QTH e\' adesso \"$_[0]\"',
-                               qrae1 => 'Per favore inserisci il tuo locatore QRA con set/qra <locatore> (es set/qra JM77GF)',
-                               qrashe1 => 'Please enter a QRA locator, eg sh/qra JO02LQ or sh/qra JO02LQ IO93NS',
-                               qrae2 => 'Non riconosco \"$_[0]\" come locatore QRA (es JM77GF)',
-                               qra => 'Il tuo locatore QRA e\' adesso \"$_[0]\"',
-                               rcmdo => 'RCMD \"$_[0]\" spedito a $_[1]',
-                               rec => '$_[0] records',
-                               read1 => 'Spiacente, non ci sono nuovi messaggi per te',
-                               read2 => 'Messaggio $_[0] non trovato',
-                               read3 => 'Messaggio $_[0] non disponibile',
-                               rec => '$_[0] records',
-                               reg => '$_[0] registrato',
-                               regc => '$_[0] creato e registrato',
-                               reginac => 'La registrazione non e\' attiva (set/var \$main::reqreg = 1 per attivarla)',
-                               regun => '$_[0] deregistrato',
-                               route => '$_[0] su $_[1] via $_[2]',
-                               sat1 => 'Tracking Table for $_[0] for the next $_[1] hours every $_[2] mins',
-                               sat2 => 'dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km',
-                               sat3 => 'Sintassi: SH/SAT <nome> [<ore> <intervallo>]',
-                               sat4 => 'Satelliti disponibili/Età dei Kepleriani (giorni):-',
-                               sat5 => 'serve nnnnn.AMSAT nel soggetto per caricare i kepleriani dal messaggio',
-                               satnf => 'Satellite $_[0] sconosciuto',
-                               satdisc => '-----',
-                               sethop1 => 'sintassi: set/hops <nominativo> ann|spots|wwv|wcy <num di salti>',
-                               sethop2 => '$_[0] salti impostai per $_[1]$_[2] per $_[3]', 
-                               sethop3 => 'Nessun salto impostato per $_[0]', 
-                               shutting => '$main::mycall si sta arrestando...',
-                               sloc => 'Cluster lat $_[0] long $_[1], Non scordare di camberli nel file DXVars.pm',
-                               snode1 => 'Nodo Nominativo Ordine    Versione',
-                               snode2 => '$_[0] $_[1]  $_[2]',
-                               snode3 => '$_[0] Nominativo sconosciuto',
-                               sqra => 'Locatore QRA del Cluster$_[0], NON DIMENTICARE DI CAMBIARLO NEL TUO FILE DXVars.pm',
-                               sorry => 'Spiacente',
-                               spf1 => 'spoof: sto creando il nuovo utente $_[0]',
-                               stathf => 'Statistiche HF DX Spot, ultimi 31 giorni',
-                               stathft => 'Statistiche HF DX Spot, ultimi 31 giorni per DXCC $_[0]',
-                               statvhf => 'Statistiche VHF+ DX Spot, ultimi 31 giorni',
-                               statvhft => 'Statistiche VHF+ DX Spot, ultimi 31 days per DXCC $_[0]',
-                               statdx => 'Totale DX Spots degli ultimi 31 giorni',
-                               sun => 'Località                              gg/mm/aaaa Alba   Tramonto',
-                               sun_with_azel => 'Località
-                                       gg/mm/aaaa Alba   Tramonto Azim   Elev',
+                               suser1 => q{sintassi: nominatio campo_utente valore},
+                               suser2 => q{Utente $_[0] non trovato},
+                               suser3 => q{Il campo utente '$_[0]' era '$_[1]' ora e' impostao a '$_[2]'},
+                               suser4 => q{Il campo utente '$_[0]' non esiste},
+                               time1 => q{Ora locale: $_[0] $_[1], UTC $_[2]},
+                               time2 => q{$_[0] Ora (standard) locale: $_[1] ($_[2] ore)},
+                               time3 => q{$_[0]  $_[1]},
+                               talks => q{Talk abilitato per $_[0]},
+                               talku => q{Talk disabilitato per $_[0]},
+                               talkend => q{Chiude il la conversazione con te},
+                               talkinst => q{Stai entrando nel modo conversazione, /EX per uscire, /<cmd> per eseguire un comando},
+                               talknh => q{Spiaente $_[0] non e' collegato al momento},
+                               talkprompt => q{Talk ($_[0])>},
+                               talkstart => q{Inizia una conversazione con te},
+                               unsethop1 => q{sintassi: unset/hops <nominativo> ann|spots|wwv|wcy},
+                               unsethop2 => q{salti eliminati su $_[1] per $_[0]},
+                               usernf => q{*** Record utente per $_[0] non trovato ***},
+                               wcy1 => q{$_[0] manca o e' fuori limite},
+                               wcy2 => q{WCY duplicato},
+                               wwv1 => q{$_[0] manca o e' fuori limite},
+                               wwv2 => q{WWV duplicato},
+                               wwvs => q{WWV abilitati per $_[0]},
+                               wwvu => q{WWV disabilitati per $_[0]},
+                               wxs => q{WX abilitati per $_[0]},
+                               wxu => q{WX disabilitati per $_[0]},
+                          },
 
-                               suser1 => 'sintassi: nominatio campo_utente valore',
-                               suser2 => 'Utente $_[0] non trovato',
-                               suser3 => 'Il campo utente \'$_[0]\' era \'$_[1]\' ora e\' impostao a \'$_[2]\'',
-                               suser4 => 'Il campo utente \'$_[0]\' non esiste',
-                               time1 => 'Ora locale: $_[0] $_[1], UTC $_[2]',
-                               time2 => '$_[0] Ora (standard) locale: $_[1] ($_[2] ore)',
-                               time3 => '$_[0]  $_[1]',
-                               talks => 'Talk abilitato per $_[0]',
-                               talku => 'Talk disabilitato per $_[0]',
-                               talkend => 'Chiude il la conversazione con te',
-                               talkinst => 'Stai entrando nel modo conversazione, /EX per uscire, /<cmd> per eseguire un comando',
-                               talknh => 'Spiaente $_[0] non e\' collegato al momento',
-                               talkprompt => 'Talk ($_[0])>',
-                               talkstart => 'Inizia una conversazione con te',
-                               unsethop1 => 'sintassi: unset/hops <nominativo> ann|spots|wwv|wcy',
-                               unsethop2 => 'salti eliminati su $_[1] per $_[0]',
-                               usernf => '*** Record utente per $_[0] non trovato ***',
-                               wcy1 => '$_[0] manca o e\' fuori limite',
-                               wcy2 => 'WCY duplicato',
-                               wwv1 => '$_[0] manca o e\' fuori limite',
-                               wwv2 => 'WWV duplicato',
-                               wwvs => 'WWV abilitati per $_[0]',
-                               wwvu => 'WWV disabilitati per $_[0]',
-                               wxs => 'WX abilitati per $_[0]',
-                               wxu => 'WX disabilitati per $_[0]',
-               },
 
-               cz => {
-                               addr => 'Adresa nastavena na: $_[0]',
-                               already => '$_[0] je uz pripojen',
-                               anns => 'Ann je povolen pro $_[0]',
-                               annu => 'Ann je zakazan pro $_[0]',
-                               annts => 'AnnTalk je povolen pro $_[0]',
-                               anntu => 'AnnTalk je zakazan pro $_[0]',
-                               badnode1 => '$_[0] je nyni zavadny nod',
-                               badnode2 => '$_[0] je nyni bezvadny nod',
-                               badnode3 => 'Seznam zavadnych nodu:-',
-                               bbse1 => 'Prosim zadej svou BBS adresu, set/bbs <tva bbs adresa>',
-                               bbs => 'Tva BBS adresa je nyni \"$_[0]\"',
-                               beepoff => 'Zvuky jsou nyni vypnuty',
-                               beepon => 'Zvuky jsou nyni zapnuty',
-                               call1 => 'Vyhledani znacky pres $_[0]:',
-                               conother => 'Lituji $_[0], jses na me napojen na jinem portu',
-                               concluster => 'Lituji $_[0], jses uz napojen nekde jinde na clusteru (na $_[1])',
-                               conscript => 'nebyl spusten connect skript \"$_[0]\" nalezen v $main::root/connect',
-                               confail => 'pripojeni na $_[0] selhalo ($_[1])',
-                               constart => 'pripojeni na $_[0] bylo zahajeno',
-                               deluser => 'Uzivatel $_[0] byl smazan',
-                               db1 => 'Tato databaze se nachazi na $_[0]',
-                               db2 => 'Lituji, ale klic $_[0] nebyl nalezen v $_[1]',
-                               db3 => 'Lituji, ale databaze $_[0] se zde nenachazi',
-                               db4 => 'Lituji, databaze $_[0] na $_[1] neni momentalne online',
-                               db5 => 'Pripojuji vzdalenou databazi na $_[0]...cekej...',
-                               db6 => 'Databaze $_[0] uz existuje, nejprve ji smaz',
-                               db7 => 'Databaze $_[0] byla vytvorena pro vzdaleny nod $_[1]',
-                               db8 => 'Databaze $_[0] byla vytvorena lokalne',
-                               db9 => 'Databaze $_[0] byla smazana',
-                               db10 => '$_[0] zaznamu bylo vlozeno do $_[1]',
-                               db11 => 'Posilam tvuj pozadavek do $_[0], prosim cekej...',
-                               dfreq1 => 'Neplatna freq $_[0], potrebuji napr 0/30000 nebo hf nebo hf/cw', 
-                               dir1 => 'Zadne zpravy nebyly nalezeny',
-                               disc1 => 'Odpojeno uzivatelem $_[0]',
-                               disc2 => 'Kanal $_[0] odpojen',
-                               disc3 => 'Zadny kanal, ale spojeni $_[0] zruseno',
-                               disc4 => 'Zadny kanal ani spojeni, ale $_[0] byl odpojen',
-                               done => 'Hotovo',
-                               dup => 'Lituji, toto je duplikat',
-                               dx1 => 'Frekvence $_[0] neni uvnitr pasma (viz show/band); pouziti: DX [BY call] freq call text',
-                               dx2 => 'Potrebuji znacku; pouziti: DX [BY call] freq call text',
-                               dx3 => 'Znacka nebo frekvence je neplatna',
-                               dxs => 'DX spoty jsou povoleny pro $_[0]',
-                               dxu => 'DX spoty jsou zakazany pro $_[0]',
-                               e1 => 'Neplatny prikaz',
-                               e2 => 'Chyba: $_[0]',
-                               e3 => '$_[0]: $_[1] nebylo nalezeno',
-                               e4 => 'Potrebuji alespon prefix nebo znacku',
-                               e5 => 'Neni povoleno',
-                               e6 => '*** Zadna stanice specifikovana ***',
-                               e7 => 'znacka $_[0] neni v clusteru viditelna',
-                               e8 => 'Potrebuji znacku a nejaky text',
-                               e9 => 'Potrebuji alespon nejaky text',
-                               e10 => 'Stanice $_[0] neni pripojena lokalne',
-                               e11 => 'Nemohu pouzit $main:mycall jako cil',
-                               e12 => 'Potrebuji znacku nodu',
-                               e13 => '$_[0] neni nod',
-                               e14 => 'Prvni argument musi byt cislo vetsi nez 0',
-                               e15 => 'neplatny parametr \"$_[0]\"',
-                               e16 => 'Soubor \"$_[0]\" uz existuje',
-                               e17 => 'Prosim nepouzivej zde toto slovo: @_', 
-                               e18 => 'Nemohu se pripojit na $_[0] ($!)',
-                               e19 => 'neplatny znak v radku  $_[0]',
-                               e20 => 'retezec $_0] nebyl rozpoznan',
-                               e21 => '$_[0] neni cislo',
-                               e22 => '$_[0] neni znacka',
-                               e23 => '$_[0] neni v rozsahu (napr 0/30000)', 
-                               e24 => 'Lituji, pristup na internet neni povolen',
-                               e25 => 'Lituji, hodnota musi byt mezi $_[0] a $_[1]',
-                               e26 => 'Prilis mnoho chyb najednou, jsi odpojovan',
-                               e27 => '$_[0] neni cislo nebo prefix', 
-                               e28 => 'Lituji, musis byt registrovan (SP $main::myalias k registraci)',
-                               e29 => 'Potrebuji heslo',
-                               e30 => 'Nemohu otevrit $_[0] $!',
-                               e31 => '$_[0] neni uzivatel', 
-                               e32 => 'Potrebuji frazi',
-                               e33 => '$_[0] neni pocet dnu nebo platne datum',
+                cz => {
+                               addr => q{Adresa nastavena na: $_[0]},
+                               already => q{$_[0] je uz pripojen},
+                               anns => q{Ann je povolen pro $_[0]},
+                               annu => q{Ann je zakazan pro $_[0]},
+                               annts => q{AnnTalk je povolen pro $_[0]},
+                               anntu => q{AnnTalk je zakazan pro $_[0]},
+                               badnode1 => q{$_[0] je nyni zavadny nod},
+                               badnode2 => q{$_[0] je nyni bezvadny nod},
+                               badnode3 => q{Seznam zavadnych nodu:-},
+                               bbse1 => q{Prosim zadej svou BBS adresu, set/bbs <tva bbs adresa>},
+                               bbs => q{Tva BBS adresa je nyni "$_[0]"},
+                               beepoff => q{Zvuky jsou nyni vypnuty},
+                               beepon => q{Zvuky jsou nyni zapnuty},
+                               call1 => q{Vyhledani znacky pres $_[0]:},
+                               conother => q{Lituji $_[0], jses na me napojen na jinem portu},
+                               concluster => q{Lituji $_[0], jses uz napojen nekde jinde na clusteru (na $_[1])},
+                               conscript => q{nebyl spusten connect skript "$_[0]" nalezen v $main::root/connect},
+                               confail => q{pripojeni na $_[0] selhalo ($_[1])},
+                               constart => q{pripojeni na $_[0] bylo zahajeno},
+                               deluser => q{Uzivatel $_[0] byl smazan},
+                               db1 => q{Tato databaze se nachazi na $_[0]},
+                               db2 => q{Lituji, ale klic $_[0] nebyl nalezen v $_[1]},
+                               db3 => q{Lituji, ale databaze $_[0] se zde nenachazi},
+                               db4 => q{Lituji, databaze $_[0] na $_[1] neni momentalne online},
+                               db5 => q{Pripojuji vzdalenou databazi na $_[0]...cekej...},
+                               db6 => q{Databaze $_[0] uz existuje, nejprve ji smaz},
+                               db7 => q{Databaze $_[0] byla vytvorena pro vzdaleny nod $_[1]},
+                               db8 => q{Databaze $_[0] byla vytvorena lokalne},
+                               db9 => q{Databaze $_[0] byla smazana},
+                               db10 => q{$_[0] zaznamu bylo vlozeno do $_[1]},
+                               db11 => q{Posilam tvuj pozadavek do $_[0], prosim cekej...},
+                               dfreq1 => q{Neplatna freq $_[0], potrebuji napr 0/30000 nebo hf nebo hf/cw'},
+                               dir1 => q{Zadne zpravy nebyly nalezeny},
+                               disc1 => q{Odpojeno uzivatelem $_[0]},
+                               disc2 => q{Kanal $_[0] odpojen},
+                               disc3 => q{Zadny kanal, ale spojeni $_[0] zruseno},
+                               disc4 => q{Zadny kanal ani spojeni, ale $_[0] byl odpojen},
+                               done => q{Hotovo},
+                               dup => q{Lituji, toto je duplikat},
+                               dx1 => q{Frekvence $_[0] neni uvnitr pasma (viz show/band); pouziti: DX [BY call] freq call text},
+                               dx2 => q{Potrebuji znacku; pouziti: DX [BY call] freq call text},
+                               dx3 => q{Znacka nebo frekvence je neplatna},
+                               dxs => q{DX spoty jsou povoleny pro $_[0]},
+                               dxu => q{DX spoty jsou zakazany pro $_[0]},
+                               e1 => q{Neplatny prikaz},
+                               e2 => q{Chyba: $_[0]},
+                               e3 => q{$_[0]: $_[1] nebylo nalezeno},
+                               e4 => q{Potrebuji alespon prefix nebo znacku},
+                               e5 => q{Neni povoleno},
+                               e6 => q{*** Zadna stanice specifikovana ***},
+                               e7 => q{znacka $_[0] neni v clusteru viditelna},
+                               e8 => q{Potrebuji znacku a nejaky text},
+                               e9 => q{Potrebuji alespon nejaky text},
+                               e10 => q{Stanice $_[0] neni pripojena lokalne},
+                               e11 => q{Nemohu pouzit $main:mycall jako cil},
+                               e12 => q{Potrebuji znacku nodu},
+                               e13 => q{$_[0] neni nod},
+                               e14 => q{Prvni argument musi byt cislo vetsi nez 0},
+                               e15 => q{neplatny parametr "$_[0]"},
+                               e16 => q{Soubor "$_[0]" uz existuje},
+                               e17 => q{Prosim nepouzivej zde toto slovo: @_'},
+                               e18 => q{Nemohu se pripojit na $_[0] ($!)},
+                               e19 => q{neplatny znak v radku  $_[0]},
+                               e20 => q{retezec $_0] nebyl rozpoznan},
+                               e21 => q{$_[0] neni cislo},
+                               e22 => q{$_[0] neni znacka},
+                               e23 => q{$_[0] neni v rozsahu (napr 0/30000)'},
+                               e24 => q{Lituji, pristup na internet neni povolen},
+                               e25 => q{Lituji, hodnota musi byt mezi $_[0] a $_[1]},
+                               e26 => q{Prilis mnoho chyb najednou, jsi odpojovan},
+                               e27 => q{$_[0] neni cislo nebo prefix'},
+                               e28 => q{Lituji, musis byt registrovan (SP $main::myalias k registraci)},
+                               e29 => q{Potrebuji heslo},
+                               e30 => q{Nemohu otevrit $_[0] $!},
+                               e31 => q{$_[0] neni uzivatel'},
+                               e32 => q{Potrebuji frazi},
+                               e33 => q{$_[0] neni pocet dnu nebo platne datum},
 
-                               echoon => 'Echo povoleno',
-                               echooff => 'Echo zakazano',
-                               echow => '*Echo je momentalne zakazano, pouzij set/echo k povoleni',
-                               emaile1 => 'Prosim zadej svou e-mailovou adresu, set/email <tva emailova adresa>',
-                               emaila => 'Tva e-mailova adresa je nyni \"$_[0]\"',
-                               email => 'E-mailova adresa je nastavena na: $_[0]',
-                               export1 => 'pouziti: export <cislo zpravy> <soubor>',
-                               export2 => '$_[3] hlasi chyby pri exportu zpravy $_[0] do $_[1] ($_[2])',
-                               export3 => '$_[2 ] exportoval zpravu $_[0] to $_[1]',
-                               filter1 => 'Filtr $_[0] byl zmenen pro  for $_[1]',
-                               filter2 => 'Neznamy prikaz filtru $_[0]',
-                               filter3 => 'Nejsou zadne definovane filtry pro $_[0]',
-                               filter4 => '$_[0]$_[1] Filtr $_[2] smazan pro $_[3]',
-                               filter5 => 'potrebuji nejake prikazy filtru...',
-                               filter6 => '$_[0]$_[1] Filtr pro $[2] nebyl nalezen',
-                               grids => 'QRA ctverec byl povolen pro $_[0]',
-                               gridu => 'QRA ctverec byl zakazan pro $_[0]',
-                               illcall => 'Lituji, $_[0] neni platna znacka',
-                               hasha => '$_[0] uz existuje v $_[1]',
-                               hashb => '$_[0] byl pridan do $_[1]',
-                               hashc => '$_[0] byl odstranen z $_[1]',
-                               hashd => '$_[0] neni v $_[1]', 
-                               hashe => '$_[0] byl nastaven v $_[1]', 
-                               helpe1 => 'Systemova napoveda neni k dispozici, informuj sysopa',
-                               helpe2 => 'Napoveda neni k dispozici k $_[0]',
-                               heres => '$_[0] je pritomen',
-                               heade1 => 'S pouzitim souradnic clusteru, doporucuji zadat set/location nebo set/qra',
-                               hereu => '$_[0] neni pritomen',
-                               homebbs => 'Domaci BBS je nastavena na: $_[0]',
-                               homenode => 'Domaci DXC nod je nastaven na: $_[0]',
-                               hnodee1 => 'Prosim zadej svuj domaci DXC nod, set/homenode <tvuj domaci DX cluster>',
-                               hnodee2 => 'Nastaveni domaciho nodu na $_[0] selhalo',
-                               hnode => 'Tvuj domaci nod je nyni \"$_[0]\"',
-                               init1 => 'vyslana inicializacni zprava do $_[0]',
-                               iso => '$_[0] izolovan',
-                               isou => '$_[0] neni izolovan',
-                               isoc => '$_[0] vytvoren a izolovan',
-                               isoari => 'vstupni route filtr pro $_[0] uz existuje; zadej nejprve clear/route input $_[0]',
-                               isoaro => 'vystupni route filtr pro $_[0] uz existuje; zadej nejprve clear/route $_[0]',
-                               isow => '$_[0] je izolovan; zadej nejprve unset/isolate $_[0]',
-                               l1 => 'Lituji $_[0], uz jsi zalogovan na jinem kanalu',
-                               l2 => 'Ahoj $_[0], toto je $main::mycall, $main::myqth\npouzivajici DXSpider V$main::version build $main::build',
-                               lang => 'Jazyk je nyni nastaven na Cestinu (napoveda zatim v procesu)',
-                               lange1 => 'set/language <lang> kde <lang> je jedno z ($_[0])',
-                               lange2 => 'selhalo nastaveni jazyka na $_[0]', 
-                               lh1 => '$main::data/hop_table.pl neexistuje',
-                               loce1 => 'Prosim zadej svou polohu, set/location <sirka delka>',
-                               loce2 => 'Nemohu rozpoznat \"$_[0]\" jako sirka/delka (napr 52 20 N 0 16 E)',
-                               loce3 => '$_[0] je QRA lokator, prosim pouzij: set/qra $_[0]',
-                               loc => 'Tva poloha (sirka/delka) je nyni \"$_[0]\"',
-                               lockout => '$_[0] zamknuto',
-                               lockoutc => '$_[0] vytvoreno a zamknuto',
-                               lockoutun => '$_[0] Odemceno',
-                               lockoutuse => 'pouziti: sh/lockout <znacka>|ALL',
-                               loginu => 'Uzivatel $_[0] prihlasen',
-                               logoutu => 'Uzivatel $_[0] odhlasen',
-                               loginn => 'Nod $_[0] prihlasen',
-                               logoutn => 'Nod $_[0] odhlasen',
-                               m1 => 'Zadej nazev (30 znaku):',
-                               m2 => 'Kopie zpravy $_[0] byla odeslana k $_[1]',
-                               m3 => 'Lituji, $_[0] je neplatna cilova adresa',
-                               m4 => 'Lituji, zprava $_[0] neni dostupna',
-                               m5 => 'Lituji, potrebuji cislo zpravy', 
-                               m6 => 'Odpoved na: $_[0]',
-                               m7 => 'Nezev: $_[0]',
-                               m8 => 'Zadej text zpravy /EX pro konec nebo /ABORT k preruseni',
-                               m9 => 'Mas novou zpravu',
-                               m10 => 'Zprava prerusena',
-                               m11 => 'Zprava c. $_[0] ulozena a smerovana na $_[1]',
-                               m12 => 'Zprava c. $_[0] byla smazana',
-                               m13 => 'Zprava c. $_[0] chybi',
-                               m14 => 'Zprava c. $_[0] byla oznacena a zaslana do $_[1]',
-                               m15 => 'Zprava c. $_[0] byla neoznacena a zaslana do $_[1]',
-                               m16 => 'Potrebuji cislo zpravy',
-                               m17 => 'Lituji, nemohu posilat zpravy v modu $_[0]',
-                               m18 => 'Lituji, zprava $_[0] ma momentalne status KEEP',
-                               msg1 => 'Zpravy v rubrikach cekaji ve fronte',
-                               msg2 => 'Privatni zpravy cekaji ve fronte',
-                               msg3 => 'Zprava $_[0]: $_[1] byla zmenena z $_[2] na $_[3]',
-                               msgu => 'pouziti: msg <prikaz> <cislo zpravu> data...',
-                               merge1 => 'Pozadavek na Merge pro $_[1] spotu a $_[2] WWV byl zaslan do $_[0]',
-                               moon => 'Poloha                                dd/mm/yyyy Vychod  Zapad',
-                               moon_with_azel => 'Poloha                                dd/mm/yyyy Vychod  Zapad   Azim   Elev',
-                               mond => 'Monitoring je zakazan',
-                               mone => 'Monitoring je povolen',
-                               namee1 => 'Prosim zadej sve jmeno, set/name <tve jmeno>',
-                               namee2 => 'Nemohu najit uzivatele $_[0]!',
-                               name => 'Tve jmeno je nyni \"$_[0]\"',
-                               nodea => '$_[0] nastaven jako nod typu AK1A',
-                               nodeac => '$_[0] vytvoren jako nod typu AK1A',
-                               nodeb => '$_[0] nastaven jako BBS',
-                               nodebc => '$_[0] vytvoren jako BBS',
-                               nodec => '$_[0] nastaven jako nod typu CLX',
-                               nodecc => '$_[0] vytvoren jako nod typu CLX',
-                               noder => '$_[0] nastaven jako nod typu AR-Cluster',
-                               noderc => '$_[0] vytvoren jako nod typu AR-Cluster',
-                               nodes => '$_[0] nastaven jako nod typu DXSpider',
-                               nodesc => '$_[0] vytvoren jako nod typu DXSpider',
-                               nodex => '$_[0] nastaven jako nod typu DXNET',
-                               nodexc => '$_[0] vytvoren jako nod typu DXNET',
-                               nodeu => '$_[0] nastaven opet jako uzivatel',
-                               nodee1 => 'Nemuzes pouzit tento prikaz zatimco tvuj cil ($_[0]) je on-line',
-                               notdone => 'NEBYLO provedeno',
-                               nothere => 'Lituji, ale $_[0] neni momentalne zde, zkus to pozdeji', 
-                               obscount => 'Pocatecni hodnota Ping citace nodu $_[0] byla nastavena na $_[1]',
-                               ok => 'Operace byla uspesna',
-                               outconn => 'Zbyvajici spojeni na $_[0]',
-                               page => 'Stiskni Enter pro pokracovani, A k preruseni ($_[0] radku) >',
-                               pagelth => 'Delka stranky je nyni $_[0]',
-                               passerr => 'Prosim pouzij: SET/PASS <heslo> <znacka>',
-                               passphrase => 'Fraze byla nastavena nebo zmenena pro $_[0]',
-                               passphraseu => 'Fraze byla odstranena pro $_[0]',
-                               password => 'Heslo bylo nastaveno nebo zmeneno pro $_[0]',
-                               passwordu => 'Heslo bylo odstraneno pro $_[0]',
-                               pc90s => 'PC90 bylo povoleno pro $_[0]',
-                               pc90u => 'PC90 bylo zakazano $_[0]',
-                               pingo => 'Ping byl zaslan na $_[0]',
-                               pingi => 'Ping se vratil od $_[0] $_[1] (Prum $_[2]) sekundy',
-                               pinge1 => 'Nemuzu pingnout sam sebe!',
-                               pingint => 'Ping interval na $_[0] byl nastaven na $_[1] sekundy',
-                               'pos' => 'Od znacky: $_[0] Sirka: $_[1] Delka: $_[2]',
-                               pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
-                               prs => 'Prompt byl nastaven na \"$_[0]\"',
-                               pru => 'Prompt byl vracen na default',
-                               priv => 'Uroven prav byla zmenena na $_[0]',
-                               prx => '$main::mycall >',
-                               pw0 => 'Zadej stare heslo: ',
-                               pw1 => 'Zadej nove heslo: ',
-                               pw2 => 'Zadej znovu nove heslo: ',
-                               pw3 => 'Heslo bylo zmeneno',
-                               pw4 => 'Hesla se lisi, heslo NEBYLO zmeneno',
-                               qll => 'Prpsim zadej svou polohu s pomoci set/location nebo set/qra',
-                               qthe1 => 'Prosim zadej sve QTH, set/qth <tve QTH>',
-                               qth => 'Tve QTH je nyni \"$_[0]\"',
-                               qrae1 => 'Prosim zadej svuj QRA lokator, set/qra <qra lokator> (napr set/qra JN79FM)',
-                               qrashe1 => 'Prosim zadej QRA locator, napr sh/qra JN79FM nebo sh/qra JN79FM JN63GV',
-                               qrae2 => 'Nerozpoznal jsem \"$_[0]\" jako QRA lokator (napr JN79FM)',
-                               qra => 'Tvuj QRA lokator je nyni \"$_[0]\"',
-                               rcmdo => 'RCMD \"$_[0]\" bylo zaslano do $_[1]',
-                               read1 => 'Lituji, nemas zadne nove zpravy',
-                               read2 => 'Zprava $_[0] nenalezena',
-                               read3 => 'Msg $_[0] neni k dispozici',
-                               rec => '$_[0] zaznamu',
-                               reg => '$_[0] registrovano',
-                               regc => '$_[0] vytvoreno a registrovano',
-                               reginac => 'Registrace neni aktivni (set/var \$main::reqreg = 1 k aktivaci)',
-                               regun => '$_[0] neregistrovano',
-                               route => '$_[0] na $_[1] via $_[2]',
-                               sat1 => 'Tabulka pro $_[0] pro nasledujicich $_[1] hodin s intervalem $_[2] min',
-                               sat2 => 'dd/mm  UTC      Lat     Lon  Alt Km      Az      El Vzdal Km',
-                               sat3 => 'Syntaxe: SH/SAT <jmeno> [<hodin> <interval>]',
-                               sat4 => 'Druzice k dispozici/Stari Kepl. elem (dny):-',
-                               sat5 => 'potrebuji nnnnn.AMSAT v nazvu ke stazeni keps z teto zpravy',
-                               satnf => 'Druzice $_[0] je neznama',
-                               satdisc => '-----',
-                               set => '$_[0] povoleno pro $_[1]',
-                               sethop1 => 'pouziti: set/hops <znacka> ann|spots|wwv|wcy <pocet skoku>',
-                               sethop2 => '$_[0] skoku nastaveno na $_[1]$_[2] pro $_[3]', 
-                               sethop3 => 'Zadny pocet skoku nastaven pro $_[0]', 
-                               shu => '\"SHU\" nestaci, je treba alespon \"SHUT\" k vypnuti nodu',
-                               shutting => '$main::mycall se vypina...',
-                               sloc => 'Cluster lat $_[0] long $_[1], NEZAPOMEN ZMENIT DXVars.pm',
-                               snode1 => 'Nod  Znacka  Typ     Verze  ',
-                               snode2 => '$_[0] $_[1]  $_[2]',
-                               snode3 => '$_[0] Neznama znacka',
-                               sqra => 'Cluster QRA Lokator$_[0], NEZAPOMEN ZMENIT DXVars.pm',
-                               sorry => 'Lituji',
-                               spf1 => 'spoof: vytvarim noveho uzivatele $_[0]',
-                               stathf => 'HF DX Spot Stats, poslednich $_[1] dni pocinaje $_[0]',
-                               stathft => 'HF DX Spot Stats, poslednich $_[2] dni pocinaje $_[1] pro DXCC $_[0]',
-                               statvhf => 'VHF+ DX Spot Stats, poslednich $_[1] dni pocinaje $_[0]',
-                               statvhft => 'VHF+ DX Spot Stats, poslednich $_[2] dni pocinaje $_[1] pro DXCC $_[0]',
-                               statdx => 'Prehled DX Spotu pro $_[1] dni pocinaje $_[0]',
-                               sun => 'Poloha                                dd/mm/yyyy Vychod  Zapad',
-                               sun_with_azel => 'Poloha                                dd/mm/yyyy Vychod  Zapad  Azim    Elev',
-                               susdb1 => 'pouziti: znacka stat  mesto',
-                               susdb2 => 'USDB $_[0] bylo $_[1], $_[2]',
-                               susdb3 => 'USDB $_[0] je nyni $_[1], $_[2]',
-                               susdb4 => 'USDB $_[0] smazano',
-                               suser1 => 'pouziti: znacka jmeno_uzivatele hodnota',
-                               suser2 => 'User $_[0] nebylo nalezeno',
-                               suser3 => 'User field \'$_[0]\' bylo \'$_[1]\' nyni nastaveno na \'$_[2]\'',
-                               suser4 => 'Jmeno uzivatele \'$_[0]\' neexistuje',
-                               time1 => 'Lokalni cas: $_[0] $_[1], UTC $_[2]',
-                               time2 => '$_[0] Lokalni (standardni) cas: $_[1] ($_[2] hodin)',
-                               time3 => '$_[0]  $_[1]',
-                               talks => 'Talk povolen pro $_[0]',
-                               talku => 'Talk zakazan pro $_[0]',
-                               talkend => 'Skoncil spolecnou konverzaci',
-                               talkinst => 'Vstupuji do konverzacniho modu, /EX pro skonceni, /<paikaz> ke spusteni prikazu',
-                               talknh => 'Lituji, $_[0] neni momentalne online',
-                               talkprompt => 'Talk ($_[0])>',
-                               talkstart => 'Zahajil spolecnou konverzaci',
-                               unset => '$_[0] zakazano pro for $_[1]',
-                               unsethop1 => 'pouziti: unset/hops <znacka> ann|spots|wwv|wcy',
-                               unsethop2 => 'pocet skoku neni nastaven na $_[1] pro $_[0]', 
-                               usernf => '*** Uzivatelsky zaznam pro $_[0] nebyl nalezen ***',
-                               wcy1 => '$_[0] bud chybi nebo je mimo rozsah',
-                               wcy2 => 'Duplicitni WCY',
-                               wcys => 'WCY je povoleno pro $_[0]',
-                               wcyu => 'WCY je zakazano pro $_[0]',
-                               wwv1 => '$_[0] bud chybi nebo je mimo rozsah',
-                               wwv2 => 'Duplicitni WWV',
-                               wwvs => 'WWV je povoleno pro $_[0]',
-                               wwvu => 'WWV je zakazano pro $_[0]',
-                               wxs => 'WX je povoleno pro $_[0]',
-                               wxu => 'WX je zakazano pro $_[0]',
-               },
+                               echoon => q{Echo povoleno},
+                               echooff => q{Echo zakazano},
+                               echow => q{*Echo je momentalne zakazano, pouzij set/echo k povoleni},
+                               emaile1 => q{Prosim zadej svou e-mailovou adresu, set/email <tva emailova adresa>},
+                               emaila => q{Tva e-mailova adresa je nyni "$_[0]"},
+                               email => q{E-mailova adresa je nastavena na: $_[0]},
+                               export1 => q{pouziti: export <cislo zpravy> <soubor>},
+                               export2 => q{$_[3] hlasi chyby pri exportu zpravy $_[0] do $_[1] ($_[2])},
+                               export3 => q{$_[2 ] exportoval zpravu $_[0] to $_[1]},
+                               filter1 => q{Filtr $_[0] byl zmenen pro  for $_[1]},
+                               filter2 => q{Neznamy prikaz filtru $_[0]},
+                               filter3 => q{Nejsou zadne definovane filtry pro $_[0]},
+                               filter4 => q{$_[0]$_[1] Filtr $_[2] smazan pro $_[3]},
+                               filter5 => q{potrebuji nejake prikazy filtru...},
+                               filter6 => q{$_[0]$_[1] Filtr pro $[2] nebyl nalezen},
+                               grids => q{QRA ctverec byl povolen pro $_[0]},
+                               gridu => q{QRA ctverec byl zakazan pro $_[0]},
+                               illcall => q{Lituji, $_[0] neni platna znacka},
+                               hasha => q{$_[0] uz existuje v $_[1]},
+                               hashb => q{$_[0] byl pridan do $_[1]},
+                               hashc => q{$_[0] byl odstranen z $_[1]},
+                               hashd => q{$_[0] neni v $_[1]'},
+                               hashe => q{$_[0] byl nastaven v $_[1]'},
+                               helpe1 => q{Systemova napoveda neni k dispozici, informuj sysopa},
+                               helpe2 => q{Napoveda neni k dispozici k $_[0]},
+                               heres => q{$_[0] je pritomen},
+                               heade1 => q{S pouzitim souradnic clusteru, doporucuji zadat set/location nebo set/qra},
+                               hereu => q{$_[0] neni pritomen},
+                               homebbs => q{Domaci BBS je nastavena na: $_[0]},
+                               homenode => q{Domaci DXC nod je nastaven na: $_[0]},
+                               hnodee1 => q{Prosim zadej svuj domaci DXC nod, set/homenode <tvuj domaci DX cluster>},
+                               hnodee2 => q{Nastaveni domaciho nodu na $_[0] selhalo},
+                               hnode => q{Tvuj domaci nod je nyni "$_[0]"},
+                               init1 => q{vyslana inicializacni zprava do $_[0]},
+                               iso => q{$_[0] izolovan},
+                               isou => q{$_[0] neni izolovan},
+                               isoc => q{$_[0] vytvoren a izolovan},
+                               isoari => q{vstupni route filtr pro $_[0] uz existuje; zadej nejprve clear/route input $_[0]},
+                               isoaro => q{vystupni route filtr pro $_[0] uz existuje; zadej nejprve clear/route $_[0]},
+                               isow => q{$_[0] je izolovan; zadej nejprve unset/isolate $_[0]},
+                               l1 => q{Lituji $_[0], uz jsi zalogovan na jinem kanalu},
+                               l2 => q{Ahoj $_[0], toto je $main::mycall, $main::myqth\npouzivajici DXSpider V$main::version build $main::build},
+                               lang => q{Jazyk je nyni nastaven na Cestinu (napoveda zatim v procesu)},
+                               lange1 => q{set/language <lang> kde <lang> je jedno z ($_[0])},
+                               lange2 => q{selhalo nastaveni jazyka na $_[0]'},
+                               lh1 => q{$main::data/hop_table.pl neexistuje},
+                               loce1 => q{Prosim zadej svou polohu, set/location <sirka delka>},
+                               loce2 => q{Nemohu rozpoznat "$_[0]" jako sirka/delka (napr 52 20 N 0 16 E)},
+                               loce3 => q{$_[0] je QRA lokator, prosim pouzij: set/qra $_[0]},
+                               loc => q{Tva poloha (sirka/delka) je nyni "$_[0]"},
+                               lockout => q{$_[0] zamknuto},
+                               lockoutc => q{$_[0] vytvoreno a zamknuto},
+                               lockoutun => q{$_[0] Odemceno},
+                               lockoutuse => q{pouziti: sh/lockout <znacka>|ALL},
+                               loginu => q{Uzivatel $_[0] prihlasen},
+                               logoutu => q{Uzivatel $_[0] odhlasen},
+                               loginn => q{Nod $_[0] prihlasen},
+                               logoutn => q{Nod $_[0] odhlasen},
+                               m1 => q{Zadej nazev (30 znaku):},
+                               m2 => q{Kopie zpravy $_[0] byla odeslana k $_[1]},
+                               m3 => q{Lituji, $_[0] je neplatna cilova adresa},
+                               m4 => q{Lituji, zprava $_[0] neni dostupna},
+                               m5 => q{Lituji, potrebuji cislo zpravy'},
+                               m6 => q{Odpoved na: $_[0]},
+                               m7 => q{Nezev: $_[0]},
+                               m8 => q{Zadej text zpravy /EX pro konec nebo /ABORT k preruseni},
+                               m9 => q{Mas novou zpravu},
+                               m10 => q{Zprava prerusena},
+                               m11 => q{Zprava c. $_[0] ulozena a smerovana na $_[1]},
+                               m12 => q{Zprava c. $_[0] byla smazana},
+                               m13 => q{Zprava c. $_[0] chybi},
+                               m14 => q{Zprava c. $_[0] byla oznacena a zaslana do $_[1]},
+                               m15 => q{Zprava c. $_[0] byla neoznacena a zaslana do $_[1]},
+                               m16 => q{Potrebuji cislo zpravy},
+                               m17 => q{Lituji, nemohu posilat zpravy v modu $_[0]},
+                               m18 => q{Lituji, zprava $_[0] ma momentalne status KEEP},
+                               msg1 => q{Zpravy v rubrikach cekaji ve fronte},
+                               msg2 => q{Privatni zpravy cekaji ve fronte},
+                               msg3 => q{Zprava $_[0]: $_[1] byla zmenena z $_[2] na $_[3]},
+                               msgu => q{pouziti: msg <prikaz> <cislo zpravu> data...},
+                               merge1 => q{Pozadavek na Merge pro $_[1] spotu a $_[2] WWV byl zaslan do $_[0]},
+                               moon => q{Poloha                                dd/mm/yyyy Vychod  Zapad},
+                               moon_with_azel => q{Poloha                                dd/mm/yyyy Vychod  Zapad   Azim   Elev},
+                               mond => q{Monitoring je zakazan},
+                               mone => q{Monitoring je povolen},
+                               namee1 => q{Prosim zadej sve jmeno, set/name <tve jmeno>},
+                               namee2 => q{Nemohu najit uzivatele $_[0]!},
+                               name => q{Tve jmeno je nyni "$_[0]"},
+                               nodea => q{$_[0] nastaven jako nod typu AK1A},
+                               nodeac => q{$_[0] vytvoren jako nod typu AK1A},
+                               nodeb => q{$_[0] nastaven jako BBS},
+                               nodebc => q{$_[0] vytvoren jako BBS},
+                               nodec => q{$_[0] nastaven jako nod typu CLX},
+                               nodecc => q{$_[0] vytvoren jako nod typu CLX},
+                               noder => q{$_[0] nastaven jako nod typu AR-Cluster},
+                               noderc => q{$_[0] vytvoren jako nod typu AR-Cluster},
+                               nodes => q{$_[0] nastaven jako nod typu DXSpider},
+                               nodesc => q{$_[0] vytvoren jako nod typu DXSpider},
+                               nodex => q{$_[0] nastaven jako nod typu DXNET},
+                               nodexc => q{$_[0] vytvoren jako nod typu DXNET},
+                               nodeu => q{$_[0] nastaven opet jako uzivatel},
+                               nodee1 => q{Nemuzes pouzit tento prikaz zatimco tvuj cil ($_[0]) je on-line},
+                               notdone => q{NEBYLO provedeno},
+                               nothere => q{Lituji, ale $_[0] neni momentalne zde, zkus to pozdeji'},
+                               obscount => q{Pocatecni hodnota Ping citace nodu $_[0] byla nastavena na $_[1]},
+                               ok => q{Operace byla uspesna},
+                               outconn => q{Zbyvajici spojeni na $_[0]},
+                               page => q{Stiskni Enter pro pokracovani, A k preruseni ($_[0] radku) >},
+                               pagelth => q{Delka stranky je nyni $_[0]},
+                               passerr => q{Prosim pouzij: SET/PASS <heslo> <znacka>},
+                               passphrase => q{Fraze byla nastavena nebo zmenena pro $_[0]},
+                               passphraseu => q{Fraze byla odstranena pro $_[0]},
+                               password => q{Heslo bylo nastaveno nebo zmeneno pro $_[0]},
+                               passwordu => q{Heslo bylo odstraneno pro $_[0]},
+                               pc90s => q{PC90 bylo povoleno pro $_[0]},
+                               pc90u => q{PC90 bylo zakazano $_[0]},
+                               pingo => q{Ping byl zaslan na $_[0]},
+                               pingi => q{Ping se vratil od $_[0] $_[1] (Prum $_[2]) sekundy},
+                               pinge1 => q{Nemuzu pingnout sam sebe!},
+                               pingint => q{Ping interval na $_[0] byl nastaven na $_[1] sekundy},
+                               'pos' => q{Od znacky: $_[0] Sirka: $_[1] Delka: $_[2]},
+                               pr2 => q{($_[0]) de $main::mycall $_[1] $_[2] >},
+                               prs => q{Prompt byl nastaven na "$_[0]"},
+                               pru => q{Prompt byl vracen na default},
+                               priv => q{Uroven prav byla zmenena na $_[0]},
+                               prx => q{$main::mycall >},
+                               pw0 => q{Zadej stare heslo: },
+                               pw1 => q{Zadej nove heslo: },
+                               pw2 => q{Zadej znovu nove heslo: },
+                               pw3 => q{Heslo bylo zmeneno},
+                               pw4 => q{Hesla se lisi, heslo NEBYLO zmeneno},
+                               qll => q{Prpsim zadej svou polohu s pomoci set/location nebo set/qra},
+                               qthe1 => q{Prosim zadej sve QTH, set/qth <tve QTH>},
+                               qth => q{Tve QTH je nyni "$_[0]"},
+                               qrae1 => q{Prosim zadej svuj QRA lokator, set/qra <qra lokator> (napr set/qra JN79FM)},
+                               qrashe1 => q{Prosim zadej QRA locator, napr sh/qra JN79FM nebo sh/qra JN79FM JN63GV},
+                               qrae2 => q{Nerozpoznal jsem "$_[0]" jako QRA lokator (napr JN79FM)},
+                               qra => q{Tvuj QRA lokator je nyni "$_[0]"},
+                               rcmdo => q{RCMD "$_[0]" bylo zaslano do $_[1]},
+                               read1 => q{Lituji, nemas zadne nove zpravy},
+                               read2 => q{Zprava $_[0] nenalezena},
+                               read3 => q{Msg $_[0] neni k dispozici},
+                               rec => q{$_[0] zaznamu},
+                               reg => q{$_[0] registrovano},
+                               regc => q{$_[0] vytvoreno a registrovano},
+                               reginac => q{Registrace neni aktivni (set/var \$main::reqreg = 1 k aktivaci)},
+                               regun => q{$_[0] neregistrovano},
+                               route => q{$_[0] na $_[1] via $_[2]},
+                               sat1 => q{Tabulka pro $_[0] pro nasledujicich $_[1] hodin s intervalem $_[2] min},
+                               sat2 => q{dd/mm  UTC      Lat     Lon  Alt Km      Az      El Vzdal Km},
+                               sat3 => q{Syntaxe: SH/SAT <jmeno> [<hodin> <interval>]},
+                               sat4 => q{Druzice k dispozici/Stari Kepl. elem (dny):-},
+                               sat5 => q{potrebuji nnnnn.AMSAT v nazvu ke stazeni keps z teto zpravy},
+                               satnf => q{Druzice $_[0] je neznama},
+                               satdisc => q{-----},
+                               set => q{$_[0] povoleno pro $_[1]},
+                               sethop1 => q{pouziti: set/hops <znacka> ann|spots|wwv|wcy <pocet skoku>},
+                               sethop2 => q{$_[0] skoku nastaveno na $_[1]$_[2] pro $_[3]'},
+                               sethop3 => q{Zadny pocet skoku nastaven pro $_[0]'},
+                               shu => q{"SHU" nestaci, je treba alespon "SHUT" k vypnuti nodu},
+                               shutting => q{$main::mycall se vypina...},
+                               sloc => q{Cluster lat $_[0] long $_[1], NEZAPOMEN ZMENIT DXVars.pm},
+                               snode1 => q{Nod  Znacka  Typ     Verze  },
+                               snode2 => q{$_[0] $_[1]  $_[2]},
+                               snode3 => q{$_[0] Neznama znacka},
+                               sqra => q{Cluster QRA Lokator$_[0], NEZAPOMEN ZMENIT DXVars.pm},
+                               sorry => q{Lituji},
+                               spf1 => q{spoof: vytvarim noveho uzivatele $_[0]},
+                               stathf => q{HF DX Spot Stats, poslednich $_[1] dni pocinaje $_[0]},
+                               stathft => q{HF DX Spot Stats, poslednich $_[2] dni pocinaje $_[1] pro DXCC $_[0]},
+                               statvhf => q{VHF+ DX Spot Stats, poslednich $_[1] dni pocinaje $_[0]},
+                               statvhft => q{VHF+ DX Spot Stats, poslednich $_[2] dni pocinaje $_[1] pro DXCC $_[0]},
+                               statdx => q{Prehled DX Spotu pro $_[1] dni pocinaje $_[0]},
+                               sun => q{Poloha                                dd/mm/yyyy Vychod  Zapad},
+                               sun_with_azel => q{Poloha                                dd/mm/yyyy Vychod  Zapad  Azim    Elev},
+                               susdb1 => q{pouziti: znacka stat  mesto},
+                               susdb2 => q{USDB $_[0] bylo $_[1], $_[2]},
+                               susdb3 => q{USDB $_[0] je nyni $_[1], $_[2]},
+                               susdb4 => q{USDB $_[0] smazano},
+                               suser1 => q{pouziti: znacka jmeno_uzivatele hodnota},
+                               suser2 => q{User $_[0] nebylo nalezeno},
+                               suser3 => q{User field '$_[0]' bylo '$_[1]' nyni nastaveno na '$_[2]'},
+                               suser4 => q{Jmeno uzivatele '$_[0]' neexistuje},
+                               time1 => q{Lokalni cas: $_[0] $_[1], UTC $_[2]},
+                               time2 => q{$_[0] Lokalni (standardni) cas: $_[1] ($_[2] hodin)},
+                               time3 => q{$_[0]  $_[1]},
+                               talks => q{Talk povolen pro $_[0]},
+                               talku => q{Talk zakazan pro $_[0]},
+                               talkend => q{Skoncil spolecnou konverzaci},
+                               talkinst => q{Vstupuji do konverzacniho modu, /EX pro skonceni, /<paikaz> ke spusteni prikazu},
+                               talknh => q{Lituji, $_[0] neni momentalne online},
+                               talkprompt => q{Talk ($_[0])>},
+                               talkstart => q{Zahajil spolecnou konverzaci},
+                               unset => q{$_[0] zakazano pro for $_[1]},
+                               unsethop1 => q{pouziti: unset/hops <znacka> ann|spots|wwv|wcy},
+                               unsethop2 => q{pocet skoku neni nastaven na $_[1] pro $_[0]'},
+                               usernf => q{*** Uzivatelsky zaznam pro $_[0] nebyl nalezen ***},
+                               wcy1 => q{$_[0] bud chybi nebo je mimo rozsah},
+                               wcy2 => q{Duplicitni WCY},
+                               wcys => q{WCY je povoleno pro $_[0]},
+                               wcyu => q{WCY je zakazano pro $_[0]},
+                               wwv1 => q{$_[0] bud chybi nebo je mimo rozsah},
+                               wwv2 => q{Duplicitni WWV},
+                               wwvs => q{WWV je povoleno pro $_[0]},
+                               wwvu => q{WWV je zakazano pro $_[0]},
+                               wxs => q{WX je povoleno pro $_[0]},
+                               wxu => q{WX je zakazano pro $_[0]},
+                          },
 
-               pt => {
-                               addr => 'Endereo definido para: $_[0]',
-                               already => '$_[0] J ligado',
-                               anns => 'Anncios activado para $_[0]',
-                               annu => 'Anncios desactivado para $_[0]',
-                               annts => 'AnnTalk activado para $_[0]',
-                               anntu => 'AnnTalk desactivado para $_[0]',
-                               badnode1 => '$_[0]  agora um node mau',
-                               badnode2 => '$_[0]  agora um bom node',
-                               badnode3 => 'Lista dos maus nodes:-',
-                               bbse1 => 'Por favor escreva qual a sua BBS local,, set/bbs <a sua bbs local>',
-                               bbs => 'A sua bbs local  agora \"$_[0]\"',
-                               beepoff => 'A campainha est desligada agora',
-                               beepon => 'A campainha est ligada agora',
-                               call1 => 'Indicativo fechado via $_[0]:',
-                               conother => 'Desculpe $_[0] voc est ligado a mim noutra porta',
-                               concluster => 'Desculpe $_[0] voc j est ligado em algum sitio no cluster (on $_[1])',
-                               conscript => 'nenhum script de ligao chamado \"$_[0]\" encontrado em $main::root/connect',
-                               confail => 'ligao para $_[0] falhada ($_[1])',
-                               constart => 'ligao para $_[0] comeada',
-                               deluser => 'User $_[0] foi apagado',
-                               db1 => 'Esta base de dados est localizada em $_[0]',
-                               db2 => 'Desculpe, mas a tecla: $_[0] no foi encontrada em $_[1]',
-                               db3 => 'Desculpe, base de dados $_[0] no\ existe aqui',
-                               db4 => 'Desculp, base de dados $_[0] localizada em $_[1] no\ est actualmente acessivel',
-                               db5 => 'Acedendo a base da dados remota em $_[0]...espere...',
-                               db6 => 'Base de dados $_[0] j existe, apague-a primeiro',
-                               db7 => 'Base de dados $_[0] criada para um node remoto $_[1]',
-                               db8 => 'Base de dados $_[0] criada localmente',
-                               db9 => 'Base de dados $_[0] removida',
-                               db10 => '$_[0] registos  importados para $_[1]',
-                               db11 => 'Enviando o(s) seu(s) pedido(s) para $_[0], por favor espere...',
-                               dfreq1 => 'Freq invlida $_[0] precisa: ex 0/30000 ou hf ou hf/cw', 
-                               dir1 => 'Nenhumas mensagens encontradas',
-                               disc1 => 'Desligado por $_[0]',
-                               disc2 => 'Canal $_[0] desligado',
-                               disc3 => 'Nenhum canal, mas ligao $_[0] desfeita',
-                               disc4 => 'Nenhum canal ou ligao mas orfo $_[0] desligado',
-                               done => 'Feito',
-                               dup => 'Desculpe, isto  um duplicado',
-                               dx1 => 'Frequencia $_[0] no em banda (veja show/band); uso: DX [de indicativo] freq call comentrios',
-                               dx2 => 'Preciso de um indicativo; uso: DX [de indicativo] freq call comentrios',
-                               dx3 => 'O indicativo ou frequncia est invlido',
-                               dxcqs => 'DX CQ Zonas activado para $_[0]',
-                               dxcqu => 'DX CQ Zonas desactivada para $_[0]',
-                               dxitus => 'DX ITU Zonas activado para $_[0]',
-                               dxituu => 'DX ITU Zonas desactivada para $_[0]',
-                               dxs => 'DX Spots activado para $_[0]',
-                               dxu => 'DX Spots desactivado $_[0]',
-                               e1 => 'Comando invlido',
-                               e2 => 'Erro: $_[0]',
-                               e3 => '$_[0]: $_[1] no encontrado',
-                               e4 => 'Preciso de pelo menos dum prefixo ou indicativo',
-                               e5 => 'No  permitido',
-                               e6 => '*** Nenhuma estao especificada ***',
-                               e7 => 'indicativo $_[0] no  visivel no cluster',
-                               e8 => 'Preciso de um indicativo e algum texto',
-                               e9 => 'Preciso de pelo menos dalgum texto',
-                               e10 => '$_[0] no est ligado localmente',
-                               e11 => 'No pode usar $main:mycall como alvo',
-                               e12 => 'Preciso de um indicativo de node',
-                               e13 => '$_[0] no  um node',
-                               e14 => 'O primeiro argumento deve ser numrico e > 0',
-                               e15 => 'qualificador invlido \"$_[0]\"',
-                               e16 => 'O ficheiro \"$_[0]\" existe',
-                               e17 => 'Por favor no use as palavras: @_ aqui', 
-                               e18 => 'No posso ligar a $_[0] ($!)',
-                               e19 => 'Caracter invlido na linha $_[0]',
-                               e20 => 'sinal $_[0] no reconhecido',
-                               e21 => '$_[0] no  numrico',
-                               e22 => '$_[0] no  um indicativo',
-                               e23 => '$_[0] no  um intervalo (ex 0/30000)', 
-                               e24 => 'Desculpe, acesso  internet no est activado',
-                               e25 => 'Desculpe o valor deve estar entre $_[0] e $_[1]',
-                               e26 => 'Muitos erros concurrenciais, voc vai ser desligado',
-                               e27 => '$_[0] no  um nmero ou um prefixo de um indicativo', 
-                               e28 => 'Desculpe, voc precisa ser registado (SP $main::myalias para registrar)',
-                               e29 => 'Preciso de uma password',
-                               e30 => 'No posso abrir $_[0] $!',
-                               e31 => '$_[0] no  um usurio', 
-                               e32 => 'Preciso de uma passphrase',
-                               e33 => '$_[0] no  um nmero de dias ou uma data vlida',
-                               e34 => 'Preciso de um GRUPO e algum texto',
-                               e35 => 'Voc no  um membro de $_[0], junte $_[0]',
+                pt => {
+                               addr => q{Endereo definido para: $_[0]},
+                               already => q{$_[0] J ligado},
+                               anns => q{Anncios activado para $_[0]},
+                               annu => q{Anncios desactivado para $_[0]},
+                               annts => q{AnnTalk activado para $_[0]},
+                               anntu => q{AnnTalk desactivado para $_[0]},
+                               badnode1 => q{$_[0]  agora um node mau},
+                               badnode2 => q{$_[0]  agora um bom node},
+                               badnode3 => q{Lista dos maus nodes:-},
+                               bbse1 => q{Por favor escreva qual a sua BBS local,, set/bbs <a sua bbs local>},
+                               bbs => q{A sua bbs local  agora "$_[0]"},
+                               beepoff => q{A campainha est desligada agora},
+                               beepon => q{A campainha est ligada agora},
+                               call1 => q{Indicativo fechado via $_[0]:},
+                               conother => q{Desculpe $_[0] voc est ligado a mim noutra porta},
+                               concluster => q{Desculpe $_[0] voc j est ligado em algum sitio no cluster (on $_[1])},
+                               conscript => q{nenhum script de ligao chamado "$_[0]" encontrado em $main::root/connect},
+                               confail => q{ligao para $_[0] falhada ($_[1])},
+                               constart => q{ligao para $_[0] comeada},
+                               deluser => q{User $_[0] foi apagado},
+                               db1 => q{Esta base de dados est localizada em $_[0]},
+                               db2 => q{Desculpe, mas a tecla: $_[0] no foi encontrada em $_[1]},
+                               db3 => q{Desculpe, base de dados $_[0] no\ existe aqui},
+                               db4 => q{Desculp, base de dados $_[0] localizada em $_[1] no\ est actualmente acessivel},
+                               db5 => q{Acedendo a base da dados remota em $_[0]...espere...},
+                               db6 => q{Base de dados $_[0] j existe, apague-a primeiro},
+                               db7 => q{Base de dados $_[0] criada para um node remoto $_[1]},
+                               db8 => q{Base de dados $_[0] criada localmente},
+                               db9 => q{Base de dados $_[0] removida},
+                               db10 => q{$_[0] registos  importados para $_[1]},
+                               db11 => q{Enviando o(s) seu(s) pedido(s) para $_[0], por favor espere...},
+                               dfreq1 => q{Freq invlida $_[0] precisa: ex 0/30000 ou hf ou hf/cw'},
+                               dir1 => q{Nenhumas mensagens encontradas},
+                               disc1 => q{Desligado por $_[0]},
+                               disc2 => q{Canal $_[0] desligado},
+                               disc3 => q{Nenhum canal, mas ligao $_[0] desfeita},
+                               disc4 => q{Nenhum canal ou ligao mas orfo $_[0] desligado},
+                               done => q{Feito},
+                               dup => q{Desculpe, isto  um duplicado},
+                               dx1 => q{Frequencia $_[0] no em banda (veja show/band); uso: DX [de indicativo] freq call comentrios},
+                               dx2 => q{Preciso de um indicativo; uso: DX [de indicativo] freq call comentrios},
+                               dx3 => q{O indicativo ou frequncia est invlido},
+                               dxcqs => q{DX CQ Zonas activado para $_[0]},
+                               dxcqu => q{DX CQ Zonas desactivada para $_[0]},
+                               dxitus => q{DX ITU Zonas activado para $_[0]},
+                               dxituu => q{DX ITU Zonas desactivada para $_[0]},
+                               dxs => q{DX Spots activado para $_[0]},
+                               dxu => q{DX Spots desactivado $_[0]},
+                               e1 => q{Comando invlido},
+                               e2 => q{Erro: $_[0]},
+                               e3 => q{$_[0]: $_[1] no encontrado},
+                               e4 => q{Preciso de pelo menos dum prefixo ou indicativo},
+                               e5 => q{No  permitido},
+                               e6 => q{*** Nenhuma estao especificada ***},
+                               e7 => q{indicativo $_[0] no  visivel no cluster},
+                               e8 => q{Preciso de um indicativo e algum texto},
+                               e9 => q{Preciso de pelo menos dalgum texto},
+                               e10 => q{$_[0] no est ligado localmente},
+                               e11 => q{No pode usar $main:mycall como alvo},
+                               e12 => q{Preciso de um indicativo de node},
+                               e13 => q{$_[0] no  um node},
+                               e14 => q{O primeiro argumento deve ser numrico e > 0},
+                               e15 => q{qualificador invlido "$_[0]"},
+                               e16 => q{O ficheiro "$_[0]" existe},
+                               e17 => q{Por favor no use as palavras: @_ aqui'},
+                               e18 => q{No posso ligar a $_[0] ($!)},
+                               e19 => q{Caracter invlido na linha $_[0]},
+                               e20 => q{sinal $_[0] no reconhecido},
+                               e21 => q{$_[0] no  numrico},
+                               e22 => q{$_[0] no  um indicativo},
+                               e23 => q{$_[0] no  um intervalo (ex 0/30000)'},
+                               e24 => q{Desculpe, acesso  internet no est activado},
+                               e25 => q{Desculpe o valor deve estar entre $_[0] e $_[1]},
+                               e26 => q{Muitos erros concurrenciais, voc vai ser desligado},
+                               e27 => q{$_[0] no  um nmero ou um prefixo de um indicativo'},
+                               e28 => q{Desculpe, voc precisa ser registado (SP $main::myalias para registrar)},
+                               e29 => q{Preciso de uma password},
+                               e30 => q{No posso abrir $_[0] $!},
+                               e31 => q{$_[0] no  um usurio'},
+                               e32 => q{Preciso de uma passphrase},
+                               e33 => q{$_[0] no  um nmero de dias ou uma data vlida},
+                               e34 => q{Preciso de um GRUPO e algum texto},
+                               e35 => q{Voc no  um membro de $_[0], junte $_[0]},
 
-                               echoon => 'Eco activado',
-                               echooff => 'Eco desactivado',
-                               echow => '*O eco est actualmente desactivado, escreva set/echo para activar',
-                               emaile1 => 'Por favor escreva o seu email, faa set/email <seu email>',
-                               emaila => 'O seu email  agora \"$_[0]\"',
-                               email => 'Email definido para: $_[0]',
-                               export1 => 'uso: export <msgno> <nome de ficheiro>',
-                               export2 => '$_[3] houve um erro ao exportar a msg $_[0] para $_[1] ($_[2])',
-                               export3 => '$_[2 ] msg $_[0] exportada para $_[1]',
-                               filter1 => 'Filtro $_[0] actualizado para $_[1]',
-                               filter2 => 'Filtro de palavra chave $_[0] desconhecido',
-                               filter3 => 'Nenhuns filtros definidos para $_[0]',
-                               filter4 => '$_[0]$_[1] Filtro $_[2] apagado para $_[3]',
-                               filter5 => 'preciso de alguns comandos de filtro...',
-                               filter6 => '$_[0]$_[1] Filtro para $[2] no encontrado',
-                               grids => 'Grelha de DX activado para $_[0]',
-                               gridu => 'Grelha de DX desactivado para $_[0]',
-                               illcall => 'Desculpe, $_[0]  um indicativo invlido',
-                               hasha => '$_[0] j existe em $_[1]',
-                               hashb => '$_[0] adicionado para $_[1]',
-                               hashc => '$_[0] removido de $_[1]',
-                               hashd => '$_[0] no em $_[1]', 
-                               hashe => '$_[0] definido em $_[1]', 
-                               helpe1 => 'Sistema de ajuda no disponivel, diga ao sysop',
-                               helpe2 => 'Nenhuma ajuda disponivel em $_[0]',
-                               heres => 'Aqui definido em $_[0]',
-                               heade1 => 'Usando $main::mycall coords, considere fazer um set/location ou set/qra',
-                               hereu => 'Aqui no definido em $_[0]',
-                               homebbs => 'BBS local definida como: $_[0]',
-                               homenode => 'Node local definido como: $_[0]',
-                               hnodee1 => 'Por favor escreva o seu node local, set/homenode <o seu DX Cluster>',
-                               hnodee2 => 'Falha ao definir o node local em $_[0]',
-                               hnode => 'O seu node local  agora \"$_[0]\"',
-                               init1 => 'enviar mensagem de inicializao para $_[0]',
-                               iso => '$_[0] Isolado',
-                               isou => '$_[0] No isolado',
-                               isoc => '$_[0] criado e isolado',
-                               isoari => 'h um filtro de rota entrado para $_[0]; clear/route input $_[0] primeiro',
-                               isoaro => 'h um filtro de rota saido para $_[0]; clear/route $_[0] primeiro',
-                               isow => '$_[0] est isolado; unset/isolate $_[0] primeiro',
-                               join => 'a juntar ao grupo $_[0]',
-                               l1 => 'Desculpe $_[0], voc est ligado noutro canal',
-                               l2 => 'Ol $_[0], isto  $main::mycall em $main::myqth\nrunning DXSpider V$main::version build $main::build',
-                               lang => 'Linguagem  agora o Portugus',
-                               lange1 => 'set/language <ling> aonde <ling>  uma de ($_[0])',
-                               lange2 => 'falha ao definir uma lngua em $_[0]', 
-                               leave => 'a deixar o grupo $_[0]',
-                               lh1 => '$main::data/hop_table.pl no existe',
-                               loce1 => 'Por favor diga as suas coordenadas,, set/location <latitude longitude>',
-                               loce2 => 'No reconhece \"$_[0]\" como uma Lat/Long (ex 52 20 N 0 16 E)',
-                               loce3 => '$_[0]  um locator, por favor use: set/qra $_[0]',
-                               loc => 'A sua lat/long  agora \"$_[0]\"',
-                               lockout => '$_[0] Fechado',
-                               lockoutc => '$_[0] Criado e fechado',
-                               lockoutun => '$_[0] Aberto',
-                               lockoutuse => 'uso: sh/lockout <call>|ALL',
-                               loginu => 'Usurio $_[0] ligou',
-                               logoutu => 'Usurio $_[0] desligou-se',
-                               loginn => 'Node $_[0] ligou',
-                               logoutn => 'Node $_[0] desligou',
-                               m1 => 'Escrever o ttulo (30 caracteres):',
-                               m2 => 'Cpia da msg $_[0] enviada para $_[1]',
-                               m3 => 'Desculpe, $_[0]  o endereo inaceitvel',
-                               m4 => 'Desculpe, no pode aceder  mensagem $_[0]',
-                               m5 => 'Desculpe, eu preciso do nmero da mensagem', 
-                               m6 => 'Responder a: $_[0]',
-                               m7 => 'Ttulo : $_[0]',
-                               m8 => 'Escrever a mensagem /EX para enviar ou /ABORT para sair',
-                               m9 => 'Uma nova mensagem chegou para si',
-                               m10 => 'Mensagem abortada',
-                               m11 => 'Mensagem nmero $_[0] guardada e enviada para $_[1]',
-                               m12 => 'Mensagem nmero $_[0] apagada',
-                               m13 => 'Mensagem nmero $_[0] desaparecida',
-                               m14 => 'Mensagem nmero $_[0] marcada como enviada para $_[1]',
-                               m15 => 'Mensagem nmero $_[0] desmarcada como enviada para $_[1]',
-                               m16 => 'Preciso do nmero da mensagem',
-                               m17 => 'Desculpe, no posso enviar mensagens no modo $_[0]',
-                               m18 => 'Desculpe, a mensagem $_[0] est actualmente definida como KEEP',
-                               msg1 => 'Filas das mensagens de boletins',
-                               msg2 => 'Filas das mensagens privadas',
-                               msg3 => 'Mensagem $_[0]: $_[1] alterada de $_[2] para $_[3]',
-                               msgu => 'uso: msg <cmd> <msgno> data...',
-                               merge1 => 'Submeter pedido para $_[1] spots e $_[2] WWV enviado para $_[0]',
-                               moon => 'Localizao                           dd/mm/yyyy Subir  Definido',
-                               moon_with_azel => 'Localizao                           dd/mm/yyyy Subir  Definido      Azim   Elev',
-                               mond => 'Monitorizao desactivada',
-                               mone => 'Monitorizao activada',
-                               namee1 => 'Por favor escreva o seu nome, set/name <o seu nome>',
-                               namee2 => 'No encontro o usurio $_[0]!',
-                               name => 'O seu nome  \"$_[0]\"',
-                               nodea => '$_[0] definido como um node tipo AK1A',
-                               nodeac => '$_[0] criado como um node tipo AK1A',
-                               nodeb => '$_[0] definido como BBS',
-                               nodebc => '$_[0] criado como BBS',
-                               nodec => '$_[0] definido como um node tipo CLX',
-                               nodecc => '$_[0] criado como um node tipo CLX',
-                               noder => '$_[0] definido como um node tipo AR-Cluster',
-                               noderc => '$_[0] criado como um node tipo AR-Cluster',
-                               nodes => '$_[0] definido como um node tipo DXSpider',
-                               nodesc => '$_[0] criado como um node tipo DXSpider',
-                               nodex => '$_[0] definido como um node tipo DXNET',
-                               nodexc => '$_[0] criado como um node tipo DXNET',
-                               nodeu => '$_[0] definido como um usurio',
-                               nodee1 => 'Voc no pode usar este comando enquanto o seu alvo ($_[0]) est ligado',
-                               notdone => 'No foi feito',
-                               nothere => 'Desculpe, mas $_[0] no est aqui de momento, por favor tente mais tarde', 
-                               obscount => 'Ping obsolescence conta como $_[0] definido para $_[1]',
-                               ok => 'Operao bem sucedida',
-                               outconn => 'Ligao exterior para $_[0]',
-                               page => 'Prima no Enter para continuar, A para abortar ($_[0] linhas) >',
-                               pagelth => 'O tamanho da pgina  agora de $_[0]',
-                               passerr => 'Por favor use: SET/PASS <password> <indicativo>',
-                               passphrase => 'Passphrase definida ou alterada por $_[0]',
-                               passphraseu => 'Passphrase removida por $_[0]',
-                               password => 'Password definida ou alterada por $_[0]',
-                               passwordu => 'Password removida por $_[0]',
-                               pc90s => 'PC90 activado por $_[0]',
-                               pc90u => 'PC90 desactivado $_[0]',
-                               pingo => 'Ping comeou para $_[0]',
-                               pingi => 'Ping retornado de $_[0] $_[1] (Ave $_[2]) segundos',
-                               pinge1 => 'No pode fazer ping para si prprio!',
-                               pingint => 'Intervalo de Ping em $_[0] definido para $_[1] segundos',
-                               'pos' => 'Do indicativo: $_[0] Lat: $_[1] Long: $_[2]',
-                               prs => 'Prompt agora definida para \"$_[0]\"',
-                               pru => 'Prompt agora regressou para a default',
-                               priv => 'Nivel de privilgio alterado em $_[0]',
-                               prx => '$main::mycall >',
-                               pw0 => 'Escreva a password antiga: ',
-                               pw1 => 'Escreva a password nova: ',
-                               pw2 => 'Escreva novamente a nova password: ',
-                               pw3 => 'Password alterada',
-                               pw4 => 'As Passwordes diferem, a password NO foi alterada',
-                               qll => 'Por favor escreva a sua localizao com set/location ou set/qra',
-                               qthe1 => 'Por favor escreva o seu QTH, set/qth <o seu qth>',
-                               qth => 'O seu QTH  \"$_[0]\"',
-                               qrae1 => 'Por favor escreva o seu locator, set/qra <locator> (ex set/qra IM58LP)',
-                               qrashe1 => 'Por favor escreva o seu locator, ex sh/qra IM58LP ou sh/qra IM58LP IO93NS',
-                               qrae2 => 'No reconhece \"$_[0]\" como um locator (ex IM58LP)',
-                               qra => 'O seu locator  \"$_[0]\"',
-                               qsl1 => 'Call           Manager   Times  Last Time Seen      De',
-                               rcmdo => 'RCMD \"$_[0]\" enviado para $_[1]',
-                               read1 => 'Desculpe, nenhuma mensagem nova para voc',
-                               read2 => 'Msg $_[0] no foi encontrada',
-                               read3 => 'Msg $_[0] no est disponivel',
-                               rec => '$_[0] registos',
-                               reg => '$_[0] registados',
-                               regc => '$_[0] criado e registado',
-                               reginac => 'O registo no est activo (set/var \$main::reqreg = 1 para activar)',
-                               regun => '$_[0] no registado',
-                               route => '$_[0] em $_[1] via $_[2]',
-                               sat1 => 'Tabela de rbitras para $_[0] para a prxima $_[1] horas em todos os $_[2] mins',
-                               sat2 => 'dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km',
-                               sat3 => 'Sintaxe: SH/SAT <nome> [<horas> <intervalo>]',
-                               sat4 => 'Satlites disponiveis/Idade das rbitras (dias):-',
-                               sat5 => 'preciso nnnnn.AMSAT no ttulo para carregar as rbitras desde esta mensagem',
-                               satnf => 'Satlite $_[0] desconhecido',
-                               satdisc => '-----',
-                               set => '$_[0] activado por $_[1]',
-                               sethop1 => 'uso: set/hops <indicativo> ann|spots|wwv|wcy <nmero de saltos>',
-                               sethop2 => '$_[0] saltos definidos em $_[1]$_[2] por $_[3]', 
-                               sethop3 => 'Nenhuns saltos definidos por $_[0]', 
-                               shu => '\"SHU\" no  suficiente! voc precisa pelo menos de  \"SHUT\" para desligar o node',
-                               shutting => '$main::mycall a desligar...',
-                               sloc => 'Cluster lat $_[0] long $_[1], NO ESQUECER DE ALTERAR O SEU DXVars.pm',
-                               snode1 => 'Node Call   Sort    Verso',
-                               snode2 => '$_[0] $_[1]  $_[2]',
-                               snode3 => '$_[0] indicativo desconhecido',
-                               sqra => 'Cluster locator$_[0], NO ESQUECER DE ALTERAR O SEU DXVars.pm',
-                               sorry => 'Desculpe',
-                               spf1 => 'spoof: criando um novo usurio $_[0]',
-                               stathf => 'HF DX Spot Stats, ltimo $_[1] dias de $_[0]',
-                               stathft => 'HF DX Spot Stats, ltimo $_[2] dias de $_[1] por DXCC $_[0]',
-                               statvhf => 'VHF+ DX Spot Stats, ltimo $_[1] dias de $_[0]',
-                               statvhft => 'VHF+ DX Spot Stats, ltimo $_[2] dias de $_[1] por DXCC $_[0]',
-                               statdx => 'Total DX Spots por $_[1] dias de $_[0]',
-                               sun => 'Localizao                           dd/mm/yyyy Subir  Definido',
-                               sun_with_azel => 'Localizao                           dd/mm/yyyy Subir  Definido    Azim   Elev',
-                               susdb1 => 'uso: indicativo da cidade do estado',
-                               susdb2 => 'USDB $_[0] foi $_[1], $_[2]',
-                               susdb3 => 'USDB $_[0] agora $_[1], $_[2]',
-                               susdb4 => 'USDB $_[0] apagado',
-                               suser1 => 'uso: indicativo valor user_field_name',
-                               suser2 => 'Usurio $_[0] no foi encontrado',
-                               suser3 => 'Campo do usurio \'$_[0]\' fooi \'$_[1]\' agora definido para \'$_[2]\'',
-                               suser4 => 'O campo de nome do usurio \'$_[0]\' no existe',
-                               time1 => 'Tempo local: $_[0] $_[1], UTC $_[2]',
-                               time2 => '$_[0] Tempo local (standard): $_[1] ($_[2] Horas)',
-                               time3 => '$_[0]  $_[1]',
-                               talks => 'QSO activado por $_[0]',
-                               talku => 'QSO desactivado por $_[0]',
-                               talkend => 'Conversao acabada para si',
-                               talkinst => 'A entrar no mode de conversao, /EX para terminar, /<cmd> para correr como um comando',
-                               talknh => 'Desculpe $_[0] no est ligado de momento',
-                               talkprompt => 'Conversar ($_[0])>',
-                               talkstart => 'A comear a conversao para si',
-                               unset => '$_[0] desactivado por $_[1]',
-                               unsethop1 => 'uso: unset/hops <indicativo> ann|spots|wwv|wcy',
-                               unsethop2 => 'saltos no definidos em $_[1] por $_[0]', 
-                               usernf => '*** Registo de usurio por $_[0] no foi encontrado ***',
-                               usstates => 'Mostrar estados dos EUA activado por $_[0]',
-                               usstateu => 'Desactivar os estados dos EUA por $_[0]',
-                               wcy1 => '$_[0] est desaparecido ou fora de alcance',
-                               wcy2 => 'WCY duplicado',
-                                wcys => 'WCY enabled for $_[0]',
-                               wcyu => 'WCY desactivado por $_[0]',
-                               wpc16s => 'Permite o PC16 de $_[0] activado',
-                               wpc16u => 'Permite o PC16 de $_[0] desactivado',
-                               wpc19s => 'Rota PC19 por $_[0] activado',
-                               wpc19u => 'Rota PC19 por $_[0] desactivado',
-                               wwv1 => '$_[0] est desaparecido ou fora de alcance',
-                               wwv2 => 'WWV duplicado',
-                               wwvs => 'WWV activado por $_[0]',
-                               wwvu => 'WWV desactivado $_[0]',
-                               wxs => 'WX activado por $_[0]',
-                               wxu => 'WX desactivado por $_[0]',
+                               echoon => q{Eco activado},
+                               echooff => q{Eco desactivado},
+                               echow => q{*O eco est actualmente desactivado, escreva set/echo para activar},
+                               emaile1 => q{Por favor escreva o seu email, faa set/email <seu email>},
+                               emaila => q{O seu email  agora "$_[0]"},
+                               email => q{Email definido para: $_[0]},
+                               export1 => q{uso: export <msgno> <nome de ficheiro>},
+                               export2 => q{$_[3] houve um erro ao exportar a msg $_[0] para $_[1] ($_[2])},
+                               export3 => q{$_[2 ] msg $_[0] exportada para $_[1]},
+                               filter1 => q{Filtro $_[0] actualizado para $_[1]},
+                               filter2 => q{Filtro de palavra chave $_[0] desconhecido},
+                               filter3 => q{Nenhuns filtros definidos para $_[0]},
+                               filter4 => q{$_[0]$_[1] Filtro $_[2] apagado para $_[3]},
+                               filter5 => q{preciso de alguns comandos de filtro...},
+                               filter6 => q{$_[0]$_[1] Filtro para $[2] no encontrado},
+                               grids => q{Grelha de DX activado para $_[0]},
+                               gridu => q{Grelha de DX desactivado para $_[0]},
+                               illcall => q{Desculpe, $_[0]  um indicativo invlido},
+                               hasha => q{$_[0] j existe em $_[1]},
+                               hashb => q{$_[0] adicionado para $_[1]},
+                               hashc => q{$_[0] removido de $_[1]},
+                               hashd => q{$_[0] no em $_[1]'},
+                               hashe => q{$_[0] definido em $_[1]'},
+                               helpe1 => q{Sistema de ajuda no disponivel, diga ao sysop},
+                               helpe2 => q{Nenhuma ajuda disponivel em $_[0]},
+                               heres => q{Aqui definido em $_[0]},
+                               heade1 => q{Usando $main::mycall coords, considere fazer um set/location ou set/qra},
+                               hereu => q{Aqui no definido em $_[0]},
+                               homebbs => q{BBS local definida como: $_[0]},
+                               homenode => q{Node local definido como: $_[0]},
+                               hnodee1 => q{Por favor escreva o seu node local, set/homenode <o seu DX Cluster>},
+                               hnodee2 => q{Falha ao definir o node local em $_[0]},
+                               hnode => q{O seu node local  agora "$_[0]"},
+                               init1 => q{enviar mensagem de inicializao para $_[0]},
+                               iso => q{$_[0] Isolado},
+                               isou => q{$_[0] No isolado},
+                               isoc => q{$_[0] criado e isolado},
+                               isoari => q{h um filtro de rota entrado para $_[0]; clear/route input $_[0] primeiro},
+                               isoaro => q{h um filtro de rota saido para $_[0]; clear/route $_[0] primeiro},
+                               isow => q{$_[0] est isolado; unset/isolate $_[0] primeiro},
+                               join => q{a juntar ao grupo $_[0]},
+                               l1 => q{Desculpe $_[0], voc est ligado noutro canal},
+                               l2 => q{Ol $_[0], isto  $main::mycall em $main::myqth\nrunning DXSpider V$main::version build $main::build},
+                               lang => q{Linguagem  agora o Portugus},
+                               lange1 => q{set/language <ling> aonde <ling>  uma de ($_[0])},
+                               lange2 => q{falha ao definir uma lngua em $_[0]'},
+                               leave => q{a deixar o grupo $_[0]},
+                               lh1 => q{$main::data/hop_table.pl no existe},
+                               loce1 => q{Por favor diga as suas coordenadas,, set/location <latitude longitude>},
+                               loce2 => q{No reconhece "$_[0]" como uma Lat/Long (ex 52 20 N 0 16 E)},
+                               loce3 => q{$_[0]  um locator, por favor use: set/qra $_[0]},
+                               loc => q{A sua lat/long  agora "$_[0]"},
+                               lockout => q{$_[0] Fechado},
+                               lockoutc => q{$_[0] Criado e fechado},
+                               lockoutun => q{$_[0] Aberto},
+                               lockoutuse => q{uso: sh/lockout <call>|ALL},
+                               loginu => q{Usurio $_[0] ligou},
+                               logoutu => q{Usurio $_[0] desligou-se},
+                               loginn => q{Node $_[0] ligou},
+                               logoutn => q{Node $_[0] desligou},
+                               m1 => q{Escrever o ttulo (30 caracteres):},
+                               m2 => q{Cpia da msg $_[0] enviada para $_[1]},
+                               m3 => q{Desculpe, $_[0]  o endereo inaceitvel},
+                               m4 => q{Desculpe, no pode aceder  mensagem $_[0]},
+                               m5 => q{Desculpe, eu preciso do nmero da mensagem'},
+                               m6 => q{Responder a: $_[0]},
+                               m7 => q{Ttulo : $_[0]},
+                               m8 => q{Escrever a mensagem /EX para enviar ou /ABORT para sair},
+                               m9 => q{Uma nova mensagem chegou para si},
+                               m10 => q{Mensagem abortada},
+                               m11 => q{Mensagem nmero $_[0] guardada e enviada para $_[1]},
+                               m12 => q{Mensagem nmero $_[0] apagada},
+                               m13 => q{Mensagem nmero $_[0] desaparecida},
+                               m14 => q{Mensagem nmero $_[0] marcada como enviada para $_[1]},
+                               m15 => q{Mensagem nmero $_[0] desmarcada como enviada para $_[1]},
+                               m16 => q{Preciso do nmero da mensagem},
+                               m17 => q{Desculpe, no posso enviar mensagens no modo $_[0]},
+                               m18 => q{Desculpe, a mensagem $_[0] est actualmente definida como KEEP},
+                               msg1 => q{Filas das mensagens de boletins},
+                               msg2 => q{Filas das mensagens privadas},
+                               msg3 => q{Mensagem $_[0]: $_[1] alterada de $_[2] para $_[3]},
+                               msgu => q{uso: msg <cmd> <msgno> data...},
+                               merge1 => q{Submeter pedido para $_[1] spots e $_[2] WWV enviado para $_[0]},
+                               moon => q{Localizao                           dd/mm/yyyy Subir  Definido},
+                               moon_with_azel => q{Localizao                           dd/mm/yyyy Subir  Definido      Azim   Elev},
+                               mond => q{Monitorizao desactivada},
+                               mone => q{Monitorizao activada},
+                               namee1 => q{Por favor escreva o seu nome, set/name <o seu nome>},
+                               namee2 => q{No encontro o usurio $_[0]!},
+                               name => q{O seu nome  "$_[0]"},
+                               nodea => q{$_[0] definido como um node tipo AK1A},
+                               nodeac => q{$_[0] criado como um node tipo AK1A},
+                               nodeb => q{$_[0] definido como BBS},
+                               nodebc => q{$_[0] criado como BBS},
+                               nodec => q{$_[0] definido como um node tipo CLX},
+                               nodecc => q{$_[0] criado como um node tipo CLX},
+                               noder => q{$_[0] definido como um node tipo AR-Cluster},
+                               noderc => q{$_[0] criado como um node tipo AR-Cluster},
+                               nodes => q{$_[0] definido como um node tipo DXSpider},
+                               nodesc => q{$_[0] criado como um node tipo DXSpider},
+                               nodex => q{$_[0] definido como um node tipo DXNET},
+                               nodexc => q{$_[0] criado como um node tipo DXNET},
+                               nodeu => q{$_[0] definido como um usurio},
+                               nodee1 => q{Voc no pode usar este comando enquanto o seu alvo ($_[0]) est ligado},
+                               notdone => q{No foi feito},
+                               nothere => q{Desculpe, mas $_[0] no est aqui de momento, por favor tente mais tarde'},
+                               obscount => q{Ping obsolescence conta como $_[0] definido para $_[1]},
+                               ok => q{Operao bem sucedida},
+                               outconn => q{Ligao exterior para $_[0]},
+                               page => q{Prima no Enter para continuar, A para abortar ($_[0] linhas) >},
+                               pagelth => q{O tamanho da pgina  agora de $_[0]},
+                               passerr => q{Por favor use: SET/PASS <password> <indicativo>},
+                               passphrase => q{Passphrase definida ou alterada por $_[0]},
+                               passphraseu => q{Passphrase removida por $_[0]},
+                               password => q{Password definida ou alterada por $_[0]},
+                               passwordu => q{Password removida por $_[0]},
+                               pc90s => q{PC90 activado por $_[0]},
+                               pc90u => q{PC90 desactivado $_[0]},
+                               pingo => q{Ping comeou para $_[0]},
+                               pingi => q{Ping retornado de $_[0] $_[1] (Ave $_[2]) segundos},
+                               pinge1 => q{No pode fazer ping para si prprio!},
+                               pingint => q{Intervalo de Ping em $_[0] definido para $_[1] segundos},
+                               'pos' => q{Do indicativo: $_[0] Lat: $_[1] Long: $_[2]},
+                               prs => q{Prompt agora definida para "$_[0]"},
+                               pru => q{Prompt agora regressou para a default},
+                               priv => q{Nivel de privilgio alterado em $_[0]},
+                               prx => q{$main::mycall >},
+                               pw0 => q{Escreva a password antiga: },
+                               pw1 => q{Escreva a password nova: },
+                               pw2 => q{Escreva novamente a nova password: },
+                               pw3 => q{Password alterada},
+                               pw4 => q{As Passwordes diferem, a password NO foi alterada},
+                               qll => q{Por favor escreva a sua localizao com set/location ou set/qra},
+                               qthe1 => q{Por favor escreva o seu QTH, set/qth <o seu qth>},
+                               qth => q{O seu QTH  "$_[0]"},
+                               qrae1 => q{Por favor escreva o seu locator, set/qra <locator> (ex set/qra IM58LP)},
+                               qrashe1 => q{Por favor escreva o seu locator, ex sh/qra IM58LP ou sh/qra IM58LP IO93NS},
+                               qrae2 => q{No reconhece "$_[0]" como um locator (ex IM58LP)},
+                               qra => q{O seu locator  "$_[0]"},
+                               qsl1 => q{Call           Manager   Times  Last Time Seen      De},
+                               rcmdo => q{RCMD "$_[0]" enviado para $_[1]},
+                               read1 => q{Desculpe, nenhuma mensagem nova para voc},
+                               read2 => q{Msg $_[0] no foi encontrada},
+                               read3 => q{Msg $_[0] no est disponivel},
+                               rec => q{$_[0] registos},
+                               reg => q{$_[0] registados},
+                               regc => q{$_[0] criado e registado},
+                               reginac => q{O registo no est activo (set/var \$main::reqreg = 1 para activar)},
+                               regun => q{$_[0] no registado},
+                               route => q{$_[0] em $_[1] via $_[2]},
+                               sat1 => q{Tabela de rbitras para $_[0] para a prxima $_[1] horas em todos os $_[2] mins},
+                               sat2 => q{dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km},
+                               sat3 => q{Sintaxe: SH/SAT <nome> [<horas> <intervalo>]},
+                               sat4 => q{Satlites disponiveis/Idade das rbitras (dias):-},
+                               sat5 => q{preciso nnnnn.AMSAT no ttulo para carregar as rbitras desde esta mensagem},
+                               satnf => q{Satlite $_[0] desconhecido},
+                               satdisc => q{-----},
+                               set => q{$_[0] activado por $_[1]},
+                               sethop1 => q{uso: set/hops <indicativo> ann|spots|wwv|wcy <nmero de saltos>},
+                               sethop2 => q{$_[0] saltos definidos em $_[1]$_[2] por $_[3]'},
+                               sethop3 => q{Nenhuns saltos definidos por $_[0]'},
+                               shu => q{"SHU" no  suficiente! voc precisa pelo menos de  "SHUT" para desligar o node},
+                               shutting => q{$main::mycall a desligar...},
+                               sloc => q{Cluster lat $_[0] long $_[1], NO ESQUECER DE ALTERAR O SEU DXVars.pm},
+                               snode1 => q{Node Call   Sort    Verso},
+                               snode2 => q{$_[0] $_[1]  $_[2]},
+                               snode3 => q{$_[0] indicativo desconhecido},
+                               sqra => q{Cluster locator$_[0], NO ESQUECER DE ALTERAR O SEU DXVars.pm},
+                               sorry => q{Desculpe},
+                               spf1 => q{spoof: criando um novo usurio $_[0]},
+                               stathf => q{HF DX Spot Stats, ltimo $_[1] dias de $_[0]},
+                               stathft => q{HF DX Spot Stats, ltimo $_[2] dias de $_[1] por DXCC $_[0]},
+                               statvhf => q{VHF+ DX Spot Stats, ltimo $_[1] dias de $_[0]},
+                               statvhft => q{VHF+ DX Spot Stats, ltimo $_[2] dias de $_[1] por DXCC $_[0]},
+                               statdx => q{Total DX Spots por $_[1] dias de $_[0]},
+                               sun => q{Localizao                           dd/mm/yyyy Subir  Definido},
+                               sun_with_azel => q{Localizao                           dd/mm/yyyy Subir  Definido    Azim   Elev},
+                               susdb1 => q{uso: indicativo da cidade do estado},
+                               susdb2 => q{USDB $_[0] foi $_[1], $_[2]},
+                               susdb3 => q{USDB $_[0] agora $_[1], $_[2]},
+                               susdb4 => q{USDB $_[0] apagado},
+                               suser1 => q{uso: indicativo valor user_field_name},
+                               suser2 => q{Usurio $_[0] no foi encontrado},
+                               suser3 => q{Campo do usurio '$_[0]' fooi '$_[1]' agora definido para '$_[2]'},
+                               suser4 => q{O campo de nome do usurio '$_[0]' no existe},
+                               time1 => q{Tempo local: $_[0] $_[1], UTC $_[2]},
+                               time2 => q{$_[0] Tempo local (standard): $_[1] ($_[2] Horas)},
+                               time3 => q{$_[0]  $_[1]},
+                               talks => q{QSO activado por $_[0]},
+                               talku => q{QSO desactivado por $_[0]},
+                               talkend => q{Conversao acabada para si},
+                               talkinst => q{A entrar no mode de conversao, /EX para terminar, /<cmd> para correr como um comando},
+                               talknh => q{Desculpe $_[0] no est ligado de momento},
+                               talkprompt => q{Conversar ($_[0])>},
+                               talkstart => q{A comear a conversao para si},
+                               unset => q{$_[0] desactivado por $_[1]},
+                               unsethop1 => q{uso: unset/hops <indicativo> ann|spots|wwv|wcy},
+                               unsethop2 => q{saltos no definidos em $_[1] por $_[0]'},
+                               usernf => q{*** Registo de usurio por $_[0] no foi encontrado ***},
+                               usstates => q{Mostrar estados dos EUA activado por $_[0]},
+                               usstateu => q{Desactivar os estados dos EUA por $_[0]},
+                               wcy1 => q{$_[0] est desaparecido ou fora de alcance},
+                               wcy2 => q{WCY duplicado},
+                               wcys => q{WCY enabled for $_[0]},
+                               wcyu => q{WCY desactivado por $_[0]},
+                               wpc16s => q{Permite o PC16 de $_[0] activado},
+                               wpc16u => q{Permite o PC16 de $_[0] desactivado},
+                               wpc19s => q{Rota PC19 por $_[0] activado},
+                               wpc19u => q{Rota PC19 por $_[0] desactivado},
+                               wwv1 => q{$_[0] est desaparecido ou fora de alcance},
+                               wwv2 => q{WWV duplicado},
+                               wwvs => q{WWV activado por $_[0]},
+                               wwvu => q{WWV desactivado $_[0]},
+                               wxs => q{WX activado por $_[0]},
+                               wxu => q{WX desactivado por $_[0]},
                           },
                
-);
+               );
 
index 2fab0e0b4f9437812f5737a77034c8b815f36955..83b0ac40c9b870650db4a436fc5db4264658a1fc 100644 (file)
@@ -472,17 +472,17 @@ sub cty_data
 }
 
 my %valid = (
+                        city => '0,City',
+                        cont => '0,Continent',
+                        cq => '0,CQ',
+                        dxcc => '0,DXCC',
+                        itu => '0,ITU',
                         lat => '0,Latitude,slat',
                         long => '0,Longitude,slong',
-                        dxcc => '0,DXCC',
                         name => '0,Name',
-                        itu => '0,ITU',
-                        cq => '0,CQ',
+                        qra => '0,Locator',
                         state => '0,State',
-                        city => '0,City',
                         utcoff => '0,UTC offset',
-                        cont => '0,Continent',
-                        qra => '0,Locator',
                        );
 
 sub AUTOLOAD
index 27416735580647632a56daaed1f24072eff2be09..89847c482916e503c452525a91dad0b0634d8ac4 100644 (file)
@@ -12,28 +12,28 @@ use DXDebug;
 use vars qw(%valid);
 
 %valid = (
-                 fromnode => '0,From Node',
-                 tonode => '0,To Node',
-                 vianode => '0,Via Node',
-                 origin => '0,Original Node',
-                 tocall => '0,To Callsign',
-                 fromcall => '0,From Callsign',
-                 hops => '0,No. of hops',
-                 text => '0,Text',
+                 bellflag => '0,Bell?',
                  datetime => '0,Date/Time,atime',
-                 freq => '0,Frequency',
                  dxcall => '0,DX Callsign',
-                 sort => '0,Sort',
+                 dxcount => '0,DX Count',
+                 freq => '0,Frequency',
+                 fromcall => '0,From Callsign',
+                 fromnode => '0,From Node',
                  hereflag => '0,Here?,yesno',
-                 talkflag => '0,Talk mode',
-                 bellflag => '0,Bell?',
+                 hops => '0,No. of hops',
+                 nodelist => '0,Node List,parray',
+                 origin => '0,Original Node',
                  privflag => '0,Private?,yesno',
                  rrflag => '0,RR Req.?,yesno',
+                 sort => '0,Sort',
                  sysopflag => '0,Sysop flag',
-                 dxcount => '0,DX Count',
-                 wwvcount => '0,WWV Count',
+                 talkflag => '0,Talk mode',
+                 text => '0,Text',
+                 tocall => '0,To Callsign',
+                 tonode => '0,To Node',
                  version => '0,Node Version',
-                 nodelist => '0,Node List,parray',
+                 vianode => '0,Via Node',
+                 wwvcount => '0,WWV Count',
                 );
 
 
index f62897bff61667086d98480f1aded750ce61a0ca..1fd7130bf049b92b94121de721cc7e85cdc1f2df 100644 (file)
@@ -120,6 +120,7 @@ sub get
        return decode($value);
 }
 
+
 sub put
 {
        return unless $dbm;
index 304b9c6830b97f77bde4767cc64ad954c2a310e1..a8820ea4fd228510d28f345ecc6913184ee2abd5 100644 (file)
@@ -25,15 +25,15 @@ use strict;
 use vars qw(%list %valid $filterdef $maxlevel);
 
 %valid = (
-                 parent => '0,Parent Calls,parray',
                  call => "0,Callsign",
-                 flags => "0,Flags,phex",
+                 city => '0,City',
+                 cq => '0,CQ Zone',
                  dxcc => '0,Country Code',
+                 flags => "0,Flags,phex",
+                 ip => '0,IP Address',
                  itu => '0,ITU Zone',
-                 cq => '0,CQ Zone',
+                 parent => '0,Parent Calls,parray',
                  state => '0,State',
-                 city => '0,City',
-                 ip => '0,IP Address',
                 );
 
 $filterdef = bless ([
index 4aa8be9ead142bdee079e45a11150d9f29a95d07..348bb5b1e4feb6f33677c9f96466d1a6da9aa626 100644 (file)
@@ -21,19 +21,20 @@ use vars qw(%list %valid @ISA $max $filterdef $obscount);
 @ISA = qw(Route);
 
 %valid = (
-                 nodes => '0,Nodes,parray',
-                 users => '0,Users,parray',
-                 usercount => '0,User Count',
-                 version => '0,Version',
+                 K => '9,Seen on PC92K,yesno',
+                 PC92C_dxchan => '9,PC92C hops,phash',
                  build => '0,Build',
+                 do_pc9x => '0,Uses pc9x,yesno',
                  handle_xml => '0,Using XML,yesno',
-                 lastmsg => '0,Last Route Msg,atime',
+                 last_PC92C => '9,Last PC92C',
                  lastid => '0,Last Route MsgID',
-                 do_pc9x => '0,Uses pc9x,yesno',
-                 via_pc92 => '0,In via pc92?,yesno',
+                 lastmsg => '0,Last Route Msg,atime',
+                 nodes => '0,Nodes,parray',
                  obscount => '0,Obscount',
-                 last_PC92C => '9,Last PC92C',
-                 PC92C_dxchan => '9,PC92C hops,phash',
+                 usercount => '0,User Count',
+                 users => '0,Users,parray',
+                 version => '0,Version',
+                 via_pc92 => '0,In via pc92?,yesno',
 );
 
 $filterdef = $Route::filterdef;
index 89fdec5b8460dc7b1465d382f144d73b54a51600..f4b5f3cd9e7b55c56acb532797aa631cc4b0ee06 100644 (file)
@@ -347,6 +347,7 @@ sub search
        dbg("Spot::search hint='$hint', expr='$expr', spotno=$from-$to, day=$dayfrom-$dayto\n") if isdbg('search');
   
        # build up eval to execute
+
        dbg("Spot::search Spot eval: $expr") if isdbg('searcheval');
        $expr =~ s/\$r/\$_[0]/g;
        my $eval = qq{ sub { return $expr; } };
@@ -354,7 +355,6 @@ sub search
        my $ecode = eval $eval;
        return ("Spot search error", $@) if $@;
        
-       
        my $fh;
        my $now = $fromdate;
        my $today = Julian::Day->new($main::systime);
index 37da05b232f4301db0f8a84cadb0c94639d17f4b..7dba2beadfe185918ed4a23ad85ed072a209d311 100644 (file)
@@ -32,3 +32,5 @@ $userfn = "$local_data/users";
 
 # the "message of the day" file
 $motd = "motd";
+
+1;
index bfd637c55f7aaa692ff4ca18e22b7d70b6bc7b23..d471b71b8aba42fcdd77ae67a2e7493f9836010e 100755 (executable)
@@ -31,6 +31,17 @@ use vars qw($root $is_win $systime $lockfn @inqueue $starttime $lockfn @outstand
 #$no = 'No';                                           # ditto for no
 #$user_interval = 11*60;                       # the interval between unsolicited prompts if no traffic
 
+package main;
+
+# set default paths, these should be overwritten by DXVars.pm
+use vars qw($data $system $cmd $localcmd $userfn $clusteraddr $clusterport $yes $no $user_interval $lang $local_data);
+
+$lang = 'en';                   # default language
+$yes = 'Yes';                   # visual representation of yes
+$no = 'No';                     # ditto for no
+$user_interval = 11*60;         # the interval between unsolicited prompts if no traffic
+
+
 # make sure that modules are searched in the order local then perl
 BEGIN {
        umask 002;
@@ -62,8 +73,13 @@ BEGIN {
        mkdir "$root/local_cmd", 02774 unless -d "$root/local_cmd";
 
        # locally stored data lives here
-       my $local_data = "$root/local_data";
+       $local_data = "$root/local_data";
        mkdir $local_data, 02774 unless -d $local_data;
+       $data = "$root/data";
+       $system = "$root/sys";
+       $cmd = "$root/cmd";
+       $localcmd = "$root/local_cmd";
+       $userfn = "$data/users";
 
        # try to create and lock a lockfile (this isn't atomic but
        # should do for now
@@ -152,7 +168,7 @@ use DXSql;
 use IsoTime;
 use BPQMsg;
 use RBN;
-
+use DXCIDR;
 
 use Data::Dumper;
 use IO::File;
@@ -174,6 +190,8 @@ $no //= 'No';                                   # ditto for no
 $user_interval //= 11*60;              # the interval between unsolicited prompts if no traffic
 
 
+$clusteraddr //= '127.0.0.1';     # cluster tcp host address - used for things like console.pl
+$clusterport //= 27754;           # cluster tcp port
 @inqueue = ();                                 # the main input queue, an array of hashes
 $systime = 0;                                  # the time now (in seconds)
 $starttime = 0;                 # the starting time of the cluster
@@ -206,6 +224,8 @@ our $cldsecs;                                       # the amount of cpu time any child processes have consumed
 our $allowslashcall;                   # Allow / in connecting callsigns (ie PA0/G1TLH, or even PA0/G1TLH/2) 
 
 
+use vars qw($version $subversion $build $gitversion $gitbranch);
+
 # send a message to call on conn and disconnect
 sub already_conn
 {
@@ -489,7 +509,6 @@ sub AGWrestart
 
 sub setup_start
 {
-
        #############################################################
        #
        # The start of the main line of code
@@ -565,6 +584,7 @@ sub setup_start
                $SIG{__DIE__} = $w;
        }
 
+
        # setup location of motd & issue
        localdata_mv($motd);
        $motd = localdata($motd);
@@ -619,6 +639,7 @@ sub setup_start
                }
        }
 
+
        # start listening for incoming messages/connects
        dbg("starting listeners ...");
        my $conn = IntMsg->new_server($clusteraddr, $clusterport, \&login);
@@ -636,6 +657,7 @@ sub setup_start
                dbg("External Port: $l->[0] $l->[1] using ${pkg}::${login}");
        }
 
+
        dbg("AGW Listener") if $AGWMsg::enable;
        AGWrestart();
 
@@ -653,6 +675,9 @@ sub setup_start
                $SIG{INT} = $SIG{TERM} = sub { $ending = 10; };
        }
 
+       # get any bad IPs 
+       DXCIDR::init();
+
        unless ($is_win) {
                $SIG{HUP} = 'IGNORE';
                $SIG{CHLD} = sub { $zombies++ };
@@ -847,6 +872,7 @@ sub start_node
        Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
 
        dbg("After Web::start_node");
+
 }
 
 setup_start();
index 3ad62001253fc2f8e6b97103287d186749820a41..c47b5076e60f5d995ad1844508e5378c9b89438c 100755 (executable)
 # 
 
 require 5.16.1;
+use strict;
 use warnings;
 
+our $root;
+our $is_win;
+our $myalias;
+our $mycall;
+our $clusteraddr;
+our $clusterport;
+our $maxshist;
+our $maxkhist;
+our $foreground;
+our $background;
+our $mycallcolor;
+our @colors;
+
 # search local then perl directories
 BEGIN {
        # root of directory tree for this system
@@ -52,20 +66,34 @@ use Console;
 $clusteraddr //= '127.0.0.1';
 $clusterport //= 27754;
 
-$call = "";                     # the callsign being used
-$node = "";                     # the node callsign being used
-$conn = 0;                      # the connection object for the cluster
-$lasttime = time;               # lasttime something happened on the interface
-
-$connsort = "local";
-@kh = ();
-@sh = ();
-$kpos = 0;
-$spos = $pos = $lth = 0;
-$inbuf = "";
-$lastmin = 0;
-$idle = 0;
-$inscroll = 0;
+our $call = "";                     # the callsign being used
+our $node = "";                     # the node callsign being used
+our $conn = 0;                      # the connection object for the cluster
+our $lasttime = time;               # lasttime something happened on the interface
+
+our $connsort = "local";
+our @kh = ();
+our @sh = ();
+our $kpos = 0;
+our $inbuf = "";
+our $lastmin = 0;
+our $idle = 0;
+our $inscroll = 0;
+
+my $top;
+my $bot;
+my $lines;
+my $scr;
+my $cols;
+my $pagel;
+my $has_colors;
+our $pos;
+our $lth;
+my $sh;
+
+our $spos = $pos = $lth = 0;
+
+
 
 #$SIG{WINCH} = sub {@time = gettimeofday};
 
@@ -505,8 +533,8 @@ sub on_connect
 {
        my $conn = shift;
        $conn->send_later("A$call|$connsort width=$cols enhanced");
-       $conn->send_later("I$call|set/page $maxshist");
-       #$conn->send_later("I$call|set/nobeep");
+       $conn->send_later("I$call|set/page " . ($maxshist-5));
+       $conn->send_later("I$call|set/nobeep");
 }
 
 sub on_disconnect
index d4d2aa204a89904cf6936a2dc7eedea596330fb9..72df12c1418fc821ca793f7b9c7fac1583f529e7 100755 (executable)
@@ -18,6 +18,7 @@ BEGIN {
 
        unshift @INC, "$root/perl";     # this IS the right way round!
        unshift @INC, "$root/local";
+       $data = "$root/data";
 }
 
 use DXVars;