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

98_help.pm: better regex handling

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24896 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2021-08-30 16:25:54 +00:00
parent 4d99159afa
commit d8ac681e86
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/FHEM/98_help.pm
View File

@ -39,7 +39,7 @@ sub CommandHelp {
my $modPath = AttrVal('global','modpath','.');
my $output = '';
my $outputInfo = cref_findInfo($modPath,$mod);
my $outputInfo = cref_findInfo($modPath,$mod,$cl);
if($cmds{help}{InternalCmds} !~ m/(^|\,)$mod\,/) {
my %mods;
@ -260,7 +260,7 @@ sub cref_fill_list(){
}
sub cref_findInfo {
my ($modPath,$mod) = @_;
my ($modPath,$mod,$cl) = @_;
my ($l,@line,$found,$text);
my ($err,@text) = FileRead({FileName => "$modPath/MAINTAINER.txt", ForceType => 'file'});
foreach my $l (@text) {
@ -272,7 +272,7 @@ sub cref_findInfo {
if($found) {
$line[0]= (split("/",$line[0]))[1] if $line[0] =~ /\//;
if (defined($line[2])) {
$line[2] =~ s/\s*http.*//i;
$line[2] =~ s/\s*http.*/(link removed for security reasons)/i if ($cl->{TYPE} eq 'FHEMWEB');
} else {
$line[2] = 'no info';
}