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

diff --git a/Changes b/Changes
index 155e5d04e7b88cf29fa05e33e1a811c50e64969f..9d920552a6bbb4c4e015587b090f6d47f7c3f95c 100644 (file)
--- 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 7b9e20d47cb1688f3c515cb0d44540c8e8393464..e8ee5c55d96ddd04b5e8fd9dbc23f7c49afcf315 100644 (file)
--- 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 2dfbba8024a239182b65a63e43344d1aa236147a..7693f55e40d295c9765d30f535ede2b06c7babe8 100644 (file)
--- 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!',\r
                                pingint => 'Ping-Intervall zu $_[0] gesetzt auf $_[1] Sekunden',\r
                                'pos' => 'Von Rufzeichen: $_[0] Breite: $_[1] Laenge: $_[2]',\r
-                               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]',