|
version 1.157, 2019/01/27 16:02:43
|
version 1.162, 2020/12/18 15:23:03
|
|
Line 46 use Digest::MD5;
|
Line 46 use Digest::MD5;
|
| # ------------------------------------------------------------ Successful login
|
# ------------------------------------------------------------ Successful login
|
| sub success {
|
sub success {
|
| my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,
|
my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,
|
| $form,$skipcritical) = @_;
|
$form,$skipcritical,$cid) = @_;
|
|
|
|
| # ------------------------------------------------------------ Get cookie ready
|
# ------------------------------------------------------------ Get cookie ready
|
| my $cookie =
|
my $cookie =
|
|
Line 60 sub success {
|
Line 60 sub success {
|
|
|
|
| # -------------------------------------------------------------------- Log this
|
# -------------------------------------------------------------------- Log this
|
|
|
|
| |
my $ip = &Apache::lonnet::get_requestor_ip();
|
| &Apache::lonnet::log($domain,$username,$authhost,
|
&Apache::lonnet::log($domain,$username,$authhost,
|
| "Login $ENV{'REMOTE_ADDR'}");
|
"Login $ip");
|
|
|
|
| # ------------------------------------------------- Check for critical messages
|
# ------------------------------------------------- Check for critical messages
|
|
|
|
|
Line 108 sub success {
|
Line 109 sub success {
|
| }
|
}
|
| $r->send_http_header;
|
$r->send_http_header;
|
| if (ref($form) eq 'HASH') {
|
if (ref($form) eq 'HASH') {
|
| |
$form->{'lti.login'} = $env{'request.lti.login'};
|
| $form->{'lti.reqcrs'} = $env{'request.lti.reqcrs'};
|
$form->{'lti.reqcrs'} = $env{'request.lti.reqcrs'};
|
| $form->{'lti.reqrole'} = $env{'request.lti.reqrole'};
|
$form->{'lti.reqrole'} = $env{'request.lti.reqrole'};
|
| $form->{'lti.sourcecrs'} = $env{'request.lti.sourcecrs'};
|
$form->{'lti.sourcecrs'} = $env{'request.lti.sourcecrs'};
|
|
Line 147 sub success {
|
Line 149 sub success {
|
| }
|
}
|
| if (defined($form->{symb})) {
|
if (defined($form->{symb})) {
|
| my $destsymb = $form->{symb};
|
my $destsymb = $form->{symb};
|
| |
my $encrypted;
|
| |
if ($destsymb =~ m{^/enc/}) {
|
| |
$encrypted = 1;
|
| |
if ($cid) {
|
| |
$destsymb = &Apache::lonenc::unencrypted($destsymb,$cid);
|
| |
}
|
| |
}
|
| $destination .= ($destination =~ /\?/) ? '&' : '?';
|
$destination .= ($destination =~ /\?/) ? '&' : '?';
|
| if ($destsymb =~ /___/) {
|
if ($destsymb =~ /___/) {
|
| # FIXME Need to deal with encrypted symbs and urls as needed.
|
|
| my ($map,$resid,$desturl)=split(/___/,$destsymb);
|
my ($map,$resid,$desturl)=split(/___/,$destsymb);
|
| $desturl = &Apache::lonnet::clutter($desturl);
|
$desturl = &Apache::lonnet::clutter($desturl);
|
| |
if ($encrypted) {
|
| |
$desturl = &Apache::lonenc::encrypted($desturl,1,$cid);
|
| |
$destsymb = $form->{symb};
|
| |
}
|
| $desturl = &HTML::Entities::encode($desturl,'"<>&');
|
$desturl = &HTML::Entities::encode($desturl,'"<>&');
|
| $destsymb = &HTML::Entities::encode($destsymb,'"<>&');
|
$destsymb = &HTML::Entities::encode($destsymb,'"<>&');
|
| $destination .= 'destinationurl='.$desturl.
|
$destination .= 'destinationurl='.$desturl.
|
| '&destsymb='.$destsymb;
|
'&destsymb='.$destsymb;
|
| } else {
|
} elsif (!$encrypted) {
|
| $destsymb = &HTML::Entities::encode($destsymb,'"<>&');
|
$destsymb = &HTML::Entities::encode($destsymb,'"<>&');
|
| $destination .= 'destinationurl='.$destsymb;
|
$destination .= 'destinationurl='.$destsymb;
|
| }
|
}
|
|
Line 635 sub handler {
|
Line 647 sub handler {
|
| ($is_balancer,$otherserver) =
|
($is_balancer,$otherserver) =
|
| &Apache::lonnet::check_loadbalancing($form{'uname'},$form{'udom'},'login');
|
&Apache::lonnet::check_loadbalancing($form{'uname'},$form{'udom'},'login');
|
| if ($is_balancer) {
|
if ($is_balancer) {
|
| |
# Check if browser sent a LON-CAPA load balancer cookie (and this is a balancer)
|
| |
my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r);
|
| |
if (($found_server) && ($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) {
|
| |
$otherserver = $found_server;
|
| |
}
|
| if ($otherserver eq '') {
|
if ($otherserver eq '') {
|
| my $lowest_load;
|
my $lowest_load;
|
| ($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($form{'udom'});
|
($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($form{'udom'});
|
|
Line 675 sub handler {
|
Line 692 sub handler {
|
| }
|
}
|
| $r->internal_redirect($switchto);
|
$r->internal_redirect($switchto);
|
| } else {
|
} else {
|
| |
&Apache::loncommon::content_type($r,'text/html');
|
| |
$r->send_http_header;
|
| $r->print(&noswitch());
|
$r->print(&noswitch());
|
| }
|
}
|
| return OK;
|
return OK;
|
|
Line 705 sub handler {
|
Line 724 sub handler {
|
| }
|
}
|
| $r->internal_redirect($switchto);
|
$r->internal_redirect($switchto);
|
| } else {
|
} else {
|
| |
&Apache::loncommon::content_type($r,'text/html');
|
| |
$r->send_http_header;
|
| $r->print(&noswitch());
|
$r->print(&noswitch());
|
| }
|
}
|
| return OK;
|
return OK;
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonauth.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth