change Perl2Epics to search for correct library path

diff --git a/dmon/code/Perl2Epics.pm b/dmon/code/Perl2Epics.pm
index 9b354218f6db4a29c481c5bbd40d039ee488bb83..97aa3d957a1202c2c8c8edb6e1230ab890ede40b 100644 (file)
--- 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 = {};