From 7877a8e9b8bc269b0611a0e716ecd66c5ade02b5 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 20 Dec 2001 00:29:00 +0000
Subject: [PATCH] add spanish changes

---
 cmd/Commands_es.hlp |   28 +
 perl/Messages       | 1213 ++++++++++++++++++++++---------------------
 2 files changed, 636 insertions(+), 605 deletions(-)

diff --git a/cmd/Commands_es.hlp b/cmd/Commands_es.hlp
index e44d3b13..40c3f4c0 100644
--- 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.
 
+=== 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
@@ -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.
 
+=== 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
diff --git a/perl/Messages b/perl/Messages
index cc45c718..051230bd 100644
--- 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',
-                                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]',
@@ -278,628 +278,631 @@ package DXM;
 				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]',
-                 		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',   
-                                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',
-                                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]\"',
-                                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',
-                                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>',
-                                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 ',
-                                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]',
-                                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',
-                                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_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',
-                                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]', 
-                                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]',
+			   },
+		);
-- 
2.34.1