[Bio] / Sprout / SetPermissions.pl Repository:
ViewVC logotype

View of /Sprout/SetPermissions.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (download) (as text) (annotate)
Tue Feb 5 05:47:32 2008 UTC (11 years, 8 months ago) by parrello
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, rast_rel_2008_06_18, rast_rel_2008_06_16, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2008_07_21, rast_rel_2010_0928, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, rast_rel_2008_04_23, mgrast_dev_06072011, rast_rel_2008_09_30, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, rast_rel_2009_05_18, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, mgrast_dev_04052011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, rast_rel_2008_08_07, HEAD
Changes since 1.7: +3 -2 lines
Removed obsolete use clauses.

#!/usr/bin/perl -w

=head1 Fix Permissions

Fix the permissions for the current NMPDR complex. Because this method is
used during makes, it does not do tracing.

The permissions will be set to group access for the group C<fig>.

Note that this script is on its way out. Once the NMPDR has been
put into the Wiki it will no longer be necessary.

=cut

use strict;
use Tracer;
use Cwd;
use File::Copy;
use File::Path;

print "Processing FIG directory permissions.\n";
Tracer::SetPermissions($FIG_Config::fig_disk, 'fig', 02664, tmp => 02777);
if ($FIG_Config::nmpdr_pages) {
    print "Processing cover page permissions.\n";
    Tracer::SetPermissions($FIG_Config::nmpdr_pages, 'fig', 02664);
}
my $timeStamp = Tracer::Now();
print "Permissions fixed at $timeStamp.\n";

1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3