From f493dbf120a0a175a7788ee51c9928377b0f4c50 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 27 Jul 2007 12:01:40 +0100
Subject: [PATCH] Added Angel's changes to Messages for Spanish
---
Changes | 2 ++
cmd/talk.pl | 1 -
perl/Messages | 10 ++++++++++
perl/Version.pm | 2 +-
4 files changed, 13 insertions(+), 2 deletions(-)
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;
--
2.43.0