diff --git a/fhem/FHEM/98_help.pm b/fhem/FHEM/98_help.pm
index 92bbabac6..50167f16c 100644
--- a/fhem/FHEM/98_help.pm
+++ b/fhem/FHEM/98_help.pm
@@ -1,4 +1,4 @@
-# $Id: 98_help.pm 8032 2015-02-18 18:36:37Z betateilchen $
+# $Id: 98_help.pm 8051 2015-02-21 12:02:26Z betateilchen $
#
package main;
use strict;
@@ -81,8 +81,8 @@ sub CommandHelp {
if( $cl && $cl->{TYPE} eq 'telnet' ) {
$output =~ s/
/\n/g;
$output =~ s//\n/g;
- $output =~ s/<\/a>//g;
- $output =~ s///g;
+ $output =~ s///g;
+ $output =~ s///g;
$output =~ s//\n/g;
$output =~ s/<\/ul>/\n/g;
$output =~ s/- /-/g;
@@ -94,7 +94,7 @@ sub CommandHelp {
$output =~ s/<[bui]>/\ /g;
$output =~ s/<\/[bui]>/\ /g;
$output =~ tr/ / /s;
- $output =~ s/\n\n/\n/s;
+# $output =~ s/\n\n/\n/s;
$output =~ s/ä/ä/g;
$output =~ s/Ä/Ä/g;
$output =~ s/ö/ö/g;
@@ -106,21 +106,22 @@ sub CommandHelp {
$ret = $output;
}
- return "$output";
+# return "$output";
+ return $output;
} else { # mod
- my $str = "\n" .
- "Possible commands:\n\n" .
- "Command Parameter Description\n" .
- "-----------------------------------------------\n";
+ my $str = "
" .
+ "Possible commands:
" .
+ "Command Parameter Description
" .
+ "-----------------------------------------------
";
for my $cmd (sort keys %cmds) {
next if(!$cmds{$cmd}{Hlp});
next if($cl && $cmds{$cmd}{ClientFilter} &&
$cl->{TYPE} !~ m/$cmds{$cmd}{ClientFilter}/);
my @a = split(",", $cmds{$cmd}{Hlp}, 2);
- $str .= sprintf("%-9s %-25s %s\n", $cmd, $a[0], $a[1]);
+ $str .= sprintf("%-9s %-25s %s
", $cmd, $a[0], $a[1]);
}
return $str;