[BACK]Return to loncreateuser.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreateuser.pm between versions 1.20 and 1.22

version 1.20, 2001/11/16 06:23:11 version 1.22, 2001/12/19 17:17:46
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # Create a user  # Create a user
 #  #
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
 # (Create a course  # (Create a course
 # (My Desk  # (My Desk
 #  #
Line 346  ENDNUSER Line 370  ENDNUSER
     $loginscript=~s/vf\.krbdom\.value='.*?';/vf.krbdom.value='$krbdefdom2';/;      $loginscript=~s/vf\.krbdom\.value='.*?';/vf.krbdom.value='$krbdefdom2';/;
  }   }
  # minor script hack here   # minor script hack here
  $loginscript=~s/login\[3\]/login\[4\]/;  # $loginscript=~s/login\[3\]/login\[4\]/; # loc
  $loginscript=~s/login\[2\]/login\[3\]/;  # $loginscript=~s/login\[2\]/login\[3\]/; # fsys
  $loginscript=~s/login\[1\]/login\[2\]/;  # $loginscript=~s/login\[1\]/login\[2\]/; # int
  $loginscript=~s/login\[0\]/login\[1\]/;  # $loginscript=~s/login\[0\]/login\[1\]/; # krb4
   
  $r->print(<<END);  
 <hr />  
 $loginscript  
 END  
         unless ($currentauth=~/^krb4:/ or          unless ($currentauth=~/^krb4:/ or
  $currentauth=~/^unix:/ or   $currentauth=~/^unix:/ or
  $currentauth=~/^internal:/ or   $currentauth=~/^internal:/ or
  $currentauth=~/^localauth:/   $currentauth=~/^localauth:/
  ) {   ) {
     $r->print(<<END);      $r->print(<<END);
   <hr />
   $loginscript
 <font color='#ff0000'>ERROR:</font>  <font color='#ff0000'>ERROR:</font>
 This user has an unrecognized authentication scheme ($currentauth).  This user has an unrecognized authentication scheme ($currentauth).
 Please specify login data below.  Please specify login data below.
Line 378  END Line 400  END
     if ($currentauth=~/^krb4:/) {      if ($currentauth=~/^krb4:/) {
  $authformcurrent=$authformkrb;   $authformcurrent=$authformkrb;
  $authformother=$authformint.$authformfsys.$authformloc;   $authformother=$authformint.$authformfsys.$authformloc;
    # embarrassing script hack here
    $loginscript=~s/login\[3\]/login\[4\]/; # loc
    $loginscript=~s/login\[2\]/login\[3\]/; # fsys
    $loginscript=~s/login\[1\]/login\[2\]/; # int
    $loginscript=~s/login\[0\]/login\[1\]/; # krb4
     }      }
     elsif ($currentauth=~/^internal:/) {      elsif ($currentauth=~/^internal:/) {
  $authformcurrent=$authformint;   $authformcurrent=$authformint;
  $authformother=$authformkrb.$authformfsys.$authformloc;   $authformother=$authformkrb.$authformfsys.$authformloc;
    # embarrassing script hack here
    $loginscript=~s/login\[3\]/login\[4\]/; # loc
    $loginscript=~s/login\[2\]/login\[3\]/; # fsys
    $loginscript=~s/login\[1\]/login\[1\]/; # int
    $loginscript=~s/login\[0\]/login\[2\]/; # krb4
     }      }
     elsif ($currentauth=~/^unix:/) {      elsif ($currentauth=~/^unix:/) {
  $authformcurrent=$authformfsys;   $authformcurrent=$authformfsys;
  $authformother=$authformkrb.$authformint.$authformloc;   $authformother=$authformkrb.$authformint.$authformloc;
    # embarrassing script hack here
    $loginscript=~s/login\[3\]/login\[4\]/; # loc
    $loginscript=~s/login\[1\]/login\[3\]/; # int
    $loginscript=~s/login\[2\]/login\[1\]/; # fsys
    $loginscript=~s/login\[0\]/login\[2\]/; # krb4
     }      }
     elsif ($currentauth=~/^localauth:/) {      elsif ($currentauth=~/^localauth:/) {
  $authformcurrent=$authformloc;   $authformcurrent=$authformloc;
  $authformother=$authformkrb.$authformint.$authformfsys;   $authformother=$authformkrb.$authformint.$authformfsys;
    # embarrassing script hack here
    $loginscript=~s/login\[3\]/login\[loc\]/; # loc
    $loginscript=~s/login\[2\]/login\[4\]/; # fsys
    $loginscript=~s/login\[1\]/login\[3\]/; # int
    $loginscript=~s/login\[0\]/login\[2\]/; # krb4
    $loginscript=~s/login\[loc\]/login\[1\]/; # loc
     }      }
     $authformcurrent=<<END;      $authformcurrent=<<END;
 <table border='1'>  <table border='1'>
Line 402  END Line 445  END
 </table>  </table>
 END  END
  $r->print(<<END);   $r->print(<<END);
   <hr />
   $loginscript
 <h3>Change Current Login Data</h3>  <h3>Change Current Login Data</h3>
 $generalrule  $generalrule
 $authformnop  $authformnop
Line 583  ENDTHREEHEAD Line 628  ENDTHREEHEAD
     $r->print('Modifying authentication: '.      $r->print('Modifying authentication: '.
  &Apache::lonnet::modifyuserauth(   &Apache::lonnet::modifyuserauth(
        $ENV{'form.cdomain'},$ENV{'form.cuname'},         $ENV{'form.cdomain'},$ENV{'form.cuname'},
                        $amode,$genpwd);                         $amode,$genpwd));
             $r->print('<br>Home server: '.&Apache::lonnet::homeserver              $r->print('<br>Home server: '.&Apache::lonnet::homeserver
                       ($ENV{'form.cuname'},$ENV{'form.cdomain'}));                        ($ENV{'form.cuname'},$ENV{'form.cdomain'}));
   
Removed from v.1.20  
changed lines
  Added in v.1.22

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