";
+ $ret .= "\n"; # das \n erleichtert das Lesen der debug Quelltextausgabe
+
+ if ($header) { # Header ausgeben
+ $ret .= "";
+ # mit einem extra | ein wenig mehr Platz machen, ergibt i.d.R. weniger als ein Zeichen
+ $ret .= "$header | ";
+ }
+
+ if ($legend_txt && ($legend eq 'top')) {
+ $ret .= "";
+ $ret .= "| $legend_txt | ";
+ }
+
+ if ($weather) {
+ $ret .= " | "; # freier Platz am Anfang
+
+ for my $i (0..$maxhours-1) { # keine Anzeige bei Null Ertrag bzw. in der Nacht , Typ pcvo & diff haben aber immer Daten in der Nacht
+ if ($pv{$i} || $show_night || ($type eq 'pvco') || ($type eq 'diff')) {
+ # FHEM Wetter Icons (weather_xxx) , Skalierung und Farbe durch FHEM Bordmittel
+ my $icon_name = weather_icon($we{$i}); # unknown -> FHEM Icon Fragezeichen im Kreis wird als Ersatz Icon ausgegeben
+ Log3($name, 3,"$name - unknown SMA Portal weather id: ".$we{$i}.", please inform the maintainer") if($icon_name eq 'unknown');
+
+ $icon_name .='@'.$colorw if (defined($colorw));
+ $val = FW_makeImage($icon_name);
+
+ $val ='???' if ($val eq $icon_name); # passendes Icon beim User nicht vorhanden ! ( attr web iconPath falsch/prüfen/update ? )
+ $ret .= "$val | ";
+
+ } else { # Kein Ertrag oder show_night = 0
+ $ret .= " | "; $we{$i} = undef;
+ }
+ # mit $we{$i} = undef kann man unten leicht feststellen ob für diese Spalte bereits ein Icon ausgegeben wurde oder nicht
+ }
+
+ $ret .= " | "; # freier Platz am Ende der Icon Zeile
+ }
+
+ if ($show_diff eq 'top') { # Zusätzliche Zeile Ertrag - Verbrauch
+ $ret .= " | "; # freier Platz am Anfang
+
+ for my $i (0..$maxhours-1) {
+ $val = formatVal6($di{$i},$kw,$we{$i});
+ $val = ($di{$i} < 0) ? ''.$val.'' : '+'.$val; # negativ Zahlen in Fettschrift
+ $ret .= "$val | ";
+ }
+ $ret .= " | "; # freier Platz am Ende
+ }
+
+ $ret .= " | "; # Neue Zeile mit freiem Platz am Anfang
+
+ for my $i (0..$maxhours-1) {
+ # Achtung Falle, Division by Zero möglich,
+ # maxVal kann gerade bei kleineren maxhours Ausgaben in der Nacht leicht auf 0 fallen
+ $height = 200 if (!$height); # Fallback, sollte eigentlich nicht vorkommen, außer der User setzt es auf 0
+ $maxVal = 1 if (!$maxVal);
+ $maxCon = 1 if (!$maxCon);
+
+ # Der zusätzliche Offset durch $fsize verhindert bei den meisten Skins
+ # dass die Grundlinie der Balken nach unten durchbrochen wird
+ if ($type eq 'co') {
+ $he = int(($maxCon-$co{$i})/$maxCon*$height) + $fsize; # he - freier der Raum über den Balken.
+ $z3 = int($height + $fsize - $he); # Resthöhe
+
+ } elsif ($type eq 'pv') {
+ $he = int(($maxVal-$pv{$i})/$maxVal*$height) + $fsize;
+ $z3 = int($height + $fsize - $he);
+
+ } elsif ($type eq 'pvco') {
+ # Berechnung der Zonen
+ # he - freier der Raum über den Balken. fsize wird nicht verwendet, da bei diesem Typ keine Zahlen über den Balken stehen
+ # z2 - der Ertrag ggf mit Icon
+ # z3 - der Verbrauch , bei zu kleinem Wert wird der Platz komplett Zone 2 zugeschlagen und nicht angezeigt
+ # z2 und z3 nach Bedarf tauschen, wenn der Verbrauch größer als der Ertrag ist
+
+ $maxVal = $maxCon if ($maxCon > $maxVal); # wer hat den größten Wert ?
+
+ if ($pv{$i} > $co{$i}) { # pv oben , co unten
+ $z2 = $pv{$i}; $z3 = $co{$i};
+ } else { # tauschen, Verbrauch ist größer als Ertrag
+ $z3 = $pv{$i}; $z2 = $co{$i};
+ }
+
+ $he = int(($maxVal-$z2)/$maxVal*$height);
+ $z2 = int(($z2 - $z3)/$maxVal*$height);
+
+ $z3 = int($height - $he - $z2); # was von maxVal noch übrig ist
+
+ if ($z3 < int($fsize/2)) { # dünnen Strichbalken vermeiden / ca. halbe Zeichenhöhe
+ $z2 += $z3; $z3 = 0;
+ }
+
+ } else { # Typ dif
+ # Berechnung der Zonen
+ # he - freier der Raum über den Balken , Zahl positiver Wert + fsize
+ # z2 - positiver Balken inkl Icon
+ # z3 - negativer Balken
+ # z4 - Zahl negativer Wert + fsize
+
+ my ($px_pos,$px_neg);
+ my $maxPV = 0; # ToDo: maxPV noch aus Attribut maxPV ableiten
+
+ if ($maxPV) { # Feste Aufteilung +/- , jeder 50 % bei maxPV = 0
+ $px_pos = int($height/2);
+ $px_neg = $height - $px_pos; # Rundungsfehler vermeiden
+
+ } else { # Dynamische hoch/runter Verschiebung der Null-Linie
+ if ($minDif >= 0 ) { # keine negativen Balken vorhanden, die Positiven bekommen den gesammten Raum
+ $px_neg = 0;
+ $px_pos = $height;
+ } else {
+ if ($maxDif > 0) {
+ $px_neg = int($height * abs($minDif) / ($maxDif + abs($minDif))); # Wieviel % entfallen auf unten ?
+ $px_pos = $height-$px_neg; # der Rest ist oben
+ } else { # keine positiven Balken vorhanden, die Negativen bekommen den gesammten Raum
+ $px_neg = $height;
+ $px_pos = 0;
+ }
+ }
+ }
+
+ if ($di{$i} >= 0) { # Zone 2 & 3 mit ihren direkten Werten vorbesetzen
+ $z2 = $di{$i};
+ $z3 = abs($minDif);
+ } else {
+ $z2 = $maxDif;
+ $z3 = abs($di{$i}); # Nur Betrag ohne Vorzeichen
+ }
+
+ # Alle vorbesetzen Werte umrechnen auf echte Ausgabe px
+ $he = (!$px_pos) ? 0 : int(($maxDif-$z2)/$maxDif*$px_pos); # Teilung durch 0 vermeiden
+ $z2 = ($px_pos - $he) ;
+
+ $z4 = (!$px_neg) ? 0 : int((abs($minDif)-$z3)/abs($minDif)*$px_neg); # Teilung durch 0 unbedingt vermeiden
+ $z3 = ($px_neg - $z4);
+
+ # Beiden Zonen die Werte ausgeben könnten muß fsize als zusätzlicher Raum zugeschlagen werden !
+ $he += $fsize;
+ $z4 += $fsize if ($z3); # komplette Grafik ohne negativ Balken, keine Ausgabe von z3 & z4
+ }
+
+ # das style des nächsten TD bestimmt ganz wesentlich das gesammte Design
+ # das \n erleichtert das lesen des Seitenquelltext beim debugging
+ # vertical-align:bottom damit alle Balken und Ausgaben wirklich auf der gleichen Grundlinie sitzen
+
+ $ret .="\n";
+
+ if (($type eq 'pv') || ($type eq 'co')) {
+ $v = ($type eq 'co') ? $co{$i} : $pv{$i} ;
+ $v = 0 if (($type eq 'co') && !$pv{$i} && !$show_night); # auch bei type co die Nacht ggf. unterdrücken
+ $val = formatVal6($v,$kw,$we{$i});
+
+ $ret .=""; # mit width=100% etwas bessere Füllung der Balken
+ $ret .="";
+ $ret .="| ".$val." | ";
+
+ if ($v || $show_night) {
+ # Balken nur einfärben wenn der User via Attr eine Farbe vorgibt, sonst bestimmt class odd von TR alleine die Farbe
+ my $style = "style=\"padding-bottom:0px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $style .= (defined($colorv)) ? " background-color:#$colorv\"" : '"'; # Syntaxhilight
+
+ $ret .= "";
+ $ret .= "| ";
+
+ my $sicon = 1;
+ $ret .= $is{$i} if (defined ($is{$i}) && $sicon);
+
+ ##################################
+ # inject the new icon if defined
+ $ret .= consinject($hash,$i,@pgCDev) if($ret);
+
+ $ret .= " | ";
+ }
+
+ } elsif ($type eq 'pvco') {
+ my ($color1, $color2, $style1, $style2);
+
+ $ret .="\n"; # mit width=100% etwas bessere Füllung der Balken
+
+ if ($he) { # der Freiraum oben kann beim größten Balken ganz entfallen
+ $ret .=" | ";
+ }
+
+ if ($pv{$i} > $co{$i}) { # wer ist oben, co pder pv ? Wert und Farbe für Zone 2 & 3 vorbesetzen
+ $val = formatVal6($pv{$i},$kw,$we{$i});
+ $color1 = $colorv;
+ $style1 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $style1 .= (defined($color1)) ? " background-color:#$color1\"" : '"';
+ if ($z3) { # die Zuweisung können wir uns sparen wenn Zone 3 nachher eh nicht ausgegeben wird
+ $v = formatVal6($co{$i},$kw,$we{$i});
+ $color2 = $colorc;
+ $style2 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $style2 .= (defined($color2)) ? " background-color:#$color2\"" : '"';
+ }
+
+ } else {
+ $val = formatVal6($co{$i},$kw,$we{$i});
+ $color1 = $colorc;
+ $style1 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $style1 .= (defined($color1)) ? " background-color:#$color1\"" : '"';
+ if ($z3) {
+ $v = formatVal6($pv{$i},$kw,$we{$i});
+ $color2 = $colorv;
+ $style2 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $style2 .= (defined($color2)) ? " background-color:#$color2\"" : '"';
+ }
+ }
+
+ $ret .= "";
+ $ret .= "| $val";
+
+ $ret .= $is{$i} if (defined $is{$i});
+
+ ##################################
+ # inject the new icon if defined
+ $ret .= consinject($hash,$i,@pgCDev) if($ret);
+
+ $ret .= " | ";
+
+ if ($z3) { # die Zone 3 lassen wir bei zu kleinen Werten auch ganz weg
+ $ret .= "";
+ $ret .= "| $v | ";
+ }
+
+ } else { # Type dif
+ my $style = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
+
+ $ret .="\n"; # Tipp : das nachfolgende border=0 auf 1 setzen hilft sehr Ausgabefehler zu endecken
+
+ $val = ($di{$i} >= 0) ? formatVal6($di{$i},$kw,$we{$i}) : '';
+ $val = ' 0 ' if ($di{$i} == 0); # Sonderfall , hier wird die 0 gebraucht !
+
+ if ($val) {
+ $ret .="";
+ $ret .="| ".$val." | ";
+ }
+
+ if ($di{$i} >= 0) { # mit Farbe 1 colorv füllen
+ $style .= (defined($colorv)) ? " background-color:#$colorv\"" : '"';
+ $z2 = 1 if ($di{$i} == 0); # Sonderfall , 1px dünnen Strich ausgeben
+ $ret .= "";
+ $ret .= "| ";
+ $ret .= $is{$i} if (defined $is{$i});
+ $ret .=" | ";
+
+ } else { # ohne Farbe
+ $z2 = 2 if ($di{$i} == 0); # Sonderfall, hier wird die 0 gebraucht !
+ if ($z2 && $val) { # z2 weglassen wenn nicht unbedigt nötig bzw. wenn zuvor he mit val keinen Wert hatte
+ $ret .= "";
+ $ret .=" | ";
+ }
+ }
+
+ if ($di{$i} < 0) { # Negativ Balken anzeigen ?
+ $style .= (defined($colorc)) ? " background-color:#$colorc\"" : '"'; # mit Farbe 2 colorc füllen
+ $ret .= "";
+ $ret .= " | ";
+
+ } elsif ($z3) { # ohne Farbe
+ $ret .="";
+ $ret .=" | ";
+ }
+
+ if ($z4) { # kann entfallen wenn auch z3 0 ist
+ $val = ($di{$i} < 0) ? formatVal6($di{$i},$kw,$we{$i}) : ' ';
+ $ret .="";
+ $ret .="| ".$val." | ";
+ }
+ }
+
+ if ($show_diff eq 'bottom') { # zusätzliche diff Anzeige
+ $val = formatVal6($di{$i},$kw,$we{$i});
+ $val = ($di{$i} < 0) ? ''.$val.'' : '+'.$val; # Kommentar siehe oben bei show_diff eq top
+ $ret .= "| $val | ";
+ }
+
+ $ret .= "| ";
+ $t{$i} = $t{$i}.$hourstyle if(defined($hourstyle)); # z.B. 10:00 statt 10
+ $ret .= $t{$i}." | "; # Stundenwerte ohne führende 0
+ }
+
+ $ret .= " | ";
+
+ ###################
+ # Legende unten
+ if ($legend_txt && ($legend eq 'bottom')) {
+ $ret .= "";
+ $ret .= "| ";
+ $ret .= "$legend_txt | ";
+ }
+
+ $ret .= " ";
+ $ret .= $html_end if (defined($html_end));
+ $ret .= "";
+
+return $ret;
+}
+
+################################################################
+# Inject consumer icon
+################################################################
+sub consinject {
+ my ($hash,$i,@pgCDev) = @_;
+ my $name = $hash->{NAME};
+ my $ret = "";
+
+ foreach (@pgCDev) {
+ if ($_) {
+ my ($cons,$im,$start,$end) = split (':', $_);
+ Log3($name, 4, "$name - Consumer to show -> $cons, relative to current time -> start: $start, end: $end") if($i<1);
+ if ($im && ($i >= $start) && ($i <= $end)) {
+ $ret .= FW_makeImage($im);
+ }
+ }
+ }
+
+return $ret;
+}
+
+###############################################################################
+# Balkenbreite normieren
+#
+# Die Balkenbreite wird bestimmt durch den Wert.
+# Damit alle Balken die gleiche Breite bekommen, müssen die Werte auf
+# 6 Ausgabezeichen angeglichen werden.
+# "align=center" gleicht gleicht es aus, alternativ könnte man sie auch
+# komplett rechtsbündig ausgeben.
+# Es ergibt bei fast allen Styles gute Ergebnisse, Ausnahme IOS12 & 6, da diese
+# beiden Styles einen recht großen Font benutzen.
+# Wird Wetter benutzt, wird die Balkenbreite durch das Icon bestimmt
+###############################################################################
+sub formatVal6 {
+ my ($v,$kw,$w) = @_;
+ my $n = ' '; # positive Zahl
+
+ if ($v < 0) {
+ $n = '-'; # negatives Vorzeichen merken
+ $v = abs($v);
+ }
+
+ if ($kw eq 'kWh') { # bei Anzeige in kWh muss weniger aufgefüllt werden
+ $v = sprintf('%.1f',($v/1000));
+ $v += 0; # keine 0.0 oder 6.0 etc
+
+ return ($n eq '-') ? ($v*-1) : $v if defined($w) ;
+
+ my $t = $v - int($v); # Nachkommstelle ?
+
+ if (!$t) { # glatte Zahl ohne Nachkommastelle
+ if(!$v) {
+ return ' '; # 0 nicht anzeigen, passt eigentlich immer bis auf einen Fall im Typ diff
+ } elsif ($v < 10) {
+ return ' '.$n.$v.' ';
+ } else {
+ return ' '.$n.$v.' ';
+ }
+ } else { # mit Nachkommastelle -> zwei Zeichen mehr .X
+ if ($v < 10) {
+ return ' '.$n.$v.' ';
+ } else {
+ return $n.$v.' ';
+ }
+ }
+ }
+
+ return ($n eq '-')?($v*-1):$v if defined($w);
+
+ # Werte bleiben in Watt
+ if (!$v) { return ' '; } # keine Anzeige bei Null
+ elsif ($v < 10) { return ' '.$n.$v.' '; } # z.B. 0
+ elsif ($v < 100) { return ' '.$n.$v.' '; }
+ elsif ($v < 1000) { return ' '.$n.$v.' '; }
+ elsif ($v < 10000) { return $n.$v.' '; }
+ else { return $n.$v; } # mehr als 10.000 W :)
+}
+
+###############################################################################
+# Zuordungstabelle "WeatherId" angepasst auf FHEM Icons
+###############################################################################
+sub weather_icon {
+ my $id = shift;
+
+ my %weather_ids = (
+ '0' => 'weather_sun', # Sonne (klar) # vorhanden
+ '1' => 'weather_cloudy_light', # leichte Bewölkung (1/3) # vorhanden
+ '2' => 'weather_cloudy', # mittlere Bewölkung (2/3) # vorhanden
+ '3' => 'weather_cloudy_heavy', # starke Bewölkung (3/3) # vorhanden
+ '10' => 'weather_fog', # Nebel # neu
+ '11' => 'weather_rain_fog', # Nebel mit Regen # neu
+ '20' => 'weather_rain_heavy', # Regen (viel) # vorhanden
+ '21' => 'weather_rain_snow_heavy', # Regen (viel) mit Schneefall # neu
+ '30' => 'weather_rain_light', # leichter Regen (1 Tropfen) # vorhanden
+ '31' => 'weather_rain', # leichter Regen (2 Tropfen) # vorhanden
+ '32' => 'weather_rain_heavy', # leichter Regen (3 Tropfen) # vorhanden
+ '40' => 'weather_rain_snow_light', # leichter Regen mit Schneefall (1 Tropfen) # neu
+ '41' => 'weather_rain_snow', # leichter Regen mit Schneefall (3 Tropfen) # neu
+ '50' => 'weather_snow_light', # bewölkt mit Schneefall (1 Flocke) # vorhanden
+ '51' => 'weather_snow', # bewölkt mit Schneefall (2 Flocken) # vorhanden
+ '52' => 'weather_snow_heavy', # bewölkt mit Schneefall (3 Flocken) # vorhanden
+ '60' => 'weather_rain_light', # Sonne, Wolke mit Regen (1 Tropfen) # vorhanden
+ '61' => 'weather_rain', # Sonne, Wolke mit Regen (2 Tropfen) # vorhanden
+ '62' => 'weather_rain_heavy', # Sonne, Wolke mit Regen (3 Tropfen) # vorhanden
+ '70' => 'weather_snow_light', # Sonne, Wolke mit Schnee (1 Flocke) # vorhanden
+ '71' => 'weather_snow_heavy', # Sonne, Wolke mit Schnee (3 Flocken) # vorhanden
+ '80' => 'weather_thunderstorm', # Wolke mit Blitz # vorhanden
+ '81' => 'weather_storm', # Wolke mit Blitz und Starkregen # vorhanden
+ '90' => 'weather_sun', # Sonne (klar) # vorhanden
+ '91' => 'weather_sun', # Sonne (klar) wie 90 # vorhanden
+ '100' => 'weather_night', # Mond - Nacht # neu
+ '101' => 'weather_night_cloudy_light', # Mond mit Wolken - # neu
+ '102' => 'weather_night_cloudy', # Wolken mittel (2/2) - Nacht # neu
+ '103' => 'weather_night_cloudy_heavy', # Wolken stark (3/3) - Nacht # neu
+ '110' => 'weather_night_fog', # Nebel - Nacht # neu
+ '111' => 'weather_night_rain_fog', # Nebel mit Regen (3 Tropfen) - Nacht # neu
+ '120' => 'weather_night_rain_heavy', # Regen (viel) - Nacht # neu
+ '121' => 'weather_night_snow_rain_heavy', # Regen (viel) mit Schneefall - Nacht # neu
+ '130' => 'weather_night_rain_light', # leichter Regen (1 Tropfen) - Nacht # neu
+ '131' => 'weather_night_rain', # leichter Regen (2 Tropfen) - Nacht # neu
+ '132' => 'weather_night_rain_heavy', # leichter Regen (3 Tropfen) - Nacht # neu
+ '140' => 'weather_night_snow_rain_light', # leichter Regen mit Schneefall (1 Tropfen) - Nacht # neu
+ '141' => 'weather_night_snow_rain_heavy', # leichter Regen mit Schneefall (3 Tropfen) - Nacht # neu
+ '150' => 'weather_night_snow_light', # bewölkt mit Schneefall (1 Flocke) - Nacht # neu
+ '151' => 'weather_night_snow', # bewölkt mit Schneefall (2 Flocken) - Nacht # neu
+ '152' => 'weather_night_snow_heavy', # bewölkt mit Schneefall (3 Flocken) - Nacht # neu
+ '160' => 'weather_night_rain_light', # Mond, Wolke mit Regen (1 Tropfen) - Nacht # neu
+ '161' => 'weather_night_rain', # Mond, Wolke mit Regen (2 Tropfen) - Nacht # neu
+ '162' => 'weather_night_rain_heavy', # Mond, Wolke mit Regen (3 Tropfen) - Nacht # neu
+ '170' => 'weather_night_snow_rain', # Mond, Wolke mit Schnee (1 Flocke) - Nacht # neu
+ '171' => 'weather_night_snow_heavy', # Mond, Wolke mit Schnee (3 Flocken) - Nacht # neu
+ '180' => 'weather_night_thunderstorm_light', # Wolke mit Blitz - Nacht # neu
+ '181' => 'weather_night_thunderstorm' # Wolke mit Blitz und Starkregen - Nacht # neu
+ );
+
+return $weather_ids{$id} if(defined($weather_ids{$id}));
+return 'unknown';
+}
+
+######################################################################################################
+# Refresh eines Raumes aus $hash->{HELPER}{SPGROOM}
+# bzw. Longpoll von SMAPortal bzw. eines SMAPortalSPG Devices wenn $hash->{HELPER}{SPGDEV} gefüllt
+# $hash, $pload (1=Page reload), SMAPortalSPG-Event (1=Event)
+######################################################################################################
+sub SPGRefresh {
+ my ($hash,$pload,$lpollspg) = @_;
+ my $name;
+ if (ref $hash ne "HASH") {
+ ($name,$pload,$lpollspg) = split ",",$hash;
+ $hash = $defs{$name};
+ } else {
+ $name = $hash->{NAME};
+ }
+ my $fpr = 0;
+
+ # Kontext des SMAPortalSPG-Devices speichern für Refresh
+ my $sd = $hash->{HELPER}{SPGDEV} ? $hash->{HELPER}{SPGDEV} : "\"n.a.\""; # Name des aufrufenden SMAPortalSPG-Devices
+ my $sr = $hash->{HELPER}{SPGROOM} ? $hash->{HELPER}{SPGROOM} : "\"n.a.\""; # Raum aus dem das SMAPortalSPG-Device die Funktion aufrief
+ my $sl = $hash->{HELPER}{SPGDETAIL} ? $hash->{HELPER}{SPGDETAIL} : "\"n.a.\""; # Name des SMAPortalSPG-Devices (wenn Detailansicht)
+ $fpr = AttrVal($hash->{HELPER}{SPGDEV},"forcePageRefresh",0) if($hash->{HELPER}{SPGDEV});
+ Log3($name, 4, "$name - Refresh - caller: $sd, callerroom: $sr, detail: $sl, pload: $pload, forcePageRefresh: $fpr, event_Spgdev: $lpollspg");
+
+ # Page-Reload
+ if($pload && ($hash->{HELPER}{SPGROOM} && !$hash->{HELPER}{SPGDETAIL} && !$fpr)) {
+ # trifft zu wenn in einer Raumansicht
+ my @rooms = split(",",$hash->{HELPER}{SPGROOM});
+ foreach (@rooms) {
+ my $room = $_;
+ { map { FW_directNotify("FILTER=room=$room", "#FHEMWEB:$_", "location.reload('true')", "") } devspec2array("TYPE=FHEMWEB") }
+ }
+ } elsif ($pload && (!$hash->{HELPER}{SPGROOM} || $hash->{HELPER}{SPGDETAIL})) {
+ # trifft zu bei Detailansicht oder im FLOORPLAN bzw. Dashboard oder wenn Seitenrefresh mit dem
+ # SMAPortalSPG-Attribut "forcePageRefresh" erzwungen wird
+ { map { FW_directNotify("#FHEMWEB:$_", "location.reload('true')", "") } devspec2array("TYPE=FHEMWEB") }
+ } else {
+ if($fpr) {
+ { map { FW_directNotify("#FHEMWEB:$_", "location.reload('true')", "") } devspec2array("TYPE=FHEMWEB") }
+ }
+ }
+
+ # parentState des SMAPortalSPG-Device updaten
+ my @spgs = devspec2array("TYPE=SMAPortalSPG");
+ my $st = ReadingsVal($name, "state", "initialized");
+ foreach(@spgs) {
+ if($defs{$_}{PARENT} eq $name) {
+ next if(IsDisabled($defs{$_}{NAME}));
+ readingsBeginUpdate($defs{$_});
+ readingsBulkUpdate($defs{$_},"parentState", $st);
+ readingsBulkUpdate($defs{$_},"state", "updated");
+ readingsEndUpdate($defs{$_}, 1);
+ }
+ }
+
+return;
+}
+
+1;
+
+=pod
+=encoding utf8
+=item summary Module for communication with the SMA Sunny Portal
+=item summary_DE Modul zur Kommunikation mit dem SMA Sunny Portal
+
+=begin html
+
+
+SMAPortal
+
+
+ With this module it is possible to fetch data from the SMA Sunny Portal and switch
+ consumers (e.g. bluetooth plug sockets) if any are present.
+ At the momentent that are the following data:
+
+
+ - Live data (Consumption and PV-Generation)
+ - Battery data (In/Out) and usage data of consumers
+ - Weather data delivered from SMA for the facility location
+ - Forecast data (Consumption and PV-Generation) inclusive suggestion times to switch comsumers on
+ - the planned times by the Sunny Home Manager to switch consumers on and the current state of consumers (if present)
+
+
+
+
+ Graphic data can also be integrated into FHEM Tablet UI with the
+ "SMAPortalSPG Widget".
+
+
+ Preparation
+
+
+ This module use the Perl module JSON which has typically to be installed discrete.
+ On Debian linux based systems that can be done by command:
+
+ sudo apt-get install libjson-perl
+
+ Subsequent there are an overview of used Perl modules:
+
+ POSIX
+ JSON
+ Data::Dumper
+ Time::HiRes
+ Time::Local
+ Blocking (FHEM-Modul)
+ GPUtils (FHEM-Modul)
+ FHEM::Meta (FHEM-Modul)
+ LWP::UserAgent
+ HTTP::Cookies
+ MIME::Base64
+ Encode
+
+
+
+
+
+ Definition
+
+
+ A SMAPortal device will be defined by:
+
+
+ define <name> SMAPortal
+
+
+ After the definition of the device the credentials for the SMA Sunny Portal must be saved with the
+ following command:
+
+
+ set <name> credentials <Username> <Password>
+
+
+
+
+
+ Set
+
+
+
+ - set <name> createPortalGraphic <Generation | Consumption | Generation_Consumption | Differential>
+ Creates graphical devices to show the SMA Sunny Portal forecast data in several layouts.
+ The attribute "detailLevel" has to be set to level 4. The command set this attribut to the needed value automatically.
+ With the "attributes of the graphic device" the appearance and coloration of the forecast
+ data in the created graphic device can be adjusted.
+
+
+
+
+ - set <name> credentials <username> <password>
+ Set Username / Password used for the login into the SMA Sunny Portal.
+
+
+
+
+ - set <name> delCookieFile
+ The active cookie will be deleted.
+
+
+
+
+ - set <name> <consumer name> <on | off | auto>
+ If the attribute "detailLevel" is set to 3 or higher, consumer data are fetched from the SMA Sunny Portal.
+ Once these data are available, the consumer are shown in the Set and can be switched to on, off or the automatic mode (auto)
+ that means the consumer are controlled by the Sunny Home Manager.
+
+
+
+
+
+
+ Get
+
+
+
+ - get <name> data
+ This command fetch the data from the SMA Sunny Portal manually.
+
+
+
+
+ - get <name> storedCredentials
+ The saved credentials are displayed in a popup window.
+
+
+
+
+
+ Attributes
+
+
+
+
+ - cookielifetime <Sekunden>
+ Validity period of a received Cookie.
+ (default: 3600)
+
+
+
+ - cookieLocation <Pfad/File>
+ The path and filename of received Cookies.
+ (default: ./log/<name>_cookie.txt)
+
+
+
+ Example:
+ attr <name> cookieLocation ./log/cookies.txt
+
+
+
+
+ - detailLevel
+ Adjust the complexity of the generated data.
+
+
+
+
+
+ | L1 | - only live data and weather data are generated. |
+ | L2 | - as L1 and additional forecast of the current data, the data of the next 4 hours as well as PV-Generation / Consumption the rest of day and the next day |
+ | L3 | - as L2 and additional forecast of the planned switch-on times of consumers, whose current state and energy data as well as their battery usage data |
+ | L4 | - as L3 and additional a detailed forecast of the next 24 hours |
+
+
+
+
+
+
+ - disable
+ Deactivate/activate the device.
+
+
+ - getDataRetries <Anzahl>
+ Number of repetitions (get data) in case of no live data are fetched from the SMA Sunny Portal (default: 3).
+
+
+ - interval <seconds>
+ Time interval for continuous data retrieval from the aus dem SMA Sunny Portal (default: 300 seconds).
+ if the interval is set to "0", no continuous data retrieval is executed and has to be triggered manually by the
+ "get <name> data" command.
+
+ Note:
+ The retrieval interval should not be less than 120 seconds. As of previous experiences SMA suffers an interval of
+ 120 seconds although the SMA terms and conditions don't permit an automatic data fetch by computer programs.
+
+
+
+ - showPassInLog
+ If set, the used password will be displayed in Logfile output.
+ (default = 0)
+
+
+ - timeout <seconds>
+ Timeout value for HTTP-calls to the SMA Sunny Portal (default: 30 seconds).
+
+
+
+ - userAgent <identifier>
+ An user agent identifier for identifikation against the SMA Sunny Portal can be specified.
+
+
+
+ Example:
+ attr <name> userAgent Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:65.0) Gecko/20100101 Firefox/65.0
+
+
+
+
+ - verbose5Data
+ If verbose 5 is set, huge data are generated. With this attribute only the interesting verbose 5 output
+ can be specified. (default: none).
+
+
+
+
+
+
+
+
+
+=end html
+=begin html_DE
+
+
+SMAPortal
+
+
+ Mit diesem Modul können Daten aus dem SMA Sunny Portal abgerufen werden.
+ Momentan sind es:
+
+
+ - Live-Daten (Verbrauch und PV-Erzeugung)
+ - Batteriedaten (In/Out) sowie Nutzungsdaten durch Verbraucher
+ - Wetter-Daten von SMA für den Anlagenstandort
+ - Prognosedaten (Verbrauch und PV-Erzeugung) inklusive Verbraucherempfehlung
+ - die durch den Sunny Home Manager geplanten Schaltzeiten und aktuellen Status von Verbrauchern (sofern vorhanden)
+
+
+
+
+ Die Portalgrafik kann ebenfalls in FHEM Tablet UI mit dem
+ "SMAPortalSPG Widget" integriert werden.
+
+
+ Vorbereitung
+
+
+ Dieses Modul nutzt das Perl-Modul JSON welches üblicherweise nachinstalliert werden muss.
+ Auf Debian-Linux basierenden Systemen kann es installiert werden mit:
+
+ sudo apt-get install libjson-perl
+
+ Überblick über die Perl-Module welche von SMAPortal genutzt werden:
+
+ POSIX
+ JSON
+ Data::Dumper
+ Time::HiRes
+ Time::Local
+ Blocking (FHEM-Modul)
+ GPUtils (FHEM-Modul)
+ FHEM::Meta (FHEM-Modul)
+ LWP::UserAgent
+ HTTP::Cookies
+ MIME::Base64
+ Encode
+
+
+
+
+
+ Definition
+
+
+ Ein SMAPortal-Device wird definiert mit:
+
+
+ define <Name> SMAPortal
+
+
+ Nach der Definition des Devices müssen die Zugangsparameter für das SMA Sunny Portal gespeichert werden
+ mit dem Befehl:
+
+
+ set <Name> credentials <Username> <Passwort>
+
+
+
+
+
+ Set
+
+
+
+ - set <name> createPortalGraphic <Generation | Consumption | Generation_Consumption | Differential>
+ Erstellt Devices zur grafischen Anzeige der SMA Sunny Portal Prognosedaten in verschiedenen Layouts.
+ Das Attribut "detailLevel" muss auf den Level 4 gesetzt sein. Der Befehl setzt dieses Attribut automatisch auf
+ den benötigten Wert.
+ Mit den "Attributen des Grafikdevices" können Erscheinungsbild und
+ Farbgebung der Prognosedaten in den erstellten Grafik-Devices angepasst werden.
+
+
+
+
+ - set <name> credentials <username> <password>
+ Setzt Username / Passwort zum Login in das SMA Sunny Portal.
+
+
+
+
+ - set <name> delCookieFile
+ Das aktive Cookie wird gelöscht.
+
+
+
+
+ - set <name> <Verbrauchername> <on | off | auto>
+ Ist das Atttribut detailLevel auf 3 oder höher gesetzt, werden Verbraucherdaten aus dem SMA Sunny Portal abgerufen.
+ Sobald diese Werte vorliegen, werden die vorhandenen Verbraucher im Set angezeigt und können eingeschaltet, ausgeschaltet
+ bzw. auf die Steuerung durch den Sunny Home Manager umgeschaltet werden (auto).
+
+
+
+
+
+
+ Get
+
+
+
+ - get <name> data
+ Mit diesem Befehl werden die Daten aus dem SMA Sunny Portal manuell abgerufen.
+
+
+
+
+ - get <name> storedCredentials
+ Die gespeicherten Anmeldeinformationen (Credentials) werden in einem Popup als Klartext angezeigt.
+
+
+
+
+
+ Attribute
+
+
+
+
+ - cookielifetime <Sekunden>
+ Gültigkeitszeitraum für einen empfangenen Cookie.
+ (default: 3600)
+
+
+
+ - cookieLocation <Pfad/File>
+ Angabe von Pfad und Datei zur Abspeicherung des empfangenen Cookies.
+ (default: ./log/<name>_cookie.txt)
+
+
+
+ Beispiel:
+ attr <name> cookieLocation ./log/cookies.txt
+
+
+
+
+ - detailLevel
+ Es wird der Umfang der zu generierenden Daten eingestellt.
+
+
+
+
+
+ | L1 | - nur Live-Daten und Wetter-Daten werden generiert. |
+ | L2 | - wie L1 und zusätzlich Prognose der aktuellen und nächsten 4 Stunden sowie PV-Erzeugung / Verbrauch des Resttages und des Folgetages |
+ | L3 | - wie L2 und zusätzlich Prognosedaten der geplanten Einschaltzeiten von Verbrauchern, deren aktueller Status und Energiedaten sowie Batterie-Nutzungsdaten |
+ | L4 | - wie L3 und zusätzlich die detaillierte Prognose der nächsten 24 Stunden |
+
+
+
+
+
+
+ - disable
+ Deaktiviert das Device.
+
+
+ - getDataRetries <Anzahl>
+ Anzahl der Wiederholungen (get data) im Fall dass keine Live-Daten vom SMA Sunny Portal geliefert
+ wurden (default: 3).
+
+
+ - interval <Sekunden>
+ Zeitintervall zum kontinuierlichen Datenabruf aus dem SMA Sunny Portal (Default: 300 Sekunden).
+ Ist interval explizit auf "0" gesetzt, erfolgt kein automatischer Datenabruf und muss mit "get <name> data" manuell
+ erfolgen.
+
+ Hinweis:
+ Das Abfrageintervall sollte nicht kleiner 120 Sekunden sein. Nach bisherigen Erfahrungen toleriert SMA ein
+ Intervall von 120 Sekunden obwohl lt. SMA AGB der automatische Datenabruf untersagt ist.
+
+
+
+ - showPassInLog
+ Wenn gesetzt, wird das verwendete Passwort im Logfile angezeigt.
+ (default = 0)
+
+
+ - timeout <Sekunden>
+ Timeout-Wert für HTTP-Aufrufe zum SMA Sunny Portal (default: 30 Sekunden).
+
+
+
+ - userAgent <Kennung>
+ Es kann die User-Agent-Kennung zur Identifikation gegenüber dem SMA Sunny Portal angegeben werden.
+
+
+
+ Beispiel:
+ attr <name> userAgent Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:65.0) Gecko/20100101 Firefox/65.0
+
+
+
+
+ - verbose5Data
+ Mit dem Attributwert verbose 5 werden zu viele Daten generiert. Mit diesem Attribut können gezielt die interessierenden
+ verbose 5 Ausgaben selektiert werden. (default: none).
+
+
+
+
+
+
+
+
+=end html_DE
+
+=for :application/json;q=META.json 76_SMAPortal.pm
+{
+ "abstract": "Module for communication with the SMA Sunny Portal",
+ "x_lang": {
+ "de": {
+ "abstract": "Modul zur Kommunikation mit dem SMA Sunny Portal"
+ }
+ },
+ "keywords": [
+ "sma",
+ "photovoltaik",
+ "electricity",
+ "portal",
+ "smaportal"
+ ],
+ "version": "v1.1.1",
+ "release_status": "stable",
+ "author": [
+ "Heiko Maaz ",
+ "Wzut",
+ "XGuide",
+ null
+ ],
+ "x_fhem_maintainer": [
+ "DS_Starter"
+ ],
+ "x_fhem_maintainer_github": [
+ "nasseeder1"
+ ],
+ "prereqs": {
+ "runtime": {
+ "requires": {
+ "FHEM": 5.00918799,
+ "perl": 5.014,
+ "JSON": 0,
+ "Encode": 0,
+ "POSIX": 0,
+ "Data::Dumper": 0,
+ "Blocking": 0,
+ "GPUtils": 0,
+ "Time::HiRes": 0,
+ "Time::Local": 0,
+ "LWP": 0,
+ "HTTP::Cookies": 0,
+ "MIME::Base64": 0
+ },
+ "recommends": {
+ "FHEM::Meta": 0
+ },
+ "suggests": {
+ }
+ }
+ }
+}
+=end :application/json;q=META.json
+
+=cut
\ No newline at end of file
| |
![](\"$FW_ME/www/images/default/1px-spacer.png\"){kind=spacer}
";
+ if($swstate eq "off") {
+ $swicon = "![](\"$FW_ME/www/images/default/10px-kreis-rot.png\")
";
+ } elsif ($swstate eq "on") {
+ $swicon = "![](\"$FW_ME/www/images/default/10px-kreis-gruen.png\")
";
+ } elsif ($swstate =~ /off.*automatic.*/ix) {
+ $swicon = "![](\"$FW_ME/www/images/default/10px-kreis-gelb.png\")
";
+ }
+
+ if ($legend_style eq 'icon') { # mögliche Umbruchstellen mit normalen Blanks vorsehen !
+ $legend_txt .= $txt.' '.FW_makeImage($im).' '.$swicon.' ';
+ } else {
+ my (undef,$co) = split('\@',$im);
+ $co = '#cccccc' if (!$co); # Farbe per default
+ $legend_txt .= ''.$txt.' '.$swicon.' '; # hier auch Umbruch erlauben
+ }
+ }
+ }
+
+ # Parameter f. Anzeige extrahieren
+ $maxhours = AttrNum($wlname, 'hourCount', 24);
+ $hourstyle = AttrVal($wlname, 'hourStyle', undef);
+ $colorv = AttrVal($wlname, 'beamColor', undef);
+ $colorc = AttrVal($wlname, 'beamColor2', '000000'); # schwarz wenn keine Userauswahl;
+ $icon = AttrVal($wlname, 'consumerAdviceIcon', undef);
+ $html_start = AttrVal($wlname, 'htmlStart', undef); # beliebige HTML Strings die vor der Grafik ausgegeben werden
+ $html_end = AttrVal($wlname, 'htmlEnd', undef); # beliebige HTML Strings die nach der Grafik ausgegeben werden
+
+ $type = AttrVal($wlname, 'layoutType', 'pv');
+ $kw = AttrVal($wlname, 'Wh/kWh', 'Wh');
+
+ $height = AttrNum($wlname, 'beamHeight', 200);
+ $width = AttrNum($wlname, 'beamWidth', 6); # zu klein ist nicht problematisch
+ $w = $width*$maxhours; # gesammte Breite der Ausgabe , WetterIcon braucht ca. 34px
+ $fsize = AttrNum($wlname, 'spaceSize', 24);
+ $maxVal = AttrNum($wlname, 'maxPV', 0); # dyn. Anpassung der Balkenhöhe oder statisch ?
+
+ $show_night = AttrNum($wlname, 'showNight', 0); # alle Balken (Spalten) anzeigen ?
+ $show_diff = AttrVal($wlname, 'showDiff', 'no'); # zusätzliche Anzeige $di{} in allen Typen
+ $weather = AttrNum($wlname, 'showWeather', 1);
+ $colorw = AttrVal($wlname, 'weatherColor', undef);
+
+ $wlalias = AttrVal($wlname, 'alias', $wlname);
+ $header = AttrNum($wlname, 'showHeader', 1);
+ $hdrAlign = AttrVal($wlname, 'headerAlignment', 'center'); # ermöglicht per attr die Ausrichtung der Tabelle zu setzen
+ $hdrDetail = AttrVal($wlname, 'headerDetail', 'all'); # ermöglicht den Inhalt zu begrenzen, um bspw. passgenau in ftui einzubetten
+
+ # Icon Erstellung, mit @