version 1.52, 2012/08/25 04:34:44
|
version 1.56, 2013/06/05 12:46:39
|
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 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 60 sub handler {
|
Line 59 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::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['token','courseid','domain']); |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonlocal::get_language_handle($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, undef) = Apache::lonnet::is_course($env{'form.courseid'}); |
($domain, undef) = Apache::lonnet::is_course($env{'form.courseid'}); |
$domain ||= &Apache::lonnet::default_login_domain(); |
unless ($domain) { |
|
if ($env{'form.phase'} =~ /^username_(activation|validation)$/) { |
|
if (($env{'form.udom'} =~ /^$match_domain$/) && |
|
(&Apache::lonnet::domain($env{'form.udom'}) ne '')) { |
|
$domain = $env{'form.udom'}; |
|
} else { |
|
$domain = &Apache::lonnet::default_login_domain(); |
|
} |
|
} elsif (($env{'form.phase'} eq '') && |
|
($env{'form.domain'} =~ /^$match_domain$/) && |
|
(&Apache::lonnet::domain($env{'form.domain'}) ne '')) { |
|
$domain = $env{'form.domain'}; |
|
} else { |
|
$domain = &Apache::lonnet::default_login_domain(); |
|
} |
|
} |
} |
} |
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 806 sub create_account {
|
Line 821 sub create_account {
|
# Error messages |
# Error messages |
my $error = '<span class="LC_error">'.&mt('Error:').' '; |
my $error = '<span class="LC_error">'.&mt('Error:').' '; |
my $end = '</span><br /><br />'; |
my $end = '</span><br /><br />'; |
my $rtnlink = '<a href="javascript:history.back();" />'. |
my $rtnlink = '<a href="javascript:history.back();">'. |
&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') { |
Line 1020 sub username_activation {
|
Line 1035 sub username_activation {
|
my $output; |
my $output; |
my $error = '<span class="LC_error">'.&mt('Error:').' '; |
my $error = '<span class="LC_error">'.&mt('Error:').' '; |
my $end = '</span><br /><br />'; |
my $end = '</span><br /><br />'; |
my $rtnlink = '<a href="javascript:history.back();" />'. |
my $rtnlink = '<a href="javascript:history.back();">'. |
&mt('Return to previous page').'</a>'. |
&mt('Return to previous page').'</a>'. |
&Apache::loncommon::end_page(); |
&Apache::loncommon::end_page(); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($domain); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($domain); |
Line 1042 sub username_activation {
|
Line 1057 sub username_activation {
|
$output = &mt('Sorry, your authentication has expired.'); |
$output = &mt('Sorry, your authentication has expired.'); |
} |
} |
if ($earlyout ne '') { |
if ($earlyout ne '') { |
$output .= '<br />'.&mt('Please [_1]start again[_2].','<a href="/adm/createaccount">','</a>'); |
my $link = '/adm/createaccount'; |
|
if (&Apache::lonnet::domain($domain) ne '') { |
|
$link .= "?domain=$domain"; |
|
} |
|
$output .= '<br />'.&mt('Please [_1]start again[_2].', |
|
'<a href="'.$link.'">','</a>'); |
return($earlyout,$output); |
return($earlyout,$output); |
} |
} |
if ((($domdefaults{'auth_def'} =~/^krb(4|5)$/) && |
if ((($domdefaults{'auth_def'} =~/^krb(4|5)$/) && |
Line 1169 sub linkto_email_help {
|
Line 1189 sub linkto_email_help {
|
} |
} |
$msg .= '<br />'.&mt('You may wish to contact the [_1]LON-CAPA helpdesk[_2] for [_3].','<a href="'.$href.'">','</a>',$domdesc).'<br />'; |
$msg .= '<br />'.&mt('You may wish to contact the [_1]LON-CAPA helpdesk[_2] for [_3].','<a href="'.$href.'">','</a>',$domdesc).'<br />'; |
} else { |
} else { |
$msg .= '<br />'.&mt('You may wish to send an e-mail to the server administrator: [_1] for [_2].',$Apache::lonnet::perlvar{'AdminEmail'},$domdesc).'<br />'; |
$msg .= '<br />'.&mt('You may wish to send an e-mail to the server administrator: [_1] for [_2].',$Apache::lonnet::perlvar{'AdmEMail'},$domdesc).'<br />'; |
} |
} |
return $msg; |
return $msg; |
} |
} |