add spanish changes

diff --git a/cmd/Commands_es.hlp b/cmd/Commands_es.hlp
index e44d3b130b37cf18ec29c902d2d15e79088d53e3..40c3f4c03987ceed73040e4951f08e7e661dfa79 100644 (file)
--- a/cmd/Commands_es.hlp
+++ b/cmd/Commands_es.hlp
@@ -794,6 +794,19 @@ tenemos justo despu
 Vuelve a leer el fichero /spider/msg/forward.pl si lo has cambiado
 manualmente mientras el cluster estaba funcionando.
 
 Vuelve a leer el fichero /spider/msg/forward.pl si lo has cambiado
 manualmente mientras el cluster estaba funcionando.
 

+=== 5^LOAD/KEPS^Actualiza los datos de Satélites
+=== 5^LOAD/KEPS [nn]^Actualiza los datos de Satélites desde un mensaje
+Si no se especifica ningún numero de mensaje, se actualizara desde
+el fichero /spider/perl/keps.in . Se crea ese fichero ejecutando
+
+ /spider/perl/convkeps.pl <nombre_fichero>
+
+en un fichero que contenga los datos keplerianos para los satélites
+en formato NASA 2 lines , por ejemplo aquellos que emite AMSAT.
+
+Si se da un numero de mensaje, entonces se cogerá ese mensaje , se
+ejecuta el programa convkeps.pl sobre ese mensaje, y se actualizan
+los nuevos datos, todo con solo ejecutar este comando.

 === 9^LOAD/MESSAGES^Lee de nuevo el fichero de mensajes de sistema
 Si has cambiado el fichero /spider/perl/Messages (normalmente mientras
 probamos/escribimos nuevos comandos) puedes hacer que tenga efecto
 === 9^LOAD/MESSAGES^Lee de nuevo el fichero de mensajes de sistema
 Si has cambiado el fichero /spider/perl/Messages (normalmente mientras
 probamos/escribimos nuevos comandos) puedes hacer que tenga efecto


@@ -1384,6 +1397,21 @@ sesi
 Los parámetros se guardaran en la información local de usuarios
 excepto si ese valor, como se dice mas arriba, fue 0.
 
 Los parámetros se guardaran en la información local de usuarios
 excepto si ese valor, como se dice mas arriba, fue 0.
 

+=== 0^SET/PROMPT <cadena>^Cambia el prompt a <cadena>
+=== 0^UNSET/PROMPT^Devuelve el prompt a su estado normal ( por defecto )
+Este comando definirá el prompt a exactamente la cadena que digas.
+El objetivo de este comando es adecuar el prompt a programas externos
+que buscan una cadena especifica en el prompt ( o simplemente que
+quieras tener un prompt distinto ).
+
+Por ejemplo:
+
+  SET/PROMPT clx >
+
+El comando UNSET/PROMPT deshará lo que hemos hecho con el SET/PROMPT
+dejándolo en su estado original, tal como el sysop lo haya definido
+para todos los usuarios.
+

 === 9^SET/PINGINTERVAL <time> <nodecall>^Ajusta el intervalo ping a un nodo
 Desde la versión 1.35 todos los nodos que conectan directamente a nosotros
 son chequeados con un ping para determinar la calidad del enlace, y en
 === 9^SET/PINGINTERVAL <time> <nodecall>^Ajusta el intervalo ping a un nodo
 Desde la versión 1.35 todos los nodos que conectan directamente a nosotros
 son chequeados con un ping para determinar la calidad del enlace, y en

diff --git a/perl/Messages b/perl/Messages
index cc45c71808fa210a3887ed2020295ac77876c9fb..051230bdee0b491f588de4b6814295f4526e06d4 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -159,8 +159,8 @@ package DXM;
                                m15 => 'Message no $_[0] unmarked as sent to $_[1]',
                                m16 => 'Need a Message number',
                                m17 => 'Sorry, cannot send messages in $_[0] mode',
                                m15 => 'Message no $_[0] unmarked as sent to $_[1]',
                                m16 => 'Need a Message number',
                                m17 => 'Sorry, cannot send messages in $_[0] mode',

-                                msg1 => 'Bulletin Messages Queued',
-                                msg2 => 'Private Messages Queued',
+                               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]',
                                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]',


@@ -278,628 +278,631 @@ package DXM;
                                wwvu => 'WWV flag unset on $_[0]',
                                wxs => 'WX flag set on $_[0]',
                                wxu => 'WX flag unset on $_[0]',
                                wwvu => 'WWV flag unset on $_[0]',
                                wxs => 'WX flag set on $_[0]',
                                wxu => 'WX flag unset on $_[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',
-                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',
-                pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-                pr2 => '($_[0]) de $main::mycall $_[1] $[2] >',
-                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]',
-               },
-  fr => {
-               },
-  es => {                               
+                          },
+                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',
+                               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',
+                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
+                               pr2 => '($_[0]) de $main::mycall $_[1] $[2] >',
+                               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]',
+                          },
+                fr => {
+                          },
+                es => {                               

                                addr => 'La dirección es ahora: $_[0]',
                                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]',
-                               badnode1 => 'No se aceptan spots generados 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',
-                                call1 => 'Se encontró el indicativo vía $_[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]',
-                               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 => 'Desconectado por $_[0]',
-                                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 => 'Hecho',
-                                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',
-                               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 => 'El indicativo $_[0] no es visible en el cluster',
-                                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',
-                                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 numero o un prefijo',
+                               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]',
+                               badnode1 => 'No se aceptan spots generados 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',
+                               call1 => 'Se encontró el indicativo vía $_[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]',
+                               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 => 'Desconectado por $_[0]',
+                               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 => 'Hecho',
+                               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',
+                               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 => 'El indicativo $_[0] no es visible en el cluster',
+                               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',
+                               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 numero o un prefijo',

                                e28 => 'Lo siento, necesitas registrarte (SP $main::myalias para registrarte)',   
                                e29 => 'Necesitas password',   
                                e28 => 'Lo siento, necesitas registrarte (SP $main::myalias para registrarte)',   
                                e29 => 'Necesitas password',   

-                                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 <numero_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 para $_[1]',
-                                filter2 => 'Es necesario un valor para $_[0]',
-                                filter3 => 'No hay filtros definidos para $_[0]',
-                                filter4 => '$_[0]$_[1] Filtros $_[2] borrados 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]',
-                                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 desde $_[1]',
-                                hashd => '$_[0] no en $_[1]',
-                                hashe => '$_[0] activado $_[1]',
-                                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 entrada de rutas para $_[0]; clear/route input $_[0] primero',
+                               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 <numero_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 para $_[1]',
+                               filter2 => 'Es necesario un valor para $_[0]',
+                               filter3 => 'No hay filtros definidos para $_[0]',
+                               filter4 => '$_[0]$_[1] Filtros $_[2] borrados 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]',
+                               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 desde $_[1]',
+                               hashd => '$_[0] no en $_[1]',
+                               hashe => '$_[0] activado $_[1]',
+                               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 entrada de rutas para $_[0]; clear/route input $_[0] primero',

                                isoaro => 'Existe un filtro de rutas hacia $_[0]; clear/route $_[0] primero',   
                                isow => '$_[0] está en modo aislado; unset/isolate $_[0] primero',
                                l1 => 'Lo siento $_[0], ya estás conectado en otro canal',
                                isoaro => 'Existe un filtro de rutas hacia $_[0]; clear/route $_[0] primero',   
                                isow => '$_[0] está en modo aislado; unset/isolate $_[0] primero',
                                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 es ahora $_[0]pañol',
-                                lange1 => 'set/language <idioma> donde <idioma> es uno entre ($_[0])',
-                                lange2 => 'fallo al seleccionar idioma en $_[0]',
-                                lh1 => '$main::data/hop_table.pl no existe',
-                                loce1 => 'Por favor introduce tu posición, set/location <latitud longitud>',
-                                loce2 => 'No reconocida \"$_[0]\" como una Lat/Long (ej: 52 20 N 0 16E)',
-                                loce3 => '$_[0] es un QRA locator, por favor usa: set/qra $_[0]',
+                               l2 => 'Hola $_[0], esta es $main::mycall en $main::myqth usando DXSpider V$main::version',
+                               lang => 'El idioma es ahora $_[0]pañol',
+                               lange1 => 'set/language <idioma> donde <idioma> es uno entre ($_[0])',
+                               lange2 => 'fallo al seleccionar idioma en $_[0]',
+                               lh1 => '$main::data/hop_table.pl no existe',
+                               loce1 => 'Por favor introduce tu posición, set/location <latitud longitud>',
+                               loce2 => 'No reconocida \"$_[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]\"',
                                loc => 'Tu Lat/Long es ahora \"$_[0]\"',

-                                lockout => '$_[0] Excluido del sistema',
-                                lockoutc => '$_[0] Creado y excluido del sistema',
-                                lockoutun => '$_[0] autorizado para conectar',
-                                lockoutuse => 'Uso: sh/lockout <indicativo|prefijo>|ALL',
+                               lockout => '$_[0] Excluido del sistema',
+                               lockoutc => '$_[0] Creado y excluido del sistema',
+                               lockoutun => '$_[0] autorizado para conectar',
+                               lockoutuse => 'Uso: sh/lockout <indicativo|prefijo>|ALL',

                                loginu => '$_[0] conecta',
                                loginu => '$_[0] conecta',

-                                logoutu => '$_[0] se desconecta',
-                                loginn => '$_[0] conecta',
-                                logoutn => '$_[0] se desconecta',
-                                m1 => 'Introduce el título (máx. 30 caractéres):',
+                               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 => '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',
-                               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',                                 
+                               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 => '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',
+                               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',
                                namee1 => 'Por favor, introduce tu nombre set/name <tu nombre>',
                                mond => 'Activado modo monitor',
                                mone => 'Desactivado modo monitor',
                                namee1 => 'Por favor, introduce tu nombre 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',
+                               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 ',
                                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 tu objetivo ($_[0]) se encuentra',
-                                notdone => 'No se pudo hacer',
+                               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 tu objetivo ($_[0]) se encuentra',
+                               notdone => 'No se pudo hacer',

                                nothere => 'Lo siento, pero $_[0] no está aquí ahora, inténtalo mas tarde',
                                obscount => 'El parámetro Ping obsolescence count para $_[0] ajustado a $_[1]',
                                nothere => 'Lo siento, pero $_[0] no está aquí ahora, inténtalo mas tarde',
                                obscount => 'El parámetro Ping obsolescence count para $_[0] ajustado 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 $_[0]',
-                                passerr => 'Por favor usa: SET/PASS <password> <indicativo>',
-                                password => 'El Password ha sido definido o cambiado para $_[0]',
-                                pingo => 'Iniciado el ping a $_[0]',
-                                pingi => 'Ping devuelto por $_[0] $_[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]',
-                                pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-                                pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
-                                priv => 'Nivel de privilegios está en $_[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',
+                               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 $_[0]',
+                               passerr => 'Por favor usa: SET/PASS <password> <indicativo>',
+                               password => 'El Password ha sido definido o cambiado para $_[0]',
+                               pingo => 'Iniciado el ping a $_[0]',
+                               pingi => 'Ping devuelto por $_[0] $_[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]',
+                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
+                               pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
+                               prs => 'El Prompt ha sido cambiado a \"$_[0]\"',
+                               pru => 'El Prompt vuelve a ser el normal por defecto',
+                               priv => 'Nivel de privilegios está en $_[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',
                                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]\"',
-                                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] registros',
-                               reg => '$_[0] registrado',
-                                regc => '$_[0] creado y registrado',
-                                reginac => 'El registro no está activo (set/var \$main::regreq = 1 para activarlo)',
-                                regun => '$_[0] borrado',
-                                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:',
-                                satnf => 'Satélite $_[0] desconocido',
-                                satdisc => '-----',
-                                sethop1 => 'uso: set/hops <indicativo> ann|spots|wwv|wcy <nr de hops>',
-                                sethop2 => '$_[0] hops set on $_[1]$_[2] for $_[3]',
-                                sethop3 => 'No hay hops definidos para $_[0]',
-                                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 31 días',
-                               stathft => 'Estadísticas de spots en HF de los últimos 31 días para DXCC $_[0]',
-                               statvhf => 'VHF+ DX Spot Stats, últimos 31 días',
-                               statvhft => 'VHF+ DX Spot Stats, últimos 31 días para DXCC $_[0]',
-                               statdx => 'Total DX Spots últimos 31 días',
+                               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]\"',
+                               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] registros',
+                               reg => '$_[0] registrado',
+                               regc => '$_[0] creado y registrado',
+                               reginac => 'El registro no está activo (set/var \$main::regreq = 1 para activarlo)',
+                               regun => '$_[0] borrado',
+                               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 => '-----',
+                               sethop1 => 'uso: set/hops <indicativo> ann|spots|wwv|wcy <nr de hops>',
+                               sethop2 => '$_[0] hops set on $_[1]$_[2] for $_[3]',
+                               sethop3 => 'No hay hops definidos para $_[0]',
+                               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 31 días',
+                               stathft => 'Estadísticas de spots en HF de los últimos 31 días para DXCC $_[0]',
+                               statvhf => 'VHF+ DX Spot Stats, últimos 31 días',
+                               statvhft => 'VHF+ DX Spot Stats, últimos 31 días para DXCC $_[0]',
+                               statdx => 'Total DX Spots últimos 31 días',

                                sun => 'QTH                                   dd/mm/yyyy Salida Puesta',
                                sun => 'QTH                                   dd/mm/yyyy Salida Puesta',

-                                sun_with_azel => 'QTH                                   dd/mm/yyyy Salida Puesta   Azim   Elev',
+                               sun_with_azel => 'QTH                                   dd/mm/yyyy Salida Puesta   Azim   Elev',

                                suser1 => 'uso: indicativo user_field_name valor',
                                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',
+                               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',

                                unsethop1 => 'uso: unset/hops <call> ann|spots|wwv|wcy',
                                unsethop2 => 'Borrados los hops para $_[1] en $_[0]', 
                                unsethop1 => 'uso: unset/hops <call> ann|spots|wwv|wcy',
                                unsethop2 => 'Borrados los hops para $_[1] en $_[0]', 

-                                usernf => '*** Registro de usuario $_[0] no encontrado ***',
-                                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]',
-                },
-       de => {
-                       addr => 'Adresse gesetzt auf: $_[0]',
-               already => '$_[0] bereits connnected',
-                       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 nun eingeschaltet',
-                       call1 => 'Callsign lookup via $_[0]:',
-                       conother => 'Sorry $_[0] Du bist zu mir auf einem anderen Port connected',
-                       concluster => 'Sorry $_[0] Du bist schon anderswo in einem Cluster connected (on $_[1])',
-                       conscript => 'Kein connect script mit Namen \"$_[0]\" gefunden in $main::root/connect',
-                       confail => 'Verbindung zu $_[0] misslungen ($_[1])',
-                       constart => 'Verbindung zu $_[0] gestartet',
-                       deluser => 'User $_[0] wurde geloescht',
-                       db1 => 'Diese Datenbank ist untergebracht bei $_[0]',
-                       db2 => 'Sorry, aber Scluesselwort: $_[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 remote 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...',
-                       dfreq1 => 'Ungueltige Freq $_[0] brauche: z.B. 0/30000 oder hf oderr 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',
-                       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',
-                       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 nichtfreigeschaltet',
+                               usernf => '*** Registro de usuario $_[0] no encontrado ***',
+                               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]',
+                          },
+                de => {
+                               addr => 'Adresse gesetzt auf: $_[0]',
+                               already => '$_[0] bereits connnected',
+                               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 nun eingeschaltet',
+                               call1 => 'Callsign lookup via $_[0]:',
+                               conother => 'Sorry $_[0] Du bist zu mir auf einem anderen Port connected',
+                               concluster => 'Sorry $_[0] Du bist schon anderswo in einem Cluster connected (on $_[1])',
+                               conscript => 'Kein connect script mit Namen \"$_[0]\" gefunden in $main::root/connect',
+                               confail => 'Verbindung zu $_[0] misslungen ($_[1])',
+                               constart => 'Verbindung zu $_[0] gestartet',
+                               deluser => 'User $_[0] wurde geloescht',
+                               db1 => 'Diese Datenbank ist untergebracht bei $_[0]',
+                               db2 => 'Sorry, aber Scluesselwort: $_[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 remote 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...',
+                               dfreq1 => 'Ungueltige Freq $_[0] brauche: z.B. 0/30000 oder hf oderr 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',
+                               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',
+                               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 nichtfreigeschaltet',

 
 

-                        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',
-                       echoon => 'Echo enabled',
-                       echooff => 'Echo disabled',
-                       echow => '*Echo ist im moment disabled, set/echo to enable',
-                       emaile1 => 'Bitte email 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',
-                       l1 => 'Sorry $_[0], Du bist bereit 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 $_[0]',
-                       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 => 'Subjekt eingeben (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 => 'Subject : $_[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',
-                       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 for $_[1] spots and $_[2] WWV sent to $_[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 waehrend Dein Ziel ($_[0]) online ist',
-                       notdone => 'Nicht ausgefuehrt',
-                       nothere => 'Sorry, aber $_[0] ist nicht hier im Moment, bitte spaeter nocheinmal 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 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' => 'Von Rufzeichen: $_[0] Lat: $_[1] Long: $_[2]',
-                       pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-                       pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
-                       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 QRA Locator ein mit set/location oder set/qra',
-                       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 ein QRA Locator (z.B. JO02LQ)',
-                       qra => 'Dein QRA Locator ist nun \"$_[0]\"',
-                       rcmdo => 'RCMD \"$_[0]\" gesendet an $_[1]',
-                       read1 => 'Sorry, keine neuen Nachrichtenfuer 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 den 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:-',
-                       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]',
-                       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/yyyy Rise   Set',
-                       sun_with_azel => 'Location                              dd/mm/yyyy 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',
-                       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]',
-               },
-);
+                               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',
+                               echoon => 'Echo enabled',
+                               echooff => 'Echo disabled',
+                               echow => '*Echo ist im moment disabled, set/echo to enable',
+                               emaile1 => 'Bitte email 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',
+                               l1 => 'Sorry $_[0], Du bist bereit 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 $_[0]',
+                               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 => 'Subjekt eingeben (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 => 'Subject : $_[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',
+                               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 for $_[1] spots and $_[2] WWV sent to $_[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 waehrend Dein Ziel ($_[0]) online ist',
+                               notdone => 'Nicht ausgefuehrt',
+                               nothere => 'Sorry, aber $_[0] ist nicht hier im Moment, bitte spaeter nocheinmal 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 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' => 'Von Rufzeichen: $_[0] Lat: $_[1] Long: $_[2]',
+                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
+                               pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
+                               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 QRA Locator ein mit set/location oder set/qra',
+                               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 ein QRA Locator (z.B. JO02LQ)',
+                               qra => 'Dein QRA Locator ist nun \"$_[0]\"',
+                               rcmdo => 'RCMD \"$_[0]\" gesendet an $_[1]',
+                               read1 => 'Sorry, keine neuen Nachrichtenfuer 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 den 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:-',
+                               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]',
+                               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/yyyy Rise   Set',
+                               sun_with_azel => 'Location                              dd/mm/yyyy 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',
+                               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]',
+                          },
+               );