fix sh/c/n

add some Spanish changes

diff --git a/Changes b/Changes
index b6e0c62886ca22b6489980532ed7f9e223e551f2..cb1433317e30458a268e09c33f98cddc500580ab 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+10Mar06=======================================================================
+1. fix sh/c/n.
+2. Add new Spanish translations by Angel EA7WA.
 07Mar06=======================================================================
 1. Add the node call to remote tell_login and tell_buddie calls.
 06Mar06=======================================================================

diff --git a/cmd/Commands_es.hlp b/cmd/Commands_es.hlp
index 12a45e1d4ab254927466efc8d9b057de109b30d8..144133eb2f9597ae4cac43db67819ef9133d1108 100644 (file)
--- a/cmd/Commands_es.hlp
+++ b/cmd/Commands_es.hlp
@@ -1496,6 +1496,20 @@ permitir
 
 === 5^SET/BBS <indicativo> [<indicativo>..]^Define el indicativo como tipo BBS
 
+=== 0^SET/BUDDY <indicativo> [<indicativo>..]^Añade este indicativo a mi lista de amigos
+Recibirás un mensaje de aviso si el indicativo de la "lista de amigos",
+conecta o desconecta en cualquier cluster de la red, aunque no sea
+en el que nosotros estamos conectados.
+
+Ejemplo:   SET/BUDDY EA7WA
+
+Para ver la lista de indicativos de amigos que tengas creada
+puedes pedir:        SHOW/BUDDY
+
+=== 0^UNSET/BUDDY <indicativo> [<indicativo>..]^Borra este indicativo de mi lista de amigos
+Borras el indicativo seleccionado de la lista de amigos y por lo tanto
+dejarás de recibir avisos de conexión o desconexión de este indicativo.
+
 === 5^SET/CLX <indicativo> [<indicativo>..]^Define el indicativo como un nodo CLX 
 
 === 9^SET/DEBUG <nombre>^Añade un nivel de debug a los ya activados.
@@ -1637,12 +1651,36 @@ Puedes seleccionar el idioma en el que quieres recibir la informaci
 interna y la ayuda del cluster.
 Actualmente los idiomas disponibles son:
 
- Ingles:    set/language en
+ Inglés:    set/language en
  Alemán:    set/language de
  Holandés:  set/language nl
  Español :  set/language es
  Italiano:  set/language it
 
+=== 5^SET/LOCAL_NODE^Añade un nodo al grupo de nodos locales.
+=== 5^UNSET/LOCAL_NODE^Elimina un nodo del grupo de nodos locales.
+El concepto de grupo de nodos locales,(local_node group), es el
+de un grupo de nodos que quieres que tus usuarios vean como local,
+por lo que recibirán un aviso de conexión o desconexión de los
+usuarios que conecten o desconecten de ese grupo de nodos en el
+caso de que tengan activado el comando SET/LOGININFO que es de momento
+a lo único que afecta este parámetro.
+
+El grupo de nodos locales es un parámetro que nosotros definimos en
+nuestro cluster.
+
+Si queremos que los otros nodos también incluyan al nuestro para que
+sus usuarios tengan notificación de las conexiones y desconexiones
+de nuestros usuarios como si se tratase de un solo cluster, tendremos
+que activarlo en tantos nodos como queramos que esta opción sea efectiva,
+o bien, activarlo por medio de rcmd o comando remoto, aunque es
+preferible que los sysops estén al tanto.
+
+En principio, cada cluster determina su propio grupo de nodos locales,
+aunque si los sysops se ponen de acuerdo, este grupo puede ser
+el mismo en ambos lados de la red.
+
+
 === 0^SET/LOCATION <lat & long>^Introduce tus datos de latitud y longitud
 === 9^SET/SYS_LOCATION <lat & long>^Define latitud y longitud del cluster
 Para tener una información exacta de rumbos y otras consultas al cluster
@@ -1852,7 +1890,11 @@ en modo de S
 
 La única excepción que se le hace a un usuario no registrado es la
 de poder enviar un TALK o un mensaje al sysop.
- 
+
+=== 5^SET/SPIDER <indicativo> [<indicativo>..]^Define este indicativo como un nodo DXSpider
+Define en el sistema a este indicativo como un nodo tipo DXSpider y
+por lo tanto se le enviará la información en formato PC.
+
 === 6^SET/STARTUP <indicativo>^Crea un fichero de inicio de conexión.
 === 0^SET/STARTUP^Crea tu propio fichero de inicio de conexión.
 === 6^UNSET/STARTUP <indicativo>^Borra el fichero de inicio de un usuario.
@@ -1927,6 +1969,10 @@ cualquier spot, ver SET/BADSPOTTER para m
 Muestra la lista de palabras que el sistema rechazará al encontrarse
 en cualquier PC10,11,12... , ver SET/BADWORD para más información.
 
+=== 0^SHOW/BUDDY^Muestra tu lista de indicativos amigos.
+Ver comando SET/BUDDY para más información acerca de la lista de
+indicativos amigos.
+
 === 0^SHOW/CHAT [<grupo>] [<líneas>]^Muestra cualquier grupo de chat
 Este comando te permite ver cualquier mensaje enviado al chat mientras
 no estabas conectado. SHOW/CHAT  te mostrará información de todos los

diff --git a/cmd/show/configuration.pl b/cmd/show/configuration.pl
index 7c4bbf27572cc5d9931f54605b6a2531e84d746d..7c3281eadb8f193818ec555ee678d580ff69c163 100644 (file)
--- a/cmd/show/configuration.pl
+++ b/cmd/show/configuration.pl
@@ -28,7 +28,7 @@ if ($list[0] && $list[0] =~ /^NOD/) {
                push @l, $call;
                
                foreach my $ref (@val) {
-                       if (@l >= 5) {
+                       if (@l >= 6) {
                                push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
                                @l = ();
                                push @l, "";
@@ -38,7 +38,7 @@ if ($list[0] && $list[0] =~ /^NOD/) {
                        $s = sprintf "(%s)", $s unless $ref->here;
                        push @l, $s;
                }
-               push @l, "" while @l < 5;
+               push @l, "" while @l < 6;
                push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l;
        }
 } else {

diff --git a/perl/Messages b/perl/Messages
index d66e66c1ef3a2f6ce267477f7b565da002e719ff..0c667054073d08990fdde1676fb5c7abc5eebe4c 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -760,7 +760,7 @@ package DXM;
                                annts => 'Modo AnnTalk activado para $_[0]',
                                anntu => 'Modo AnnTalk desactivado para $_[0]',
                                at => 'at',
-                               badnode1 => 'No se aceptan spots generados en $_[0], se añade a la lista badnode',
+                               badnode1 => 'No se aceptan spots con origen en $_[0], se añade a la lista badnode',
                                badnode2 => 'Se aceptan spots del nodo $_[0], sale de la lista badnode',
                                badnode3 => 'Lista de nodos rechazados:',
                                bbse1 => 'Por favor introduce tu BBS, set/bbs <tu bbs>',
@@ -769,6 +769,8 @@ package DXM;
                                beepon => 'Avisos sonoros activados',
                                believes => 'Creo en el nodo $_[0] via $_[1]',
                                believeu => 'No creo en el nodo $_[0] via $_[1]',
+                               buddya => '$_[0] se añade a tu lista de indicativos amigos',
+                               buddyu => '$_[0] se elimina de tu lista de indicativos amigos',
                                call1 => 'Se encontró el indicativo vía $_[0]:',
                                conother => 'Lo siento $_[0] ya estás conectado en otro puerto',
                                concluster => 'Lo siento $_[0] ya estás conectado en otro cluster',
@@ -853,7 +855,7 @@ package DXM;
                                filter1 => 'Filtro $_[0] actualizado con el nombre $_[1]',
                                filter2 => 'Es necesario un valor para $_[0]',
                                filter3 => 'No hay filtros definidos para $_[0]',
-                               filter4 => 'Filtro número $_[2] de rutas del tipo: $_[0]$_[1]  borrado para $_[3]',
+                               filter4 => 'Filtro número $_[2] del tipo: $_[0]$_[1]  borrado para $_[3]',
                                filter5 => 'Se necesitan algunos comandos para el filtro...',
                                filter6 => '$_[0]$_[1] Filtro para $[2] no encontrado',
                                grids => 'Activada recepción de locators en spot (DX Grid) para $_[0]',
@@ -861,8 +863,8 @@ package DXM;
                                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]',
+                               hashc => '$_[0] eliminado de $_[1]',
+                               hashd => '$_[0] no se encuentra en $_[1]',
                                hashe => '$_[0] activado $_[1]',
                                heading => 'Rumbo',
                                helpe1 => 'La ayuda no está disponible, comunícaselo al sysop',
@@ -901,12 +903,13 @@ package DXM;
                                lockoutc => '$_[0] Creado y excluido del sistema',
                                lockoutun => '$_[0] Autorizado para conectar',
                                lockoutuse => 'Uso: sh/lockout <indicativo|prefijo>|ALL',
+                               loginb => 'El colega $_[0] ha conectado',
+                               logoutb => 'El colega $_[0] se ha desconectado',
                                loginu => '$_[0] conecta',
                                logoutu => '$_[0] se desconecta',
                                loginn => '$_[0] conecta',
                                logoutn => '$_[0] se desconecta',
                                m1 => 'Introduce el título (máx. 30 caractéres):',
-
                                m2 => 'Copia del mensaje $_[0] enviada a $_[1]',
                                m3 => 'Lo siento, $_[0] no se aceptan mensajes a ese tópico',
                                m4 => 'Lo siento, no se puede acceder al mensaje $_[0]',
@@ -926,7 +929,6 @@ package DXM;
                                m18 => 'Lo siento, el mensaje $_[0] está actualmente marcado como KEEP (Guardarlo)',
                                m19 => 'Fichero de inicio de conexión de $_[0] guardado, contiene $_[1] línea(s)',
                                m20 => 'Fichero de inicio de conexión vacio de  $_[0] borrado',
-
                                msg1 => 'Cola de mensajes tipo Boletín',
                                msg2 => 'Cola de mensajes tipo Privados',
                                msg3 => 'Msg $_[0]: $_[1] cambiado de $_[2] a $_[3]',
@@ -936,6 +938,7 @@ package DXM;
                                moon_with_azel => 'QTH                                   dd/mm/yyyy Salida Puesta   Azim   Elev',                                 
                                mond => 'Activado modo monitor',
                                mone => 'Desactivado modo monitor',
+                               name1 => 'Nombre',
                                namee1 => 'Por favor, introduce tu nombre con set/name <tu nombre>',
                                namee2 => 'No se encuentra el usuario $_[0]!',
                                name => 'Tu nombre es \"$_[0]\"',
@@ -963,7 +966,6 @@ package DXM;
                                passerr => 'Por favor usa: SET/PASS <password> <indicativo>',
                                passphrase => 'Passphrase definida o cambiada para $_[0]',
                                passphraseu => 'Passphrase borrada para $_[0]',
-
                                password => 'El Password ha sido definido o cambiado para $_[0]',
                                passwordu => 'Contraseña borrada para $_[0]',
                                pc90s => 'PC90 activado para $_[0]',
@@ -990,7 +992,6 @@ package DXM;
                                qrae2 => 'No se reconoce \"$_[0]\" como un QRA locator ( ej JO02LQ)',
                                qra => 'Tu QRA Locator es ahora \"$_[0]\"',
                                qsl1 => 'Indicativo     Manager   Nº veces  Último Spot      De',
-
                                rcmdo => 'RCMD \"$_[0]\" enviado a $_[1]',
                                read1 => 'Lo siento, no hay mensajes nuevos para ti',
                                read2 => 'Mensaje $_[0] no encontrado',
@@ -1022,11 +1023,11 @@ package DXM;
                                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 de Spots de DX en los últimos 31 días',
+                               stathf => 'Estadísticas de spots en HF de los últimos $_[1] días desde el $_[0]',
+                               stathft => 'Estadísticas de spots en HF de los últimos $_[2] días desde el $_[1] para DXCC $_[0]',
+                               statvhf => 'VHF + DX Spot Stats, últimos $_[1] días desde el $_[0]',
+                               statvhft => 'VHF + DX Spot Stats, últimos $_[2] días desde el $_[1] para DXCC $_[0]',
+                               statdx => 'Total de Spots de DX en los últimos $_[1] días desde el $_[0]',
                                storable => 'Por favor, instale el módulo Storable de CPAN', 
                                sun => 'QTH                                   dd/mm/yyyy Salida Puesta',
                                sun_with_azel => 'QTH                                   dd/mm/yyyy Salida Puesta   Azim   Elev',
@@ -1049,10 +1050,11 @@ package DXM;
                                talkprompt => 'Talk ($_[0])>',
                                talkstart => 'Iniciando modo talk contigo',
                                unset => '$_[0] desactivado para $_[1]',
-                               unsethop1 => 'Uso: unset/hops <call> ann|spots|wwv|wcy',
+                               unsethop1 => 'Uso: unset/hops <indicativo> ann|spots|wwv|wcy',
                                unsethop2 => 'Borrados los hops para $_[1] en $_[0]', 
-                       user => 'Usuario',
+                               user => 'Usuario',
                                userconn => 'Indicativos conectados a',
+                               usernf => '*** No se encuentra el registro de usuario de $_[0] ***',
                                usstates => 'Activada vista del estado USA en spots para $_[0]',
                                usstateu => 'Desactivada vista del estado USA en spots para $_[0]',
                                usernf => '*** Registro de usuario $_[0] no encontrado ***',
@@ -1060,14 +1062,15 @@ package DXM;
                                wcy2 => 'WCY Duplicado',
                                wcys => 'Activada recepción de anuncios WCY para $_[0]',
                                wcyu => 'Desactivada recepción de anuncios WWV para $_[0]',
-                               wpc16s => 'Admitir PC16 desde $_[0] activado',
-                               wpc16u => 'Admitir PC16 desde $_[0] desactivado',
+                               wpc16s => 'Admitir PC16 de $_[0] activado',
+                               wpc16u => 'Admitir PC16 de $_[0] desactivado',
                                wpc19s => 'Activada ruta PC19 para $_[0]',
                                wpc19u => 'Desactivada ruta PC19 para $_[0]',
                                wpc90s => 'PC90 para $_[0] activado',
                                wpc90u => 'PC90 para $_[0] descativado',
                                wwv1 => '$_[0] falta o está fuera de rango',
                                wwv2 => 'WWV Duplicado',
+                               wwv3 => 'Fecha       Hora   SFI   A   K Previsión                              Logger',
                                wwvs => 'Activada recepción de anuncios WWV para $_[0]',
                                wwvu => 'Desactivada recepción de anuncios WWV para $_[0]',
                                wxs => 'Activada recepción de anuncios WX para $_[0]',
@@ -1075,7 +1078,7 @@ package DXM;
                           },
                 de => {
                                addr => 'Adresse gesetzt auf: $_[0]',
-                               already => '$_[0] bereits verbunden',\r
+                               already => '$_[0] bereits verbunden',
                                anns => 'Announce flag gesetzt auf $_[0]',
                                annu => 'Announce flag zurueckgesetzt auf $_[0]',
                                annts => 'AnnTalk flag gesetzt auf $_[0]',
@@ -1086,19 +1089,19 @@ package DXM;
                                bbse1 => 'Bitte die BBS Adresse eingeben,, set/bbs <your bbs address>',
                                bbs => 'Deine BBS Adresse ist nun \"$_[0]\"',
                                beepoff => 'Beeps sind nun aus',
-                               beepon => 'Beeps sind jetzt eingeschaltet',\r
+                               beepon => 'Beeps sind jetzt eingeschaltet',
                                call1 => 'Callsign lookup via $_[0]:',
-                               conother => 'Sorry $_[0] Du bist zu diesem Cluster auf einem anderen Port connected',\r
-                               concluster => 'Sorry $_[0] Du bist schon anderswo mit einem Cluster verbunden (on $_[1])',\r
+                               conother => 'Sorry $_[0] Du bist zu diesem Cluster auf einem anderen Port connected',
+                               concluster => 'Sorry $_[0] Du bist schon anderswo mit einem Cluster verbunden (on $_[1])',
                                conscript => 'Kein connect script mit Namen \"$_[0]\" gefunden in $main::root/connect',
-                               confail => 'Verbindungsaufbau zu $_[0] misslungen ($_[1])',\r
-                               constart => 'Verbindungsaufbau zu $_[0] gestartet',\r
+                               confail => 'Verbindungsaufbau zu $_[0] misslungen ($_[1])',
+                               constart => 'Verbindungsaufbau zu $_[0] gestartet',
                                deluser => 'User $_[0] wurde geloescht',
                                db1 => 'Diese Datenbank ist untergebracht bei $_[0]',
-                               db2 => 'Sorry, aber Schluesselwort: $_[0] wurde nicht gefunden in $_[1]',\r
+                               db2 => 'Sorry, aber Schluesselwort: $_[0] wurde nicht gefunden in $_[1]',
                                db3 => 'Sorry, Datenbank $_[0] existiert hier nicht',
                                db4 => 'Sorry, Datenbank $_[0] untergebracht bei $_[1] ist nicht online',
-                               db5 => 'Zugriff auf fremde Datenbank bei $_[0]...standby...',\r
+                               db5 => 'Zugriff auf fremde Datenbank bei $_[0]...standby...',
                                db6 => 'Datenbank $_[0] existiert bereits, bitte zuerst loeschen',
                                db7 => 'Datenbank $_[0] angelegt fuer remote Cluster $_[1]',
                                db8 => 'Datenbank $_[0] lokal angelegt',
@@ -1106,7 +1109,7 @@ package DXM;
                                db10 => '$_[0] Datensaetze importiert in $_[1]',
                                db11 => 'Sende Deine Anfrage(n)an $_[0], bitte stand by...',
                                db12 => 'DB Name          Location   Cmd             Chain',
-                               dfreq1 => 'Ungueltige Freq $_[0] brauche: z.B. 0/30000 oder hf oder hf/cw',\r
+                               dfreq1 => 'Ungueltige Freq $_[0] brauche: z.B. 0/30000 oder hf oder hf/cw',
                                dir1 => 'Keine Nachricht gefunden',
                                disc1 => 'Disconnected von $_[0]',
                                disc2 => 'Kanal $_[0] disconnected',
@@ -1146,7 +1149,7 @@ package DXM;
                                e21 => '$_[0] nicht numerisch',
                                e22 => '$_[0] kein Rufzeichen',
                                e23 => '$_[0] kein Bereich (z.B. 0/30000)',
-                               e24 => 'Sorry, Internet Zugriff ist nicht freigeschaltet',\r
+                               e24 => 'Sorry, Internet Zugriff ist nicht freigeschaltet',
                                e25 => 'Sorry der Wert muss zwischen $_[0] und $_[1] sein',
                                e26 => 'Zu viele Fehler gleichzeitig, Du wirst disconnected',
                                e27 => '$_[0] kein numerisches oder Rufzeichen Prefix',
@@ -1160,8 +1163,8 @@ package DXM;
                                e35 => 'Du bist kein Mitglied von $_[0], trete $_[0] bei',
                                echoon => 'Echo enabled',
                                echooff => 'Echo disabled',
-                               echow => '*Echo ist momentan disabled, set/echo zum aktivieren',\r
-                               emaile1 => 'Bitte E-Mail Addresse eingeben, set/email <Deine e-mail Adresse>',\r
+                               echow => '*Echo ist momentan disabled, set/echo zum aktivieren',
+                               emaile1 => 'Bitte E-Mail Addresse eingeben, set/email <Deine e-mail Adresse>',
                                emaila => 'Deine E-Mail Adresse ist nun \"$_[0]\"',
                                email => 'E-mail Adresse gesetzt auf: $_[0]',
                                export1 => 'Gebrauch: export <msgno> <dateiname>',
@@ -1185,13 +1188,13 @@ package DXM;
                                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]',\r
-                               homebbs => 'Heimat-BBS gesetzt auf: $_[0]',\r
-                               homenode => 'Heimat-Node gesetzt auf: $_[0]',\r
-                               hnodee1 => 'Bitte Heimat-Node eingeben, set/homenode <Dein Heimat DX Cluster>',\r
-                               hnodee2 => 'Heimat-Node setzen ist misslungen $_[0]',\r
-                               hnode => 'Dein Heimat-Node ist nun \"$_[0]\"',\r
-                               init1 => 'Initialisierungs-Nachricht gesendet an $_[0]',\r
+                               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',
@@ -1199,15 +1202,15 @@ package DXM;
                                isoaro => 'Es gibt einen Ausgabe Route Filter fuer $_[0]; clear/route $_[0] zuerst',
                                isow => '$_[0] ist isoliert; unset/isolate $_[0] zuerst',
                                join => 'Trete Gespraechsgruppe $_[0] bei',
-                               l1 => 'Sorry $_[0], Du bist bereits auf einem anderen Kanal eingeloggt',\r
+                               l1 => 'Sorry $_[0], Du bist bereits auf einem anderen Kanal eingeloggt',
                                l2 => 'Moin $_[0], hier ist $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
-                               lang => 'Sprache ist jetzt Deutsch',\r
+                               lang => 'Sprache ist jetzt Deutsch',
                                lange1 => 'set/language <lang> wobei <lang> ist eine von ($_[0])',
-                               lange2 => 'Fehler beim Setzen der Sprache auf $_[0]',\r
+                               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>',\r
+                               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]',\r
+                               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',
@@ -1217,14 +1220,14 @@ package DXM;
                                logoutu => 'User $_[0] hat ausgeloggt',
                                loginn => 'Node $_[0] hat eingeloggt',
                                logoutn => 'Node $_[0] hat ausgeloggt',
-                               m1 => 'Betreff eingeben (max. 30 Zeichen):',\r
+                               m1 => 'Betreff eingeben (max. 30 Zeichen):',
                                m2 => 'Kopie der msg $_[0] gesendet an $_[1]',
                                m3 => 'Sorry, $_[0] ist keine akzeptable TO Adresse',
                                m4 => 'Sorry, kann nicht zugreifen auf Nachricht $_[0]',
                                m5 => 'Sorry, ich brauche eine Nachrichten Nummer',
                                m6 => 'Reply to: $_[0]',
-                               m7 => 'Betreff : $_[0]',\r
-                               m8 => 'Nachricht eingeben, /EX zum Absenden oder /ABORT zum Abbrechen',\r
+                               m7 => 'Betreff : $_[0]',
+                               m8 => 'Nachricht eingeben, /EX zum Absenden oder /ABORT zum Abbrechen',
                                m9 => 'Neue Nachricht(en) fuer Dich',
                                m10 => 'Nachricht abgebrochen',
                                m11 => 'Nachricht Nr. $_[0] gesichert und weitergeleitet an $_[1]',
@@ -1232,20 +1235,20 @@ package DXM;
                                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',\r
-                               m17 => 'Sorry, kann Nachricht nicht senden im $_[0] Mode',\r
+                               m16 => 'Brauche eine Nachrichten-Nummer',
+                               m17 => 'Sorry, kann Nachricht nicht senden im $_[0] Mode',
                                m18 => 'Sorry, Status von Nachricht Nr. $_[0] ist momentan KEEP',
                                msg1 => 'Bulletin Nachrichten aufgeschoben',
                                msg2 => 'Private Nachrichten aufgeschoben',
                                msg3 => 'Msg $_[0]: $_[1] geaendert von $_[2] auf $_[3]',
                                msgu => 'Gebrauch: msg <cmd> <msgno> data...',
-                               merge1 => 'Merge request fuer $_[1] Spots und $_[2] WWV gesendet an $_[0]',\r
+                               merge1 => 'Merge request fuer $_[1] Spots und $_[2] WWV gesendet an $_[0]',
                                moon => 'Standort                              dd/mm/yyyy Rise   Set',
                                moon_with_azel => 'Standort                              dd/mm/yyyy Rise   Set      Azim   Elev',
                                mond => 'Ueberwachung Disabled',
                                mone => 'Ueberwachung Enabled',
-                               namee1 => 'Bitte Deinen Namen eingeben, set/name <Dein Name>',\r
-                               namee2 => 'Kann User $_[0] nicht finden!',\r
+                               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',
@@ -1260,9 +1263,9 @@ package DXM;
                                nodex => '$_[0] gesetzt als DXNET style Node',
                                nodexc => '$_[0] erstellt als DXNET style Node',
                                nodeu => '$_[0] zurueckgesetzt als ein User',
-                               nodee1 => 'Du kannst dieses Kommando nicht ausfuehren waehrend Dein Ziel ($_[0]) online ist',\r
+                               nodee1 => 'Du kannst dieses Kommando nicht ausfuehren waehrend Dein Ziel ($_[0]) online ist',
                                notdone => 'Nicht ausgefuehrt',
-                               nothere => 'Sorry, aber $_[0] ist nicht hier im Moment, bitte spaeter noch einmal Versuchen',\r
+                               nothere => 'Sorry, aber $_[0] ist nicht hier im Moment, bitte spaeter noch einmal Versuchen',
                                obscount => 'Ping obsolescence count on $_[0] set to $_[1]',
                                ok => 'Operation erfolgreich',
                                outconn => 'Outstanding connect to $_[0]',
@@ -1271,11 +1274,11 @@ package DXM;
                                passerr => 'Gebrauch: SET/PASS <Passwort> <Rufzeichen>',
                                password => 'Passwort gesetzt oder geaendert fuer $_[0]',
                                passwordu => 'Passwort geloescht fuer $_[0]',
-                               pingo => 'Ping gestartet nach $_[0]',\r
-                               pingi => 'Ping erfolgreich zu $_[0] $_[1] (durchschn. $_[2]) Sekunden',\r
-                               pinge1 => 'Du kannst Dich nicht selber pingen!',\r
-                               pingint => 'Ping-Intervall zu $_[0] gesetzt auf $_[1] Sekunden',\r
-                               'pos' => 'Von Rufzeichen: $_[0] Breite: $_[1] Laenge: $_[2]',\r
+                               pingo => 'Ping gestartet nach $_[0]',
+                               pingi => 'Ping erfolgreich zu $_[0] $_[1] (durchschn. $_[2]) Sekunden',
+                               pinge1 => 'Du kannst Dich nicht selber pingen!',
+                               pingint => 'Ping-Intervall zu $_[0] gesetzt auf $_[1] Sekunden',
+                               'pos' => 'Von Rufzeichen: $_[0] Breite: $_[1] Laenge: $_[2]',
                                prs => 'Prompt gesetzt auf \"$_[0]\"',
                                pru => 'Prompt jetzt zurueckgesetzt auf Default-Einstellung',
                                priv => 'Priviligierten Level geaendert auf $_[0]',
@@ -1285,15 +1288,15 @@ package DXM;
                                pw2 => 'Wiederhole neues Passwort: ',
                                pw3 => 'Passwort geaendert',
                                pw4 => 'Passwoerter differieren, Passwort NICHT geaendert',
-                               qll => 'Bitte gib Deinen Standort als geograph. Koordinaten mit set/location oder als Maidenhead-Kenner mit set/qra ein',\r
-                               qthe1 => 'Bitte gib Dein QTH ein mit set/qth <Dein qth>',\r
+                               qll => 'Bitte gib Deinen Standort als geograph. Koordinaten mit set/location oder als Maidenhead-Kenner mit set/qra ein',
+                               qthe1 => 'Bitte gib Dein QTH ein mit set/qth <Dein qth>',
                                qth => 'Dein QTH ist nun \"$_[0]\"',
                                qrae1 => 'Bitte gib Deinen QRA Locator ein mit set/qra <qra locator> (z.B. set/qra JO44RK)',
                                qrashe1 => 'Bitte einen QRA Locator eingeben, z.B. sh/qra JO02LQ oder sh/qra JO02LQ IO93NS',
-                               qrae2 => 'Erkenne nicht \"$_[0]\" als einen QRA Locator (z.B. JO02LQ)',\r
+                               qrae2 => 'Erkenne nicht \"$_[0]\" als einen QRA Locator (z.B. JO02LQ)',
                                qra => 'Dein QRA Locator ist nun \"$_[0]\"',
                                rcmdo => 'RCMD \"$_[0]\" gesendet an $_[1]',
-                               read1 => 'Sorry, keine neuen Nachrichten fuer Dich',\r
+                               read1 => 'Sorry, keine neuen Nachrichten fuer Dich',
                                read2 => 'Msg $_[0] nicht gefunden',
                                read3 => 'Msg $_[0] nicht verfuegbar',
                                rec => '$_[0] records',
@@ -1302,7 +1305,7 @@ package DXM;
                                reginac => 'Registrierung ist nicht aktiv (set/var \$main::reqreg = 1 to activate)',
                                regun => '$_[0] unregistriert',
                                route => '$_[0] auf $_[1] via $_[2]',
-                               sat1 => 'Tracking Tabelle fuer $_[0] fuer die naechsten $_[1] Stunden alle $_[2] mins',\r
+                               sat1 => 'Tracking Tabelle fuer $_[0] fuer die naechsten $_[1] Stunden alle $_[2] mins',
                                sat2 => 'dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km',
                                sat3 => 'Syntax: SH/SAT <name> [<hours> <interval>]',
                                sat4 => 'Satelliten verfuegbar:-',
@@ -1326,19 +1329,19 @@ package DXM;
                                statvhf => 'VHF+ DX Spot Stats, letzte 31 Tage',
                                statvhft => 'VHF+ DX Spot Stats, letzte 31 Tage fuer DXCC $_[0]',
                                statdx => 'Total DX Spots letzte 31 Tage',
-                               sun => 'Location                              dd/mm/jjjj Rise   Set',\r
-                               sun_with_azel => 'Location                              dd/mm/jjjj Rise   Set      Azim   Elev',\r
+                               sun => 'Location                              dd/mm/jjjj Rise   Set',
+                               sun_with_azel => 'Location                              dd/mm/jjjj Rise   Set      Azim   Elev',
                                suser1 => 'Gebrauch: Rufzeichen user_field_name value',
                                suser2 => 'User $_[0] nicht gefunden',
                                suser3 => 'User Feld \'$_[0]\' war \'$_[1]\' nun gesetzt auf \'$_[2]\'',
-                               suser4 => 'User Feld Name \'$_[0]\' existiert nicht',\r
+                               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',\r
+                               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',