[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.21

version 1.20, 2001/11/16 06:23:11 version 1.21, 2001/11/16 07:00:53
Line 346  ENDNUSER Line 346  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 376  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 421  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 604  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.21

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