add warnCount reading

59_Weather.pm

@@ -329,7 +329,7 @@ sub Weather_ReturnWithError {
     return;
 }
 
-sub Weather_DeleteReadings {
+sub Weather_DeleteForecastReadings {
     my $hash = shift;
 
     my $name                    = $hash->{NAME};
@@ -350,6 +350,23 @@ sub Weather_DeleteReadings {
     return;
 }
 
+sub Weather_DeleteAlertsReadings {
+    my $hash        = shift;
+    my $alertsLimit = shift // 0;
+
+    my $name                = $hash->{NAME};
+    my $alertsConfig        = Weather_ForcastConfig($hash);
+    my $alertsLimitNoAlerts = 0;
+
+    $alertsLimit = $alertsLimitNoAlerts
+      if ( !$alertsConfig->{alerts} );
+
+    CommandDeleteReading( undef,
+        $name . ' ' . 'warn_([' . $alertsLimit . '-9]|[0-9]{2})_.*' );
+
+    return;
+}
+
 sub Weather_RetrieveCallbackFn {
     my $name = shift;
 
@@ -550,7 +567,6 @@ sub Weather_WriteReadings {
     {
         my $i = 0;
         foreach my $warn ( @{ $dataRef->{alerts} } ) {
-            $i++;
             my $w = "warn_" . $i . "_";
 
             while ( my ( $r, $v ) = each %{$warn} ) {
@@ -559,7 +575,18 @@ sub Weather_WriteReadings {
                     && ref( $dataRef->{$r} ) ne 'ARRAY' );
             }