souti/Domoticz
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

first commit

Browse Source
This commit is contained in:
Souti
2025-03-06 11:09:58 +01:00
commit 11f7d440ff
330 changed files with 38306 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
qualiteAir.pl Executable file
View File

@@ -0,0 +1,79 @@
#https://easydomoticz.com/domoticz-integrer-les-donnees-qualite-de-lair-en-dehors-de-paris/
#!/usr/bin/perl
use v5.14;
use LWP::Simple; # From CPAN
use XML::Simple; # From CPAN
use strict; # Good practice
use warnings; # Good practice
use utf8;
use POSIX;
use feature qw< unicode_strings >;
#Support: domoticz@e-nef.com ou forum Domoticz
#Pour ajouter les librairies nécessaires:
#sudo apt-get install libjson-perl libdatetime-perl libwww-perl libxml-simple-perl
#A adapter à votre configuration:
my $domo_ip="localhost";
my $domo_port="81";
my $agglomeration="NANTES";
my $dz_ind=54; #ID d'un device virtuel de type CO2 pour tous les suivants
my $dz_o3=90;
my $dz_no2=91;
my $dz_so2=92;
my $dz_pm10=93;
#Ne pas toucher en dessous
my $trendsurl = " http://www.lcsqa.org/surveillance/indices/prevus/jour/xml/";
#my $trendsurl = " http://www.lcsqa.org/indices-qualite-air/liste/jour";
my $json = get( $trendsurl );
die "Could not get $trendsurl!" unless defined $json;
my $xml = new XML::Simple;
# Decode the entire JSON
my $decoded = $xml->XMLin( $json );
# you'll get this (it'll print out); comment this when done.
#print Dumper $decoded;
foreach my $f ( @{$decoded->{node}} ) {
if ($f->{"agglomeration"}eq $agglomeration) {
print $f->{"valeurIndice"} . " " . $f->{"SousIndiceO3"} . " " . $f->{"SousIndiceNO2"} ." ". $f->{"SousIndiceSO2"} . " " .$f->{"SousIndicePM10"} . "\n";
my $payload=$f->{"valeurIndice"};
if (isdigit($payload)) {
`curl -s "http://$domo_ip:$domo_port/json.htm?type=command&param=udevice&idx=$dz_ind&nvalue=$payload"`; }
else {
`curl -s "http://$domo_ip:$domo_port/json.htm?type=command&param=udevice&idx=$dz_ind&nvalue=0"`;
}
$payload=$f->{"SousIndiceO3"};
if (isdigit($payload)) {
`curl -s "http://$domo_ip:$domo_port/json.htm?type=command&param=udevice&idx=$dz_o3&nvalue=$payload"`;
}
else {
`curl -s "http://$domo_ip:$domo_port/json.htm?type=command&param=udevice&idx=$dz_o3&nvalue=0"`;
}
$payload=$f->{"SousIndiceNO2"};
if (isdigit($payload)) {
`curl -s "http://$domo_ip:$domo_port/json.htm?type=command&param=udevice&idx=$dz_no2&nvalue=$payload"`;
}
else {
`curl -s "http://$domo_ip:$domo_port/json.htm?type=command&param=udevice&idx=$dz_no2&nvalue=0"`;
}
$payload=$f->{"SousIndiceSO2"};
if (isdigit($payload)) {
`curl -s "http://$domo_ip:$domo_port/json.htm?type=command&param=udevice&idx=$dz_so2&nvalue=$payload"`;
}
else {
`curl -s "http://$domo_ip:$domo_port/json.htm?type=command&param=udevice&idx=$dz_so2&nvalue=0"`;
}
$payload=$f->{"SousIndicePM10"};
if (isdigit($payload)) {
`curl -s "http://$domo_ip:$domo_port/json.htm?type=command&param=udevice&idx=$dz_pm10&nvalue=$payload"`;
}
else {
`curl -s "http://$domo_ip:$domo_port/json.htm?type=command&param=udevice&idx=$dz_pm10&nvalue=0"`;
}
}
}