From cbd3dc7831d833b893a1dc961209accf9d77ceb6 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq@hades33.gsi.de>
Date: Tue, 28 Nov 2023 22:37:18 +0100
Subject: [PATCH] change Perl2Epics to search for correct library path
---
dmon/code/Perl2Epics.pm | 27 ++++++++++++++++++++++-----
1 file changed, 22 insertions(+), 5 deletions(-)
diff --git a/dmon/code/Perl2Epics.pm b/dmon/code/Perl2Epics.pm
index 9b35421..97aa3d9 100644
--- a/dmon/code/Perl2Epics.pm
+++ b/dmon/code/Perl2Epics.pm
@@ -5,14 +5,31 @@ use Data::Dumper;
# use Hmon;
#Add all possible paths here...
-use lib '/home/hadaq/EPICS/base-3.14.12.3/lib/perl';
-use lib '/mnt/home_cbm02/hadaq/EPICS/base-3.14.12.3/lib/perl';
-use lib '/home/hadaq/EPICS/EPICS-3.15.6/base/lib/perl';
-use CA;
+#use lib '/home/hadaq/EPICS/base-3.14.12.3/lib/perl';
+#use lib '/mnt/home_cbm02/hadaq/EPICS/base-3.14.12.3/lib/perl';
+#use lib '/home/hadaq/EPICS/EPICS-3.15.6/base/lib/perl';
+#use CA;
+
+my $find_epics_command =q|bash -c '. epics'|;
+my @find_epics_result = qx($find_epics_command);
+#print Dumper @find_epics_result;
+my ($EPICS_BASE)= grep(/^EPICS_BASE /, @find_epics_result);
+#print Dumper $EPICS_BASE;
+my @temp_split=split /\s+/, $EPICS_BASE;
+$EPICS_BASE = $temp_split[3];
+#print "found EPICS_BASE: $EPICS_BASE\n";
+my $ca_lib_path = $EPICS_BASE . '/lib/perl/';
+#print "ca_lib_path: $ca_lib_path\n";
+#use lib $ca_lib_path;
+#use lib '/home/hadaq/EPICS/EPICS-3.15.6/base/lib/perl/';
+#use CA;
+require "$ca_lib_path/CA.pm";
+CA->import;
# Address list for Epics IOCs. Don't remove unused values
$ENV{EPICS_CA_ADDR_LIST} = "10.160.0.63 192.168.1.100";
-$ENV{EPICS_CA_AUTO_ADDR_LIST} = 'YES';
+#$ENV{EPICS_CA_AUTO_ADDR_LIST} = 'YES';
+$ENV{EPICS_CA_AUTO_ADDR_LIST} = 'NO';
my $EpicsValues = {};
my $EpicsStore = {};
--
2.43.0