
376 Implementing NFSv4 in the Enterprise: Planning and Migration Strategies
$parsed_home = "$prefix/$parsed_home" if ($prefix ne "");
## New base directory
$parsed_home =~ s/\/\//\//g; ## remove any doubled "/"
## location of .sh file in current cell
$output_file = "./acl_$user.sh"; ## start at CWD in existing cell
## Set up "destination" directories
$acl_directory = $home."/".$acl_base;
$new_acl_dir = $parsed_home."/".$acl_base;
## Emit our expected parameters
print "Starting at base directory: $home.\nDestination directory:
$parsed_home\n";
## location for acl output files in current cell
system("mkdir $acl_directory") if (!-e "$acl_directory");
open ...