Return to createaccount.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/createaccount.pm between versions 1.20 and 1.36.10.1

version 1.20, 2008/07/14 08:26:57	version 1.36.10.1, 2009/09/23 02:05:38
Line 39 use Apache::lonhtmlcommon;	Line 39 use Apache::lonhtmlcommon;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonauth;	use Apache::lonauth;
use Apache::resetpw;	use Apache::resetpw;
use Authen::Captcha;	use Captcha::reCAPTCHA;
use DynaLoader; # for Crypt::DES version	use DynaLoader; # for Crypt::DES version
use Crypt::DES;	use Crypt::DES;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
Line 52 sub handler {	Line 52 sub handler {
if ($r->header_only) {	if ($r->header_only) {
return OK;	return OK;
}	}

my $domain;	my $domain;

my $sso_username = $r->subprocess_env->get('REDIRECT_SSOUserUnknown');	my $sso_username = $r->subprocess_env->get('REDIRECT_SSOUserUnknown');
my $sso_domain = $r->subprocess_env->get('REDIRECT_SSOUserDomain');	my $sso_domain = $r->subprocess_env->get('REDIRECT_SSOUserDomain');

	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token','courseid']);
	&Apache::lonacc::get_posted_cgi($r);
	&Apache::lonlocal::get_language_handle($r);

if ($sso_username ne '' && $sso_domain ne '') {	if ($sso_username ne '' && $sso_domain ne '') {
$domain = $sso_domain;	$domain = $sso_domain;
} else {	} else {
$domain = &Apache::lonnet::default_login_domain();	$domain = &Apache::lonnet::default_login_domain();
	if (defined($env{'form.courseid'})) {
	if (&validate_course($env{'form.courseid'})) {
	if ($env{'form.courseid'} =~ /^($match_domain)_($match_courseid)$/) {
	$domain = $1;
	}
	}
	}
}	}
my $domdesc = &Apache::lonnet::domain($domain,'description');	my $domdesc = &Apache::lonnet::domain($domain,'description');
my $contact_name = &mt('LON-CAPA helpdesk');	my $contact_name = &mt('LON-CAPA helpdesk');
Line 74 sub handler {	Line 85 sub handler {
my $include = $r->dir_config('lonIncludes');	my $include = $r->dir_config('lonIncludes');
my $start_page;	my $start_page;

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token','courseid']);
&Apache::lonacc::get_posted_cgi($r);
&Apache::lonlocal::get_language_handle($r);

my $handle = &Apache::lonnet::check_for_valid_session($r);	my $handle = &Apache::lonnet::check_for_valid_session($r);
if ($handle ne '') {	if (($handle ne '') && ($handle !~ /^publicuser_\d+$/)) {
$start_page =	$start_page =
&Apache::loncommon::start_page('Already logged in');	&Apache::loncommon::start_page('Already logged in');
my $end_page =	my $end_page =
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
$r->print($start_page."\n".'<h2>'.&mt('You are already logged in').'</h2>'.	$r->print($start_page."\n".'<h2>'.&mt('You are already logged in').'</h2>'.
'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].','<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').	'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].','<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').
'</p><p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'.$end_page);	'</p><p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'.$end_page);
return OK;	return OK;
}	}

my $courseid;	my ($js,$courseid,$title);
if (defined($env{'form.courseid'})) {	if (defined($env{'form.courseid'})) {
$courseid = &validate_course($env{'form.courseid'});	$courseid = &validate_course($env{'form.courseid'});
}	}
	if ($courseid ne '') {
	$js = &catreturn_js();
	$title = 'Self-enroll in a LON-CAPA course';
	} else {
	$title = 'Create a user account in LON-CAPA';
	}
if ($env{'form.phase'} eq 'selfenroll_login') {	if ($env{'form.phase'} eq 'selfenroll_login') {
	$title = 'Self-enroll in a LON-CAPA course';
if ($env{'form.udom'} ne '') {	if ($env{'form.udom'} ne '') {
$domain = $env{'form.udom'};	$domain = $env{'form.udom'};
}	}

	my %domconfig =
	&Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
	my ($cancreate,$statustocreate) =
	&get_creation_controls($domain,$domconfig{'usercreation'});

my ($result,$output) =	my ($result,$output) =
&username_validation($r,$env{'form.uname'},$domain,$domdesc,	&username_validation($r,$env{'form.uname'},$domain,$domdesc,

$contact_name,$contact_email,$courseid,	$contact_name,$contact_email,$courseid,
$lonhost);	$lonhost,$statustocreate);
if ($result eq 'existingaccount') {	if ($result eq 'existingaccount') {
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
} else {	} else {
$start_page =	$start_page =
&Apache::loncommon::start_page('Self-enroll in a LON-CAPA course','',	&Apache::loncommon::start_page($title,$js,
{'no_inline_link' => 1,});	{'no_inline_link' => 1,});
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
$r->print($output.&Apache::loncommon::end_page());	$r->print($output);
	&print_footer($r);
return OK;	return OK;
}	}
}	}

$start_page =	$start_page =
&Apache::loncommon::start_page('Create a user account in LON-CAPA','',	&Apache::loncommon::start_page($title,$js,
{'no_inline_link' => 1,});	{'no_inline_link' => 1,});
my @cancreate;
my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
if (ref($domconfig{'usercreation'}) eq 'HASH') {
if (ref($domconfig{'usercreation'}{'cancreate'}) eq 'HASH') {
if (ref($domconfig{'usercreation'}{'cancreate'}{'selfcreate'}) eq 'ARRAY') {
@cancreate = @{$domconfig{'usercreation'}{'cancreate'}{'selfcreate'}};
} elsif (($domconfig{'usercreation'}{'cancreate'}{'selfcreate'} ne 'none') &&
($domconfig{'usercreation'}{'cancreate'}{'selfcreate'} ne '')) {
@cancreate = ($domconfig{'usercreation'}{'cancreate'}{'selfcreate'});
}
}
}

if (@cancreate == 0) {	my %domconfig =
&print_header($r,$start_page);	&Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
	my ($cancreate,$statustocreate) = &get_creation_controls($domain,$domconfig{'usercreation'});
	if (@{$cancreate} == 0) {
	&print_header($r,$start_page,$courseid);
my $output = '<h3>'.&mt('Account creation unavailable').'</h3>'.	my $output = '<h3>'.&mt('Account creation unavailable').'</h3>'.
'<span class="LC_warning">'.	'<span class="LC_warning">'.
&mt('Creation of a new user account using an e-mail address or an institutional log-in ID as username is not permitted at this institution ([_1]).',$domdesc).'</span><br /><br />';	&mt('Creation of a new user account using an e-mail address or an institutional log-in ID as username is not permitted for the GCI WebCenter.').'</span><br /><br />';
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}

if ($sso_username ne '') {	if ($sso_username ne '') {
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
my ($msg,$sso_logout);	my ($msg,$sso_logout);
$sso_logout = &sso_logout_frag($r,$domain);	$sso_logout = &sso_logout_frag($r,$domain);
if (grep(/^sso$/,@cancreate)) {	if (grep(/^sso$/,@{$cancreate})) {
$msg = '<h3>'.&mt('Account creation').'</h3>'.	$msg = '<h3>'.&mt('Account creation').'</h3>'.
&mt("Although your username and password were authenticated by your institution's Single Sign On system, you do not currently have a LON-CAPA account at this institution.").'<br />';	&mt("Although your username and password were authenticated by your institution's Single Sign On system, you do not currently have a LON-CAPA account at this institution.").'<br />';

$msg .= &username_check($sso_username,$domain,$domdesc,$courseid,	$msg .= &username_check($sso_username,$domain,$domdesc,$courseid,
$lonhost,$contact_email,$contact_name,$sso_logout);	$lonhost,$contact_email,$contact_name,
	$sso_logout,$statustocreate);
} else {	} else {
$msg = '<h3>'.&mt('Account creation unavailable').'</h3>'.	$msg = '<h3>'.&mt('Account creation unavailable').'</h3>'.
'<span class="LC_warning">'.&mt("Although your username and password were authenticated by your institution's Single Sign On system, you do not currently have a LON-CAPA account at this institution, and you are not permitted to create one.").'</span><br /><br />'.&mt('Please contact the [_1] ([_2]) for assistance.',$contact_name,$contact_email).'<hr />'.	'<span class="LC_warning">'.&mt("Although your username and password were authenticated by your institution's Single Sign On system, you do not currently have a LON-CAPA account at this institution, and you are not permitted to create one.").'</span><br /><br />'.&mt('Please contact the [_1] ([_2]) for assistance.',$contact_name,$contact_email).'<hr />'.
$sso_logout;	$sso_logout;
}	}
$r->print($msg);	$r->print($msg);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}

Line 174 sub handler {	Line 185 sub handler {
return OK;	return OK;
} else {	} else {
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}
} else {	} else {
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}
}	}
Line 194 sub handler {	Line 205 sub handler {
return OK;	return OK;
}	}
}	}
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
} elsif ($env{'form.phase'} eq 'username_validation') {	} elsif ($env{'form.phase'} eq 'username_validation') {
(my $result,$output) =	(my $result,$output) =
&username_validation($r,$env{'form.uname'},$domain,$domdesc,	&username_validation($r,$env{'form.uname'},$domain,$domdesc,
$contact_name,$contact_email,$courseid,	$contact_name,$contact_email,$courseid,
$lonhost);	$lonhost,$statustocreate);
if ($result eq 'existingaccount') {	if ($result eq 'existingaccount') {
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
} else {	} else {
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
}	}
} elsif ($env{'form.create_with_email'}) {	} elsif ($env{'form.create_with_email'}) {
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
$output = &process_email_request($env{'form.useremail'},$domain,$domdesc,	$output = &process_email_request($env{'form.useremail'},$domain,$domdesc,
$contact_name,$contact_email,\@cancreate,	$contact_name,$contact_email,$cancreate,
$lonhost,$domconfig{'usercreation'},	$lonhost,$domconfig{'usercreation'},
$courseid);	$courseid);
} elsif (!$token) {	} elsif (!$token) {
&print_header($r,$start_page);	&print_header($r,$start_page,$courseid);
my $now=time;	my $now=time;
if (grep(/^login$/,@cancreate)) {	if (grep(/^login$/,@{$cancreate})) {
my $jsh=Apache::File->new($include."/londes.js");	my $jsh=Apache::File->new($include."/londes.js");
$r->print(<$jsh>);	$r->print(<$jsh>);
$r->print(&javascript_setforms($now));	$r->print(&javascript_setforms($now));
}	}
if (grep(/^email$/,@cancreate)) {	if (grep(/^email$/,@{$cancreate})) {
$r->print(&javascript_validmail());	$r->print(&javascript_validmail());
}	}
$output = &print_username_form($domain,$domdesc,\@cancreate,$now,$lonhost,	$output = &print_username_form($domain,$domdesc,$cancreate,$now,$lonhost,
$courseid);	$courseid);
}	}
$r->print($output);	$r->print($output);
$r->print(&Apache::loncommon::end_page());	&print_footer($r);
return OK;	return OK;
}	}

sub print_header {	sub print_header {
my ($r,$start_page) = @_;	my ($r,$start_page,$courseid) = @_;
$r->print($start_page);	$r->print($start_page);
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
	if ($courseid ne '') {
	my %coursehash = &Apache::lonnet::coursedescription($courseid);
	&selfenroll_crumbs($r,$courseid,$coursehash{'description'});
	}
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/createuser",	({href=>"/adm/createuser",
text=>"New username"});	text=>"New username"});
Line 246 sub print_header {	Line 261 sub print_header {
return;	return;
}	}

	sub print_footer {
	my ($r) = @_;
	if ($env{'form.courseid'} ne '') {
	$r->print('<form name="backupcrumbs" method="post" action="">'.
	&Apache::lonhtmlcommon::echo_form_input(['backto','logtoken',
	'token','serverid','uname','upass','phase','create_with_email',
	'code','useremail','crypt','cfirstname','clastname',
	'cmiddlename','cgeneration','cpermanentemail','cid']).
	'</form>');
	}
	$r->print(&Apache::loncommon::end_page());
	}

	sub selfenroll_crumbs {
	my ($r,$courseid,$desc) = @_;
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"javascript:ToCatalog('backupcrumbs','')",
	text=>"Course Catalog"});
	if ($env{'form.coursenum'} ne '') {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"javascript:ToCatalog('backupcrumbs','details')",
	text=>"Course details"});
	}
	my $last_crumb;
	if ($desc ne '') {
	$last_crumb = &mt('Self-enroll in [_1]','<span class="LC_cusr_emph">'.$desc.'</span>');
	} else {
	$last_crumb = &mt('Self-enroll');
	}
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"javascript:ToSelfenroll('backupcrumbs')",
	text=>$last_crumb,
	no_mt=>"1"});
	return;
	}

sub validate_course {	sub validate_course {
my ($courseid) = @_;	my ($courseid) = @_;
my ($cdom,$cnum) = ($courseid =~ /^($match_domain)_($match_courseid)$/);	my ($cdom,$cnum) = ($courseid =~ /^($match_domain)_($match_courseid)$/);
Line 260 sub validate_course {	Line 311 sub validate_course {
sub javascript_setforms {	sub javascript_setforms {
my ($now) = @_;	my ($now) = @_;
my $js = <<ENDSCRIPT;	my $js = <<ENDSCRIPT;
<script language="JavaScript">	<script type="text/javascript" language="JavaScript">
function send() {	function send() {
this.document.server.elements.uname.value = this.document.client.elements.uname.value;	this.document.server.elements.uname.value = this.document.client.elements.uname.value;
	this.document.server.elements.udom.value = this.document.client.elements.udom.value;
uextkey=this.document.client.elements.uextkey.value;	uextkey=this.document.client.elements.uextkey.value;
lextkey=this.document.client.elements.lextkey.value;	lextkey=this.document.client.elements.lextkey.value;
initkeys();	initkeys();
Line 293 sub javascript_checkpass {	Line 345 sub javascript_checkpass {
var upasscheck = this.document.client.elements.upasscheck$now.value;	var upasscheck = this.document.client.elements.upasscheck$now.value;
if (upass == '') {	if (upass == '') {
alert("$nopass");	alert("$nopass");
return;	return false;
}	}
if (upass == upasscheck) {	if (upass == upasscheck) {
this.document.client.elements.upasscheck$now.value='';	this.document.client.elements.upasscheck$now.value='';
send();	send();
return;	return false;
} else {	} else {
alert("$mismatchpass");	alert("$mismatchpass");
return;	return false;
}	}
}	}
</script>	</script>
ENDSCRIPT	ENDSCRIPT
Line 335 sub print_username_form {	Line 387 sub print_username_form {
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
unam => 'username',	unam => 'username',
udom => 'domain',	udom => 'domain',
uemail => 'Email address in LON-CAPA',	uemail => 'E-mail address in LON-CAPA',
proc => 'Proceed');	proc => 'Proceed');
my $output;	my $output;
if (ref($cancreate) eq 'ARRAY') {	if (ref($cancreate) eq 'ARRAY') {
Line 346 sub print_username_form {	Line 398 sub print_username_form {
my $submit_text = &mt('Create LON-CAPA account');	my $submit_text = &mt('Create LON-CAPA account');
$output .= &mt('If you already have a log-in ID at this institution,[_1] you may be able to use it for LON-CAPA.','<br />').'<br /><br />'.&mt('Type in your log-in ID and password to find out.').'<br /><br />';	$output .= &mt('If you already have a log-in ID at this institution,[_1] you may be able to use it for LON-CAPA.','<br />').'<br /><br />'.&mt('Type in your log-in ID and password to find out.').'<br /><br />';
$output .= &login_box($now,$lonhost,$courseid,$submit_text,	$output .= &login_box($now,$lonhost,$courseid,$submit_text,
$domain,'createaccount');	$domain,'createaccount').'</div>';
}	}
}	}
if (grep(/^email$/,@{$cancreate})) {	if (grep(/^email$/,@{$cancreate})) {
$output .= '<div class="LC_left_float"><h3>'.&mt('Create account with an e-mail address as your username').'</h3>';	$output .= '<div class="LC_left_float"><h3>'.&mt('Create account with an e-mail address as your username').'</h3>';
if (grep(/^login$/,@{$cancreate})) {	my $captchaform = &create_recaptcha();
$output .= &mt('Provide your e-mail address to request a LON-CAPA account,[_1] if you do not have a log-in ID at your institution.','<br />').'<br /><br />';	if ($captchaform) {
	my $submit_text = &mt('Request LON-CAPA account');
	my $emailform = '<input type="text" name="useremail" size="25" value="" />';
	if (grep(/^login$/,@{$cancreate})) {
	$output .= &mt('Provide your e-mail address to request a LON-CAPA account,[_1] if you do not have a log-in ID at your institution.','<br />').'<br /><br />';
	} else {
	$output .= '<br />';
	}
	$output .= '<form name="createaccount" method="post" onSubmit="return validate_email()" action="/adm/createaccount">'.
	&Apache::lonhtmlcommon::start_pick_box()."\n".
	&Apache::lonhtmlcommon::row_title(&mt('E-mail address'),
	'LC_pick_box_title')."\n".
	$emailform."\n".
	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::row_title(&mt('Validation'),
	'LC_pick_box_title')."\n".
	$captchaform."\n".'<br /><br />';
	if ($courseid ne '') {
	$output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n";
	}
	$output .= &Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::row_title().'<br />'.
	'<input type="submit" name="create_with_email" value="'.
	$submit_text.'" />'.
	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::end_pick_box().'<br /><br />';
	if ($courseid ne '') {
	$output .= &Apache::lonhtmlcommon::echo_form_input(['courseid']);
	}
	$output .= '</form>';
} else {	} else {
$output .= '<br />';	my $helpdesk = '/adm/helpdesk?origurl=%2fadm%2fcreateaccount';
}	if ($courseid ne '') {
my $emailform = '<input type="text" name="useremail" size="25" value="" />';	$helpdesk .= '&courseid='.$courseid;
my $captchaform = &create_captcha();	}
my $submit_text = &mt('Request LON-CAPA account');	$output .= '<span class="LC_error">'.&mt('An error occurred generating the validation code[_1] required for an e-mail address to be used as username.','<br />').'</span><br /><br />'.&mt('[_1]Contact the helpdesk[_2] or [_3]reload[_2] the page and try again.','<a href="'.$helpdesk.'">','</a>','<a href="javascript:window.location.reload()">');
$output .= '<form name="createaccount" method="post" onSubmit="return validate_email()" action="/adm/createaccount">'.
&Apache::lonhtmlcommon::start_pick_box()."\n".
&Apache::lonhtmlcommon::row_title(&mt('E-mail address'),
'LC_pick_box_title')."\n".
$emailform."\n".
&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title(&mt('Validation'),
'LC_pick_box_title')."\n".
$captchaform."\n".'<br /><br />';
if ($courseid ne '') {
$output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n";
}	}
$output .= '<input type="submit" name="create_with_email" value="'.	$output .= '</div>';
$submit_text.'" />'.
&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::end_pick_box().'<br /><br /></form>'.
'</div>';
}	}
}	}
if ($output eq '') {	if ($output eq '') {
Line 398 sub login_box {	Line 464 sub login_box {
my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',	my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',
$lonhost);	$lonhost);
$output = &serverform($logtoken,$lonhost,undef,$courseid,$context);	$output = &serverform($logtoken,$lonhost,undef,$courseid,$context);
my $unameform = '<input type="text" name="uname" size="10" value="" />';	my $unameform = '<input type="text" name="uname" size="20" value="" />';
my $upassform = '<input type="password" name="upass'.$now.'" size="10" />';	my $upassform = '<input type="password" name="upass'.$now.'" size="20" />';
$output .= '<form name="client" method="post" action="/adm/createaccount">'."\n".	$output .= '<form name="client" method="post" onsubmit="return(send());">'."\n".
&Apache::lonhtmlcommon::start_pick_box()."\n";	'<input type="hidden" name="udom" size="10" value="'.$domain.'" />'.
if ($context eq 'selfenroll') {	&Apache::lonhtmlcommon::start_pick_box()."\n".
my $udomform = '<input type="text" name="udom" size="10" value="'.	&Apache::lonhtmlcommon::row_title($titles{$context},
$domain.'" />';
$output .= &Apache::lonhtmlcommon::row_title(&mt('Domain'),
'LC_pick_box_title')."\n".
$udomform."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n";
}

$output .= &Apache::lonhtmlcommon::row_title($titles{$context},
'LC_pick_box_title')."\n".	'LC_pick_box_title')."\n".
$unameform."\n".	$unameform."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::row_title(&mt('Password'),	&Apache::lonhtmlcommon::row_title(&mt('Password'),
'LC_pick_box_title')."\n".	'LC_pick_box_title')."\n".
$upassform."\n".'<br /><br />'."\n".	$upassform;
'<input type="button" name="username_validation" value="'.	$output .= &Apache::lonhtmlcommon::row_closure(1).
$submit_text.'" onclick="javascript:send()" />'."\n".	&Apache::lonhtmlcommon::row_title().
&Apache::lonhtmlcommon::row_closure(1)."\n".	'<br /><input type="submit" name="username_validation" value="'.
&Apache::lonhtmlcommon::end_pick_box().'<br /><br />'."\n".	$submit_text.'" />'."\n";
'<input type="hidden" name="lextkey" value="'.$lextkey.'">'."\n".	if ($context eq 'selfenroll') {
'<input type="hidden" name="uextkey" value="'.$uextkey.'">'."\n".	$output .= '<br /><br /><table width="100%"><tr><td align="right">'.
'</form></div>';	'<span class="LC_fontsize_medium">'.
	'<a href="/adm/resetpw">'.&mt('Forgot password?').'</a>'.
	'</span></td></tr></table>'."\n";
	}
	$output .= &Apache::lonhtmlcommon::row_closure(1)."\n".
	&Apache::lonhtmlcommon::end_pick_box().'<br />'."\n";
	$output .= '<input type="hidden" name="lextkey" value="'.$lextkey.'" />'."\n".
	'<input type="hidden" name="uextkey" value="'.$uextkey.'" />'."\n".
	'</form>';
return $output;	return $output;
}	}

sub process_email_request {	sub process_email_request {
my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate,	my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate,
$server,$settings,$courseid) = @_;	$server,$settings,$courseid) = @_;
my $useremail = $env{'form.useremail'};	$useremail = $env{'form.useremail'};
my $output;	my $output;
if (ref($cancreate) eq 'ARRAY') {	if (ref($cancreate) eq 'ARRAY') {
if (!grep(/^email$/,@{$cancreate})) {	if (!grep(/^email$/,@{$cancreate})) {
Line 449 sub process_email_request {	Line 515 sub process_email_request {
$contact_name,$contact_email);	$contact_name,$contact_email);
return $output;	return $output;
} else {	} else {
my $code = $env{'form.code'};	my $captcha = Captcha::reCAPTCHA->new;
my $md5sum = $env{'form.crypt'};	my $captcha_result =
my %captcha_params = &captcha_settings();	$captcha->check_answer(
my $captcha = Authen::Captcha->new(	'PRIVATEKEY',
output_folder => $captcha_params{'output_dir'},	$ENV{'REMOTE_ADDR'},
data_folder => $captcha_params{'db_dir'},	$env{'form.recaptcha_challenge_field'},
);	$env{'form.recaptcha_response_field'},
my $captcha_chk = $captcha->check_code($code,$md5sum);	);
my %captcha_hash = (	if (!$captcha_result->{is_valid}) {
0 => 'Code not checked (file error)',
-1 => 'Failed: code expired',
-2 => 'Failed: invalid code (not in database)',
-3 => 'Failed: invalid code (code does not match crypt)',
);
if ($captcha_chk != 1) {
$output = &invalid_state('captcha',$domdesc,$contact_name,	$output = &invalid_state('captcha',$domdesc,$contact_name,
$contact_email,$captcha_hash{$captcha_chk});	$contact_email);

return $output;	return $output;
}	}
my (%rulematch,%inst_results,%curr_rules,%got_rules,%alerts);
my $uhome=&Apache::lonnet::homeserver($useremail,$domain);	my $uhome=&Apache::lonnet::homeserver($useremail,$domain);
if ($uhome eq 'no_host') {	if ($uhome eq 'no_host') {
my $checkhash;	my (%rulematch,%inst_results,%curr_rules,%got_rules,%alerts);
my $checks = { 'username' => 1 };	&call_rulecheck($useremail,$domain,\%alerts,\%rulematch,
$checkhash->{$useremail.':'.$domain} = { 'newuser' => 1, };	\%inst_results,\%curr_rules,%got_rules,'username');
&Apache::loncommon::user_rule_check($checkhash,$checks,	if (ref($alerts{'username'}) eq 'HASH') {
\%alerts,\%rulematch,\%inst_results,\%curr_rules,	if (ref($alerts{'username'}{$domain}) eq 'HASH') {
\%got_rules);
if (ref($alerts{'useremail'}) eq 'HASH') {
if (ref($alerts{'useremail'}{$domain}) eq 'HASH') {
if ($alerts{'username'}{$domain}{$useremail}) {	if ($alerts{'username'}{$domain}{$useremail}) {
$output = &invalid_state('userrules',$domdesc,	$output = &invalid_state('userrules',$domdesc,
$contact_name,$contact_email);	$contact_name,$contact_email);
Line 503 sub process_email_request {	Line 560 sub process_email_request {
return $output;	return $output;
}	}

	sub call_rulecheck {
	my ($uname,$udom,$alerts,$rulematch,$inst_results,$curr_rules,
	$got_rules,$tocheck) = @_;
	my ($checkhash,$checks);
	$checkhash->{$uname.':'.$udom} = { 'newuser' => 1, };
	if ($tocheck eq 'username') {
	$checks = { 'username' => 1 };
	}
	&Apache::loncommon::user_rule_check($checkhash,$checks,
	$alerts,$rulematch,$inst_results,$curr_rules,
	$got_rules);
	return;
	}

sub send_token {	sub send_token {
my ($domain,$email,$server,$domdesc,$contact_name,$contact_email,$courseid) = @_;	my ($domain,$email,$server,$domdesc,$contact_name,$contact_email,$courseid) = @_;
my $msg = '<h3>'.&mt('Account creation status').'</h3>'.	my $msg = '<h3>'.&mt('Account creation status').'</h3>'.
Line 517 sub send_token {	Line 588 sub send_token {
my $token = &Apache::lonnet::tmpput(\%info,$server);	my $token = &Apache::lonnet::tmpput(\%info,$server);
if ($token !~ /^error/ && $token ne 'no_such_host') {	if ($token !~ /^error/ && $token ne 'no_such_host') {
my $esc_token = &escape($token);	my $esc_token = &escape($token);
my $mailmsg = &mt('A request was submitted on [_1] for creation of a LON-CAPA account at the following institution: [_2].',localtime(time),$domdesc).' '.	my $showtime = localtime(time);
&mt('To complete this process please open a web browser and enter the following'	my $mailmsg = &mt('A request was submitted on [_1] for creation of a GCI WebCenter account.',$showtime).' '.
.' URL in the address/location box: [_1]'	&mt('To complete this process please open a web browser and enter the following URL in the address/location box: [_1]',
,&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token);	&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token);
my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name,	my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name,
$contact_email);	$contact_email);
if ($result eq 'ok') {	if ($result eq 'ok') {
Line 560 sub process_mailtoken {	Line 631 sub process_mailtoken {
if ($result eq 'ok') {	if ($result eq 'ok') {
$msg = $output;	$msg = $output;
my $shownow = &Apache::lonlocal::locallocaltime($now);	my $shownow = &Apache::lonlocal::locallocaltime($now);
my $mailmsg = &mt('A LON-CAPA account for the institution: [_1] has been created [_2] from IP address: [_3]. If you did not perform this action or authorize it, please contact the [_4] ([_5]).',$domdesc,$shownow,$ENV{'REMOTE_ADDR'},$contact_name,$contact_email)."\n";	my $mailmsg = &mt('A GCI WebCenter account has been created [_1] from IP address: [_2]. If you did not perform this action or authorize it, please contact the [_3] ([_4]).',$shownow,$ENV{'REMOTE_ADDR'},$contact_name,$contact_email)."\n";
my $mailresult = &Apache::resetpw::send_mail($domdesc,$data{'email'},	my $mailresult = &Apache::resetpw::send_mail($domdesc,$data{'email'},
$mailmsg,$contact_name,	$mailmsg,$contact_name,
$contact_email);	$contact_email);
Line 608 sub start_session {	Line 679 sub start_session {
$courseid = &validate_course($courseid);	$courseid = &validate_course($courseid);
if ($courseid ne '') {	if ($courseid ne '') {
$form{'courseid'} = $courseid;	$form{'courseid'} = $courseid;
$firsturl = '/adm/selfenroll?cid='.$courseid;	$firsturl = '/adm/selfenroll?courseid='.$courseid;
}	}
}	}
if ($r->dir_config('lonBalancer') eq 'yes') {	if ($r->dir_config('lonBalancer') eq 'yes') {
Line 640 sub print_dataentry_form {	Line 711 sub print_dataentry_form {
my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);	my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);
my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',	my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',
$lonhost);	$lonhost);
my @userinfo = ('firstname','middlename','lastname','generation','id',	my $formtag = '<form name="server" method="post" target="_top" action="/adm/createaccount">';
'permanentemail');	my ($datatable,$rowcount) =
my %lt=&Apache::lonlocal::texthash(	&Apache::loncreateuser::personal_data_display($username,$domain,
'pd' => "Personal Data",	'email','selfcreate');
'firstname' => "First Name",	if ($rowcount) {
'middlename' => "Middle Name",	$output .= '<div class="LC_left_float">'.$formtag.$datatable;
'lastname' => "Last Name",	} else {
'generation' => "Generation",	$output .= $formtag;
'permanentemail' => "Permanent e-mail address",
'id' => "ID/Student Number",
'lg' => "Login Data"
);
my %textboxsize = (
firstname => '15',
middlename => '15',
lastname => '15',
generation => '5',
id => '15',
);
my $genhelp=&Apache::loncommon::help_open_topic('Generation');
$output .= '<div class="LC_left_float"><h3>'.$lt{'pd'}.'</h3>'.
'<form name="server" method="post" target="_top" action="/adm/createaccount">'.
&Apache::lonhtmlcommon::start_pick_box();
foreach my $item (@userinfo) {
my $rowtitle = $lt{$item};
if ($item eq 'generation') {
$rowtitle = $genhelp.$rowtitle;
}
$output .= &Apache::lonhtmlcommon::row_title($rowtitle,undef,'LC_oddrow_value')."\n";
if ($item eq 'permanentemail') {
$output .= $username;
} else {
$output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
}
$output .= &Apache::lonhtmlcommon::row_closure(1);
}	}
$output .= &Apache::lonhtmlcommon::end_pick_box();
$output .= <<"ENDSERVERFORM";	$output .= <<"ENDSERVERFORM";
<input type="hidden" name="logtoken" value="$logtoken" />	<input type="hidden" name="logtoken" value="$logtoken" />
<input type="hidden" name="token" value="$mailtoken" />	<input type="hidden" name="token" value="$mailtoken" />
<input type="hidden" name="serverid" value="$lonhost" />	<input type="hidden" name="serverid" value="$lonhost" />
<input type="hidden" name="uname" value="" />	<input type="hidden" name="uname" value="" />
<input type="hidden" name="upass" value="" />	<input type="hidden" name="upass" value="" />
	<input type="hidden" name="udom" value="" />
<input type="hidden" name="phase" value="createaccount" />	<input type="hidden" name="phase" value="createaccount" />
</form></div>	</form>
ENDSERVERFORM	ENDSERVERFORM
	if ($rowcount) {
	$output .= '</div>'.
	'<div class="LC_left_float">';
	}
my $upassone = '<input type="password" name="upass'.$now.'" size="10" />';	my $upassone = '<input type="password" name="upass'.$now.'" size="10" />';
my $upasstwo = '<input type="password" name="upasscheck'.$now.'" size="10" />';	my $upasstwo = '<input type="password" name="upasscheck'.$now.'" size="10" />';
my $submit_text = &mt('Create LON-CAPA account');	my $submit_text = &mt('Create LON-CAPA account');
$output .= '<div class="LC_left_float"><h3>'.$lt{'lg'}.'</h3>'."\n".	$output .= '<h3>'.&mt('Login Data').'</h3>'."\n".
'<form name="client" method="post" />'."\n".	'<form name="client" method="post" '.
	'onsubmit="return checkpass();">'."\n".
&Apache::lonhtmlcommon::start_pick_box()."\n".	&Apache::lonhtmlcommon::start_pick_box()."\n".
&Apache::lonhtmlcommon::row_title(&mt('Username'),	&Apache::lonhtmlcommon::row_title(&mt('Username'),
'LC_pick_box_title')."\n".	'LC_pick_box_title',
	'LC_oddrow_value')."\n".
$username."\n".	$username."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::row_title(&mt('Password'),	&Apache::lonhtmlcommon::row_title(&mt('Password'),
'LC_pick_box_title')."\n".	'LC_pick_box_title',
	'LC_oddrow_value')."\n".
$upassone."\n".	$upassone."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::row_title(&mt('Confirm password'),	&Apache::lonhtmlcommon::row_title(&mt('Confirm password'),
'LC_pick_box_title')."\n".	'LC_pick_box_title',
$upasstwo."\n".	'LC_oddrow_value')."\n".
	$upasstwo.
	&Apache::lonhtmlcommon::row_closure(1)."\n".
	&Apache::lonhtmlcommon::row_title()."\n".
	'<br /><input type="submit" name="createaccount" value="'.
	$submit_text.'" />'.
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::end_pick_box()."\n".	&Apache::lonhtmlcommon::end_pick_box()."\n".
'<input type="hidden" name="uname" value="'.$username.'">'."\n".	'<input type="hidden" name="uname" value="'.$username.'" />'."\n".
'<input type="hidden" name="lextkey" value="'.$lextkey.'">'."\n".	'<input type="hidden" name="udom" value="'.$domain.'" />'."\n".
'<input type="hidden" name="uextkey" value="'.$uextkey.'">'."\n".	'<input type="hidden" name="lextkey" value="'.$lextkey.'" />'."\n".
'</form></div>'."\n".	'<input type="hidden" name="uextkey" value="'.$uextkey.'" />'."\n".
'<div class="LC_clear_float_footer"><br /><br />'."\n".	'</form>';
'<form name="buttonform">'."\n".	if ($rowcount) {
'<input type="button" name="createaccount" value="'.	$output .= '</div>'."\n".
$submit_text.'" onclick="javascript:checkpass();" /></form></div>';	'<div class="LC_clear_float_footer"></div>'."\n";
	}
} else {	} else {
$output = &mt('Could not load javascript file [_1]','<tt>londes.js</tt>');	$output = &mt('Could not load javascript file [_1]','<tt>londes.js</tt>');
}	}
return $output;	return $output;
}	}

	sub get_creation_controls {
	my ($domain,$usercreation) = @_;
	my (@cancreate,@statustocreate);
	if (ref($usercreation) eq 'HASH') {
	if (ref($usercreation->{'cancreate'}) eq 'HASH') {
	if (ref($usercreation->{'cancreate'}{'statustocreate'}) eq 'ARRAY') {
	@statustocreate = @{$usercreation->{'cancreate'}{'statustocreate'}};
	} else {
	@statustocreate = ('default');
	my ($othertitle,$usertypes,$types) =
	&Apache::loncommon::sorted_inst_types($domain);
	if (ref($types) eq 'ARRAY') {
	push(@statustocreate,@{$types});
	}
	}
	if (ref($usercreation->{'cancreate'}{'selfcreate'}) eq 'ARRAY') {
	@cancreate = @{$usercreation->{'cancreate'}{'selfcreate'}};
	} elsif (($usercreation->{'cancreate'}{'selfcreate'} ne 'none') &&
	($usercreation->{'cancreate'}{'selfcreate'} ne '')) {
	@cancreate = ($usercreation->{'cancreate'}{'selfcreate'});
	}
	}
	}
	return (\@cancreate,\@statustocreate);
	}

sub create_account {	sub create_account {
my ($r,$domain,$lonhost,$username,$domdesc) = @_;	my ($r,$domain,$lonhost,$username,$domdesc) = @_;
my ($retrieved,$output,$upass) = &process_credentials($env{'form.logtoken'},	my ($retrieved,$output,$upass) = &process_credentials($env{'form.logtoken'},
Line 730 sub create_account {	Line 813 sub create_account {
&mt('Return to previous page').'</a>'.	&mt('Return to previous page').'</a>'.
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
if ($retrieved eq 'ok') {	if ($retrieved eq 'ok') {
if ($env{'form.cid'} ne '') {	if ($env{'form.courseid'} ne '') {
my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);	my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);
if ($result eq 'fail') {	if ($result eq 'fail') {
$output = $error.&mt('Invalid ID format').$end.	$output = $error.&mt('Invalid ID format').$end.
Line 756 sub create_account {	Line 839 sub create_account {

sub username_validation {	sub username_validation {
my ($r,$username,$domain,$domdesc,$contact_name,$contact_email,$courseid,	my ($r,$username,$domain,$domdesc,$contact_name,$contact_email,$courseid,
$lonhost) = @_;	$lonhost,$statustocreate) = @_;
my ($retrieved,$output,$upass);	my ($retrieved,$output,$upass);

$username= &LONCAPA::clean_username($username);	$username= &LONCAPA::clean_username($username);
Line 775 sub username_validation {	Line 858 sub username_validation {
$output = '<br /><br />'.&mt('A LON-CAPA account already exists for username [_1] at this institution ([_2]).','<tt>'.$username.'</tt>',$domdesc).'<br />'.&mt('The password entered was also correct so you have been logged in.');	$output = '<br /><br />'.&mt('A LON-CAPA account already exists for username [_1] at this institution ([_2]).','<tt>'.$username.'</tt>',$domdesc).'<br />'.&mt('The password entered was also correct so you have been logged in.');
return ('existingaccount',$output);	return ('existingaccount',$output);
} else {	} else {
$output = '<div class="LC_warning">'.	$output = &login_failure_msg($courseid);
&mt('Username and/or password could not be authenticated.').
'</div>'.
&mt('Please check the username and password.');
}	}
} else {	} else {
my $primlibserv = &Apache::lonnet::domain($domain,'primary');	my $primlibserv = &Apache::lonnet::domain($domain,'primary');
Line 793 sub username_validation {	Line 873 sub username_validation {
}	}
if ($authok eq 'authorized') {	if ($authok eq 'authorized') {
$output = &username_check($username,$domain,$domdesc,$courseid,$lonhost,	$output = &username_check($username,$domain,$domdesc,$courseid,$lonhost,
$contact_email,$contact_name);	$contact_email,$contact_name,undef,
	$statustocreate);
} else {	} else {
$output = '<div class="LC_warning">'.	$output = &login_failure_msg($courseid);
&mt('Username and/or password could not be authenticated.').
'</div>'.
&mt('Please check the username and password.');
}	}
}	}
return ('ok',$output);	return ('ok',$output);
}	}

	sub login_failure_msg {
	my ($courseid) = @_;
	my $url;
	if ($courseid ne '') {
	$url = "/adm/selfenroll?courseid=".$courseid;
	} else {
	$url = "/adm/createaccount";
	}
	my $output = '<h4>'.&mt('Authentication failed').'</h4><div class="LC_warning">'.
	&mt('Username and/or password could not be authenticated.').
	'</div>'.
	&mt('Please check the username and password.').'<br /><br />';
	'<a href="'.$url.'">'.&mt('Try again').'</a>';
	return $output;
	}

sub username_check {	sub username_check {
my ($username,$domain,$domdesc,$courseid,$lonhost,$contact_email,$contact_name,	my ($username,$domain,$domdesc,$courseid,$lonhost,$contact_email,
$sso_logout) = @_;	$contact_name,$sso_logout,$statustocreate) = @_;
my (%rulematch,%inst_results,$newuser,$checkfail,$rowcount,$editable,$output,$msg,	my (%rulematch,%inst_results,$checkfail,$rowcount,$editable,$output,$msg,
%alerts,%curr_rules,%got_rules);	%alerts,%curr_rules,%got_rules);
$newuser = 1;	&call_rulecheck($username,$domain,\%alerts,\%rulematch,
my $checkhash;	\%inst_results,\%curr_rules,%got_rules,'username');
my $checks = { 'username' => 1 };
$checkhash->{$username.':'.$domain} = { 'newuser' => $newuser };
&Apache::loncommon::user_rule_check($checkhash,$checks,\%alerts,\%rulematch,
\%inst_results,\%curr_rules,\%got_rules);
if (ref($alerts{'username'}) eq 'HASH') {	if (ref($alerts{'username'}) eq 'HASH') {
if (ref($alerts{'username'}{$domain}) eq 'HASH') {	if (ref($alerts{'username'}{$domain}) eq 'HASH') {
if ($alerts{'username'}{$domain}{$username}) {	if ($alerts{'username'}{$domain}{$username}) {
Line 830 sub username_check {	Line 920 sub username_check {
}	}
}	}
if (!$checkfail) {	if (!$checkfail) {
	if (ref($statustocreate) eq 'ARRAY') {
	$checkfail = 'inststatus';
	if (ref($inst_results{$username.':'.$domain}{inststatus}) eq 'ARRAY') {
	foreach my $inststatus (@{$inst_results{$username.':'.$domain}{inststatus}}) {
	if (grep(/^\Q$inststatus\E$/,@{$statustocreate})) {
	undef($checkfail);
	last;
	}
	}
	} elsif (grep(/^default$/,@{$statustocreate})) {
	undef($checkfail);
	}
	}
	}
	if (!$checkfail) {
$output = '<form method="post" action="/adm/createaccount">';	$output = '<form method="post" action="/adm/createaccount">';
(my $datatable,$rowcount,$editable) =	(my $datatable,$rowcount,$editable) =
&Apache::loncreateuser::personal_data_display($username,$domain,1,'selfcreate',	&Apache::loncreateuser::personal_data_display($username,$domain,1,'selfcreate',
Line 864 sub username_check {	Line 969 sub username_check {
} elsif ($checkfail eq 'authtoken') {	} elsif ($checkfail eq 'authtoken') {
$msg .= '<span class="LC_error">'.&mt('Error creating token.').'</span>'.	$msg .= '<span class="LC_error">'.&mt('Error creating token.').'</span>'.
'<br />'.$output;	'<br />'.$output;
	} elsif ($checkfail eq 'inststatus') {
	$msg .= '<span class="LC_warning">'.
	&mt('You are not permitted to create a LON-CAPA account.').
	'</span><br /><br />'.$output;
}	}
$msg .= &mt('Please contact the [_1] ([_2]) for assistance.',	$msg .= &mt('Please contact the [_1] ([_2]) for assistance.',
$contact_name,$contact_email).'<br /><hr />'.	$contact_name,$contact_email).'<br /><hr />'.
Line 877 sub username_check {	Line 986 sub username_check {
&mt('Create LON-CAPA account').'" /></form>';	&mt('Create LON-CAPA account').'" /></form>';
if ($rowcount) {	if ($rowcount) {
if ($editable) {	if ($editable) {
$msg = &mt('To create one, use the table below to provide information about yourself, then click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';	if ($courseid ne '') {
	$msg = '<h4>'.&mt('User information').'</h4>';
	}
	$msg .= &mt('To create one, use the table below to provide information about yourself, then click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';
} else {	} else {
$msg = &mt('A user account will be created with information displayed in the table below, when you click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';	if ($courseid ne '') {
	$msg = '<h4>'.&mt('Review user information').'</h4>';
	}
	$msg .= &mt('A user account will be created with information displayed in the table below, when you click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';
}	}
} else {	} else {
$msg = '<br />'.&mt('Confirm that you wish to create an account.');	if ($courseid ne '') {
	$msg = '<h4>'.&mt('Confirmation').'</h4>';
	}
	$msg .= &mt('Confirm that you wish to create an account.');
}	}
$msg .= $output;	$msg .= $output;
}	}
Line 922 sub username_activation {	Line 1040 sub username_activation {
if ((($domdefaults{'auth_def'} =~/^krb(4\|5)$/) &&	if ((($domdefaults{'auth_def'} =~/^krb(4\|5)$/) &&
($domdefaults{'auth_arg_def'} ne '')) \|\|	($domdefaults{'auth_arg_def'} ne '')) \|\|
($domdefaults{'auth_def'} eq 'localauth')) {	($domdefaults{'auth_def'} eq 'localauth')) {
if ($env{'form.cid'} ne '') {	if ($env{'form.courseid'} ne '') {
my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);	my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);
if ($result eq 'fail') {	if ($result eq 'fail') {
$output = $error.&mt('Invalid ID format').$end.	$output = $error.&mt('Invalid ID format').$end.
Line 931 sub username_activation {	Line 1049 sub username_activation {
}	}
}	}
# Call modifyuser	# Call modifyuser
	my (%rulematch,%inst_results,%curr_rules,%got_rules,%alerts,%info);
	&call_rulecheck($username,$domain,\%alerts,\%rulematch,
	\%inst_results,\%curr_rules,%got_rules);
	my @userinfo = ('firstname','middlename','lastname','generation',
	'permanentemail','id');
	my %canmodify =
	&Apache::loncreateuser::selfcreate_canmodify('selfcreate',$domain,
	\@userinfo,\%inst_results);
	foreach my $item (@userinfo) {
	if ($canmodify{$item}) {
	$info{$item} = $env{'form.c'.$item};
	} else {
	$info{$item} = $inst_results{$username.':'.$domain}{$item};
	}
	}
	if (ref($inst_results{$username.':'.$domain}{'inststatus'}) eq 'ARRAY') {
	my @inststatuses = @{$inst_results{$username.':'.$domain}{'inststatus'}};
	$info{'inststatus'} = join(':',map { &escape($_); } @inststatuses);
	}
my $result =	my $result =
&Apache::lonnet::modifyuser($domain,$username,$env{'form.cid'},	&Apache::lonnet::modifyuser($domain,$username,$env{'form.cid'},
$domdefaults{'auth_def'},	$domdefaults{'auth_def'},
$domdefaults{'auth_arg_def'},$env{'form.cfirstname'},	$domdefaults{'auth_arg_def'},$info{'firstname'},
$env{'form.cmiddlename'},$env{'form.clastname'},	$info{'middlename'},$info{'lastname'},
$env{'form.cgeneration'},undef,undef,	$info{'generation'},undef,undef,
$env{'form.cpermanentemail'});	$info{'permanentemail'},$info{'inststatus'});
if ($result eq 'ok') {	if ($result eq 'ok') {
my $delete = &Apache::lonnet::tmpdel($env{'form.authtoken'});	my $delete = &Apache::lonnet::tmpdel($env{'form.authtoken'});
$output = &mt('A LON-CAPA account has been created for username: [_1] in domain: [_2].',$username,$domain);	$output = &mt('A LON-CAPA account has been created for username: [_1] in domain: [_2].',$username,$domain);
Line 991 sub invalid_state {	Line 1128 sub invalid_state {
} elsif ($error eq 'existinguser') {	} elsif ($error eq 'existinguser') {
$msg = &mt('The e-mail address you provided is already in use as a username in LON-CAPA at this institution.');	$msg = &mt('The e-mail address you provided is already in use as a username in LON-CAPA at this institution.');
} elsif ($error eq 'userrules') {	} elsif ($error eq 'userrules') {
$msg = &mt('Username rules for this LON-CAPA at this institution do not allow the e-mail address you provided to be used as a username.');	$msg = &mt('Username rules at this institution do not allow the e-mail address you provided to be used as a username.');
} elsif ($error eq 'userformat') {	} elsif ($error eq 'userformat') {
$msg = &mt('The e-mail address you provided may not be used as a username at this LON-CAPA institution.');	$msg = &mt('The e-mail address you provided may not be used as a username at this LON-CAPA institution.');
} elsif ($error eq 'captcha') {	} elsif ($error eq 'captcha') {
Line 1019 sub linkto_email_help {	Line 1156 sub linkto_email_help {
return $msg;	return $msg;
}	}

sub create_captcha {	sub create_recaptcha {
my ($output_dir,$db_dir) = @_;	my $captcha = Captcha::reCAPTCHA->new;
my %captcha_params = &captcha_settings();	return $captcha->get_options_setter({theme => 'white'})."\n".
my $captcha = Authen::Captcha->new(	$captcha->get_html('PUBLICKEY'); # generate public key for IP
output_folder => $captcha_params{'output_dir'},	# from http://recaptcha.net/
data_folder => $captcha_params{'db_dir'},
);
my $md5sum = $captcha->generate_code($captcha_params{'numchars'});
my $output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".
&mt('Type in the letters/numbers shown below').' '.
'<input type="text" size="5" name="code" value="" /><br />'.
'<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png">';
return $output;
}

sub captcha_settings {
my %captcha_params = (
output_dir => $Apache::lonnet::perlvar{'lonCaptchaDir'},
www_output_dir => "/captchaspool",
db_dir => $Apache::lonnet::perlvar{'lonCaptchaDb'},
numchars => '5',
);
return %captcha_params;
}	}

sub getkeys {	sub getkeys {
Line 1056 sub getkeys {	Line 1175 sub getkeys {

sub serverform {	sub serverform {
my ($logtoken,$lonhost,$mailtoken,$courseid,$context) = @_;	my ($logtoken,$lonhost,$mailtoken,$courseid,$context) = @_;
my $phase = 'username_validation"';	my $phase = 'username_validation';
	my $catalog_elements;
if ($context eq 'selfenroll') {	if ($context eq 'selfenroll') {
$phase = 'selfenroll_login';	$phase = 'selfenroll_login';
}	}
my $output .= <<ENDSERVERFORM;	if ($courseid ne '') {
	$catalog_elements = &Apache::lonhtmlcommon::echo_form_input(['courseid','phase']);
	}
	my $output = <<ENDSERVERFORM;
<form name="server" method="post" action="/adm/createaccount">	<form name="server" method="post" action="/adm/createaccount">
<input type="hidden" name="logtoken" value="$logtoken" />	<input type="hidden" name="logtoken" value="$logtoken" />
<input type="hidden" name="token" value="$mailtoken" />	<input type="hidden" name="token" value="$mailtoken" />
<input type="hidden" name="serverid" value="$lonhost" />	<input type="hidden" name="serverid" value="$lonhost" />
<input type="hidden" name="uname" value="" />	<input type="hidden" name="uname" value="" />
<input type="hidden" name="upass" value="" />	<input type="hidden" name="upass" value="" />
	<input type="hidden" name="udom" value="" />
<input type="hidden" name="phase" value="$phase" />	<input type="hidden" name="phase" value="$phase" />
<input type="hidden" name="courseid" value="$courseid" />	<input type="hidden" name="courseid" value="$courseid" />
	$catalog_elements
</form>	</form>
ENDSERVERFORM	ENDSERVERFORM
return $output;	return $output;
Line 1153 sub sso_logout_frag {	Line 1278 sub sso_logout_frag {
return $endsessionmsg;	return $endsessionmsg;
}	}

	sub catreturn_js {
	return <<"ENDSCRIPT";
	<script type="text/javascript">

	function ToSelfenroll(formname) {
	var formidx = getFormByName(formname);
	if (formidx > -1) {
	document.forms[formidx].action = '/adm/selfenroll';
	numidx = getIndexByName(formidx,'phase');
	if (numidx > -1) {
	document.forms[formidx].elements[numidx].value = '';
	}
	numidx = getIndexByName(formidx,'context');
	if (numidx > -1) {
	document.forms[formidx].elements[numidx].value = '';
	}
	}
	document.forms[formidx].submit();
	}

	function ToCatalog(formname,caller) {
	var formidx = getFormByName(formname);
	if (formidx > -1) {
	document.forms[formidx].action = '/adm/coursecatalog';
	numidx = getIndexByName(formidx,'coursenum');
	if (numidx > -1) {
	if (caller != 'details') {
	document.forms[formidx].elements[numidx].value = '';
	}
	}
	}
	document.forms[formidx].submit();
	}

	function getIndexByName(formidx,item) {
	for (var i=0;i<document.forms[formidx].elements.length;i++) {
	if (document.forms[formidx].elements[i].name == item) {
	return i;
	}
	}
	return -1;
	}

	function getFormByName(item) {
	for (var i=0; i<document.forms.length; i++) {
	if (document.forms[i].name == item) {
	return i;
	}
	}
	return -1;
	}

	</script>
	ENDSCRIPT

	}

1;	1;

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

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