--- loncom/Attic/lchtmldir 2002/04/27 12:01:50 1.1
+++ loncom/Attic/lchtmldir 2002/11/25 18:45:55 1.4
@@ -115,10 +115,10 @@ if($DEBUG) {
}
-if( $authentication ne "unix" &&
- $authentication ne "internal" &&
- $authentication ne "krb4" &&
- $authentication ne "localauth") {
+if( $authentication ne "unix:" &&
+ $authentication ne "internal:" &&
+ $authentication !~ /^krb(4|5):(.*)/ &&
+ $authentication ne "localauth:") {
if($DEBUG) {
print("Invalid authentication parameter: ".$authentication."\n");
print("Should be one of: unix, internal, krb4, localauth\n");
@@ -175,11 +175,13 @@ if(!( -e $dirtry1)) {
if($DEBUG) {
print("User's home directory $dirtry1 does not exist\n");
}
- exit 6;
+ if ($authentication eq "unix:") {
+ exit 6;
+ }
}
&EnableRoot;
-&System("/bin/mkdir $fulldir") unless (-e $fulldir);
+&System("/bin/mkdir -p $fulldir") unless (-e $fulldir);
unless(-e $fulldir."/index.html") {
open OUT,">".$fulldir."/index.html";
print OUT<) {
+ print ("EnableRoot $< $>\n");
($<,$>)=($>,$<);
($(,$))=($),$();
}
@@ -261,7 +246,7 @@ sub EnableRoot {
# root capability is already enabled
}
if($DEBUG) {
- print("Enable Root - id = $> \n");
+ print("Enable Root - id = $> $<\n");
}
return $>;
}