diff --git a/fhem/FHEM/98_help.pm b/fhem/FHEM/98_help.pm index ce28958a6..87fe3d2cd 100644 --- a/fhem/FHEM/98_help.pm +++ b/fhem/FHEM/98_help.pm @@ -1,4 +1,4 @@ -# $Id$ +# $Id: 98_help.pm 8032 2015-02-18 18:36:37Z betateilchen $ # package main; use strict; @@ -13,8 +13,13 @@ sub help_Initialize($$) { } sub CommandHelp { - my ($cl, $mod) = @_; + my ($cl, $arg) = @_; + my ($mod,$lang) = split(" ",$arg); + + $lang //= ""; + $lang = (lc($lang) eq 'de') ? '_DE' : ''; + if($mod) { $mod = lc($mod); my %mods; @@ -37,9 +42,9 @@ sub CommandHelp { my ($err,@text) = FileRead({FileName => $mods{$mod}, ForceType => 'file'}); return $err if $err; foreach my $l (@text) { - if($l =~ m/^=begin html$/) { + if($l =~ m/^=begin html$lang$/) { $skip = 0; - } elsif($l =~ m/^=end html$/) { + } elsif($l =~ m/^=end html$lang$/) { $skip = 1; } elsif(!$skip) { $output .= $l; @@ -97,13 +102,15 @@ sub CommandHelp {

?, help

@@ -114,12 +121,16 @@ sub CommandHelp {

?, help

=end html_DE