loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

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

version 1.20, 2001/11/16 06:23:11	version 1.23, 2002/01/06 01:29:52
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 39 my $authformint;	Line 63 my $authformint;
my $authformfsys;	my $authformfsys;
my $authformloc;	my $authformloc;

sub BEGIN {	BEGIN {
$ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;	$ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
my $krbdefdom=$1;	my $krbdefdom=$1;
$krbdefdom=~tr/a-z/A-Z/;	$krbdefdom=~tr/a-z/A-Z/;
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'}));

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

Removed from v.1.20
changed lines
	Added in v.1.23