FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 01:09:47 +00:00
Code Issues Releases Wiki Activity
0eebab379a
fhem-mirror/fhem/contrib/JsonList/99_JsonList.pm
rudolfkoenig bf01617314 Readme update and the additions from Martin 
git-svn-id: https://svn.fhem.de/fhem/trunk@286 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2008-12-12 11:06:36 +00:00

387 lines
11 KiB
Perl
Raw Blame History

################################################################
#
# Copyright notice
#
# (c) 2008 Copyright: Martin Fischer (m_fischer at gmx dot de)
# All rights reserved
#
# This script free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# The GNU General Public License can be found at
# http://www.gnu.org/copyleft/gpl.html.
# A copy is found in the textfile GPL.txt and important notices to the license
# from the author is found in LICENSE.txt distributed with these scripts.
#
# This script is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
################################################################
# examples:
# jsonslist - returns all definitions and status infos
# jsonlist lamp1 - returns definitions and status infos for 'lamp1'
# jsonlist FS20 - returns status infos for FS20 devices
# jsonlist ROOMS - returns a list of rooms
################################################################
package main;
use strict;
use warnings;
use POSIX;
sub CommandJsonList($$);
sub JsonEscape($);
sub PrintHashJson($$);
#####################################
sub
JsonList_Initialize($$)
{
my %lhash = ( Fn=>"CommandJsonList",
Hlp=>"[<devspec>|<devtype>|rooms],list definitions and status info or rooms as JSON" );
$cmds{jsonlist} = \%lhash;
}
#####################################
sub
JsonEscape($)
{
my $a = shift;
return "null" if(!$a);
my %esc = (
"\n" => '\n',
"\r" => '\r',
"\t" => '\t',
"\f" => '\f',
"\b" => '\b',
"\"" => '\"',
"\\" => '\\\\',
"\'" => '\\\'',
);
$a =~ s/([\x22\x5c\n\r\t\f\b])/$esc{$1}/eg;
return $a;
}
#####################################
sub
PrintHashJson($$)
{
my ($h, $lev) = @_;
my ($str,$sstr) = ("","");
my $hc = keys %{$h};
my $cc = 1;
foreach my $c (sort keys %{$h}) {
if(ref($h->{$c})) {
if(ref($h->{$c}) eq "HASH" && $c ne "PortObj") {
if($c eq "IODev" || $c eq "HASH") {
$str .= sprintf("%*s\"%s\": \"%s\"", $lev," ",$c, JsonEscape($h->{$c}{NAME}));
} else {
$str .= sprintf("%*s\"%s\": {\n", $lev, " ", $c);
if(keys(%{$h->{$c}}) != 0) {
$str .= PrintHashJson($h->{$c}, $lev+2);
} else {
$str .= sprintf("%*s\"null\": \"null\"\n", $lev+4, " ");
}
$str .= sprintf("%*s}", $lev, " ");
}
} elsif(ref($h->{$c}) eq "ARRAY") {
$str .= sprintf("%*s\"%s\": \"%s\"", $lev," ",$c, "ARRAY");
} elsif($c eq "PortObj") {
$str .= sprintf("%*s\"%s\": \"%s\"", $lev," ",$c, "PortObj");
}
} else {
$str .= sprintf("%*s\"%s\": \"%s\"", $lev," ",$c, JsonEscape($h->{$c}));
}
$str .= ",\n" if($cc != $hc);
$str .= "\n" if($cc == $hc);
$cc++;
}
return $str;
}
#####################################
sub
CommandJsonList($$)
{
my ($cl, $param) = @_;
my $lt = "";
my $str = "";
# Text indentation
my $lev = 2;
if(!$param) {
# Array counter
my @ac;
my $ac = 0;
my $cc = 0;
my @dc;
my $dc = 0;
my $tc = 0; # total available
my $tr = 0; # results returned
my $q = "";
# Open JSON object
$str = "{\n";
$str .= sprintf("%*s\"ResultSet\": {\n", $lev, " ");
# Open JSON array
$str .= sprintf("%*s\"Results\": [\n", $lev+2, " ");
delete($modules{""}) if(defined($modules{""}));
@dc = keys(%defs);
$dc = @dc;
#$tc = 0;
for my $d (sort { my $x = $modules{$defs{$a}{TYPE}}{ORDER} cmp
$modules{$defs{$b}{TYPE}}{ORDER};
$x = ($a cmp $b) if($x == 0); $x; } keys %defs) {
my $p = $defs{$d};
my $t = $p->{TYPE};
$t = $q if($q ne "");
$str .= sprintf("} ") if($t eq $lt);
$str .= sprintf("},\n") if($t eq $lt);
if($t ne $lt) {
$str .= sprintf("} ") if($lt);
$str .= sprintf("}\n") if($lt);
$str .= sprintf("%*s]\n", $lev+6, " ") if($lt);
$str .= sprintf("%*s},\n", $lev+4, " ") if($lt);
#$str .= sprintf("%*s{\n", $lev+4, " ");
$str .= sprintf("%*s\{ \"%s_LIST\": [\n", $lev+4, " ", $t);
}
$lt = $t;
my $a1 = JsonEscape($p->{STATE});
my $a2 = JsonEscape(getAllSets($d));
my @sets;
foreach my $k2 (split(" ", $a2)) {
push @sets, $k2;
}
my $a3 = JsonEscape(getAllAttr($d));
my @attrs;
foreach my $k3 (split(" ", $a3)) {
push @attrs, $k3;
}
#$str .= sprintf("%*s{\n", $lev+8, " ");
$str .= sprintf("%*s{ \"%s\": { ", $lev+8, " ", $t);
$str .= sprintf("\"name\": \"%s\", ", $d);
$str .= sprintf("\"state\": \"%s\", ", $a1);
$str .= sprintf("\"sets\": [ ");
$ac = @sets;
$cc = 0;
foreach my $set (@sets) {
$str .= sprintf("{ \"VAL\": \"%s\" }", $set);
$cc++;
#$str .= ",\n" if($cc != $ac);
$str .= ", " if($cc != $ac);
#$str .= "\n" if($cc == $ac);
}
$str .= sprintf(" ], ");
$str .= sprintf("\"attrs\": [ ");
$ac = @attrs;
$cc = 0;
foreach my $attr (@attrs) {
$str .= sprintf("{ \"VAL\": \"%s\" }", $attr);
$cc++;
#$str .= ",\n" if($cc != $ac);
$str .= "," if($cc != $ac);
#$str .= "\n" if($cc == $ac);
}
$str .= sprintf(" ], ");
$str .= sprintf("\"INT\": { ");
@ac = keys(%{$p});
$ac = 0;
foreach my $k (sort @ac) {
next if(ref($p->{$k}));
$ac++;
}
$cc = 0;
foreach my $c (sort keys %{$p}) {
next if(ref($p->{$c}));
$str .= sprintf("\"%s\": \"%s\"",
JsonEscape($c), JsonEscape($p->{$c}));
$cc++;
#$str .= ",\n" if($cc != $ac || ($cc == $ac && $p->{IODev}));
$str .= ", " if($cc != $ac || ($cc == $ac && $p->{IODev}));
#$str .= "\n" if($cc == $ac && !$p->{IODev});
}
$str .= sprintf("\"IODev\": \"%s\" ",
$p->{IODev}{NAME}) if($p->{IODev});
$str .= sprintf(" }, ");
$str .= sprintf("\"ATTR\": { ");
@ac = keys(%{$attr{$d}});
$ac = @ac;
$cc = 0;
foreach my $c (sort keys %{$attr{$d}}) {
$str .= sprintf("\"%s\": \"%s\"",
JsonEscape($c), JsonEscape($attr{$d}{$c}));
$cc++;
#$str .= ",\n" if($cc != $ac);
$str .= ", " if($cc != $ac);
#$str .= "\n" if($cc == $ac);
}
$str .= sprintf(" }, ") if($p->{READINGS});
$str .= sprintf(" } ") if(!$p->{READINGS});
my $r = $p->{READINGS};
if($r) {
$str .= sprintf("\"STATE\": { ");
@ac = keys(%{$r});
$ac = @ac;
$cc = 0;
foreach my $c (sort keys %{$r}) {
$str .=
sprintf("\"%s\": \"%s\", \"measured\": \"%s\"",
JsonEscape($c), JsonEscape($r->{$c}{VAL}), $r->{$c}{TIME});
$cc++;
#$str .= ",\n" if($cc != $ac);
$str .= ", " if($cc != $ac);
#$str .= "\n" if($cc == $ac);
}
$str .= sprintf(" } ");
}
$tc++;
$tr = $tc if($q eq "");
$tr++ if($q ne "" && $p->{TYPE} eq $t);
$str .= sprintf("} ") if(($tc == $dc) || (!$lt));
$str .= sprintf("}\n") if(($tc == $dc) || (!$lt));
$str .= sprintf("%*s]\n", $lev+6, " ") if(($tc == $dc) || (!$lt));
}
$str .= sprintf("%*s}\n", $lev+4, " ") if($lt);
$str .= sprintf("%*s],\n", $lev+2, " ");
$str .= sprintf("%*s\"totalResultsAvailable\": %s,\n", $lev+2, " ",$tc);
$str .= sprintf("%*s\"totalResultsReturned\": %s\n", $lev+2, " ",$tr);
$str .= sprintf("%*s}\n", $lev, " ");
$str .= "}";
} else {
if($param eq "ROOMS") {
my @rooms;
foreach my $d (sort keys %defs) {
if($attr{$d}{"room"}) {
push(@rooms, $attr{$d}{"room"}) unless(grep($_ eq $attr{$d}{"room"}, @rooms));
next;
}
}
@rooms = sort(@rooms);
# Result counter
my $c = 0;
# Open JSON object
$str .= "{\n";
$str .= sprintf("%*s\"%s\": {\n", $lev, " ", "ResultSet");
# Open JSON array
$str .= sprintf("%*s\"%s\": [", $lev+2, " ", "Results");
for (my $i=0; $i<@rooms; $i++) {
$str .= " }," if($i <= $#rooms && $i > 0);
$str .= sprintf("\n%*s{ \"NAME\": \"%s\"", $lev+4, " ", $rooms[$i]);
$c++;
}
$str .= " }\n";
# Close JSON array
$str .= sprintf("%*s],\n", $lev+2, " ");
# Result summary
$str .= sprintf("%*s\"%s\": %s,\n", $lev+2, " ", "totalResultsAvailable", $c);
$str .= sprintf("%*s\"%s\": %s\n", $lev+2, " ", "totalResultsReturned", $c);
# Close JSON object
$str .= sprintf("%*s}\n", $lev, " ");
$str .= "}";
} else {
# Search for given device-type
my $listDev = "";
foreach my $d (sort { my $x = $defs{$a}{TYPE} cmp
$defs{$b}{TYPE};
$x = ($a cmp $b) if($x == 0); $x; } keys %defs) {
if($param eq $defs{$d}{TYPE}) {
$listDev = $defs{$d}{TYPE};
next;
}
}
# List devices by type
if($listDev ne "") {
my $lt = "";
my $ld = "";
# Result counter
my $c = 0;
# Open JSON object
$str .= "{\n";
$str .= sprintf("%*s\"%s\": {\n", $lev, " ", "ResultSet");
# Open JSON array
$str .= sprintf("%*s\"%s\": [", $lev+2, " ", "Results");
# Sort first by type then by name
for my $d (sort { my $x = $modules{$defs{$a}{TYPE}}{ORDER} cmp
$modules{$defs{$b}{TYPE}}{ORDER};
$x = ($a cmp $b) if($x == 0); $x; } keys %defs) {
if($defs{$d}{TYPE} eq $param) {
my $t = $defs{$d}{TYPE};
$str .= " }," if($d ne $ld && $lt ne "");
$str .= sprintf("\n%*s{ \"NAME\": \"%s\", \"STATE\": \"%s\"",
$lev+4, " ", $d, $defs{$d}{STATE});
$lt = $t;
$ld = $d;
$c++;
}
}
$str .= " }\n";
# Close JSON array
$str .= sprintf("%*s],\n", $lev+2, " ");
# Result summary
$str .= sprintf("%*s\"%s\": %s,\n", $lev+2, " ", "totalResultsAvailable", $c);
$str .= sprintf("%*s\"%s\": %s\n", $lev+2, " ", "totalResultsReturned", $c);
# Close JSON object
$str .= sprintf("%*s}\n", $lev, " ");
$str .= "}";
} else {
# List device
foreach my $sdev (devspec2array($param)) {
if(!defined($defs{$sdev})) {
$str .= "No device named or type $param found, try <list> for all devices";
next;
}
$defs{$sdev}{"ATTRIBUTES"} = $attr{$sdev};
# Open JSON object
$str = "{\n";
$str .= sprintf("%*s\"%s\": {\n", $lev, " ", "ResultSet");
# Open JSON array
$str .= sprintf("%*s\"%s\": {\n", $lev+2, " ", "Results");
$str .= PrintHashJson($defs{$sdev}, $lev+4);
# Close JSON array
$str .= sprintf("%*s}\n", $lev+2, " ");
# Close JSON object
$str .= sprintf("%*s}\n", $lev, " ");
$str .= "}";
}
}
}
}
return $str;
}
1;
Reference in New Issue View Git Blame Copy Permalink