Implementing NFSv4 in the Enterprise: Planning and Migration Strategies

Appendix E. Scripts and configuration files 361

$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 (OUTFILE, ">$output_file");

print OUTFILE "#!/bin/sh\n";

&ScanDirectory(".", $output_file, $prefix, $cell_name);

close OUTFILE;

exit(0);

DFS to NFSv4 migration example

Example E-4 provides a script to migrate DFS to NFSv4 ACLs.

Example: E-4 Script to migrate DFS to NFSv4 ACLs

#!/usr/bin/perl

## migrate_dfs_acls_to_nfsv4.pl -- Example ACL migration ...