diff --git a/fhem/FHEM/59_PROPLANTA.pm b/fhem/FHEM/59_PROPLANTA.pm index 78c97c0d3..4130a6404 100644 --- a/fhem/FHEM/59_PROPLANTA.pm +++ b/fhem/FHEM/59_PROPLANTA.pm @@ -53,6 +53,7 @@ my $curReadingType = 0; # 6 = Time Col 3 # 7 = Image Col 2-5 # 8 = MinMaxNummer Col 3 + # 9 = Date Col 2-5 my @knownNoneIDs = ( ["Temperatur", "temperature", 1] ,["relative Feuchte", "humidity", 1] ,["Sichtweite", "visibility", 1] @@ -65,7 +66,8 @@ my $curReadingType = 0; # 1 = Tag-ID, 2 = readingName, 3 = Tag-Type (see above) my @knownIDs = ( - ["TMAX", "tempMax", 2] + ["DATUM", "date", 9] + ,["TMAX", "tempMax", 2] ,["TMIN", "tempMin", 2] ,["NW", "chOfRainDay", 2] ,["NW_Nacht", "chOfRainNight", 2] @@ -148,6 +150,15 @@ sub text $text =~ s/^\s+//; # trim string $text =~ s/\s+$//; $text =~ s/0/0/g; # replace 0 + $text =~ s/1/1/g; # replace 1 + $text =~ s/2/2/g; # replace 2 + $text =~ s/3/3/g; # replace 3 + $text =~ s/4/4/g; # replace 4 + $text =~ s/5/5/g; # replace 5 + $text =~ s/6/6/g; # replace 6 + $text =~ s/7/7/g; # replace 7 + $text =~ s/8/8/g; # replace 8 + $text =~ s/9/9/g; # replace 9 # Tag-Type 0 = Check for readings without tag-ID (current readings) if ($curReadingType == 0) @@ -263,6 +274,15 @@ sub text } } } + # Tag-Type 9 = Date Col 2-5 + elsif ($curReadingType == 9) + { + if ( 1 < $curCol && $curCol <= 5 ) + { + $readingName = "fc".($startDay+$curCol-2)."_".$curReadingName; + push( @texte, $readingName."|".$text ); + } + } } } @@ -692,12 +712,12 @@ PROPLANTA_Html($) my $ret = "
%s | ||||||||
---|---|---|---|---|---|---|---|---|
Tag | morgens | tags | abends | nachts | min | max | Regen tags | Frost |
Tag | morgens | tagsueber | abends | nachts | min | max | Regen tags | Frost |
%s | %s | %s | %s | %s | %s°C | %s°C | %s %% | %s |