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

98_help.pm: remove more html tags

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8133 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2015-03-02 14:31:53 +00:00
parent fb59a99da6
commit 99086ee987
1 changed files with 9 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
fhem/FHEM/98_help.pm
View File

@ -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/<br>/\n/g;
$output =~ s/<br\/>/\n/g;
$output =~ s/<table>//g;
$output =~ s/<\/table>//g;
$output =~ s/<t.>//g;
$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/<ul>/\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/</&lt;/g;
$a[0] =~ s/>/&gt;/g;
# $a[0] =~ s/</&lt;/g;
# $a[0] =~ s/>/&gt;/g;
$a[1] //= "";
$a[1] = " $a[1]";
$a[1] =~ s/</&lt;/g;
@ -138,27 +144,6 @@ sub CommandHelp {
return $str;
# my $str = "<html><pre>Possible commands:<br/><br/>" .
# "Command Parameter<br/>" .
# " Description<br/>" .
# "----------------------------------------------------------------------<br/>";
#
# 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/</&lt;/g;
# $a[0] =~ s/>/&gt;/g;
# $a[1] //= "";
# $a[1] = " $a[1]";
# $a[1] =~ s/</&lt;/g;
# $a[1] =~ s/>/&gt;/g;
# $str .= sprintf("%-15s%-50s<br/>%s<br/>", $cmd, $a[0], $a[1]);
# }
#
# return "$str</pre></html>";
}
}