[BACK]Return to lchtmldir CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/Attic/lchtmldir between versions 1.1 and 1.3

version 1.1, 2002/04/27 12:01:50 version 1.3, 2002/05/03 03:43:54
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 179  if(!( -e $dirtry1)) { Line 179  if(!( -e $dirtry1)) {
 }  }
 &EnableRoot;  &EnableRoot;
   
 &System("/bin/mkdir $fulldir")   unless (-e $fulldir);  &System("/bin/mkdir -p $fulldir")   unless (-e $fulldir);
     unless(-e $fulldir."/index.html") {      unless(-e $fulldir."/index.html") {
  open OUT,">".$fulldir."/index.html";   open OUT,">".$fulldir."/index.html";
  print OUT<<END;   print OUT<<END;
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 {
Removed from v.1.1  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>