From 796050030a94dfaf2f2ad8e2c4acdd0e72e70958 Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Wed, 17 May 2023 08:36:14 +0000
Subject: [PATCH] 76_Solarforcast: contrib 0.79.0

git-svn-id: https://svn.fhem.de/fhem/trunk@27583 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/DS_Starter/76_SolarForecast.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/fhem/contrib/DS_Starter/76_SolarForecast.pm b/fhem/contrib/DS_Starter/76_SolarForecast.pm
index 1f0dd44b4..9a87c19f3 100644
--- a/fhem/contrib/DS_Starter/76_SolarForecast.pm
+++ b/fhem/contrib/DS_Starter/76_SolarForecast.pm
@@ -2638,7 +2638,7 @@ sub Attr {
       }
       
       if ($aName eq "ctrlUserExitFn") {
-          if($cmd eq "set") {
+          if($cmd eq "set" && $init_done) {
               if(!$aVal || $aVal !~ m/^\s*(\{.*\})\s*$/xs) {
                   return "Usage of $aName is wrong. The function has to be specified as \"{<your own code>}\" ";
               }
@@ -10694,9 +10694,6 @@ sub userExit {
 
   my $r;
 
-  #$value   =~ s/\\/\\\\/g;                                          # escapen of chars for evaluation
-  #$value   =~ s/'/\\'/g;
-
   $uefn    =  join ' ', split(/\s+/sx, $uefn);                      # Funktion aus Attr ctrlUserExitFn serialisieren
 
   if ($uefn =~ m/^\s*(\{.*\})\s*$/xs) {                             # unnamed Funktion direkt in ctrlUserExitFn mit {...}