path: root/bin/pg-version

#!/usr/bin/perl -w

use strict;
use FS::UID qw(adminsuidsetup dbh);

my $user = shift or die &usage;
adminsuidsetup($user);

print "pg_server_version: ". dbh->{'pg_server_version'}. "\n";

sub usage {
  "\n\nUsage: pg-version username\n";
};