sub write_errorlog { my ($Logstring, $CriticalState) = @_; debug($Logstring); if (read_data("FILES", "ERRORLOG") eq "YES") { open (ErrorFileObject, ">>".read_data("FILES", "ERRORLOGFILEPATH").$DateForFiles."_ERROR.log") || write_errorlog("ERROR: $! : ".read_data("FILES", "CONFIGFILE"),"3"); print ErrorFileObject "$DateForHuman $TimeForHuman : $Logstring\n" ; close (ErrorFileObject); } if ($CriticalState eq "2") { telegrammessage($Logstring); } elsif ($CriticalState eq "3") { telegrammessage($Logstring); telegrammessage("Prozess muss beendet werden!"); die; } }