Implementing NFSv4 in the Enterprise: Planning and Migration Strategies

Appendix E. Scripts and configuration files 375

print ACL_FILE $line while ($line = pop(@ext_perms));

print ACL_FILE $line while ($line = pop(@base_perms));

close ACL_FILE;

close ACL_DATA || warn "error: $! $?";

}

return 1;

}

sub print_help

{

print "Usage: perl migacl.pl [--help] [--symlinks]\n

[--prefix=<new_namespace_prefix>]\n";

print " --symlinks: the script will traverse symlinks (default: off)\n";

print " --prefix: specifies the top-level directory prefix in use in\n";

print " the NFSv4 namespace. This will replace the existing AFS \n";

print " \"/.../existing.cell.name/fs\" prefix (default: /) \n";

print " --help: prints this help text\n";

exit(0);

}

## main logic

GetOptions ( 'symlinks' => \$do_symlinks,

'help' => \$print_help,

'prefix=s' ...