projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix disconnect from peer
[spider.git]
/
cmd
/
set
/
language.pl
diff --git
a/cmd/set/language.pl
b/cmd/set/language.pl
index d28df61a5d941619cc01e6f62be1478576c484fd..5c85b303419de3a35b92f8ff0f1243f9030f3f5f 100644
(file)
--- a/
cmd/set/language.pl
+++ b/
cmd/set/language.pl
@@
-3,7
+3,7
@@
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-#
$Id$
+#
#
my ($self, $line) = @_;
#
my ($self, $line) = @_;
@@
-11,7
+11,7
@@
my $call = $self->call;
my $user;
# modify this next line if you add a language to Messages
my $user;
# modify this next line if you add a language to Messages
-my @lang = qw( en nl
sp
);
+my @lang = qw( en nl
es de it cz pt fr
);
# remove leading and trailing spaces
$line =~ s/^\s+//;
# remove leading and trailing spaces
$line =~ s/^\s+//;
@@
-22,7
+22,7
@@
$line = lc $line;
return (1, $self->msg('lange1', join(',', @lang))) unless grep $_ eq $line, @lang;
return (1, $self->msg('lange1', join(',', @lang))) unless grep $_ eq $line, @lang;
-$user = DXUser
->
get_current($call);
+$user = DXUser
::
get_current($call);
if ($user) {
$user->lang($line);
$user->put();
if ($user) {
$user->lang($line);
$user->put();