Update of /home/cvsd/slony1/slony1-engine/tools/altperl
In directory main.slony.info:/tmp/cvs-serv31980/tools/altperl

Modified Files:
	slon-tools.pm 
Added Files:
	slon_status.pl 
Log Message:
Add slon_status command. 

Usage:

=======================

# slon_status
Usage: slon_status [--config file] node#

    --config file    Location of the slon_tools.conf file

# slon_status 3
Slon is running for the 'replica' cluster.
# slon_status 6
There is no such node.

=======================

Documentation will come later.



Index: slon-tools.pm
===================================================================
RCS file: /home/cvsd/slony1/slony1-engine/tools/altperl/slon-tools.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** slon-tools.pm	17 Aug 2009 17:25:50 -0000	1.38
--- slon-tools.pm	20 Aug 2009 09:21:16 -0000	1.39
***************
*** 131,134 ****
--- 131,151 ----
  }
  
+ sub get_node_name {
+   my ($node) = @_;
+   $node =~ /node(\d*)$/;
+   my $nodenum = $1;
+   my $nodename;
+   my $tnodename;
+   my ($dbname, $dbport, $dbhost) = ($DBNAME[$nodenum], $PORT[$nodenum], $HOST[$nodenum]);
+   my $command =  ps_args() . "| egrep \"[s]lon .*$CLUSTER_NAME \" | egrep \"host=$dbhost dbname=$dbname.*port=$dbport\" | sort -n | awk '{print \$15}'";
+   open(PSOUT, "$command|");
+   while ($tnodename = <PSOUT>) {
+     chomp $tnodename;
+     $nodename = $tnodename;
+   }
+   close(PSOUT);
+   return $nodename;
+ }
+ 
  sub start_slon {
    my ($nodenum) = @_;

--- NEW FILE: slon_status.pl ---
(This appears to be a binary file; contents omitted.)