10 mx-run FixLocusGroupPerms [options] -H hostname -D dbname -u username [-F]
12 This patch is needed for running the tests (removal of test user).
14 this is a subclass of L<CXGN::Metadata::Dbpatch>
15 see the perldoc of parent class for more details.
19 This subclass uses L<Moose>. The parent class uses L<MooseX::Runnable>
23 Lukas Mueller <lam87@cornell.edu>
26 =head1 COPYRIGHT & LICENSE
28 Copyright 2010 Boyce Thompson Institute for Plant Research
30 This program is free software; you can redistribute it and/or modify
31 it under the same terms as Perl itself.
36 package FixLocusGroupPerms
;
39 extends
'CXGN::Metadata::Dbpatch';
42 has
'+description' => ( default => <<'' );
43 Description of this patch goes here
54 print STDOUT
"Executing the patch:\n " . $self->name . ".\n\nDescription:\n ". $self->description . ".\n\nExecuted by:\n " . $self->username . " .";
56 print STDOUT
"\nChecking if this db_patch was executed before or if previous db_patches have been executed.\n";
58 print STDOUT
"\nExecuting the SQL commands.\n";
60 $self->dbh->do(<<EOSQL);
64 GRANT select, update, insert, delete ON phenome.locusgroup_member to postgres, web_usr;
65 GRANT select, update, usage ON phenome.locusgroup_member_locusgroup_member_id_seq to postgres, web_usr;
67 GRANT select, update, insert, delete ON phenome.locusgroup to postgres, web_usr;
68 GRANT select, update, usage ON phenome.locusgroup_locusgroup_id_seq to postgres, web_usr;
73 print "You're done!\n";