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

View of /Sprout/SetPermissions.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (download) (as text) (annotate)
Mon Oct 16 07:40:59 2006 UTC (13 years, 9 months ago) by parrello
Branch: MAIN
Changes since 1.5: +2 -1 lines
Added a display of the current time.

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

=cut

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);
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