[LON-CAPA-cvs] cvs: loncom / lontrans.pm

[raeburn]

raeburn		Wed Oct  6 19:38:29 2021 EDT

  Modified files:              
    /loncom	lontrans.pm 
  Log:
  - Session information for user public:public does need to be preserved when
    a user needs to be switched to/from hostname used for WAF/proxy.  
  
  
Index: loncom/lontrans.pm
diff -u loncom/lontrans.pm:1.34 loncom/lontrans.pm:1.35
--- loncom/lontrans.pm:1.34	Sun Aug  8 20:51:33 2021
+++ loncom/lontrans.pm	Wed Oct  6 19:38:29 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # URL translation for User Files
 #
-# $Id: lontrans.pm,v 1.34 2021/08/08 20:51:33 raeburn Exp $
+# $Id: lontrans.pm,v 1.35 2021/10/06 19:38:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -99,11 +99,13 @@
                     my %user;
                     my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);
                     if (($handle) && ($user{'name'} ne '') && ($user{'domain'} ne '')) {
-                        my $token = &get_token($r,$remote_ip,\%user);
-                        unless ($token eq '') {
-                            $r->internal_redirect("/adm/migrateuser?token=$token");
-                            $r->set_handlers('PerlHandler'=> undef);
-                            return DECLINED;
+                        unless (($user{'name'} eq 'public') && ($user{'domain'} eq 'public')) {
+                            my $token = &get_token($r,$remote_ip,\%user);
+                            unless ($token eq '') {
+                                $r->internal_redirect("/adm/migrateuser?token=$token");
+                                $r->set_handlers('PerlHandler'=> undef);
+                                return DECLINED;
+                            }
                         }
                     }
                 }