Log Message:
-----------
Fixed problem with parameter ordering pointed out by Joe Kalash

Modified Files:
--------------
    slony1-engine/tools/altperl:
        slon_start.pl (r1.1 -> r1.2)

-------------- next part --------------
Index: slon_start.pl
===================================================================
RCS file: /usr/local/cvsroot/slony1/slony1-engine/tools/altperl/slon_start.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -Ltools/altperl/slon_start.pl -Ltools/altperl/slon_start.pl -u -w -r1.1 -r1.2
--- tools/altperl/slon_start.pl
+++ tools/altperl/slon_start.pl
@@ -30,7 +30,7 @@
 $nodenum = $1;
 my $dsn = $DSN[$nodenum];
 my $dbname=$DBNAME[$nodenum];
-system "$SLON_BIN_PATH/slon $SETNAME -s 1000 -d2 '$dsn' 2>$LOGDIR/slon-$dbname-$node.err >$LOGDIR/slon-$dbname-$node.out &";
+system "$SLON_BIN_PATH/slon -d2 -s 1000 $SETNAME '$dsn' 2>$LOGDIR/slon-$dbname-$node.err >$LOGDIR/slon-$dbname-$node.out &";
 
 get_pid();
 
@@ -46,7 +46,7 @@
 sub get_pid {
   $node =~ /node(\d*)$/;
   my $nodenum = $1;
-  my ($dbname, $dbport) = ($DBNAME[$nodenum], $PORT[$nodenum]);
+  my ($dbname, $dbport, $dbhost) = ($DBNAME[$nodenum], $PORT[$nodenum], $HOST[$nodenum]);
 #  print "Searching for PID for $dbname on port $dbport\n";
   open(PSOUT, "ps -auxww | egrep \"[s]lon $SETNAME\" | egrep \"dbname=$dbname .*port=$dbport\" | sort -n | awk '{print \$2}'|");
   $pid = <PSOUT>;