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

98_help.pm: make it Rudi-compatible

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8065 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2015-02-22 12:23:15 +00:00
parent 219f4ee510
commit ca1bf29bf3
1 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
fhem/FHEM/98_help.pm
View File

@ -1,4 +1,4 @@
# $Id: 98_help.pm 8051 2015-02-21 12:02:26Z betateilchen $ # $Id: 98_help.pm 8063 2015-02-22 10:20:03Z betateilchen $
# #
package main; package main;
use strict; use strict;
@ -77,7 +77,6 @@ sub CommandHelp {
} }
if( $cl && $cl->{TYPE} eq 'telnet' ) { if( $cl && $cl->{TYPE} eq 'telnet' ) {
$output =~ s/<br>/\n/g; $output =~ s/<br>/\n/g;
$output =~ s/<br\/>/\n/g; $output =~ s/<br\/>/\n/g;
@ -89,12 +88,14 @@ sub CommandHelp {
$output =~ s/<\/li>/\n/g; $output =~ s/<\/li>/\n/g;
$output =~ s/<code>//g; $output =~ s/<code>//g;
$output =~ s/<\/code>//g; $output =~ s/<\/code>//g;
$output =~ s/<pre>//ig;
$output =~ s/<\/pre>//ig;
$output =~ s/&lt;/</g; $output =~ s/&lt;/</g;
$output =~ s/&gt;/>/g; $output =~ s/&gt;/>/g;
$output =~ s/<[bui]>/\ /g; $output =~ s/<[bui]>//g;
$output =~ s/<\/[bui]>/\ /g; $output =~ s/<\/[bui]>//g;
$output =~ tr/ / /s; $output =~ tr/ / /s;
# $output =~ s/\n\n/\n/s; $output =~ s/\n\n\ /\n/g;
$output =~ s/&auml;/ä/g; $output =~ s/&auml;/ä/g;
$output =~ s/&Auml;/Ä/g; $output =~ s/&Auml;/Ä/g;
$output =~ s/&ouml;/ö/g; $output =~ s/&ouml;/ö/g;
@ -103,28 +104,32 @@ sub CommandHelp {
$output =~ s/&Uuml;/Ü/g; $output =~ s/&Uuml;/Ü/g;
$output =~ s/&szlig;/ß/g; $output =~ s/&szlig;/ß/g;
$ret = $output; return $output;
} }
# return "<html>$output</html>"; return "<html>$output</html>";
return $output;
} else { # mod } else { # mod
my $str = "<br/>" . my $str = "<html><pre>Possible commands:<br/><br/>" .
"Possible commands:<br/><br/>" . "Command Parameter<br/>" .
"Command Parameter Description<br/>" . " Description<br/>" .
"-----------------------------------------------<br/>"; "----------------------------------------------------------------------<br/>";
for my $cmd (sort keys %cmds) { for my $cmd (sort keys %cmds) {
next if(!$cmds{$cmd}{Hlp}); next if(!$cmds{$cmd}{Hlp});
next if($cl && $cmds{$cmd}{ClientFilter} && next if($cl && $cmds{$cmd}{ClientFilter} &&
$cl->{TYPE} !~ m/$cmds{$cmd}{ClientFilter}/); $cl->{TYPE} !~ m/$cmds{$cmd}{ClientFilter}/);
my @a = split(",", $cmds{$cmd}{Hlp}, 2); my @a = split(",", $cmds{$cmd}{Hlp}, 2);
$str .= sprintf("%-9s %-25s %s<br/>", $cmd, $a[0], $a[1]); $a[0] =~ s/</&lt;/g;
$a[0] =~ s/>/&gt;/g;
$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; return "$str</pre></html>";
} }
} }
@ -141,7 +146,7 @@ sub cref_search {
} elsif($l =~ m/^=end html$lang$/) { } elsif($l =~ m/^=end html$lang$/) {
$skip = 1; $skip = 1;
} elsif(!$skip) { } elsif(!$skip) {
$output .= $l; $output .= "$l\n";
} }
} }
return $output; return $output;