add a mason component for the recent activity page.
[sgn.git] / db / 00025 / FixLocusGroupPerms.pm
blob0c7607a0855b9dd06933b48216309f7948033ac0
1 #!/usr/bin/env perl
4 =head1 NAME
6 FixLocusGroupPerms.pm
8 =head1 SYNOPSIS
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.
17 =head1 DESCRIPTION
19 This subclass uses L<Moose>. The parent class uses L<MooseX::Runnable>
21 =head1 AUTHOR
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.
33 =cut
36 package FixLocusGroupPerms;
38 use Moose;
39 extends 'CXGN::Metadata::Dbpatch';
42 has '+description' => ( default => <<'' );
43 Description of this patch goes here
45 has '+prereq' => (
46 default => sub {
47 [ ],
51 sub patch {
52 my $self=shift;
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);
61 --do your SQL here
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;
71 EOSQL
73 print "You're done!\n";
77 ####
78 1; #
79 ####