From 0f089a5b89a0a71c0be256289b1460bb0df22bff Mon Sep 17 00:00:00 2001
From: minima <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