FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-19 06:36:04 +00:00
Code Issues Releases Wiki Activity

98_help.pm: minor bugfix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@15143 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2017-09-27 06:37:32 +00:00
parent 27a2e80f54
commit d6b9d4a621
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem/FHEM/98_help.pm
View File

@ -252,17 +252,20 @@ sub cref_fill_list(){
sub cref_findInfo { sub cref_findInfo {
my ($modPath,$mod) = @_; my ($modPath,$mod) = @_;
my ($l,@line); my ($l,@line,$found,$text);
my ($err,@text) = FileRead({FileName => "$modPath/MAINTAINER.txt", ForceType => 'file'}); my ($err,@text) = FileRead({FileName => "$modPath/MAINTAINER.txt", ForceType => 'file'});
foreach $l (@text) { foreach $l (@text) {
@line = split("[ \t][ \t]*", $l,3); @line = split("[ \t][ \t]*", $l,3);
last if $l =~ m/$mod/i; $found = ($l =~ m/_$mod/i);
last if ($found);
} }
if($found) {
$line[0]= (split("/",$line[0]))[1] if $line[0] =~ /\//; $line[0]= (split("/",$line[0]))[1] if $line[0] =~ /\//;
$line[2]= "no info" if $line[2] =~ /http/; $line[2]= "no info" if ($line[2] =~ /http/ || !defined($line[2]));
my $text = "<br/><b>Module:</b> $line[0] "; $text = "<br/><b>Module:</b> $line[0] ";
$text .= "<b>Maintainer:</b> $line[1] "; $text .= "<b>Maintainer:</b> $line[1] ";
$text .= "<b>Forum:</b> $line[2]\n"; $text .= "<b>Forum:</b> $line[2]\n";
}
$text //= ''; $text //= '';
return $text; return $text;
} }