- allow setting the channel language on ?join

diff --git a/docbot.pl b/docbot.pl
index a326b95c1cdcb2fae53f37252895c3b1f1b43d9d..d20c5adac0cff773f17aa1e88762e4046d105b22 100755 (executable)
--- a/docbot.pl
+++ b/docbot.pl
@@ -2261,10 +2261,15 @@ sub handle_command_join {
     $string =~ s/[\s\t]+$//gs;
 
 
-    my ($join_channel, $join_session);
+    my ($join_channel, $join_session, $join_language);
     if ($string =~ /^([^\s]+)\s+(\d+)$/) {
         $join_channel = $1;
         $join_session = $2;
+        $join_language = 'en';
+    } elsif ($string =~ /^([^\s]+)\s+(\d+)\s+([a-z]+)$/) {
+        $join_channel = $1;
+        $join_session = $2;
+        $join_language = $3;
     } else {
         my $answer = 'The "join" command requires two parameters';
         $answer = translate_text_for_channel($channel, 'error_join_command_parameter', $answer);
@@ -2299,6 +2304,12 @@ sub handle_command_join {
     $main::statistics{'command_counter_join'}++;
 
 
+    my $channel_language = config_get_key3('channels', lc($join_channel), 'language');
+    if (!defined($channel_language)) {
+        config_set_key3('channels', lc($join_channel), 'language', $join_language);
+    }
+
+
     return '';
 }