[LON-CAPA-cvs] cvs: loncom /auth checkauthen.pm

[raeburn]

raeburn		Sun Nov 25 02:49:26 2018 EDT

  Modified files:              
    /loncom/auth	checkauthen.pm 
  Log:
  - Bug 6400.
    - Direct access (after successful authentication) for shortened URL.
  
  
Index: loncom/auth/checkauthen.pm
diff -u loncom/auth/checkauthen.pm:1.19 loncom/auth/checkauthen.pm:1.20
--- loncom/auth/checkauthen.pm:1.19	Mon Sep 21 14:25:03 2015
+++ loncom/auth/checkauthen.pm	Sun Nov 25 02:49:26 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # checks for a cookie to authenticate a user
 #
-# $Id: checkauthen.pm,v 1.19 2015/09/21 14:25:03 raeburn Exp $
+# $Id: checkauthen.pm,v 1.20 2018/11/25 02:49:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -99,7 +99,7 @@
     }
     if (($fail == FORBIDDEN) &&
         (($r->uri eq '/adm/email') || ($r->uri eq '/adm/preferences') ||
-         ($r->uri eq '/adm/requestcourse'))) {
+         ($r->uri eq '/adm/requestcourse') || ($r->uri =~ m{^/tiny/[\w\-.]+/\w+$}))) {
         $env{'form.firsturl'} = $r->uri;
     }
     return $fail;