From f493dbf120a0a175a7788ee51c9928377b0f4c50 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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, / 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 |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