[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /auth lonacc.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2018-12-17 21:43:05
Message-ID: cvsraeburn1545082985 () cvsserver
[Download RAW message or body]
raeburn Mon Dec 17 21:43:05 2018 EDT
Modified files:
/loncom/auth lonacc.pm
Log:
- Bug 6400
Tiny url available to switchserver.pm when load-balancer offloads
SSO-authenticated user.
Index: loncom/auth/lonacc.pm
diff -u loncom/auth/lonacc.pm:1.171 loncom/auth/lonacc.pm:1.172
--- loncom/auth/lonacc.pm:1.171 Sat Nov 24 16:19:04 2018
+++ loncom/auth/lonacc.pm Mon Dec 17 21:43:05 2018
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Cookie Based Access Handler
#
-# $Id: lonacc.pm,v 1.171 2018/11/24 16:19:04 raeburn Exp $
+# $Id: lonacc.pm,v 1.172 2018/12/17 21:43:05 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -363,6 +363,14 @@
# login but immediately go to switch server to find us a new
# machine
&Apache::lonauth::success($r,$user,$domain,$home,'noredirect');
+ foreach my $item (keys(%form)) {
+ $env{'form.'.$item} = $form{$item};
+ }
+ unless ($form{'symb'}) {
+ unless (($r->uri eq '/adm/roles') || ($r->uri eq '/adm/sso')) {
+ $env{'form.origurl'} = $r->uri;
+ }
+ }
$env{'request.sso.login'} = 1;
if (defined($r->dir_config("lonSSOReloginServer"))) {
$env{'request.sso.reloginserver'} =
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic