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

correct models display

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6467 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-08-27 07:08:47 +00:00
parent dad139cd0e
commit 8a424c2ce4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/98_HMinfo.pm
View File

@ -778,6 +778,7 @@ sub HMinfo_GetFn($@) {#########################################################
my ($hash,$name,$cmd,@a) = @_;
my ($opt,$optEmpty,$filter) = ("",1,"");
my $ret;
if (@a && ($a[0] =~ m/^-/) && ($a[0] !~ m/^-f$/)){# options provided
$opt = $a[0];
$optEmpty = ($opt =~ m/e/)?1:0;
@ -792,7 +793,7 @@ sub HMinfo_GetFn($@) {#########################################################
#------------ statistics ---------------
if ($cmd eq "protoEvents"){##print protocol-events-------------------------
my ($type) = @a;
$type = "long" if(!$type);
$type = "short" if(!$type);
my @paramList;
my @IOlist;
my @plSum; push @plSum,0 for (0..9);#prefill
@ -1088,6 +1089,7 @@ sub HMinfo_GetFn($@) {#########################################################
,$chan
);
}
@model = grep /$filter/,sort @model if($filter);
$ret = $cmd.($filter?" filtered":"").":$filter\n "
.sprintf("%-16s %-24s %4s %-24s %-5s %-5s %s\n "
,"subType"
@ -1098,7 +1100,7 @@ sub HMinfo_GetFn($@) {#########################################################
,"List"
,"channels"
)
.join"\n ",grep(/$filter/,sort @model);
.join"\n ", @model;
}
elsif($cmd eq "help") {
$ret = " Unknown argument $cmd, choose one of "
@ -1302,7 +1304,7 @@ sub HMinfo_SetFn($@) {#########################################################
unshift @a,"-f",$filter if ($filter);
unshift @a,"-".$opt if ($opt);
$ret = HMinfo_GetFn($hash,$name,$cmd,@a);
}
}
else{
my @cmdLst =