mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
146 lines
3.6 KiB
Perl
146 lines
3.6 KiB
Perl
# $Id: 98_help.pm 8032 2015-02-18 18:36:37Z betateilchen $
|
|
#
|
|
package main;
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub CommandHelp;
|
|
|
|
sub help_Initialize($$) {
|
|
my %hash = ( Fn => "CommandHelp",
|
|
Hlp => "[<moduleName>],get help (this screen or module dependent docu)" );
|
|
$cmds{help} = \%hash;
|
|
}
|
|
|
|
sub CommandHelp {
|
|
my ($cl, $arg) = @_;
|
|
|
|
my ($mod,$lang) = split(" ",$arg);
|
|
|
|
$lang //= "";
|
|
$lang = (lc($lang) eq 'de') ? '_DE' : '';
|
|
|
|
if($mod) {
|
|
$mod = lc($mod);
|
|
my %mods;
|
|
my @modDir = ("FHEM");
|
|
foreach my $modDir (@modDir) {
|
|
opendir(DH, $modDir) || die "Cant open $modDir: $!\n";
|
|
while(my $l = readdir DH) {
|
|
next if($l !~ m/^\d\d_.*\.pm$/);
|
|
my $of = $l;
|
|
$l =~ s/.pm$//;
|
|
$l =~ s/^[0-9][0-9]_//;
|
|
$mods{lc($l)} = "$modDir/$of";
|
|
}
|
|
}
|
|
|
|
return "Module $mod not found" unless defined($mods{$mod});
|
|
|
|
my $output = "";
|
|
my $skip = 1;
|
|
my ($err,@text) = FileRead({FileName => $mods{$mod}, ForceType => 'file'});
|
|
return $err if $err;
|
|
foreach my $l (@text) {
|
|
if($l =~ m/^=begin html$lang$/) {
|
|
$skip = 0;
|
|
} elsif($l =~ m/^=end html$lang$/) {
|
|
$skip = 1;
|
|
} elsif(!$skip) {
|
|
$output .= $l;
|
|
}
|
|
}
|
|
|
|
if( $cl && $cl->{TYPE} eq 'telnet' ) {
|
|
$output =~ s/<br>/\n/g;
|
|
$output =~ s/<br\/>/\n/g;
|
|
$output =~ s/<\/a>//g;
|
|
$output =~ s/<a.*>//g;
|
|
$output =~ s/<ul>/\n/g;
|
|
$output =~ s/<\/ul>/\n/g;
|
|
$output =~ s/<li>/-/g;
|
|
$output =~ s/<\/li>/\n/g;
|
|
$output =~ s/<code>//g;
|
|
$output =~ s/<\/code>//g;
|
|
$output =~ s/</</g;
|
|
$output =~ s/>/>/g;
|
|
$output =~ s/<[bui]>/\ /g;
|
|
$output =~ s/<\/[bui]>/\ /g;
|
|
$output =~ s/\ \ +/\ /g;
|
|
$output =~ s/\t+/ /g;
|
|
$output =~ s/\n\n/\n/g;
|
|
$output =~ s/ä/ä/g;
|
|
$output =~ s/Ä/Ä/g;
|
|
$output =~ s/ö/ö/g;
|
|
$output =~ s/Ö/Ö/g;
|
|
$output =~ s/ü/ü/g;
|
|
$output =~ s/Ü/Ü/g;
|
|
$output =~ s/ß/ß/g;
|
|
|
|
return $output;
|
|
}
|
|
|
|
return "<html>$output</html>";
|
|
|
|
} else {
|
|
|
|
my $str = "\n" .
|
|
"Possible commands:\n\n" .
|
|
"Command Parameter Description\n" .
|
|
"-----------------------------------------------\n";
|
|
|
|
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]);
|
|
}
|
|
|
|
return $str;
|
|
|
|
}
|
|
}
|
|
|
|
1;
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="help"></a>
|
|
<h3>?, help</h3>
|
|
<ul>
|
|
<code>? [<moduleName>] [de]</code><br/>
|
|
<code>help [<moduleName>] [de]</code><br/>
|
|
<br/>
|
|
<ul>
|
|
<li>Returns a list of available commands, when called without a
|
|
moduleName.</li>
|
|
<li>Returns a module dependent helptext, same as in commandref.</li>
|
|
<li>When called with de as last parameter, module dependent help will be shown in German.<br/>
|
|
Please be aware: Not every modules provides a German documentation.</li>
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html
|
|
|
|
=begin html_DE
|
|
|
|
<a name="help"></a>
|
|
<h3>?, help</h3>
|
|
<ul>
|
|
<code>? [<moduleName>] [de]</code><br/>
|
|
<code>help [<moduleName>] [de]</code><br/>
|
|
<br>
|
|
<ul>
|
|
<li>Liefert eine Liste aller Befehle mit einer Kurzbeschreibung zurück.</li>
|
|
<li>Falls moduleName spezifiziert ist, wird die modul-spezifische Hilfe
|
|
aus commandref zurückgeliefert.</li>
|
|
<li>Wird die modulspezifische Hilfe mit Parameter de aufgerufen, wird nach der deutschen Doku gesucht.<br/>
|
|
Eine deutsche Hilfe ist allerdings nicht in jedem Modul verfügbar!</li>
|
|
</ul>
|
|
</ul>
|
|
=end html_DE
|
|
|
|
=cut
|