Added Angel's changes to Messages for Spanish

diff --git a/Changes b/Changes
index e921235e79b872857fa87950193823c8277215a2..6da8bad89c0c67163a80dc7979f125a5c47e5218 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+27Jul07=======================================================================
+1. Added Angel's changes to Messages for Spanish (finally).
 25Jul07=======================================================================
 1. don't clear out routing tables on shutdown. This should speed that up.
 24Jul07=======================================================================

diff --git a/cmd/talk.pl b/cmd/talk.pl
index 15e8c124b66019113f099932fa7ea37b506d2abf..acd2eba54f84e6a70a73a826a18924b78532c70e 100644 (file)
--- a/cmd/talk.pl
+++ b/cmd/talk.pl
@@ -32,7 +32,6 @@ return (1, $self->msg('e8')) unless $to;
 
 $to = uc $to;
 
-return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript;
 return (1, $self->msg('e22', $to)) unless is_callsign($to);
 return (1, $self->msg('e28')) unless $self->registered || $to eq $main::myalias;
 

diff --git a/perl/Messages b/perl/Messages
index 5aaeb4eb39460cf23c3bb8a1833eb309a97dd6df..7e811a1d73223421f7f11671bb4f99a359406dcf 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -780,11 +780,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]',
@@ -868,6 +873,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]',
@@ -912,7 +919,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',
@@ -1068,6 +1077,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',

diff --git a/perl/Version.pm b/perl/Version.pm
index 2fe6b660378852a980a49eecfc777eb4e0c58b93..cd6f7a9b31b7d0dec364e99b83e07af11bd4d6c0 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '130';
+$build = '131';
 
 1;