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

Annotation of /Sprout/SetPermissions.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (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 : parrello 1.7 if ($FIG_Config::nmpdr_pages) {
23 :     print "Processing cover page permissions.\n";
24 :     Tracer::SetPermissions($FIG_Config::nmpdr_pages, 'fig', 02664);
25 :     }
26 : parrello 1.6 my $timeStamp = Tracer::Now();
27 :     print "Permissions fixed at $timeStamp.\n";
28 : parrello 1.1
29 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3