pg-version

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use FS::UID qw(adminsuidsetup dbh);
   5
   6 my $user = shift or die &usage;
   7 adminsuidsetup($user);
   8
   9 print "pg_server_version: ". dbh->{'pg_server_version'}. "\n";
  10
  11 sub usage {
  12   "\n\nUsage: pg-version username\n";
  13 };