From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 1 Nov 2007 17:14:30 +0000 (+0000)
Subject: Add check for UTF8 database server encoding.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=14477b117e37664b3b2a62b0d4e9a91f26cd911a;p=Evergreen.git

Add check for UTF8 database server encoding.


git-svn-id: svn://svn.open-ils.org/ILS/trunk@7960 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/support-scripts/settings-tester.pl b/Open-ILS/src/support-scripts/settings-tester.pl
index 916873b2aa..6dd362ac9f 100755
--- a/Open-ILS/src/support-scripts/settings-tester.pl
+++ b/Open-ILS/src/support-scripts/settings-tester.pl
@@ -159,17 +159,32 @@ sub test_db_connect {
 
 	my $dsn = "dbi:Pg:dbname=$db_name;host=$db_host;port=$db_port";
 	my $de = undef;
+	my $dbh, $encoding;
 	try {
-		unless( DBI->connect($dsn, $db_user, $db_pw) ) {
+		$dbh = DBI->connect($dsn, $db_user, $db_pw);
+		unless($dbh) {
 			$de = "* $osrf_xpath :: Unable to connect to database $dsn, user=$db_user, password=$db_pw\n";
 			warn "* $osrf_xpath :: Unable to connect to database $dsn, user=$db_user, password=$db_pw\n";
 		}
+		my $sth = $dbh->prepare("show server_encoding");
+		$sth->execute;
+		$sth->bind_col(1, \$encoding);
+		$sth->fetch;
+		$sth->finish;
+		$dbh->disconnect;
 	} catch Error with {
 		$de = "* $osrf_xpath :: Unable to connect to database $dsn, user=$db_user, password=$db_pw\n" . shift() . "\n";
 		warn "* $osrf_xpath :: Unable to connect to database $dsn, user=$db_user, password=$db_pw\n" . shift() . "\n";
 	};
 	print "* $osrf_xpath :: Successfully connected to database $dsn\n" unless ($de);
-	return ($de) ? $de : "* $osrf_xpath :: Successfully connected to database $dsn\n";
+	if ($encoding !~ m/(utf-?8|unicode)/i) {
+		$de .= "* ERROR: $osrf_xpath :: Database $dsn has encoding $encoding instead of UTF8 or UNICODE.\n";
+		warn "* ERROR: $osrf_xpath :: Database $dsn has encoding $encoding instead of UTF8 or UNICODE.\n";
+	} else {
+		print "  * Database has the expected server encoding $encoding.\n";
+	}
+	return ($de) ? $de : "* $osrf_xpath :: Successfully connected to database $dsn with encoding $encoding\n";
+
 }
 
 sub check_libdbd {