|
version 1.158.2.9.2.3, 2021/01/04 12:50:06
|
version 1.158.2.11, 2020/10/26 02:00:13
|
|
Line 51 sub handler {
|
Line 51 sub handler {
|
| if (!defined($env{'form.firsturl'})) { |
if (!defined($env{'form.firsturl'})) { |
| &Apache::lonacc::get_posted_cgi($r,['firsturl']); |
&Apache::lonacc::get_posted_cgi($r,['firsturl']); |
| } |
} |
| if (!defined($env{'form.firsturl'})) { |
|
| if ($ENV{'REDIRECT_URL'} =~ m{^/+tiny/+$LONCAPA::match_domain/+\w+$}) { |
|
| $env{'form.firsturl'} = $ENV{'REDIRECT_URL'}; |
|
| } |
|
| } |
|
| |
|
| # -- check if they are a migrating user |
# -- check if they are a migrating user |
| if (defined($env{'form.token'})) { |
if (defined($env{'form.token'})) { |
|
Line 508 ENDSCRIPT
|
Line 503 ENDSCRIPT
|
| my $omitextra; |
my $omitextra; |
| if ($headextra_exempt ne '') { |
if ($headextra_exempt ne '') { |
| my @exempt = split(',',$headextra_exempt); |
my @exempt = split(',',$headextra_exempt); |
| my $ip = &Apache::lonnet::get_requestor_ip(); |
my $ip = $ENV{'REMOTE_ADDR'}; |
| if (grep(/^\Q$ip\E$/,@exempt)) { |
if (grep(/^\Q$ip\E$/,@exempt)) { |
| $omitextra = 1; |
$omitextra = 1; |
| } |
} |
|
Line 751 sub check_loginvia {
|
Line 746 sub check_loginvia {
|
| my $output; |
my $output; |
| if ($loginvia ne '') { |
if ($loginvia ne '') { |
| my $noredirect; |
my $noredirect; |
| my $ip = &Apache::lonnet::get_requestor_ip(); |
my $ip = $ENV{'REMOTE_ADDR'}; |
| if ($ip eq '127.0.0.1') { |
if ($ip eq '127.0.0.1') { |
| $noredirect = 1; |
$noredirect = 1; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth