version 1.8, 2004/09/02 18:59:24
|
version 1.9, 2004/10/18 10:56:50
|
Line 167 if(($dirtry1 ne $dir) or ($dirtry2 ne $d
|
Line 167 if(($dirtry1 ne $dir) or ($dirtry2 ne $d
|
|
|
# As root, create the directory. |
# As root, create the directory. |
|
|
my $fulldir = $dirtry1."/public_html"; |
my $homedir = $dirtry1; |
|
my $fulldir = $homedir."/public_html"; |
|
|
if($DEBUG) { |
if($DEBUG) { |
print("Full directory path is: $fulldir \n"); |
print("Full directory path is: $fulldir \n"); |
} |
} |
Line 207 it available to students and other instr
|
Line 209 it available to students and other instr
|
END |
END |
close OUT; |
close OUT; |
} |
} |
|
|
&System("/bin/chmod 02775 $fulldir"); |
&System("/bin/chmod 02775 $fulldir"); |
&System("/bin/chmod 0775 $fulldir"."/index.html"); |
&System("/bin/chmod 0775 $fulldir"."/index.html"); |
|
|
Line 220 if($authentication eq "unix:") { # Unix
|
Line 223 if($authentication eq "unix:") { # Unix
|
# Internal, Kerberos, and Local authentication are for users |
# Internal, Kerberos, and Local authentication are for users |
# who do not have unix accounts on the system. Therefore we |
# who do not have unix accounts on the system. Therefore we |
# will give ownership of their public_html directories to www:www |
# will give ownership of their public_html directories to www:www |
|
# If the user is an internal auth user, the rest of the directory tree |
|
# gets owned by root. This chown is needed in case what's really happening |
|
# is that a file system user is being demoted to internal user... |
|
|
|
if($authentication eq "internal:") { |
|
&System("/bin/chown -R root:root ".$homedir); |
|
} |
&System("/bin/chown -R www:www ".$fulldir); |
&System("/bin/chown -R www:www ".$fulldir); |
} |
} |
&DisableRoot; |
&DisableRoot; |