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

Annotation of /Sprout/SetPermissions.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (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 : parrello 1.8 Note that this script is on its way out. Once the NMPDR has been
11 :     put into the Wiki it will no longer be necessary.
12 :    
13 : parrello 1.1 =cut
14 :    
15 :     use strict;
16 :     use Tracer;
17 :     use Cwd;
18 :     use File::Copy;
19 :     use File::Path;
20 :    
21 : parrello 1.5 print "Processing FIG directory permissions.\n";
22 :     Tracer::SetPermissions($FIG_Config::fig_disk, 'fig', 02664, tmp => 02777);
23 : parrello 1.7 if ($FIG_Config::nmpdr_pages) {
24 :     print "Processing cover page permissions.\n";
25 :     Tracer::SetPermissions($FIG_Config::nmpdr_pages, 'fig', 02664);
26 :     }
27 : parrello 1.6 my $timeStamp = Tracer::Now();
28 :     print "Permissions fixed at $timeStamp.\n";
29 : parrello 1.1
30 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3