add Health Implications text
This commit is contained in:
Marko Oldenburg
parent
ae7aa239b7
commit
510090bc2a
127
46_Aqicn.pm
127
46_Aqicn.pm
@ -39,15 +39,6 @@
|
|||||||
#
|
#
|
||||||
#######
|
#######
|
||||||
#######
|
#######
|
||||||
# URLs zum Abrufen diverser Daten
|
|
||||||
# http://<ip-Powerwall>/api/system_status/soe
|
|
||||||
# http://<ip-Powerwall>/api/meters/aggregates
|
|
||||||
# http://<ip-Powerwall>/api/site_info
|
|
||||||
# http://<ip-Powerwall>/api/sitemaster
|
|
||||||
# http://<ip-Powerwall>/api/powerwalls
|
|
||||||
# http://<ip-Powerwall>/api/networks
|
|
||||||
# http://<ip-Powerwall>/api/system/networks
|
|
||||||
# http://<ip-Powerwall>/api/operation
|
|
||||||
#
|
#
|
||||||
##
|
##
|
||||||
##
|
##
|
||||||
@ -67,11 +58,23 @@ eval "use Encode qw(encode encode_utf8 decode_utf8);1" or $missingModul .= "Enco
|
|||||||
eval "use JSON;1" or $missingModul .= "JSON ";
|
eval "use JSON;1" or $missingModul .= "JSON ";
|
||||||
|
|
||||||
|
|
||||||
my $version = "0.0.50";
|
my $version = "0.0.56";
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
### Air Quality Index scale
|
||||||
|
my %AQIS = (
|
||||||
|
1 => { 'i18nde' => 'Gut' ,'i18nen' => 'Good' ,'bgcolor' => '#009966'},
|
||||||
|
2 => { 'i18nde' => 'Moderat' ,'i18nen' => 'Moderate' ,'bgcolor' => '#ffde33'},
|
||||||
|
3 => { 'i18nde' => 'Ungesund für empfindliche Personengruppen' ,'i18nen' => 'Unhealthy for Sensitive Groups' ,'bgcolor' => '#ff9933'},
|
||||||
|
4 => { 'i18nde' => 'Ungesund' ,'i18nen' => 'Unhealthy' ,'bgcolor' => '#cc0033'},
|
||||||
|
5 => { 'i18nde' => 'Sehr ungesund' ,'i18nen' => 'Very Unhealthy' ,'bgcolor' => '#660099'},
|
||||||
|
6 => { 'i18nde' => 'Gefährlich' ,'i18nen' => 'Hazardous' ,'bgcolor' => '#7e0023'},
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
# Declare functions
|
# Declare functions
|
||||||
sub Aqicn_Attr(@);
|
sub Aqicn_Attr(@);
|
||||||
sub Aqicn_Define($$);
|
sub Aqicn_Define($$);
|
||||||
@ -86,10 +89,11 @@ sub Aqicn_ReadingsProcessing_AqiResponse($);
|
|||||||
sub Aqicn_ErrorHandling($$$);
|
sub Aqicn_ErrorHandling($$$);
|
||||||
sub Aqicn_WriteReadings($$);
|
sub Aqicn_WriteReadings($$);
|
||||||
sub Aqicn_Timer_GetData($);
|
sub Aqicn_Timer_GetData($);
|
||||||
sub Aqicn_AirPollutionLevel($$);
|
sub Aqicn_AirPollutionLevel($);
|
||||||
sub Aqicn_HtmlStyle($);
|
sub Aqicn_HtmlStyle($);
|
||||||
sub Aqicn_i18n_de($);
|
sub Aqicn_i18n_de($);
|
||||||
sub Aqicn_i18n_en($);
|
sub Aqicn_i18n_en($);
|
||||||
|
sub Aqicn_HealthImplications($$);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -478,8 +482,20 @@ sub Aqicn_WriteReadings($$) {
|
|||||||
readingsBulkUpdate($hash,$r,$v);
|
readingsBulkUpdate($hash,$r,$v);
|
||||||
}
|
}
|
||||||
|
|
||||||
readingsBulkUpdateIfChanged($hash,'htmlStyle','<div style="background-color: '.Aqicn_HtmlStyle($readings->{'AQI'}).';">'.Aqicn_AirPollutionLevel($hash,$readings->{'AQI'}).': '.$readings->{'AQI'}.'</div>');
|
if( defined($readings->{'PM2.5-AQI'}) ) {
|
||||||
readingsBulkUpdateIfChanged($hash,'state',Aqicn_AirPollutionLevel($hash,$readings->{'AQI'}).': '.$readings->{'AQI'});
|
readingsBulkUpdateIfChanged($hash,'htmlStyle','<div style="background-color: '.$AQIS{Aqicn_AirPollutionLevel($readings->{'PM2.5-AQI'})}{'bgcolor'}.';">'.( ((AttrVal('global','language','none') eq 'DE' or AttrVal($name,'language','none') eq 'de') and AttrVal($name,'language','none') ne 'en') ? "$AQIS{Aqicn_AirPollutionLevel($readings->{'PM2.5-AQI'})}{'i18nde'}: $readings->{'PM2.5-AQI'} " : " $AQIS{Aqicn_AirPollutionLevel($readings->{'PM2.5-AQI'})}{'i18nen'}: $readings->{'PM2.5-AQI'}").'</div>');
|
||||||
|
|
||||||
|
readingsBulkUpdateIfChanged($hash,'state',( ((AttrVal('global','language','none') eq 'DE' or AttrVal($name,'language','none') eq 'de') and AttrVal($name,'language','none') ne 'en') ? "$AQIS{Aqicn_AirPollutionLevel($readings->{'PM2.5-AQI'})}{'i18nde'}: $readings->{'PM2.5-AQI'}" : "$AQIS{Aqicn_AirPollutionLevel($readings->{'PM2.5-AQI'})}{'i18nen'}: $readings->{'PM2.5-AQI'}") );
|
||||||
|
|
||||||
|
readingsBulkUpdateIfChanged($hash,'healthImplications',Aqicn_HealthImplications($hash,Aqicn_AirPollutionLevel($readings->{'PM2.5-AQI'})) );
|
||||||
|
} else {
|
||||||
|
readingsBulkUpdateIfChanged($hash,'htmlStyle','<div style="background-color: '.$AQIS{Aqicn_AirPollutionLevel($readings->{'AQI'})}{'bgcolor'}.';">'.( ((AttrVal('global','language','none') eq 'DE' or AttrVal($name,'language','none') eq 'de') and AttrVal($name,'language','none') ne 'en') ? "$AQIS{Aqicn_AirPollutionLevel($readings->{'AQI'})}{'i18nde'}: $readings->{'AQI'} " : " $AQIS{Aqicn_AirPollutionLevel($readings->{'AQI'})}{'i18nen'}: $readings->{'AQI'}").'</div>');
|
||||||
|
|
||||||
|
readingsBulkUpdateIfChanged($hash,'state',( ((AttrVal('global','language','none') eq 'DE' or AttrVal($name,'language','none') eq 'de') and AttrVal($name,'language','none') ne 'en') ? "$AQIS{Aqicn_AirPollutionLevel($readings->{'AQI'})}{'i18nde'}: $readings->{'AQI'}" : "$AQIS{Aqicn_AirPollutionLevel($readings->{'AQI'})}{'i18nen'}: $readings->{'AQI'}") );
|
||||||
|
|
||||||
|
readingsBulkUpdateIfChanged($hash,'healthImplications',Aqicn_HealthImplications($hash,Aqicn_AirPollutionLevel($readings->{'AQI'})) );
|
||||||
|
}
|
||||||
|
|
||||||
readingsEndUpdate($hash,1);
|
readingsEndUpdate($hash,1);
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -578,10 +594,10 @@ sub Aqicn_ReadingsProcessing_AqiResponse($) {
|
|||||||
return \%readings;
|
return \%readings;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub Aqicn_AirPollutionLevel($$) {
|
sub Aqicn_AirPollutionLevel($) {
|
||||||
|
|
||||||
|
my $aqi = shift;
|
||||||
|
|
||||||
my ($hash,$aqi) = @_;
|
|
||||||
my $name = $hash->{NAME};
|
|
||||||
my $apl;
|
my $apl;
|
||||||
|
|
||||||
|
|
||||||
@ -591,67 +607,38 @@ sub Aqicn_AirPollutionLevel($$) {
|
|||||||
elsif($aqi < 201) { $apl = 4}
|
elsif($aqi < 201) { $apl = 4}
|
||||||
elsif($aqi < 301) { $apl = 5}
|
elsif($aqi < 301) { $apl = 5}
|
||||||
else { $apl = 6}
|
else { $apl = 6}
|
||||||
|
|
||||||
|
return $apl;
|
||||||
if( (AttrVal('global','language','none') eq 'DE' or AttrVal($name,'language','none') eq 'de') and AttrVal($name,'language','none') ne 'en' ) {
|
|
||||||
return Aqicn_i18n_de($apl);
|
|
||||||
} else {
|
|
||||||
return Aqicn_i18n_en($apl);
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
sub Aqicn_HtmlStyle($) {
|
sub Aqicn_HealthImplications($$) {
|
||||||
|
|
||||||
my $aqi = shift;
|
my ($hash,$apl) = @_;
|
||||||
my $bgColor;
|
|
||||||
|
|
||||||
|
my $name = $hash->{NAME};
|
||||||
|
|
||||||
if($aqi < 51) { $bgColor = '#009966'}
|
my %HIen = (
|
||||||
elsif($aqi < 101) { $bgColor = '#ffde33'}
|
1 => 'Air quality is acceptable; however, for some pollutants there may be a moderate health concern for a very small number of people who are unusually sensitive to air pollution.',
|
||||||
elsif($aqi < 151) { $bgColor = '#ff9933'}
|
2 => 'Air quality is acceptable; however, for some pollutants there may be a moderate health concern for a very small number of people who are unusually sensitive to air pollution.',
|
||||||
elsif($aqi < 201) { $bgColor = '#cc0033'}
|
3 => 'Members of sensitive groups may experience health effects. The general public is not likely to be affected.',
|
||||||
elsif($aqi < 301) { $bgColor = '#660099'}
|
4 => 'Everyone may begin to experience health effects; members of sensitive groups may experience more serious health effects',
|
||||||
else { $bgColor = '#7e0023'}
|
5 => 'Health warnings of emergency conditions. The entire population is more likely to be affected.',
|
||||||
|
6 => 'Health alert: everyone may experience more serious health effects'
|
||||||
return $bgColor;
|
);
|
||||||
|
|
||||||
|
my %HIde = (
|
||||||
|
1 => 'Die Qualität der Luft gilt als zufriedenstellend und die Luftverschmutzung stellt ein geringes oder kein Risiko dar',
|
||||||
|
2 => 'Die Luftqualität ist insgesamt akzeptabel. Bei manchen Schadstoffe besteht jedoch eventuell eine geringe Gesundheitsgefahr für einen sehr kleinen Personenkreis, der sehr empfindlich auf Luftverschmutzung ist.',
|
||||||
|
3 => 'Bei Mitgliedern von empfindlichen Personengruppen können gesundheitliche Auswirkungen auftreten. Die allgemeine Öffentlichkeit ist wahrscheinlich nicht betroffen.',
|
||||||
|
4 => 'Erste gesundheitliche Auswirkungen können sich bei allen Personen einstellen. Bei empfindlichen Personengruppen können ernstere gesundheitliche Auswirkungen auftreten.',
|
||||||
|
5 => 'Gesundheitswarnung aufgrund einer Notfallsituation. Die gesamte Bevölkerung ist voraussichtlich betroffen.',
|
||||||
|
6 => 'Gesundheitsalarm: Jeder muss mit dem Auftreten ernsterer Gesundheitsschäden rechnen'
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
return ( (AttrVal('global','language','none') eq 'DE' or AttrVal($name,'language','none') eq 'de') and AttrVal($name,'language','none') ne 'en' ? $HIde{$apl} : $HIen{$apl} );
|
||||||
}
|
}
|
||||||
|
|
||||||
sub Aqicn_i18n_de($) {
|
|
||||||
|
|
||||||
my $value = shift;
|
|
||||||
|
|
||||||
|
|
||||||
my %i18nde = (
|
|
||||||
1 => 'Gut',
|
|
||||||
2 => 'Moderat',
|
|
||||||
3 => 'Ungesund für empfindliche Personengruppen',
|
|
||||||
4 => 'Ungesund',
|
|
||||||
5 => 'Sehr ungesund',
|
|
||||||
6 => 'Gefährlich'
|
|
||||||
);
|
|
||||||
|
|
||||||
return $i18nde{$value};
|
|
||||||
}
|
|
||||||
|
|
||||||
sub Aqicn_i18n_en($) {
|
|
||||||
|
|
||||||
my $value = shift;
|
|
||||||
|
|
||||||
|
|
||||||
my %i18nen = (
|
|
||||||
1 => 'Good',
|
|
||||||
2 => 'Moderate',
|
|
||||||
3 => 'Unhealthy for Sensitive Groups',
|
|
||||||
4 => 'Unhealthy',
|
|
||||||
5 => 'Very Unhealthy',
|
|
||||||
6 => 'Hazardous'
|
|
||||||
);
|
|
||||||
|
|
||||||
return $i18nen{$value};
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user