X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fpg-readonly;fp=bin%2Fpg-readonly;h=4f6d7c380c1978a28ce80662fdb29ccb299cb2bc;hb=5021bac8641bc1eac15372d455a256123f98ae67;hp=0000000000000000000000000000000000000000;hpb=bd96ee15d52618089a84b70f8edc1170314bb950;p=freeside.git

diff --git a/bin/pg-readonly b/bin/pg-readonly
new file mode 100644
index 000000000..4f6d7c380
--- /dev/null
+++ b/bin/pg-readonly
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+#
+# hack to update/add read-only permissions for a user on the db
+#
+# usage: pg-readonly freesideuser readonlyuser
+
+use strict;
+use DBI;
+use FS::UID qw(adminsuidsetup);
+use FS::Record qw(dbdef);
+
+my $user = shift or die &usage;
+my $rouser = shift or die &usage;
+
+my $dbh = adminsuidsetup $user;
+
+foreach my $table ( dbdef->tables ) {
+  $dbh->do("GRANT SELECT ON $table TO $rouser");
+  $dbh->commit();
+  $dbh->do("GRANT SELECT ON ${table}_seq TO $rouser");
+  $dbh->commit();
+}