Log Message:
-----------
Per Bug #1152, add -U $dbuser parameter to database query

Modified Files:
--------------
    slony1-engine/tools/altperl:
        slon-tools.pm (r1.20 -> r1.21)

-------------- next part --------------
Index: slon-tools.pm
===================================================================
RCS file: /usr/local/cvsroot/slony1/slony1-engine/tools/altperl/slon-tools.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -Ltools/altperl/slon-tools.pm -Ltools/altperl/slon-tools.pm -u -w -r1.20 -r1.21
--- tools/altperl/slon-tools.pm
+++ tools/altperl/slon-tools.pm
@@ -196,8 +196,8 @@
 limit 1)
 ;
   };
-  my ($port, $host, $dbname)= ($PORT[$nodenum], $HOST[$nodenum], $DBNAME[$nodenum]);
-  my $result=`@@PGBINDIR@@/psql -p $port -h $host -c "$query" --tuples-only $dbname`;
+  my ($port, $host, $dbname, $dbuser)= ($PORT[$nodenum], $HOST[$nodenum], $DBNAME[$nodenum], $USER[$nodenum]);
+  my $result=`@@PGBINDIR@@/psql -p $port -h $host -U $dbuser -c "$query" --tuples-only $dbname`;
   chomp $result;
   #print "Query was: $query\n";
   #print "Result was: $result\n";