fix keep so it a) works and b) is persistant
[spider.git] / perl / Messages
index 6a2b4fb5722507abcb75b53ab4a3314f16c2663e..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)
@@ -12,10 +12,10 @@ package DXM;
                 en => {
                                addr => 'Address set to: $_[0]',
                 already => '$_[0] already connnected',
-                               anns => 'Announce flag set on $_[0]',
-                               annu => 'Announce flag unset on $_[0]',
-                               annts => 'AnnTalk flag set on $_[0]',
-                               anntu => 'AnnTalk flag unset on $_[0]',
+                               anns => 'Announces enabled for $_[0]',
+                               annu => 'Announces disabled for $_[0]',
+                               annts => 'AnnTalk enabled for $_[0]',
+                               anntu => 'AnnTalk disabled for $_[0]',
                                badnode1 => '$_[0] is now a bad node',
                                badnode2 => '$_[0] is now a good node',
                                badnode3 => 'List of Bad Nodes:-',
@@ -52,8 +52,8 @@ package DXM;
                                dx1 => 'Frequency $_[0] not in band (see show/band); usage: DX [BY call] freq call comments',
                                dx2 => 'Need a callsign; usage: DX [BY call] freq call comments',
                                dx3 => 'The callsign or frequency is invalid',
-                               dxs => 'DX Spots flag set on $_[0]',
-                               dxu => 'DX Spots flag unset on $_[0]',
+                               dxs => 'DX Spots enabled for $_[0]',
+                               dxu => 'DX Spots disabled for $_[0]',
                                e1 => 'Invalid command',
                                e2 => 'Error: $_[0]',
                                e3 => '$_[0]: $_[1] not found',
@@ -84,6 +84,8 @@ package DXM;
                                e28 => 'Sorry, you need to be registered (SP $main::myalias to register)',
                                e29 => 'Need a password',
                                e30 => 'Cannot Open $_[0] $!',
+                               e31 => '$_[0] is not a user', 
+                               e32 => 'Need a passphrase',
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',
@@ -100,8 +102,8 @@ package DXM;
                                filter4 => '$_[0]$_[1] Filter $_[2] deleted for $_[3]',
                                filter5 => 'need some filter commands...',
                                filter6 => '$_[0]$_[1] Filter for $[2] not found',
-                               grids => 'DX Grid flag set on $_[0]',
-                               gridu => 'DX Grid flag unset on $_[0]',
+                               grids => 'DX Grid enabled for $_[0]',
+                               gridu => 'DX Grid disabled for $_[0]',
                                illcall => 'Sorry, $_[0] is an invalid callsign',
                                hasha => '$_[0] already exists in $_[1]',
                                hashb => '$_[0] added to $_[1]',
@@ -160,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]',
@@ -194,8 +197,12 @@ 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]',
+                               pc90u => 'PC90 disabled $_[0]',
                                pingo => 'Ping Started to $_[0]',
                                pingi => 'Ping Returned from $_[0] $_[1] (Ave $_[2]) secs',
                                pinge1 => 'Cannot ping yourself!',
@@ -236,9 +243,11 @@ package DXM;
                                sat5 => 'need nnnnn.AMSAT in subject to load keps from this message',
                                satnf => 'Satellite $_[0] unknown',
                                satdisc => '-----',
+                               set => '$_[0] enabled for $_[1]',
                                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',
@@ -247,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]\'',
@@ -261,24 +274,27 @@ package DXM;
                                time1 => 'Local Time: $_[0] $_[1], UTC $_[2]',
                                time2 => '$_[0] Local (standard) time: $_[1] ($_[2] Hours)',
                                time3 => '$_[0]  $_[1]',
-                               talks => 'Talk flag set on $_[0]',
-                               talku => 'Talk flag unset on $_[0]',
+                               talks => 'Talk enabled for $_[0]',
+                               talku => 'Talk disabled for $_[0]',
                                talkend => 'Finished talking to you',
                                talkinst => 'Entering Talkmode, /EX to end, /<cmd> to run a command',
                                talknh => 'Sorry $_[0] is not online at the moment',
                                talkprompt => 'Talk ($_[0])>',
                                talkstart => 'Starting talking to you',
+                               unset => '$_[0] disabled for $_[1]',
                                unsethop1 => 'usage: unset/hops <call> ann|spots|wwv|wcy',
                                unsethop2 => 'hops unset on $_[1] for $_[0]', 
                                usernf => '*** User record for $_[0] not found ***',
                                wcy1 => '$_[0] is missing or out of range',
                                wcy2 => 'Duplicate WCY',
+                wcys => 'WCY enabled for $_[0]',
+                               wcyu => 'WCY disabled for $_[0]',
                                wwv1 => '$_[0] is missing or out of range',
                                wwv2 => 'Duplicate WWV',
-                               wwvs => 'WWV flag set on $_[0]',
-                               wwvu => 'WWV flag unset on $_[0]',
-                               wxs => 'WX flag set on $_[0]',
-                               wxu => 'WX flag unset on $_[0]',
+                               wwvs => 'WWV enabled for $_[0]',
+                               wwvu => 'WWV disabled $_[0]',
+                               wxs => 'WX enabled for $_[0]',
+                               wxu => 'WX disabled for $_[0]',
                           },
                 nl => {
                                addr => 'Addres gezet op: $_[0]',
@@ -454,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',
@@ -499,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)',
@@ -565,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!',
@@ -575,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: ',
@@ -597,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',
@@ -609,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',
@@ -619,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]\'',
@@ -638,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]',
@@ -1182,3 +1220,4 @@ package DXM;
                                wxu => 'WX disabilitati per $_[0]',
                }
 );
+