[open-ils-commits] r7966 - trunk/Open-ILS/src/support-scripts

[svn at svn.open-ils.org]

Author: miker
Date: 2007-11-01 19:27:56 -0400 (Thu, 01 Nov 2007)
New Revision: 7966

Modified:
   trunk/Open-ILS/src/support-scripts/settings-tester.pl
Log:
wording update, and naive attempt to filter build versions of libdbi-drivers

Modified: trunk/Open-ILS/src/support-scripts/settings-tester.pl
===================================================================
--- trunk/Open-ILS/src/support-scripts/settings-tester.pl	2007-11-01 22:53:21 UTC (rev 7965)
+++ trunk/Open-ILS/src/support-scripts/settings-tester.pl	2007-11-01 23:27:56 UTC (rev 7966)
@@ -134,7 +134,7 @@
 		if ($language eq "perl") {
 			$result = "* OK: $driver language is $language in $lang_xpath\n";
 		} elsif ($driver_xpath =~ /reporter/) {
-			$result = "* OK: $driver language is allowed to be undefined for reporter application\n";
+			$result = "* OK: $driver language is undefined for reporter base configuration\n";
 		} else {
 			$result = "* ERROR: $driver language is $language in $lang_xpath\n";
 			warn $result;
@@ -190,7 +190,7 @@
 sub check_libdbd {
 	my $results;
 	my $de = undef;
-	my @location = `locate libdbdpgsql.so`;
+	my @location = `locate libdbdpgsql.so |grep -v home`; # simple(ton) attempt to filter out build versions
 	if (scalar(@location) > 1) {
 
 		my $res = "Found more than one location for libdbdpgsql.so.
@@ -202,7 +202,7 @@
 	foreach my $loc (@location) {
 		my @linkage = `ldd $loc`;
 		if (!grep(/libdbi/, @linkage)) {
-			my $res = "libdbi.so was not linked against $loc - you probably need to compile from source.\n";
+			my $res = "$loc was not linked against libdbi - you probably need to compile libdbi-drivers from source with the --enable-libdbi configure switch.\n";
 			$results .= $res;
 			print $res;
 		}