|
version 1.1, 2002/04/27 12:01:50
|
version 1.2, 2002/05/03 03:21:25
|
|
Line 115 if($DEBUG) {
|
Line 115 if($DEBUG) {
|
| |
|
| } |
} |
| |
|
| if( $authentication ne "unix" && |
if( $authentication ne "unix:" && |
| $authentication ne "internal" && |
$authentication ne "internal:" && |
| $authentication ne "krb4" && |
$authentication ne "krb4:" && |
| $authentication ne "localauth") { |
$authentication ne "localauth:") { |
| if($DEBUG) { |
if($DEBUG) { |
| print("Invalid authentication parameter: ".$authentication."\n"); |
print("Invalid authentication parameter: ".$authentication."\n"); |
| print("Should be one of: unix, internal, krb4, localauth\n"); |
print("Should be one of: unix, internal, krb4, localauth\n"); |
|
Line 211 END
|
Line 211 END
|
| |
|
| # Based on the authentiation mode, set the ownership of the directory. |
# Based on the authentiation mode, set the ownership of the directory. |
| |
|
| if($authentication eq "unix") { # Unix mode authentication... |
if($authentication eq "unix:") { # Unix mode authentication... |
| |
|
| |
|
| &System("/bin/chown -R $username".":".$username." ".$fulldir); |
&System("/bin/chown -R $username".":".$username." ".$fulldir); |
|
Line 219 if($authentication eq "unix") { # Unix m
|
Line 219 if($authentication eq "unix") { # Unix m
|
| |
|
| |
|
| } |
} |
| elsif ($authentication eq "internal") { # Internal authentication. |
elsif ($authentication eq "internal:") { # Internal authentication. |
| |
|
| &System("/bin/chown -R www:www $fulldir"); |
&System("/bin/chown -R www:www $fulldir"); |
| } |
} |
| elsif ($authentication eq "krb4") { # Kerberos version 4 authentication |
elsif ($authentication eq "krb4:") { # Kerberos version 4 authentication |
| &System("/bin/chwon -R $username".':'.$username." ".$fulldir); |
&System("/bin/chown -R $username".':'.$username." ".$fulldir); |
| &JoinGroup($username); |
&JoinGroup($username); |
| } |
} |
| elsif ($authentication eq "localauth") { # Local authentiation |
elsif ($authentication eq "localauth:") { # Local authentiation |
| &System("/bin/chown -R $username".':'.$username." $fulldir"); |
&System("/bin/chown -R $username".':'.$username." $fulldir"); |
| } |
} |
| else { |
else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lchtmldir CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom