diff options
author | ivan <ivan> | 2005-02-25 22:14:41 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-02-25 22:14:41 +0000 |
commit | 76f5008e4d5f6f5016f1c136f740f1f4b9c0b29c (patch) | |
tree | 7b010e8762b5328e8b07fbebee527a9a31f3bb50 /bin/pg-readonly | |
parent | 5021bac8641bc1eac15372d455a256123f98ae67 (diff) |
try to set the sequences right for modern Pg
Diffstat (limited to 'bin/pg-readonly')
-rw-r--r-- | bin/pg-readonly | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/bin/pg-readonly b/bin/pg-readonly index 4f6d7c380..ad69fbde2 100644 --- a/bin/pg-readonly +++ b/bin/pg-readonly @@ -17,6 +17,8 @@ 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(); + if ( my $pkey = dbdef->table($table)->primary_key ) { + $dbh->do("GRANT SELECT ON ${table}_${pkey}_seq TO $rouser"); + $dbh->commit(); + } } |