fix keep so it a) works and b) is persistant
[spider.git] / perl / Messages
index 76234bce568d16300cb74c8336e65eca20b84ed6..02e440203e7d7a3892fca743fc4284908d3083de 100644 (file)
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+# -*- perl -*-
 # 
 # this file contains the system messages. Don't forget to reload them
 # if you change them (load/messages)
@@ -85,6 +85,7 @@ package DXM;
                                e29 => 'Need a password',
                                e30 => 'Cannot Open $_[0] $!',
                                e31 => '$_[0] is not a user', 
+                               e32 => 'Need a passphrase',
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',
@@ -161,6 +162,7 @@ package DXM;
                                m15 => 'Message no $_[0] unmarked as sent to $_[1]',
                                m16 => 'Need a Message number',
                                m17 => 'Sorry, cannot send messages in $_[0] mode',
+                               m18 => 'Sorry, message $_[0] is currently set to KEEP',
                                msg1 => 'Bulletin Messages Queued',
                                msg2 => 'Private Messages Queued',
                                msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]',
@@ -195,6 +197,8 @@ package DXM;
                                page => 'Press Enter to continue, A to abort ($_[0] lines) >',
                                pagelth => 'Page Length is now $_[0]',
                                passerr => 'Please use: SET/PASS <password> <callsign>',
+                               passphrase => 'Passphrase set or changed for $_[0]',
+                               passphraseu => 'Passphrase removed for $_[0]',
                                password => 'Password set or changed for $_[0]',
                                passwordu => 'Password removed for $_[0]',
                                pc90s => 'PC90 enabled for $_[0]',
@@ -243,6 +247,7 @@ package DXM;
                                sethop1 => 'usage: set/hops <call> ann|spots|wwv|wcy <no of hops>',
                                sethop2 => '$_[0] hops set on $_[1]$_[2] for $_[3]', 
                                sethop3 => 'No hops set for $_[0]', 
+                               shu => '\"SHU\" is not enough! you need to type at least \"SHUT\" to shutdown the node',
                                shutting => '$main::mycall shutting down...',
                                sloc => 'Cluster lat $_[0] long $_[1], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
                                snode1 => 'Node Call   Sort    Version',
@@ -251,13 +256,17 @@ package DXM;
                                sqra => 'Cluster QRA Locator$_[0], DON\'T FORGET TO CHANGE YOUR DXVars.pm',
                                sorry => 'Sorry',
                                spf1 => 'spoof: creating new user $_[0]',
-                               stathf => 'HF DX Spot Stats, last 31 days',
-                               stathft => 'HF DX Spot Stats, last 31 days for DXCC $_[0]',
-                               statvhf => 'VHF+ DX Spot Stats, last 31 days',
-                               statvhft => 'VHF+ DX Spot Stats, last 31 days for DXCC $_[0]',
+                               stathf => 'HF DX Spot Stats, last 31 days from $_[0]',
+                               stathft => 'HF DX Spot Stats, last 31 days from $_[1] for DXCC $_[0]',
+                               statvhf => 'VHF+ DX Spot Stats, last 31 days from $_[0]',
+                               statvhft => 'VHF+ DX Spot Stats, last 31 days from $_[1] for DXCC $_[0]',
                                statdx => 'Total DX Spots last 31 days',
                                sun => 'Location                              dd/mm/yyyy Rise   Set',
                                sun_with_azel => 'Location                              dd/mm/yyyy Rise   Set      Azim   Elev',
+                               susdb1 => 'usage: callsign state city',
+                               susdb2 => 'USDB $_[0] was $_[1], $_[2]',
+                               susdb3 => 'USDB $_[0] now $_[1], $_[2]',
+                               susdb4 => 'USDB $_[0] deleted',
                                suser1 => 'usage: callsign user_field_name value',
                                suser2 => 'User $_[0] not found',
                                suser3 => 'User field \'$_[0]\' was \'$_[1]\' now set to \'$_[2]\'',
@@ -461,7 +470,11 @@ package DXM;
                                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',   
+                               e29 => 'Necesitas password', 
+                               e30 => 'No se puede abrir $_[0] $!',
+                               e31 => '$_[0] no es un usuario', 
+                               e32 => 'Se necesita una frase de contraseña',
+  
                                echoon => 'Eco local activado',
                                echooff => 'Eco local desactivado',
                                echow => '*Eco local desactivado, set/echo para activarlo',
@@ -506,7 +519,7 @@ package DXM;
                                l2 => 'Hola $_[0], esta es $main::mycall en $main::myqth usando DXSpider V$main::version',
                                lang => 'El idioma es ahora Español',
                                lange1 => 'set/language <idioma> donde <idioma> es uno entre ($_[0])',
-                               lange2 => 'fallo al seleccionar idioma en $_[0]',
+                               lange2 => 'Error 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)',
@@ -572,7 +585,13 @@ package DXM;
                                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>',
+                               passphrase => 'Passphrase definida o cambiada para $_[0]',
+                               passphraseu => 'Passphrase borrada para $_[0]',
+
                                password => 'El Password ha sido definido o cambiado para $_[0]',
+                               passwordu => 'Contraseña borrada para $_[0]',
+                               pc90s => 'PC90 activado para $_[0]',
+                               pc90u => 'PC90 desactivado para $_[0]',
                                pingo => 'Iniciado el ping a $_[0]',
                                pingi => 'Ping devuelto por $_[0] $_[1] (Ave $_[2]) segundos',
                                pinge1 => 'No puedes enviarte un ping a ti mismo!',
@@ -582,7 +601,7 @@ package DXM;
                                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]',
+                               priv => 'Nivel de privilegios modificado para $_[0]',
                                prx => '$main::mycall >',
                                pw0 => 'Escribe el password antiguo: ',
                                pw1 => 'Escribe el nuevo password: ',
@@ -604,7 +623,7 @@ package DXM;
                                reg => '$_[0] registrado',
                                regc => '$_[0] creado y registrado',
                                reginac => 'El registro no está activo (set/var \$main::regreq = 1 para activarlo)',
-                               regun => '$_[0] borrado',
+                               regun => 'El usuario $_[0] no esta 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',
@@ -616,6 +635,7 @@ package DXM;
                                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]',
+                               shu => '\"SHU\" No es suficiente! Es necesario como mínimo escribir \"SHUT\" para apagar el cluster',
                                shutting => '$main::mycall shutting down...',
                                sloc => 'Cluster lat $_[0] long $_[1], NO OLVIDES CAMBIAR TU DXVars.pm',
                                snode1 => 'Nodo Call   Sort    Versión',
@@ -626,11 +646,15 @@ package DXM;
                                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',
+                               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',
                                sun => 'QTH                                   dd/mm/yyyy Salida Puesta',
                                sun_with_azel => 'QTH                                   dd/mm/yyyy Salida Puesta   Azim   Elev',
+                               susdb1 => 'uso: indicativo estado ciudad',
+                               susdb2 => 'USDB $_[0] era $_[1], $_[2]',
+                               susdb3 => 'USDB $_[0] es ahora $_[1], $_[2]',
+                               susdb4 => 'USDB $_[0] borrado',
                                suser1 => 'uso: indicativo user_field_name valor',
                                suser2 => 'Usuario $_[0] no encontrado',
                                suser3 => 'User field \'$_[0]\' era \'$_[1]\' ahora es \'$_[2]\'',
@@ -645,9 +669,16 @@ 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',
                                unsethop2 => 'Borrados los hops para $_[1] en $_[0]', 
                                usernf => '*** Registro de usuario $_[0] no encontrado ***',
+                               wcy1 => '$_[0] falta o esta 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',
+                               wwv2 => 'WWV Duplicado',
                                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]',
@@ -1189,3 +1220,4 @@ package DXM;
                                wxu => 'WX disabilitati per $_[0]',
                }
 );
+