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

Annotation of /Sprout/SetPermissions.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (view) (download) (as text)

1 : parrello 1.1 #!/usr/bin/perl -w
2 :    
3 :     =head1 Fix Permissions
4 :    
5 : parrello 1.5 Fix the permissions for the current NMPDR complex. Because this method is
6 :     used during makes, it does not do tracing.
7 : parrello 1.1
8 : parrello 1.5 The permissions will be set to group access for the group C<fig>.
9 : parrello 1.1
10 :     =cut
11 :    
12 :     use strict;
13 :     use Tracer;
14 :     use DocUtils;
15 :     use TestUtils;
16 :     use Cwd;
17 :     use File::Copy;
18 :     use File::Path;
19 :    
20 : parrello 1.5 print "Processing FIG directory permissions.\n";
21 :     Tracer::SetPermissions($FIG_Config::fig_disk, 'fig', 02664, tmp => 02777);
22 :     print "Processing cover page permissions.\n";
23 :     Tracer::SetPermissions($FIG_Config::nmpdr_pages, 'fig', 02664);
24 :     print "Permissions fixed.\n";
25 : parrello 1.1
26 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3