diff --git a/FHEM/98_count.pm b/FHEM/98_count.pm index 242b84903..e88a675f3 100644 --- a/FHEM/98_count.pm +++ b/FHEM/98_count.pm @@ -5,7 +5,6 @@ use strict; use warnings; sub count_Initialize($$) { - $cmds{count} = { Fn => "CommandCount", Hlp=>"[filter],count devices"}; } @@ -14,14 +13,16 @@ sub CommandCount($$) { my ($cl, $param) = @_; my $str = ""; - my $fill = ""; + my $fill = $str; my $n = 0; - + my $raw = $n; + if(!$param) { # List of all devices $n = keys %defs; $fill = "s" if $n != 1; $str = "\nCount: $n device$fill in total.\n"; } else { # devspecArray + $raw = $param =~ s/ raw$//i; $n = 0; my @list = devspec2array($param,$cl); $n = int(@list); @@ -34,7 +35,8 @@ sub CommandCount($$) $str = "\nCount: $n device$fill for devspec $param\n"; } - return $str; + return $str unless $raw; + return $n; } 1; @@ -48,10 +50,12 @@ sub CommandCount($$)

count

=end html