add set/buddy.
[spider.git] / perl / Messages
index 6233bfe18e0d7a565685bea3e909bce8ca2739da..d66e66c1ef3a2f6ce267477f7b565da002e719ff 100644 (file)
@@ -24,12 +24,17 @@ package DXM;
                                bbs => 'Your BBS Address is now \"$_[0]\"',
                                beepoff => 'Beeps are now off',
                                beepon => 'Beeps are now on',
+                               believes => 'Believe node $_[0] via $_[1]',
+                               believeu => 'Don\'t believe node $_[0] via $_[1]', 
+                               buddya => '$_[0] has been added to your buddies',
+                               buddyu => '$_[0] has been removed from your buddies',
                                call1 => 'Callsign lookup via $_[0]:',
                                conother => 'Sorry $_[0] you are connected to me on another port',
                                concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster (on $_[1])',
                                conscript => 'no connect script called \"$_[0]\" found in $main::root/connect',
                                confail => 'connection to $_[0] failed ($_[1])',
                                constart => 'connection to $_[0] started',
+                               conbump => 'Reconnected as $_[0] at $_[1], this instance is disconnected',
                                deluser => 'User $_[0] has been deleted',
                                db1 => 'This database is hosted at $_[0]',
                                db2 => 'Sorry, but key: $_[0] was not found in $_[1]',
@@ -95,6 +100,7 @@ package DXM;
                                e33 => '$_[0] is not a number of days or a valid date',
                                e34 => 'Need a GROUP and some text',
                                e35 => 'You are not a member of $_[0], join $_[0]',
+                               e36 => 'You can only do this in normal user prompt state',
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',
@@ -111,6 +117,8 @@ package DXM;
                                filter4 => '$_[0]$_[1] Filter $_[2] deleted for $_[3]',
                                filter5 => 'need some filter commands...',
                                filter6 => '$_[0]$_[1] Filter for $[2] not found',
+                               grayline1 => '                                                 Beg of               End of',
+                               grayline2 => 'Location                              dd/mm/yyyy Dawn   Rise   Set    Dusk',
                                grids => 'DX Grid enabled for $_[0]',
                                gridu => 'DX Grid disabled for $_[0]',
                                illcall => 'Sorry, $_[0] is an invalid callsign',
@@ -146,6 +154,8 @@ package DXM;
                                lange2 => 'failed to set language on $_[0]', 
                                lastconn => 'Last connect',
                                leave => 'leaving group $_[0]',
+                               lgset => 'Added $_[0] to the local node group',
+                               lgunset => 'Removed $_[0] from the local node group',
                                lh1 => '$main::data/hop_table.pl doesn\'t exist',
                                local1 => 'Local',
                                loce1 => 'Please enter your location,, set/location <latitude longitude>',
@@ -157,6 +167,8 @@ package DXM;
                                lockoutc => '$_[0] Created and Locked out',
                                lockoutun => '$_[0] Unlocked',
                                lockoutuse => 'usage: sh/lockout <call>|ALL',
+                               loginb => 'Buddy $_[0] has logged in',
+                               logoutb => 'Buddy $_[0] has logged out',
                                loginu => 'User $_[0] has logged in',
                                logoutu => 'User $_[0] has logged out',
                                loginn => 'Node $_[0] has logged in',
@@ -168,9 +180,9 @@ package DXM;
                                m5 => 'Sorry, I need a message number', 
                                m6 => 'Reply to: $_[0]',
                                m7 => 'Subject : $_[0]',
-                               m8 => 'Enter Message /EX to send or /ABORT to exit',
+                               m8 => 'Enter lines of text, /EX to send or /ABORT to exit',
                                m9 => 'New mail has arrived for you',
-                               m10 => 'Message Aborted',
+                               m10 => 'Message/Script Aborted',
                                m11 => 'Message no $_[0] saved and directed to $_[1]',
                                m12 => 'Message no $_[0] deleted',
                                m13 => 'Message no $_[0] missing',
@@ -179,6 +191,8 @@ package DXM;
                                m16 => 'Need a Message number',
                                m17 => 'Sorry, cannot send messages in $_[0] mode',
                                m18 => 'Sorry, message $_[0] is currently set to KEEP',
+                               m19 => 'Startup Script for $_[0] saved, $_[1] lines',
+                               m20 => 'Empty Startup Script for $_[0] deleted',
                                msg1 => 'Bulletin Messages Queued',
                                msg2 => 'Private Messages Queued',
                                msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]',
@@ -225,9 +239,8 @@ package DXM;
                                pinge1 => 'Cannot ping yourself!',
                                pingint => 'Ping interval on $_[0] set to $_[1] secs',
                                'pos' => 'From Callsign: $_[0] Lat: $_[1] Long: $_[2]',
-                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-                               pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
-                               prs => 'Prompt now set to \"$_[0]\"',
+                                pr => '%C de %M %D %T dxspider >',
+                               prs => 'Prompt is changed',
                                pru => 'Prompt now set back to default',
                                priv => 'Privilege level changed on $_[0]',
                                prx => '$main::mycall >',
@@ -401,8 +414,6 @@ package DXM;
                                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',
@@ -643,8 +654,6 @@ package DXM;
                                pinge1 => 'Vous ne pouvez pas vous pinger vous-même !',
                                pingint => 'Intervalle de ping vers $_[0] fixé à $_[1] secondes',
                                'pos' => 'Indicatif source : latitude $_[0] : longitude $_[1] : $_[2]',
-                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-                               pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
                                prs => 'Prompt défini comme étant \"$_[0]\"',
                                pru => 'Prompt remis à sa valeur par défaut',
                                priv => 'Niveau de privilège changé en $_[0]',
@@ -750,6 +759,7 @@ package DXM;
                                annu => 'Desactivada la recepción de anuncios para $_[0]',
                                annts => 'Modo AnnTalk activado para $_[0]',
                                anntu => 'Modo AnnTalk desactivado para $_[0]',
+                               at => 'at',
                                badnode1 => 'No se aceptan spots 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:',
@@ -757,6 +767,8 @@ package DXM;
                                bbs => 'Tu BBS es ahora \"$_[0]\"',
                                beepoff => 'Avisos sonoros desactivados',
                                beepon => 'Avisos sonoros activados',
+                               believes => 'Creo en el nodo $_[0] via $_[1]',
+                               believeu => 'No creo en el nodo $_[0] via $_[1]',
                                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',
@@ -777,15 +789,19 @@ package DXM;
                                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]',
+                               disc1 => '.',
                                disc2 => 'Canal $_[0] desconectado',
                                disc3 => 'No estaba activo el canal, pero la conexión de $_[0] ha sido eliminada',
                                disc4 => 'No existía el canal o la conexión, $_[0] se elimina',
-                               done => 'Hecho',
+                               done => 'Comando ejecutado con éxito.',
                                dup => 'Lo siento, esto es un duplicado',
                                dx1 => 'Frecuencia $_[0] fuera de banda (ver show/band); usa: DX [BY indicativo] frec indic. comentario',
                                dx2 => 'Necesita indicativo; usa: DX [BY indicativo] frec indic. comentario',
                                dx3 => 'El indicativo o la frecuencia es incorrecta',
+                               dxcqs => 'Activada la recepción de Zonas CQ en spots de DX para $_[0]',
+                               dxcqu => 'Desactivada la recepción de Zonas CQ en spots de DX para $_[0]',
+                               dxitus => 'Activada la recepción de Zonas ITU en spots de DX para $_[0]',
+                               dxituu => 'Desactivada la recepción de Zonas ITU en spots de DX para $_[0]',
                                dxs => 'Activada la recepción de spots de DX para $_[0]',
                                dxu => 'Desactivada la recepción de spots de DX para $_[0]',
                                e1 => 'Este comando no es válido',
@@ -794,7 +810,7 @@ package DXM;
                                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',
+                               e7 => '$_[0] no está visible en la red actualmente',
                                e8 => 'Se necesita un indicativo y algún texto',
                                e9 => 'Se necesita al menos algún texto',
                                e10 => '$_[0] no se encuentra conectado',
@@ -814,26 +830,30 @@ package DXM;
                                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',
+                               e27 => '$_[0] no es un número o un prefijo',
                                e28 => 'Lo siento, necesitas registrarte (SP $main::myalias para registrarte)',   
                                e29 => 'Necesitas password', 
                                e30 => 'No se puede abrir $_[0] $!',
                                e31 => '$_[0] no es un usuario', 
                                e32 => 'Se necesita una frase de contraseña',
+                               e33 => '$_[0] No es un número de días o una fecha válida',
+                               e34 => 'Se necesita un grupo y algún texto',
+                               e35 => 'No eres un miembro del grupo $_[0], usa join $_[0] para entrar en este grupo',
+                               e36 => 'Solo puedes hacer esto desde el prompt de usuario',
   
                                echoon => 'Eco local activado',
                                echooff => 'Eco local desactivado',
                                echow => '*Eco local desactivado, set/echo para activarlo',
                                emaile1 => 'Por favor introduce tu E-mail, set/email <tu E-mail>',
-                               emaila => 'Tu dirección E-Mail es ahora \"$_[0]\"',
+                               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>',
+                               export1 => 'uso: export <número_mensaje> <nombre_fichero>',
                                export2 => '$_[3] hubo un error exportando mensaje $_[0] a $_[1] ($_[2])',
                                export3 => '$_[2 ] exportando mensaje $_[0] a $_[1]',
-                               filter1 => 'Filtro $_[0] actualizado para $_[1]',
+                               filter1 => 'Filtro $_[0] actualizado con el nombre $_[1]',
                                filter2 => 'Es necesario un valor para $_[0]',
                                filter3 => 'No hay filtros definidos para $_[0]',
-                               filter4 => '$_[0]$_[1] Filtros $_[2] borrados para $_[3]',
+                               filter4 => 'Filtro número $_[2] de rutas 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]',
@@ -844,6 +864,7 @@ package DXM;
                                hashc => '$_[0] eliminado desde $_[1]',
                                hashd => '$_[0] no en $_[1]',
                                hashe => '$_[0] activado $_[1]',
+                               heading => 'Rumbo',
                                helpe1 => 'La ayuda no está disponible, comunícaselo al sysop',
                                helpe2 => 'No hay ayuda disponible para $_[0]',
                                heres => 'Se informa a la red: $_[0] está presente',
@@ -858,22 +879,27 @@ package DXM;
                                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',   
+                               isoari => 'Existe un filtro de rutas "input" para $_[0]; clear/route input $_[0] primero',
+                               isoaro => 'Existe un filtro de rutas para $_[0]; clear/route $_[0] primero',   
                                isow => '$_[0] está en modo aislado; unset/isolate $_[0] primero',
+                               join => 'Entras en el grupo $_[0]',
                                l1 => 'Lo siento $_[0], ya estás conectado en otro canal',
                                l2 => 'Hola $_[0], esta es $main::mycall en $main::myqth usando DXSpider V$main::version',
-                               lang => 'El idioma es ahora Español',
+                               lang => 'El idioma seleccionado es el Español',
                                lange1 => 'set/language <idioma> donde <idioma> es uno entre ($_[0])',
                                lange2 => 'Error al seleccionar idioma en $_[0]',
+                               lastconn => 'Última conexión',
+                               leave => 'Abandonas el grupo $_[0]',
                                lh1 => '$main::data/hop_table.pl no existe',
+                               local1 => 'Local',
                                loce1 => 'Por favor introduce tu posición, set/location <latitud longitud>',
-                               loce2 => 'No reconocida \"$_[0]\" como una Lat/Long (ej: 52 20 N 0 16E)',
+                               loce2 => 'No se reconoce \"$_[0]\" como una Lat/Long (ej: 52 20 N 0 16E)',
                                loce3 => '$_[0] es un QRA locator, por favor usa: set/qra $_[0]',
                                loc => 'Tu Lat/Long es ahora \"$_[0]\"',
+                               location => 'Location',
                                lockout => '$_[0] Excluido del sistema',
                                lockoutc => '$_[0] Creado y excluido del sistema',
-                               lockoutun => '$_[0] autorizado para conectar',
+                               lockoutun => '$_[0] Autorizado para conectar',
                                lockoutuse => 'Uso: sh/lockout <indicativo|prefijo>|ALL',
                                loginu => '$_[0] conecta',
                                logoutu => '$_[0] se desconecta',
@@ -889,24 +915,28 @@ package DXM;
                                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]',
+                               m10 => 'Mensaje interrumpido',
+                               m11 => 'Mensaje nr $_[0] guardado y enviado a $_[1]',
+                               m12 => 'Mensaje nr $_[0] borrado',
+                               m13 => 'Mensaje nr $_[0] no encontrado',
+                               m14 => 'Mensaje nr $_[0] marcado para ser enviado a $_[1]',
+                               m15 => 'El mensaje nr $_[0] no se enviará a $_[1]',
                                m16 => 'Se necesita un número de mensaje',
                                m17 => 'Lo siento, no puedo enviar el mensaje en $_[0] modo',
+                               m18 => 'Lo siento, el mensaje $_[0] está actualmente marcado como KEEP (Guardarlo)',
+                               m19 => 'Fichero de inicio de conexión de $_[0] guardado, contiene $_[1] línea(s)',
+                               m20 => 'Fichero de inicio de conexión vacio de  $_[0] borrado',
+
                                msg1 => 'Cola de mensajes tipo Boletín',
                                msg2 => 'Cola de mensajes tipo Privados',
                                msg3 => 'Msg $_[0]: $_[1] cambiado de $_[2] a $_[3]',
-                               msgu => 'uso: msg <cmd> <msgno> data...',
+                               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>',
+                               namee1 => 'Por favor, introduce tu nombre con set/name <tu nombre>',
                                namee2 => 'No se encuentra el usuario $_[0]!',
                                name => 'Tu nombre es \"$_[0]\"',
                                nodea => '$_[0] definido como nodo AK1A ',
@@ -922,14 +952,14 @@ package DXM;
                                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',
+                               nodee1 => 'No puedes usar este comando mientras $_[0] se encuentre conectado',
+                               notdone => 'No se ha podido realizar la operación',
                                nothere => 'Lo siento, pero $_[0] no está aquí ahora, inténtalo mas tarde',
-                               obscount => 'El parámetro Ping obsolescence count para $_[0] ajustado a $_[1]',
+                               obscount => 'El parámetro Ping obsolescence count para $_[0] se ajusta a $_[1]',
                                ok => 'Operación realizada',
                                outconn => 'Iniciando conexión con  $_[0]',
                                page => 'Teclea Enter para continuar, A para abortar (Quedan $_[0] líneas) >',
-                               pagelth => 'La longitud de las páginas es ahora $_[0]',
+                               pagelth => 'La longitud de las páginas es ahora de $_[0] línea(s)',
                                passerr => 'Por favor usa: SET/PASS <password> <indicativo>',
                                passphrase => 'Passphrase definida o cambiada para $_[0]',
                                passphraseu => 'Passphrase borrada para $_[0]',
@@ -939,13 +969,11 @@ package DXM;
                                pc90s => 'PC90 activado para $_[0]',
                                pc90u => 'PC90 desactivado para $_[0]',
                                pingo => 'Iniciado el ping a $_[0]',
-                               pingi => 'Ping devuelto por $_[0] $_[1] (Ave $_[2]) segundos',
+                               pingi => 'Ping devuelto por $_[0] en $_[1] (Ave $_[2]) segundos',
                                pinge1 => 'No puedes enviarte un ping a ti mismo!',
                                pingint => 'Intervalo de ping para $_[0] ajustado a $_[1] segundos',
                                'pos' => 'Desde el indicativo: $_[0] Lat: $_[1] Long: $_[2]',
-                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-                               pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
-                               prs => 'El Prompt ha sido cambiado a \"$_[0]\"',
+                               prs => 'El Prompt ha sido cambiado',
                                pru => 'El Prompt vuelve a ser el normal por defecto',
                                priv => 'Nivel de privilegios modificado para $_[0]',
                                prx => '$main::mycall >',
@@ -961,15 +989,17 @@ package DXM;
                                qrashe1 => 'Por favor introduce un QRA locator, ej sh/qra JO02LQ o sh/qra JO02LQ IO93NS',
                                qrae2 => 'No se reconoce \"$_[0]\" como un QRA locator ( ej JO02LQ)',
                                qra => 'Tu QRA Locator es ahora \"$_[0]\"',
+                               qsl1 => 'Indicativo     Manager   Nº veces  Último Spot      De',
+
                                rcmdo => 'RCMD \"$_[0]\" enviado a $_[1]',
                                read1 => 'Lo siento, no hay mensajes nuevos para ti',
                                read2 => 'Mensaje $_[0] no encontrado',
                                read3 => 'Mensaje $_[0] no disponible',
-                               rec => '$_[0] registros',
+                               rec => '$_[0] registro(s)',
                                reg => '$_[0] registrado',
                                regc => '$_[0] creado y registrado',
                                reginac => 'El registro no está activo (set/var \$main::regreq = 1 para activarlo)',
-                               regun => 'El usuario $_[0] no esta registrado',
+                               regun => 'El usuario $_[0] no está registrado',
                                route => '$_[0] en $_[1] vía $_[2]',
                                sat1 => 'Tabla de seguimiento $_[0] para las próximas $_[1] horas cada $_[2] minutos',
                                sat2 => 'dd/mm  UTC      Lat     Lon  Alt Km      Az      El Dist Km',
@@ -978,9 +1008,11 @@ package DXM;
                                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]',
+                               set => '$_[0] habilitado para $_[1]',
+                               sethop1 => 'Uso: set/hops <indicativo> ann|spots|wwv|wcy <nr de hops>',
+                               sethop2 => '$_[0] hops set on $_[1]$_[2] para $_[3]',
                                sethop3 => 'No hay hops definidos para $_[0]',
+                               showconf => 'Nodo         Indicativos',
                                shu => '\"SHU\" No es suficiente! Es necesario como mínimo escribir \"SHUT\" para apagar el cluster',
                                shutting => '$main::mycall shutting down...',
                                sloc => 'Cluster lat $_[0] long $_[1], NO OLVIDES CAMBIAR TU DXVars.pm',
@@ -995,13 +1027,14 @@ package DXM;
                                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',
+                               storable => 'Por favor, instale el módulo Storable de CPAN', 
                                sun => 'QTH                                   dd/mm/yyyy Salida Puesta',
                                sun_with_azel => 'QTH                                   dd/mm/yyyy Salida Puesta   Azim   Elev',
-                               susdb1 => 'uso: indicativo estado ciudad',
+                               susdb1 => 'Uso: indicativo estado ciudad',
                                susdb2 => 'USDB $_[0] era $_[1], $_[2]',
                                susdb3 => 'USDB $_[0] es ahora $_[1], $_[2]',
                                susdb4 => 'USDB $_[0] borrado',
-                               suser1 => 'uso: indicativo user_field_name valor',
+                               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',
@@ -1015,15 +1048,25 @@ package DXM;
                                talknh => 'Lo siento $_[0] no está conectado en este momento',
                                talkprompt => 'Talk ($_[0])>',
                                talkstart => 'Iniciando modo talk contigo',
-                               unset => '$_[0] deshabilitado para $_[1]',
-                               unsethop1 => 'uso: unset/hops <call> ann|spots|wwv|wcy',
+                               unset => '$_[0] desactivado para $_[1]',
+                               unsethop1 => 'Uso: unset/hops <call> ann|spots|wwv|wcy',
                                unsethop2 => 'Borrados los hops para $_[1] en $_[0]', 
+                       user => 'Usuario',
+                               userconn => 'Indicativos conectados a',
+                               usstates => 'Activada vista del estado USA en spots para $_[0]',
+                               usstateu => 'Desactivada vista del estado USA en spots para $_[0]',
                                usernf => '*** Registro de usuario $_[0] no encontrado ***',
-                               wcy1 => '$_[0] falta o esta fuera de rango',
+                               wcy1 => '$_[0] falta o está fuera de rango',
                                wcy2 => 'WCY Duplicado',
                                wcys => 'Activada recepción de anuncios WCY para $_[0]',
                                wcyu => 'Desactivada recepción de anuncios WWV para $_[0]',
-                               wwv1 => '$_[0] falta o esta fuera de rango',
+                               wpc16s => 'Admitir PC16 desde $_[0] activado',
+                               wpc16u => 'Admitir PC16 desde $_[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',
                                wwvs => 'Activada recepción de anuncios WWV para $_[0]',
                                wwvu => 'Desactivada recepción de anuncios WWV para $_[0]',
@@ -1233,8 +1276,6 @@ package DXM;
                                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
-                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-                               pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
                                prs => 'Prompt gesetzt auf \"$_[0]\"',
                                pru => 'Prompt jetzt zurueckgesetzt auf Default-Einstellung',
                                priv => 'Priviligierten Level geaendert auf $_[0]',
@@ -1503,8 +1544,6 @@ package DXM;
                                pinge1 => 'Non puoi far un ping su te stesso!',
                                pingint => 'Intervallo di ping per $_[0] impostato a $_[1] secondi',
                                'pos' => 'Dal nominativo: $_[0] Lat: $_[1] Long: $_[2]',
-                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-                               pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
                                priv => 'Privilegi cambiati per $_[0]',
                                prs => 'Prompt impostato a \"$_[0]\"',
                                pru => 'Prompt reimpostato al predefinito',
@@ -1786,7 +1825,6 @@ package DXM;
                                pinge1 => 'Nemuzu pingnout sam sebe!',
                                pingint => 'Ping interval na $_[0] byl nastaven na $_[1] sekundy',
                                'pos' => 'Od znacky: $_[0] Sirka: $_[1] Delka: $_[2]',
-                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
                                pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
                                prs => 'Prompt byl nastaven na \"$_[0]\"',
                                pru => 'Prompt byl vracen na default',
@@ -2083,8 +2121,6 @@ package DXM;
                                pinge1 => 'No pode fazer ping para si prprio!',
                                pingint => 'Intervalo de Ping em $_[0] definido para $_[1] segundos',
                                'pos' => 'Do indicativo: $_[0] Lat: $_[1] Long: $_[2]',
-                               pr => '$_[0] de $main::mycall $_[1] $_[2] >',
-                               pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
                                prs => 'Prompt agora definida para \"$_[0]\"',
                                pru => 'Prompt agora regressou para a default',
                                priv => 'Nivel de privilgio alterado em $_[0]',