Thu Aug 20 02:21:18 PDT 2009
- Previous message: [Slony1-commit] slony1-engine/tools/altperl slon_tools.conf-sample
- Next message: [Slony1-commit] slony1-engine/tools/altperl slon_status.pl
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
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.)
- Previous message: [Slony1-commit] slony1-engine/tools/altperl slon_tools.conf-sample
- Next message: [Slony1-commit] slony1-engine/tools/altperl slon_status.pl
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
More information about the Slony1-commit mailing list