fhem.pl: add optional parameter to WriteStatefile (Forum #123764)

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

fhem/fhem.pl

@@ -101,7 +101,7 @@ sub SemicolonEscape($);
 sub SignalHandling();
 sub TimeNow();
 sub Value($);
-sub WriteStatefile();
+sub WriteStatefile(;$);
 sub XmlEscape($);
 sub addEvent($$;$);
 sub addToDevAttrList($$;$);
@@ -1593,13 +1593,14 @@ GetAllReadings($)
 
 #####################################
 sub
-WriteStatefile()
+WriteStatefile(;$)
 {
   if(configDBUsed()) {
     return cfgDB_SaveState();
   }
 
   my $stateFile = AttrVal('global','statefile',undef);
+  $stateFile = $_[0] if($_[0]); #123764
   return "No statefile specified" if(!defined($stateFile));
 
   my $now = gettimeofday();