From 295faea68d6838c518e54a90c20d71a6c374082a Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Wed, 20 Mar 2024 00:21:46 +0100
Subject: [PATCH] lib/calcms/startup.pl: get include path from startup.pl
 directory

---
 lib/calcms/startup.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/calcms/startup.pl b/lib/calcms/startup.pl
index dc49356..d1f5914 100644
--- a/lib/calcms/startup.pl
+++ b/lib/calcms/startup.pl
@@ -1,5 +1,7 @@
-use lib qw(/home/radio/calcms/calcms/);
-use lib qw(/home/calcms/lib/calcms/);
+BEGIN {
+    use File::Basename qw(dirname);
+    use lib dirname(__FILE__);
+}
 
 use Apache2::Log;
 local *CORE::GLOBAL::warn = \&Apache2::ServerRec::warn;
@@ -8,7 +10,6 @@ local $SIG{__WARN__} = \&Apache2::ServerRec::warn;
 #   see https://perl.apache.org/docs/2.0/api/Apache2/Log.html for details
 
 use Data::Dumper;
-#use Apache::DBI();
 use Time::Local();
 use Date::Calc();
 use Calendar::Simple qw(date_span);