[Bio] / FigKernelPackages / Tracer.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Tracer.pm

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

revision 1.50, Wed Jun 14 01:00:41 2006 UTC revision 1.52, Wed Jun 14 01:12:42 2006 UTC
# Line 2068  Line 2068 
2068          # Get the group ID.          # Get the group ID.
2069          my $gid = getgrnam($group);          my $gid = getgrnam($group);
2070          # Get the mask for tracing.          # Get the mask for tracing.
2071          my $traceMask = sprintf("%04o", $mask);          my $traceMask = sprintf("%04o", $mask) . "($mask)";
2072          Trace("Fixing permissions for directory $dirName using group $group($gid) and mask $traceMask.") if T(2);          Trace("Fixing permissions for directory $dirName using group $group($gid) and mask $traceMask.") if T(2);
2073          my $fixCount = 0;          my $fixCount = 0;
2074          my $lookCount = 0;          my $lookCount = 0;
# Line 2093  Line 2093 
2093                      $match = 1;                      $match = 1;
2094                  }                  }
2095              }              }
2096              # Check for a match.              # Check for a match. Note we use $i-1 because the loop added 2
2097              if ($match && $otherMasks[$i+1] != $mask) {              # before terminating due to the match.
2098                if ($match && $otherMasks[$i-1] != $mask) {
2099                  # This directory matches one of the incoming patterns, and it's                  # This directory matches one of the incoming patterns, and it's
2100                  # a different mask, so we process it recursively with that mask.                  # a different mask, so we process it recursively with that mask.
2101                  SetPermissions($dir, $group, $otherMasks[$i+1], @otherMasks);                  SetPermissions($dir, $group, $otherMasks[$i-1], @otherMasks);
2102              } else {              } else {
2103                  # Here we can process normally. Get all of the non-hidden members.                  # Here we can process normally. Get all of the non-hidden members.
2104                  my @submems = OpenDir($dir, 1);                  my @submems = OpenDir($dir, 1);

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.52

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3