fix delete Reading Counter

This commit is contained in:
Marko Oldenburg 2022-12-14 11:08:36 +01:00
parent 46cc10e80e
commit b6c0dc2ef1

View File

@ -334,18 +334,18 @@ sub Weather_DeleteReadings {
my $name = $hash->{NAME}; my $name = $hash->{NAME};
my $forecastConfig = Weather_ForcastConfig($hash); my $forecastConfig = Weather_ForcastConfig($hash);
my $forecastLimit = AttrVal( $name, 'forecastLimit', 5 ); my $forecastLimit = AttrVal( $name, 'forecastLimit', 5 ) + 1;
my $forecastLimitNoForecast = 1; my $forecastLimitNoForecast = 1;
$forecastLimit = $forecastLimitNoForecast $forecastLimit = $forecastLimitNoForecast
if ( !$forecastConfig->{daily} ); if ( !$forecastConfig->{daily} );
CommandDeleteReading( undef, CommandDeleteReading( undef,
$name . ' ' . 'fc[' . $forecastLimit . '-99]_.*' ); $name . ' ' . 'fc[' . $forecastLimit . '-9][0-9]?_.*' );
$forecastLimit = $forecastLimitNoForecast $forecastLimit = $forecastLimitNoForecast
if ( !$forecastConfig->{hourly} ); if ( !$forecastConfig->{hourly} );
CommandDeleteReading( undef, CommandDeleteReading( undef,
$name . ' ' . 'hfc[' . $forecastLimit . '-99]_.*' ); $name . ' ' . 'hfc[' . $forecastLimit . '-9][0-9]?_.*' );
return; return;
} }