1. Fixed prompting in languages other than English.

[spider.git] / cmd / spoof.pl

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);