diff --git a/fhem/FHEM/98_help.pm b/fhem/FHEM/98_help.pm index 5bbeb976d..c6e38fd61 100644 --- a/fhem/FHEM/98_help.pm +++ b/fhem/FHEM/98_help.pm @@ -39,7 +39,7 @@ sub CommandHelp { my $modPath = AttrVal('global','modpath','.'); my $output = ''; - $output .= cref_findInfo($modPath,$mod); + my $outputInfo = cref_findInfo($modPath,$mod); if($cmds{help}{InternalCmds} !~ m/$mod\,/) { my %mods; @@ -61,14 +61,15 @@ sub CommandHelp { return "Module $mod not found" unless defined($mods{$mod}); # read commandref docu from file - $output .= cref_search($mods{$mod},$lang); + $output = cref_search($mods{$mod},$lang); unless($output) { - $output .= cref_search($mods{$mod},""); - $output = "Keine deutsche Hilfe gefunden!
$output" if $output; + $output = cref_search($mods{$mod},""); + $output = "

Keine deutsche Hilfe gefunden!
$output" if $output; } $output = "No help found for module: $mod" unless $output; + $output = $outputInfo.$output; } else { $output = "
Internal command: $mod"; @@ -258,7 +259,7 @@ sub cref_findInfo { last if $l =~ m/$mod/i; } $line[0]= (split("/",$line[0]))[1] if $line[0] =~ /\//; - $line[2]= "no info" if $line[2] =~ /forum\.fhem\.de/; + $line[2]= "no info" if $line[2] =~ /http/; my $text = "
Module: $line[0] "; $text .= "Maintainer: $line[1] "; $text .= "Forum: $line[2]\n";