[LON-CAPA-cvs] cvs: loncom /lti ltiauth.pm

[raeburn]

raeburn		Mon May 14 20:10:15 2018 EDT

  Modified files:              
    /loncom/lti	ltiauth.pm 
  Log:
  - Bug 6754 LON-CAPA as LTI Provider 
    - Support LTI Consumer using OAuth version 1.0a (sends oauth_callback)
  
  
Index: loncom/lti/ltiauth.pm
diff -u loncom/lti/ltiauth.pm:1.11 loncom/lti/ltiauth.pm:1.12
--- loncom/lti/ltiauth.pm:1.11	Mon May 14 19:56:05 2018
+++ loncom/lti/ltiauth.pm	Mon May 14 20:10:15 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Basic LTI Authentication Module
 #
-# $Id: ltiauth.pm,v 1.11 2018/05/14 19:56:05 raeburn Exp $
+# $Id: ltiauth.pm,v 1.12 2018/05/14 20:10:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -294,6 +294,12 @@
         $protocol = 'https';
     }
 
+    if (exists($params->{'oauth_callback'})) {
+        $Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;
+    } else {
+        $Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0;
+    }
+
     my ($itemid,$consumer_key,$secret);
     $consumer_key = $params->{'oauth_consumer_key'};
     if (ref($lti_by_key{$consumer_key}) eq 'ARRAY') {