Log Message:
-----------
node_is_subscribing() in slon-tools.pm doesn't set user (ID: 1378)
http://gborg.postgresql.org/project/slony1/bugs/bugupdate.php?1378

The psql query in the function node_is_subscribing() in slon-tools.pm
doesn't include a correct "-U username" argument, so the proper user is
not used for the query.

Paul Cook submitted a patch for this; applying...

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

-------------- next part --------------
Index: slon-tools.pm
===================================================================
RCS file: /usr/local/cvsroot/slony1/slony1-engine/tools/altperl/slon-tools.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -Ltools/altperl/slon-tools.pm -Ltools/altperl/slon-tools.pm -u -w -r1.24 -r1.25
--- tools/altperl/slon-tools.pm
+++ tools/altperl/slon-tools.pm
@@ -266,8 +266,8 @@
       and not sub_active
 limit 1;   --- One such entry is sufficient...
 };
-  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 -c "$query" --tuples-only -U $dbuser $dbname`;
   chomp $result;
   #print "Query was: $query\n";
   #print "Result was: $result\n";