fix log contexts, RT#30238
[freeside.git] / bin / 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 };