From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 27 Jul 2007 11:01:40 +0000 (+0100)
Subject: Added Angel's changes to Messages for Spanish
X-Git-Tag: 1.55~84
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=f493dbf120a0a175a7788ee51c9928377b0f4c50;p=spider.git

Added Angel's changes to Messages for Spanish
---

diff --git a/Changes b/Changes
index e921235e..6da8bad8 100644
--- 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 15e8c124..acd2eba5 100644
--- 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 5aaeb4eb..7e811a1d 100644
--- 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 2fe6b660..cd6f7a9b 100644
--- 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;