This commit was manufactured by cvs2svn to create tag 'SQL_LEDGER_2_4_4'.SQL_LEDGER_2_4_4

1 files changed, 0 insertions, 24 deletions

diff --git a/bin/pg-readonly b/bin/pg-readonly
deleted file mode 100644
index ad69fbde2..000000000
--- a/bin/pg-readonly
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/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();
-  if ( my $pkey = dbdef->table($table)->primary_key ) {
-    $dbh->do("GRANT SELECT ON ${table}_${pkey}_seq TO $rouser");
-    $dbh->commit();
-  }
-}