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

View of /Sprout/SetPermissions.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.7 - (download) (as text) (annotate)
Wed Nov 15 22:35:06 2006 UTC (13 years, 7 months ago) by parrello
Branch: MAIN
Changes since 1.6: +4 -2 lines
Fixed to work in non-nmpdr environments.

#!/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>.


use strict;
use Tracer;
use DocUtils;
use TestUtils;
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";


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3