/usr/bin/pg_lsclusters is in postgresql-common 134wheezy4.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | #!/usr/bin/perl -wT
# Show all PostgreSQL clusters in a list
#
# (C) 2005-2009 Martin Pitt <mpitt@debian.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
use lib '/usr/share/postgresql-common';
use PgCommon;
use Getopt::Long;
exit 1 unless GetOptions ('h|no-header' => \$no_header);
@columns = ('Version', 'Cluster', 'Port', 'Status', 'Owner', 'Data directory',
'Log file');
@colwidths = qw/7 9 4 6 8 34 1/;
foreach $cw (@colwidths) {
$fmtstring .= ' ' if $fmtstring;
$fmtstring .= '%-'.$cw.'s';
}
$fmtstring .= "\n";
printf $fmtstring, @columns unless $no_header;
foreach $v (sort (get_versions())) {
my @clusters = get_version_clusters $v;
foreach $c (sort @clusters) {
%info = cluster_info $v, $c;
printf $fmtstring, ($v, $c, $info{'port'},
($info{'running'} ? "online" : "down") . ($info{'recovery'} ? ",recovery" : ""),
defined $info{'owneruid'} ? (getpwuid $info{'owneruid'})[0] : '<unknown>',
$info{'pgdata'} || '<not set>', $info{'logfile'} || 'custom');
}
}
__END__
=head1 NAME
pg_lsclusters - show information about all PostgreSQL clusters
=head1 SYNOPSIS
B<pg_lsclusters> [I<options>]
=head1 DESCRIPTION
This command shows a list about the configuration and status of all clusters.
=head1 OPTIONS
=over 4
=item B<-h>, B<--no-header>
Do not print the column header line.
=back
=head1 AUTHOR
Martin Pitt L<E<lt>mpitt@debian.orgE<gt>>
|