FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-18 12:06: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 {
my ($modPath,$mod) = @_;
my ($l,@line);
my ($l,@line,$found,$text);
my ($err,@text) = FileRead({FileName => "$modPath/MAINTAINER.txt", ForceType => 'file'});
foreach $l (@text) {
@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[2]= "no info" if $line[2] =~ /http/;
my $text = "<br/><b>Module:</b> $line[0] ";
$text .= "<b>Maintainer:</b> $line[1] ";
$text .= "<b>Forum:</b> $line[2]\n";
$line[2]= "no info" if ($line[2] =~ /http/ || !defined($line[2]));
$text = "<br/><b>Module:</b> $line[0] ";
$text .= "<b>Maintainer:</b> $line[1] ";
$text .= "<b>Forum:</b> $line[2]\n";
}
$text //= '';
return $text;
}