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

98_help.pm: minor changes for case sensitive problems

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14847 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2017-08-04 13:52:39 +00:00
parent 60c2b197dc
commit 1e0539baaf
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fhem/FHEM/98_help.pm
View File

@ -8,6 +8,7 @@ use warnings;
my $ret;
sub CommandHelp;
sub cref_internals;
sub cref_search;
sub cref_search_cmd;
sub cref_fill_list;
@ -15,7 +16,7 @@ sub cref_fill_list;
sub help_Initialize($$) {
my %hash = ( Fn => "CommandHelp",
Hlp => "[<moduleName>],get help (this screen or module dependent docu)",
InternalCmds => "attributes,command,commands,devspec,global,perl" );
InternalCmds => cref_internals() );
$cmds{help} = \%hash;
cref_fill_list();
}
@ -29,11 +30,9 @@ sub CommandHelp {
$lang = (lc($lang) eq 'de') ? '_DE' : '';
if($mod) {
$mod = "help" if($mod eq "?");
$mod = $defs{$mod}->{TYPE} if( defined($defs{$mod}) && $defs{$mod}->{TYPE} );
my $internals = "attributes,command,commands,devspec,global,perl";
$mod = lc($mod);
my $modPath = AttrVal('global','modpath','.');
my $output = '';
@ -42,7 +41,7 @@ sub CommandHelp {
my %mods;
my @modDir = ("$modPath/FHEM");
$mod = $cmds{$mod}{ModuleName} if defined($cmds{$mod}{ModuleName});
$mod = $cmds{$mod}{ModuleName} if defined($cmds{$mod}) && defined($cmds{$mod}{ModuleName});
foreach my $modDir (@modDir) {
eval { opendir(DH, $modDir); }; # || die "Cant open $modDir: $!\n";
@ -68,7 +67,6 @@ sub CommandHelp {
$output = "No help found for module: $mod" unless $output;
} else {
$output = '';
my $i;
my $f = "$modPath/docs/commandref_frame$lang.html";
@ -155,6 +153,19 @@ sub CommandHelp {
}
}
sub cref_internals {
my $mod = "./docs/commandref_frame.html";
my $output = "";
my ($err,@text) = FileRead({FileName => $mod, ForceType => 'file'});
return $err if $err;
foreach my $l (@text) {
if($l =~ m/(^<!-- )(.*)( end.*>)/) {
$output .= "$2,";
}
}
return $output;
}
sub cref_search {
my ($mod,$lang) = @_;
my $output = "";