--- loncom/lti/ltiutils.pm 2022/01/03 18:35:27 1.17.2.1 +++ loncom/lti/ltiutils.pm 2022/01/20 00:35:00 1.17.2.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utility functions for managing LON-CAPA LTI interactions # -# $Id: ltiutils.pm,v 1.17.2.1 2022/01/03 18:35:27 raeburn Exp $ +# $Id: ltiutils.pm,v 1.17.2.2 2022/01/20 00:35:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,6 +31,8 @@ package LONCAPA::ltiutils; use strict; use Net::OAuth; use Digest::SHA; +use Digest::MD5 qw(md5_hex); +use LWP::UserAgent(); use Apache::lonnet; use Apache::loncommon; use LONCAPA qw(:DEFAULT :match); @@ -287,9 +289,12 @@ sub setup_logout_callback { ); my $post = &sign_params($service_url,$ckey,$secret,\%ltiparams, '','','',1); + + my $ua=new LWP::UserAgent; + $ua->timeout(10); my $request=new HTTP::Request('POST',$service_url); $request->content($post); - my $response = &LONCAPA::LWPReq::makerequest('',$request,'','',10); + my $response=$ua->request($request); } } return;