From 31371551267334a2d380294c9100b2141cc6b11d Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 23 Nov 2004 23:49:24 +0000
Subject: [PATCH] fix support for PostgreSQL

git-svn-id: svn://svn.rot13.org/fuse_dbi/trunk@45 17f4e80c-d0e0-0310-8903-bfc3ae804c12
---
 examples/webgui.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/examples/webgui.pl b/examples/webgui.pl
index 8868a16..ba425af 100755
--- a/examples/webgui.pl
+++ b/examples/webgui.pl
@@ -182,8 +182,8 @@ my $sql = {
 my $dsn = $config->param('dsn');
 my $db;
 
-if ($dsn =~ m/DBI:(mysql|pg):/) {
-	$db = $1;
+if ($dsn =~ m/DBI:(mysql|pg):/i) {
+	$db = lc($1);
 } else {
 	print STDERR "can't find supported database (mysql/pg) in dsn: $dsn\n";
 	exit 1;
@@ -210,6 +210,11 @@ my $mnt = Fuse::DBI->mount({
 	},
 });
 
+if (! $mnt) {
+	print STDERR "can't mount filesystem!";
+	exit 1;
+}
+
 print "Press enter to exit...";
 my $foo = <STDIN>;
 
-- 
2.20.1