From 4cba61bf0636397a15af4df2ffe4415668e83868 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Mon, 22 May 2023 23:51:05 +0200
Subject: [PATCH] startup.pl: use ErrorLog file from Apache2 config

requires Apache2::Log from libapache2-mod-perl2
---
 lib/calcms/startup.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/calcms/startup.pl b/lib/calcms/startup.pl
index 6f4deb4..dc49356 100644
--- a/lib/calcms/startup.pl
+++ b/lib/calcms/startup.pl
@@ -1,6 +1,12 @@
 use lib qw(/home/radio/calcms/calcms/);
 use lib qw(/home/calcms/lib/calcms/);
 
+use Apache2::Log;
+local *CORE::GLOBAL::warn = \&Apache2::ServerRec::warn;
+local $SIG{__WARN__} = \&Apache2::ServerRec::warn;
+# ^ use ErrorLog file set at Apache2 configuration
+#   see https://perl.apache.org/docs/2.0/api/Apache2/Log.html for details
+
 use Data::Dumper;
 #use Apache::DBI();
 use Time::Local();