76_SolarForecast: contrib 1.0.11

git-svn-id: https://svn.fhem.de/fhem/trunk@28156 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/contrib/DS_Starter/76_SolarForecast.pm

@@ -94,6 +94,9 @@ BEGIN {
           FmtDateTime
           FW_makeImage
           getKeyValue
+          getAllAttr
+          getAllGets
+          getAllSets
           HttpUtils_NonblockingGet
           init_done
           InternalTimer
@@ -119,8 +122,10 @@ BEGIN {
           FW_directNotify
           FW_ME
           FW_subdir
+          FW_pH
           FW_room
           FW_detail
+          FW_widgetFallbackFn
           FW_wname
         )
   );
@@ -144,6 +149,7 @@ BEGIN {
 
 # Versions History intern
 my %vNotesIntern = (
+  "1.0.11" => "13.11.2023  graphicHeaderOwnspec: add possible set/attr commands ",
   "1.0.10" => "31.10.2023  fix warnings, edit comref ",
   "1.0.9"  => "29.10.2023  _aiGetSpread: set spread from 50 to 20 ",
   "1.0.8"  => "22.10.2023  codechange: add central readings store array, new function storeReading, writeCacheToFile ".
@@ -442,6 +448,7 @@ my $kJtokWh        = 0.00027778;
 my $defmaxvar      = 0.5;                                                           # max. Varianz pro Tagesberechnung Autokorrekturfaktor
 my $definterval    = 70;                                                            # Standard Abfrageintervall
 my $defslidenum    = 3;                                                             # max. Anzahl der Arrayelemente in Schieberegistern
+my $webCmdFn       = 'FW_widgetFallbackFn';                                         # FHEMWEB Widgets Funktion
 
 my $pvhcache       = $attr{global}{modpath}."/FHEM/FhemUtils/PVH_SolarForecast_";   # Filename-Fragment für PV History (wird mit Devicename ergänzt)
 my $pvccache       = $attr{global}{modpath}."/FHEM/FhemUtils/PVC_SolarForecast_";   # Filename-Fragment für PV Circular (wird mit Devicename ergänzt)
@@ -529,6 +536,8 @@ my @dd    = qw( none
                 saveData2Cache
               );
               
+my $allwidgets = 'icon|sortable|uzsu|knob|noArg|time|text|slider|multiple|select|bitfield|widgetList';
+
 # Steuerhashes
 ###############
 
@@ -3860,6 +3869,7 @@ sub _getlistPVHistory {
 
   my $ret = listDataPool   ($hash, 'pvhist', $arg);
   $ret   .= lineFromSpaces ($ret, 20);
+  $ret    =~ s/\n/<br>/g;
   
 return $ret;
 }
@@ -9073,6 +9083,9 @@ sub __createOwnSpec {
 
   return if(!$spec || !$show);
   
+  my $allsets  = getAllSets ($name);
+  my $allattrs = getAllAttr ($name);
+
   my @fields = split (/\s+/sx, $spec);
 
   my (@cats, @vals);
@@ -9102,27 +9115,37 @@ sub __createOwnSpec {
               next;
           }
           
-          ($v->{$k}, $u->{$k}) = split /\s+/, ReadingsVal ($name, $h->{$k}{rdg}, '');
+          my $setcmd = ___getFWwidget ($name, $h->{$k}{rdg}, $allsets, 'set');
+          
+          if ($setcmd) {
+              $v->{$k} = $setcmd;
+              $u->{$k} = q{};
+              next;
           }
           
+          my $attrcmd = ___getFWwidget ($name, $h->{$k}{rdg}, $allattrs, 'attr');
+          
+          if ($attrcmd) {
+              $v->{$k} = $attrcmd;
+              $u->{$k} = q{};
+              next;
+          }
+          
+          ($v->{$k}, $u->{$k}) = split /\s+/, ReadingsVal ($name, $h->{$k}{rdg}, ' ');
+          
+          next if(!$u->{$k});
+          
           if ($uatr eq 'kWh') {
-          for (my $r = 0 ; $r < $vinr; $r++) {
+              if ($u->{$k} =~ /^Wh/xs) {
-              next if(!$u->{$r});
+                  $v->{$k} = sprintf "%.1f",($v->{$k} / 1000);
-
+                  $u->{$k} = 'kWh';
-              if ($u->{$r} =~ /^Wh/xs) {
-                  $v->{$r} = sprintf "%.1f",($v->{$r} / 1000);
-                  $u->{$r} = 'kWh';
-              }
               }
           }
 
           if ($uatr eq 'Wh') {
-          for (my $r = 0 ; $r < $vinr; $r++) {
+              if ($u->{$k} =~ /^kWh/xs) {
-              next if(!$u->{$r});
+                  $v->{$k} = sprintf "%.0f",($v->{$k} * 1000);
-
+                  $u->{$k} = 'Wh';
-              if ($u->{$r} =~ /^kWh/xs) {
-                  $v->{$r} = sprintf "%.0f",($v->{$r} * 1000);
-                  $u->{$r} = 'Wh';
               }
           }
       }
@@ -9143,6 +9166,40 @@ sub __createOwnSpec {
 return $ownv;
 }
 
+################################################################
+#  liefert ein FHEMWEB set/attr Widget zurück
+################################################################  
+sub ___getFWwidget {
+  my $name = shift;
+  my $elm  = shift;                         # Element
+  my $allc = shift;                         # Kommandovorrat -> ist Element enthalten?
+  my $ctyp = shift // 'set';                # Kommandotyp: set/get
+
+  my $widget = '';
+  
+  if ($allc =~ /$elm:(.*?)\s+/xs) {
+      my $arg = $1;
+      
+      if ($arg !~ /^\#/xs && $arg !~ /^$allwidgets/xs) {
+          $arg = '#,'.$arg;         
+      }
+      
+      no strict "refs";                                                                    ## no critic 'NoStrict'
+      $widget = &{$webCmdFn} ($FW_wname, $name, "", $elm, $arg);
+      use strict "refs";
+
+      if ($widget) {
+          $widget =~ s,^<td[^>]*>(.*)</td>$,$1,x;
+          $widget =~ s,></div>, type='$ctyp'></div>,x;
+      }
+      else {
+          $widget = FW_pH ("cmd=$ctyp $name $elm imgget", $elm, 0, "", 1, 1);
+      }
+  }
+
+return $widget;
+}
+
 ################################################################
 #    Consumer in forecastGraphic (Balken) anzeigen
 #    (Hat zur Zeit keine Wirkung !)
@@ -9942,6 +9999,8 @@ sub __weatherOnBeam {
       last if ($ii > $maxhours);
                                                                                                              # ToDo : weather_icon sollte im Fehlerfall Title mit der ID besetzen um in FHEMWEB sofort die ID sehen zu können
       if (exists($hfcg->{$i}{weather}) && defined($hfcg->{$i}{weather})) {
+          debugLog ($paref, 'graphic', "weather id beam (from left) number >$i<: ".$hfcg->{$i}{weather});
+          
           my ($icon_name, $title) = $hfcg->{$i}{weather} > 100                            ?
                                     weather_icon ($name, $lang, $hfcg->{$i}{weather}-100) :
                                     weather_icon ($name, $lang, $hfcg->{$i}{weather});
@@ -10454,7 +10513,7 @@ sub weather_icon {
       return $weather_ids{$id}{icon}, encode("utf8", $weather_ids{$id}{$txt});
   }
 
-return 'unknown','';
+return ('unknown','');
 }
 
 ################################################################
@@ -14629,8 +14688,12 @@ to ensure that the system configuration is correct.
       The DWD service is integrated via a FHEM device of type DWD_OpenData.
       If there is no device of type DWD_OpenData yet, it must be defined in advance
       (look at <a href="http://fhem.de/commandref.html#DWD_OpenData">DWD_OpenData Commandref</a>). <br>
-      To obtain a good radiation forecast, a DWD station located near the plant site should be used.
+      To obtain a good radiation forecast, a DWD station located near the plant site should be used. <br>
-      Unfortunately, not all DWD stations provide the required Rad1h values. <br>
+      Unfortunately, not all 
+      <a href="https://www.dwd.de/DE/leistungen/klimadatendeutschland/statliste/statlex_html.html;jsessionid=EC5F572A52EB69684D552DCF6198F290.live31092?view=nasPublication&nn=16102">DWD stations</a> 
+      provide the required Rad1h values. <br>
+      Explanations of the stations are listed in 
+      <a href="https://www.dwd.de/DE/leistungen/klimadatendeutschland/stationsliste.html">Stationslexikon</a>. <br>
       At least the following attributes must be set in the selected DWD_OpenData Device: <br><br>
 
       <ul>
@@ -16472,7 +16535,12 @@ die ordnungsgemäße Anlagenkonfiguration geprüft werden.
       Ist noch kein Device des Typs DWD_OpenData vorhanden, muß es vorab definiert werden
       (siehe <a href="http://fhem.de/commandref.html#DWD_OpenData">DWD_OpenData Commandref</a>). <br>
       Um eine gute Strahlungsprognose zu erhalten, sollte eine nahe dem Anlagenstandort gelegene DWD-Station genutzt
-      werden. Leider liefern nicht alle DWD-Station die benötigten Rad1h-Werte. <br>
+      werden. <br>
+      Leider liefern nicht alle 
+      <a href="https://www.dwd.de/DE/leistungen/klimadatendeutschland/statliste/statlex_html.html;jsessionid=EC5F572A52EB69684D552DCF6198F290.live31092?view=nasPublication&nn=16102">DWD-Stationen</a> 
+      die benötigten Rad1h-Werte. <br>
+      Erläuterungen zu den Stationen sind im 
+      <a href="https://www.dwd.de/DE/leistungen/klimadatendeutschland/stationsliste.html">Stationslexikon</a> aufgeführt. <br>
       Im ausgewählten DWD_OpenData Device müssen mindestens die folgenden Attribute gesetzt sein: <br><br>
 
       <ul>