fhem.pl: list <devspec> formatting + attribute as argument
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5702 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
23
fhem/fhem.pl
23
fhem/fhem.pl
@@ -1877,17 +1877,20 @@ CommandList($$)
|
||||
if($arg[1]) {
|
||||
foreach my $sdev (@list) { # Show a Hash-Entry or Reading for each device
|
||||
|
||||
if($defs{$sdev} &&
|
||||
$defs{$sdev}{$arg[1]}) {
|
||||
$str .= $sdev . " " .
|
||||
$defs{$sdev}{$arg[1]} . "\n";
|
||||
if($defs{$sdev}) {
|
||||
if($defs{$sdev}{$arg[1]}) {
|
||||
$str .= sprintf("%-20s %s\n", $sdev, $defs{$sdev}{$arg[1]});
|
||||
|
||||
} elsif($defs{$sdev} &&
|
||||
$defs{$sdev}{READINGS} &&
|
||||
$defs{$sdev}{READINGS}{$arg[1]}) {
|
||||
$str .= $sdev . " ".
|
||||
$defs{$sdev}{READINGS}{$arg[1]}{TIME} . " " .
|
||||
$defs{$sdev}{READINGS}{$arg[1]}{VAL} . "\n";
|
||||
} elsif($defs{$sdev}{READINGS} &&
|
||||
$defs{$sdev}{READINGS}{$arg[1]}) {
|
||||
$str .= sprintf("%-20s %s %s\n", $sdev,
|
||||
$defs{$sdev}{READINGS}{$arg[1]}{TIME},
|
||||
$defs{$sdev}{READINGS}{$arg[1]}{VAL});
|
||||
|
||||
} elsif($attr{$sdev} && $attr{$sdev}{$arg[1]}) {
|
||||
$str .= sprintf("%-20s %s\n", $sdev, $attr{$sdev}{$arg[1]});
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user