loncom/lti/ltiutils.pm - diff

Return to ltiutils.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.17.2.2, 2022/01/20 00:35:00	version 1.17.2.3, 2023/01/23 18:39:46
Line 32 use strict;	Line 32 use strict;
use Net::OAuth;	use Net::OAuth;
use Digest::SHA;	use Digest::SHA;
use Digest::MD5 qw(md5_hex);	use Digest::MD5 qw(md5_hex);
	use Encode;
use LWP::UserAgent();	use LWP::UserAgent();
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
Line 278 sub lti_provider_scope {	Line 279 sub lti_provider_scope {
sub setup_logout_callback {	sub setup_logout_callback {
my ($uname,$udom,$server,$ckey,$secret,$service_url,$idsdir,$protocol,$hostname) = @_;	my ($uname,$udom,$server,$ckey,$secret,$service_url,$idsdir,$protocol,$hostname) = @_;
if ($service_url =~ m{^https?://[^/]+/}) {	if ($service_url =~ m{^https?://[^/]+/}) {
my $digest_user = &Encode::decode_utf8($uname.':'.$udom);	my $digest_user = &Encode::decode('UTF-8',$uname.':'.$udom);
my $loginfile = &Digest::SHA::sha1_hex($digest_user).&md5_hex(&md5_hex(time.{}.rand().$$));	my $loginfile = &Digest::SHA::sha1_hex($digest_user).&md5_hex(&md5_hex(time.{}.rand().$$));
if ((-d $idsdir) && (open(my $fh,'>',"$idsdir/$loginfile"))) {	if ((-d $idsdir) && (open(my $fh,'>',"$idsdir/$loginfile"))) {
print $fh "$uname,$udom,$server\n";	print $fh "$uname,$udom,$server\n";