From 2168f2d9e40fa2bd7828a395043db51057ed0d32 Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 6 Nov 2015 19:16:22 +0000
Subject: [PATCH] 98_help.pm: change links to commandref, forum #43552

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

diff --git a/fhem/FHEM/98_help.pm b/fhem/FHEM/98_help.pm
index f73461289..184771387 100644
--- a/fhem/FHEM/98_help.pm
+++ b/fhem/FHEM/98_help.pm
@@ -85,6 +85,18 @@ sub CommandHelp {
 
 	}
 
+    my $url_prefix;
+    
+    if(AttrVal('global','exclude_from_update','') =~ m/commandref/) {
+       $url_prefix = "http://fhem.de/commandref$lang.html";
+    } else {
+       $url_prefix = "$FW_ME/docs/commandref$lang.html";
+    }
+    
+    # replace <a href="#..."> tags with a
+    # working real link to commandref
+    $output =~ s,<a\s+href="#,<a target="_blank" href="$url_prefix#,g;
+    
     if( $cl  && $cl->{TYPE} eq 'telnet' ) {
     $output =~ s/<br>/\n/g;
     $output =~ s/<br\/>/\n/g;
@@ -94,8 +106,9 @@ sub CommandHelp {
     $output =~ s/<\/t.>//g;
     $output =~ s/<h.>//g;
     $output =~ s/<\/h.>//g;
-    $output =~ s/<a href.*\/a>//g;
-    $output =~ s/<a name.*\/a>//g;
+    $output =~ s/<a\s+href.*?>//g;
+    $output =~ s/<a name.*?\/a>//g;
+    $output =~ s/<a\s+target.*?>//g;
     $output =~ s/<ul>/\n/g;
     $output =~ s/<\/ul>/\n/g;
     $output =~ s/<li>/-/g;
@@ -107,7 +120,7 @@ sub CommandHelp {
     $output =~ s/&lt;/</g;
     $output =~ s/&gt;/>/g;
     $output =~ s/<[bui]>//g;
-    $output =~ s/<\/[bui]>//g;
+    $output =~ s/<\/[buia]>//g;
     $output =~ tr/ / /s;
     $output =~ s/\n\n\ /\n/g;
     $output =~ s/&auml;/ä/g;