]> gb7djk.dxcluster.net Git - spider.git/blob - cmd/set/language.pl
fix console.pl max scroll depth
[spider.git] / cmd / set / language.pl
1 #
2 # set the user's language
3 #
4 # Copyright (c) 1998 - Dirk Koopman G1TLH
5 #
6 #
7 #
8
9 my ($self, $line) = @_;
10 my $call = $self->call;
11 my $user;
12
13 # modify this next line if you add a language to Messages
14 my @lang = qw( en nl es de it cz pt fr );
15
16 # remove leading and trailing spaces
17 $line =~ s/^\s+//;
18 $line =~ s/\s+$//;
19
20 return (1, $self->msg('lange1', join(',', @lang))) if !$line;
21 $line = lc $line;
22 return (1, $self->msg('lange1', join(',', @lang))) unless grep $_ eq $line, @lang;
23
24
25 $user = DXUser::get_current($call);
26 if ($user) {
27         $user->lang($line);
28         $user->put();
29         $self->lang($line);
30         return (1, $self->msg('lang', $line));
31 } else {
32         return (1, $self->msg('lange2', $call));
33 }
34