From 58d093219cf60264550b8c34649d9f3190eda042 Mon Sep 17 00:00:00 2001
From: cvs2git <cvs2git>
Date: Wed, 23 Aug 2006 22:25:40 +0000
Subject: This commit was manufactured by cvs2svn to create tag
 'AFTER_FINAL_MASONIZE'.

---
 bin/pg-readonly | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100644 bin/pg-readonly

(limited to 'bin/pg-readonly')

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();
-  }
-}
-- 
cgit v1.2.1