From 0f089a5b89a0a71c0be256289b1460bb0df22bff Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 13 Jan 2005 23:20:39 +0000 Subject: [PATCH] 1. Fixed prompting in languages other than English. 2. Fixed language problem with spoof, but that simply hides a whole can of worms that I shall have to address later. 1 --- Changes | 4 ++++ cmd/spoof.pl | 2 ++ perl/Messages | 12 ------------ 3 files changed, 6 insertions(+), 12 deletions(-) diff --git a/Changes b/Changes index 155e5d04..9d920552 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,7 @@ +13Jan05======================================================================= +1. Fixed prompting in languages other than English. +2. Fixed language problem with spoof, but that simply hides a whole can of +worms that I shall have to address later. 12Jan05======================================================================= 1. Add $main::bumpexisting variable which allows a new connection for a user call to disconnect an existing connection with the same call. The default for diff --git a/cmd/spoof.pl b/cmd/spoof.pl index 7b9e20d4..e8ee5c55 100644 --- a/cmd/spoof.pl +++ b/cmd/spoof.pl @@ -10,6 +10,7 @@ my ($self, $line) = @_; my $mycall = $self->call; my $myuser = $self->user; +my $mylang = $self->lang; my ($call, $newline) = split /\s+/, $line, 2; return (1, $self->msg('nodee1', $call)) if DXChannel->get($call); @@ -39,5 +40,6 @@ my @in = $self->run_cmd($newline); push @out, map {"spoof $call: $_"} @in; $self->call($mycall); $self->user($myuser); +$self->lang($mylang); return (1, @out); diff --git a/perl/Messages b/perl/Messages index 2dfbba80..7693f55e 100644 --- a/perl/Messages +++ b/perl/Messages @@ -406,8 +406,6 @@ package DXM; password => 'Wachtwoord gezet of gewijzigd voor $_[0]', pingo => 'Ping gestart naar $_[0]', pingi => 'Ping ontvangen van $_[0] $_[1] (Ave $_[2]) secs', - pr => '$_[0] de $main::mycall $_[1] $_[2] >', - pr2 => '($_[0]) de $main::mycall $_[1] $[2] >', priv => 'Privilege level gewijzigd op $_[0]', prx => '$main::mycall >', qll => 'Geef uw locator met set/location of set/qra', @@ -648,8 +646,6 @@ package DXM; pinge1 => 'Vous ne pouvez pas vous pinger vous-même !', pingint => 'Intervalle de ping vers $_[0] fixé à $_[1] secondes', 'pos' => 'Indicatif source : latitude $_[0] : longitude $_[1] : $_[2]', - pr => '$_[0] de $main::mycall $_[1] $_[2] >', - pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >', prs => 'Prompt défini comme étant \"$_[0]\"', pru => 'Prompt remis à sa valeur par défaut', priv => 'Niveau de privilège changé en $_[0]', @@ -948,8 +944,6 @@ package DXM; pinge1 => 'No puedes enviarte un ping a ti mismo!', pingint => 'Intervalo de ping para $_[0] ajustado a $_[1] segundos', 'pos' => 'Desde el indicativo: $_[0] Lat: $_[1] Long: $_[2]', - pr => '$_[0] de $main::mycall $_[1] $_[2] >', - pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >', prs => 'El Prompt ha sido cambiado a \"$_[0]\"', pru => 'El Prompt vuelve a ser el normal por defecto', priv => 'Nivel de privilegios modificado para $_[0]', @@ -1238,8 +1232,6 @@ package DXM; pinge1 => 'Du kannst Dich nicht selber pingen!', pingint => 'Ping-Intervall zu $_[0] gesetzt auf $_[1] Sekunden', 'pos' => 'Von Rufzeichen: $_[0] Breite: $_[1] Laenge: $_[2]', - pr => '$_[0] de $main::mycall $_[1] $_[2] >', - pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >', prs => 'Prompt gesetzt auf \"$_[0]\"', pru => 'Prompt jetzt zurueckgesetzt auf Default-Einstellung', priv => 'Priviligierten Level geaendert auf $_[0]', @@ -1508,8 +1500,6 @@ package DXM; pinge1 => 'Non puoi far un ping su te stesso!', pingint => 'Intervallo di ping per $_[0] impostato a $_[1] secondi', 'pos' => 'Dal nominativo: $_[0] Lat: $_[1] Long: $_[2]', - pr => '$_[0] de $main::mycall $_[1] $_[2] >', - pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >', priv => 'Privilegi cambiati per $_[0]', prs => 'Prompt impostato a \"$_[0]\"', pru => 'Prompt reimpostato al predefinito', @@ -2088,8 +2078,6 @@ package DXM; pinge1 => 'No pode fazer ping para si prprio!', pingint => 'Intervalo de Ping em $_[0] definido para $_[1] segundos', 'pos' => 'Do indicativo: $_[0] Lat: $_[1] Long: $_[2]', - pr => '$_[0] de $main::mycall $_[1] $_[2] >', - pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >', prs => 'Prompt agora definida para \"$_[0]\"', pru => 'Prompt agora regressou para a default', priv => 'Nivel de privilgio alterado em $_[0]', -- 2.43.0