September 11 2017 | File::Path Security | Back Next |
A Perl module to help us run test program: CreateSubdirs
Manually creates a directory underneath /tmp
Creates 8 directories underneath that subdirectory; then
Changes the permissions on those third-level subdirectories to each of:
0000 # user has no permissions 0100 # user has execute-only 0200 # user has write-only 0300 # user has write and execute 0400 # user has read-only 0500 # user has read and execute 0600 # user has read and write 0700 # user has read, write and execute
create_subdirs() function runs sanity tests and returns a list of all the third-level subdirectories created.
@altered = CreateSubdirs::create_subdirs($tdir, $sdir, 'no_create_file');
Home Last TOC | Copyright © 2017 James E Keenan | Back Next |