diff --git a/fhem/FHEM/98_help.pm b/fhem/FHEM/98_help.pm index 59cceac5e..659a40a5b 100644 --- a/fhem/FHEM/98_help.pm +++ b/fhem/FHEM/98_help.pm @@ -1,4 +1,4 @@ -# $Id: 98_help.pm 8063 2015-02-22 10:20:03Z betateilchen $ +# $Id$ # package main; use strict; @@ -84,6 +84,12 @@ sub CommandHelp { if( $cl && $cl->{TYPE} eq 'telnet' ) { $output =~ s/
/\n/g; $output =~ s//\n/g; + $output =~ s///g; + $output =~ s/<\/table>//g; + $output =~ s///g; + $output =~ s/<\/t.>//g; + $output =~ s///g; + $output =~ s/<\/h.>//g; $output =~ s///g; $output =~ s///g; $output =~ s/
    /\n/g; @@ -127,8 +133,8 @@ sub CommandHelp { next if($cl && $cmds{$cmd}{ClientFilter} && $cl->{TYPE} !~ m/$cmds{$cmd}{ClientFilter}/); my @a = split(",", $cmds{$cmd}{Hlp}, 2); - $a[0] =~ s//>/g; + # $a[0] =~ s//>/g; $a[1] //= ""; $a[1] = " $a[1]"; $a[1] =~ s/
    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);
-#       $a[0] =~ s//>/g;
-#       $a[1] //= "";
-#       $a[1]  = "               $a[1]";
-#       $a[1] =~ s//>/g;
-#       $str .= sprintf("%-15s%-50s
    %s
    ", $cmd, $a[0], $a[1]);
-#     }
-# 
-#     return "$str
    "; - } }