From d8ac681e868dd7cdcdf51b0e700029f4f68996b3 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Mon, 30 Aug 2021 16:25:54 +0000
Subject: [PATCH] 98_help.pm: better regex handling

git-svn-id: https://svn.fhem.de/fhem/trunk@24896 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_help.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/98_help.pm b/fhem/FHEM/98_help.pm
index 85fbeddb9..4ee24896e 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 = '';
     
-    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';
     }