put dx.pl into an explicit handle sub
[spider.git] / perl / Messages
index 4c321d5579df8dc9e910bb3eb63960014f376281..8d64f7967e38abf32aac49cb97d57ca93ae60a9b 100644 (file)
@@ -3,7 +3,6 @@
 # this file contains the system messages. Don't forget to reload them
 # if you change them (load/messages)
 #
-# $Id$
 #
 
 package DXM;
@@ -11,7 +10,9 @@ package DXM;
 %msgs = (
                 en => {
                                addr => 'Address set to: $_[0]',
-                               already => '$_[0] already connected',
+                               agwe => 'AGW Engine enabled',
+                               agwu => 'AGW Engine disabled',
+                               already => '$_[0] already connected',
                                anns => 'Announces enabled for $_[0]',
                                annu => 'Announces disabled for $_[0]',
                                annts => 'AnnTalk enabled for $_[0]',
@@ -29,12 +30,18 @@ package DXM;
                                buddya => '$_[0] has been added to your buddies',
                                buddyu => '$_[0] has been removed from your buddies',
                                call1 => 'Callsign lookup via $_[0]:',
+                               chatend => 'Finished chatting on $_[0]',
+                               chatinst => 'Entering Chatmode on $_[0], /EX to end, /<cmd> to run a command',
+                               chatprompt => 'Chat ($_[0])>',
+                               chattoomany => 'Not allowed, already in $_[1], use /chat $_[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])',
+                               contomany => 'Sorry $_[0] but you are already connected to $_[1] other nodes (on $_[2])',
                                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',
+                               creuser => 'User $_[0] has been created',
                                deluser => 'User $_[0] has been deleted',
                                db1 => 'This database is hosted at $_[0]',
                                db2 => 'Sorry, but key: $_[0] was not found in $_[1]',
@@ -45,9 +52,10 @@ package DXM;
                                db7 => 'Database $_[0] created for remote node $_[1]',
                                db8 => 'Database $_[0] created locally',
                                db9 => 'Database $_[0] removed',
-                               db10 => '$_[0] records imported into $_[1]',
+                               db10 => '$_[0] records imported from $_[1] to $_[2]',
                                db11 => 'Sending your request(s) to $_[0], please stand by...',
                                db12 => 'DB Name          Location   Cmd             Chain',
+                               db13 => '$_[0] records exported from $_[1] to $_[2]',
                                dfreq1 => 'Invalid freq $_[0] need: eg 0/30000 or hf or hf/cw', 
                                dir1 => 'No messages found',
                                disc1 => 'Disconnected by $_[0]',
@@ -75,19 +83,19 @@ package DXM;
                                e8 => 'Need a callsign and some text',
                                e9 => 'Need at least some text',
                                e10 => '$_[0] not connected locally',
-                               e11 => 'Can\'t use $main:mycall as target',
+                               e11 => 'Can\'t use $_[0] as target',
                                e12 => 'Need a node callsign',
                                e13 => '$_[0] is not a node',
                                e14 => 'First argument must be numeric and > 0',
                                e15 => 'invalid qualifier \"$_[0]\"',
                                e16 => 'File \"$_[0]\" exists',
-                               e17 => 'Please don\'t use the words: @_ on here', 
+                               e17 => 'Please don\'t use the words: @_ on here',
                                e18 => 'Cannot connect to $_[0] ($!)',
                                e19 => 'Invalid character in line',
                                e20 => 'token $_[0] not recognised',
-                               e21 => '$_[0] not numeric',
-                               e22 => '$_[0] not a callsign',
-                               e23 => '$_[0] not a range (eg 0/30000)', 
+                               e21 => '$_[0] is not numeric',
+                               e22 => '$_[0] is not a callsign',
+                               e23 => '$_[0] is not a range (eg 0/30000)',
                                e24 => 'Sorry, Internet access is not enabled',
                                e25 => 'Sorry the value must be between $_[0] and $_[1]',
                                e26 => 'Too many concurrent errors, you are being disconnected',
@@ -101,6 +109,8 @@ package DXM;
                                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',
+                               e37 => 'Need at least a callsign',
+                               e38 => 'This is not a valid regex',
 
                                echoon => 'Echoing enabled',
                                echooff => 'Echoing disabled',
@@ -150,7 +160,7 @@ package DXM;
                                isow => '$_[0] is isolated; unset/isolate $_[0] first',
                                join => 'joining group $_[0]',
                                l1 => 'Sorry $_[0], you are already logged on on another channel',
-                               l2 => 'Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::subversion.$main::build',
+                               l2 => 'Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
                                lang => 'Language is now English',
                                lange1 => 'set/language <lang> where <lang> is one of ($_[0])',
                                lange2 => 'failed to set language on $_[0]', 
@@ -197,6 +207,8 @@ package DXM;
                                m18 => 'Sorry, message $_[0] is currently set to KEEP',
                                m19 => 'Startup Script for $_[0] saved, $_[1] lines',
                                m20 => 'Empty Startup Script for $_[0] deleted',
+                               m21 => '$_[0] Working...',
+                               maxconnect => 'Max connections on $_[0] set to $_[1]',
                                msg1 => 'Bulletin Messages Queued',
                                msg2 => 'Private Messages Queued',
                                msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]',
@@ -335,8 +347,8 @@ package DXM;
                                wpc16u => 'Allow PC16 from $_[0] disabled',
                                wpc19s => 'Route PC19 for $_[0] enabled',
                                wpc19u => 'Route PC19 for $_[0] disabled',
-                               wpc90s => 'PC90 for $_[0] enabled',
-                               wpc90u => 'PC90 for $_[0] disabled',
+                               wpc9xs => 'PC9X for $_[0] enabled',
+                               wpc9xu => 'PC9X for $_[0] disabled',
                                wwv1 => '$_[0] is missing or out of range',
                                wwv2 => 'Duplicate WWV',
                                wwv3 => 'Date        Hour   SFI   A   K Forecast                               Logger',
@@ -573,7 +585,7 @@ package DXM;
                                isow => '$_[0] est isolé; utilisez d\'abord unset/isolate $_[0]',
                                join => 'Affiliation au groupe $_[0]',
                                l1 => 'Désolé $_[0], vous êtes déjà connecté sur un autre canal',
-                               l2 => 'Bonjour $_[0], bienvenue sur $main::mycall à $main::myqth\nServeur DXSpider V$main::version ($main::subversion.$main::build)',
+                               l2 => 'Bonjour $_[0], bienvenue sur $main::mycall à $main::myqth\nServeur DXSpider V$main::version ($main::build)',
                                lang => 'Je parle maintenant français',
                                lange1 => 'Syntaxe : set/language <langue>, où <langue> est à choisir parmi ($_[0])',
                                lange2 => 'Impossible de fixer la langue à $_[0]', 
@@ -776,11 +788,16 @@ package DXM;
                                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]:',
+                               chatend => 'Finalizado el modo chat en el canal $_[0]',
+                               chatinst => 'Entrando en modo Chat en el canal $_[0], /EX para salir, /<cmd> para ejecutar un comando',
+                               chatprompt => 'Chat ($_[0])>',
+                               chattoomany => 'Operación no permitida, actualmente estas en el canal $_[1], usa /chat $_[0]',
                                conother => 'Lo siento $_[0] ya estás conectado en otro puerto',
                                concluster => 'Lo siento $_[0] ya estás conectado en otro cluster',
                                conscript => 'No hay ningún script que se llame \"$_[0]\" en $main::root/connect',
                                confail => 'La conexión con $_[0] ha fallado ($_[1])',
                                constart => 'Se inicia la conexión a $_[0]',
+                               conbump => 'Reconectado como $_[0] en $_[1], Esta sesión termina y se te desconecta',
                                deluser =>'El usuario $_[0] ha sido borrado de la base de datos',
                                db1 => 'Esta base de datos está en $_[0]',
                                db2 => 'Lo siento, pero no se encontró $_[0] en $_[1]',
@@ -864,6 +881,8 @@ package DXM;
                                filter6 => '$_[0]$_[1] Filtro para $[2] no encontrado',
                                grids => 'Activada recepción de locators en spot (DX Grid) para $_[0]',
                                gridu => 'Desactivada recepción de locators en spot (DX Grid) para $_[0]',
+                               gtks => 'Terminal GTK activado para $_[0]',
+                               gtku => 'Terminal GTK desactivado para $_[0]',
                                illcall => 'Lo siento, $_[0] no es un indicativo válido',
                                hasha => '$_[0] ya existe en $_[1]',
                                hashb => '$_[0] añadido a $_[1]',
@@ -908,7 +927,9 @@ package DXM;
                                lockoutun => '$_[0] Autorizado para conectar',
                                lockoutuse => 'Uso: sh/lockout <indicativo|prefijo>|ALL',
                                loginb => 'El colega $_[0] ha conectado',
+                               loginbn => 'El colega $_[0] ha conectado en $_[1]',
                                logoutb => 'El colega $_[0] se ha desconectado',
+                               logoutbn => 'El colega $_[0] se ha desconectado de $_[1]',
                                loginu => '$_[0] conecta',
                                logoutu => '$_[0] se desconecta',
                                loginn => '$_[0] conecta',
@@ -1064,6 +1085,7 @@ package DXM;
                                usernf => '*** Registro de usuario $_[0] no encontrado ***',
                                wcy1 => '$_[0] falta o está fuera de rango',
                                wcy2 => 'WCY Duplicado',
+                               wcy3 => 'Fecha       Hora   SFI   A   K Exp.K   R SA    GMF   Aurora   Logger',
                                wcys => 'Activada recepción de anuncios WCY para $_[0]',
                                wcyu => 'Desactivada recepción de anuncios WWV para $_[0]',
                                wpc16s => 'Admitir PC16 de $_[0] activado',
@@ -1207,7 +1229,7 @@ package DXM;
                                isow => '$_[0] ist isoliert; unset/isolate $_[0] zuerst',
                                join => 'Trete Gespraechsgruppe $_[0] bei',
                                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::subversion.$main::build',
+                               l2 => 'Moin $_[0], hier ist $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
                                lang => 'Sprache ist jetzt Deutsch',
                                lange1 => 'set/language <lang> wobei <lang> ist eine von ($_[0])',
                                lange2 => 'Fehler beim Setzen der Sprache auf $_[0]',
@@ -1475,7 +1497,7 @@ package DXM;
                                isoaro => 'c\'e\' una filtro sulla rotta in uscita per $_[0]; eliminala con clear/route $_[0] prima',
                                isow => '$_[0] e\' isolato; unset/isolate $_[0] prima',
                                l1 => 'Spiacente $_[0], sei già collegato sun un altro canale',
-                               l2 => 'Benvenuto $_[0] sul Cluster $main::mycall a $main::myqth\nsoftware in uso DXSpider V$main::version build $main::subversion.$main::build',
+                               l2 => 'Benvenuto $_[0] sul Cluster $main::mycall a $main::myqth\nsoftware in uso DXSpider V$main::version build $main::build',
                                lang => 'La lingua selezionata e\' adesso Italiano',
                                lange1 => 'set/language <lingua> dove <lingua> e\' una tra ($_[0])',
                                lange2 => 'impostazione lingua fallita per $_[0]', 
@@ -1752,7 +1774,7 @@ package DXM;
                                isoaro => 'vystupni route filtr pro $_[0] uz existuje; zadej nejprve clear/route $_[0]',
                                isow => '$_[0] je izolovan; zadej nejprve unset/isolate $_[0]',
                                l1 => 'Lituji $_[0], uz jsi zalogovan na jinem kanalu',
-                               l2 => 'Ahoj $_[0], toto je $main::mycall, $main::myqth\npouzivajici DXSpider V$main::version build $main::subversion.$main::build',
+                               l2 => 'Ahoj $_[0], toto je $main::mycall, $main::myqth\npouzivajici DXSpider V$main::version build $main::build',
                                lang => 'Jazyk je nyni nastaven na Cestinu (napoveda zatim v procesu)',
                                lange1 => 'set/language <lang> kde <lang> je jedno z ($_[0])',
                                lange2 => 'selhalo nastaveni jazyka na $_[0]', 
@@ -2047,7 +2069,7 @@ package DXM;
                                isow => '$_[0] est isolado; unset/isolate $_[0] primeiro',
                                join => 'a juntar ao grupo $_[0]',
                                l1 => 'Desculpe $_[0], voc est ligado noutro canal',
-                               l2 => 'Ol $_[0], isto  $main::mycall em $main::myqth\nrunning DXSpider V$main::version build $main::subversion.$main::build',
+                               l2 => 'Ol $_[0], isto  $main::mycall em $main::myqth\nrunning DXSpider V$main::version build $main::build',
                                lang => 'Linguagem  agora o Portugus',
                                lange1 => 'set/language <ling> aonde <ling>  uma de ($_[0])',
                                lange2 => 'falha ao definir uma lngua em $_[0]',