fix support for PostgreSQL

git-svn-id: svn://svn.rot13.org/fuse_dbi/trunk@45 17f4e80c-d0e0-0310-8903-bfc3ae804c12

diff --git a/examples/webgui.pl b/examples/webgui.pl
index 8868a16..ba425af 100755 (executable)
--- a/examples/webgui.pl
+++ b/examples/webgui.pl
@@ -182,8 +182,8 @@ my $sql = {
 my $dsn = $config->param('dsn');
 my $db;
 
 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;
 } 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>;
 
 print "Press enter to exit...";
 my $foo = <STDIN>;