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:
rudolfkoenig
2014-04-30 09:32:22 +00:00
parent ea17d81d5e
commit 96b8000e95

View File

@@ -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]});
}
}
}