Return to createaccount.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/createaccount.pm between versions 1.26 and 1.37.2.1

version 1.26, 2008/12/05 19:22:58	version 1.37.2.1, 2009/12/06 23:48:34
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 58 sub handler {	Line 58 sub handler {
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;
}	}
Line 105 sub handler {	Line 112 sub handler {
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);
&print_footer($r);	&print_footer($r);
Line 126 sub handler {	Line 139 sub handler {
$start_page =	$start_page =
&Apache::loncommon::start_page($title,$js,	&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 =
	&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);	&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);
&print_footer($r);	&print_footer($r);
return OK;	return OK;
Line 153 sub handler {	Line 157 sub handler {
&print_header($r,$start_page,$courseid);	&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 />'.
Line 208 sub handler {	Line 213 sub handler {
(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);
&print_footer($r);	&print_footer($r);
Line 219 sub handler {	Line 224 sub handler {
} elsif ($env{'form.create_with_email'}) {	} elsif ($env{'form.create_with_email'}) {
&print_header($r,$start_page,$courseid);	&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,$courseid);	&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);
Line 273 sub selfenroll_crumbs {	Line 278 sub selfenroll_crumbs {
my ($r,$courseid,$desc) = @_;	my ($r,$courseid,$desc) = @_;
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"javascript:ToCatalog('backupcrumbs','')",	({href=>"javascript:ToCatalog('backupcrumbs','')",
text=>"Course Catalog"});	text=>"Course/Community Catalog"});
if ($env{'form.coursenum'} ne '') {	if ($env{'form.coursenum'} ne '') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"javascript:ToCatalog('backupcrumbs','details')",	({href=>"javascript:ToCatalog('backupcrumbs','details')",
Line 306 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 339 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 397 sub print_username_form {	Line 403 sub print_username_form {
}	}
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="'.
$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></div>';	$output .= '</div>';
}	}
}	}
if ($output eq '') {	if ($output eq '') {
Line 447 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" 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">'.
	'<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>';	'</form>';
return $output;	return $output;
}	}
Line 498 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 $uhome=&Apache::lonnet::homeserver($useremail,$domain);	my $uhome=&Apache::lonnet::homeserver($useremail,$domain);
Line 576 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 619 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 699 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' => "Student/Employee ID",
'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 815 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 849 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 = &login_failure_msg($courseid);	$output = &login_failure_msg($courseid);
}	}
Line 874 sub login_failure_msg {	Line 899 sub login_failure_msg {
}	}

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,$checkfail,$rowcount,$editable,$output,$msg,	my (%rulematch,%inst_results,$checkfail,$rowcount,$editable,$output,$msg,
%alerts,%curr_rules,%got_rules);	%alerts,%curr_rules,%got_rules);
&call_rulecheck($username,$domain,\%alerts,\%rulematch,	&call_rulecheck($username,$domain,\%alerts,\%rulematch,
Line 895 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 929 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 1112 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 1164 sub serverform {	Line 1190 sub serverform {
<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	$catalog_elements

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.26
changed lines
	Added in v.1.37.2.1