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

Diff of /Sprout/SetPermissions.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Thu Jun 8 13:40:47 2006 UTC revision 1.2, Wed Jun 14 00:54:27 2006 UTC
# Line 2  Line 2 
2    
3  =head1 Fix Permissions  =head1 Fix Permissions
4    
5  Fix the permissions in the specified directory and all its subdirectories.  Fix the permissions for the current NMPDR complex.
6    
7  The currently-supported command-line options are as follows.  The currently-supported command-line options are as follows.
8    
# Line 56  Line 56 
56                                             {                                             {
57                                              group => ['fig', 'group to be assigned to the files'],                                              group => ['fig', 'group to be assigned to the files'],
58                                             },                                             },
59                                             "<directory>",                                             "",
60                                             @ARGV);                                             @ARGV);
61    
62  if (! $parameters[0]) {  if (! $parameters[0]) {
# Line 66  Line 66 
66  } else {  } else {
67      ChDir($parameters[0]);      ChDir($parameters[0]);
68  }  }
69  my $thisDir = getcwd();  Trace("Processing FIG directories.") if T(2);
70  Tracer::SetPermissions($thisDir, $options->{group}, 01664);  Tracer::SetPermissions($FIG_Config::fig_disk, $options->{group}, 01664, tmp => 01777);
71    Trace("Processing cover pages.") if T(2);
72    Tracer::SetPermissions($FIG_Config::nmpdr_pages, $options->{group}, 01664);
73    
74  1;  1;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3