loncom/lti/ltiutils.pm - diff

Return to ltiutils.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.7, 2018/04/14 17:52:48	version 1.9, 2018/05/15 04:33:17
Line 324 sub sign_params {	Line 324 sub sign_params {
if ($sigmethod eq '') {	if ($sigmethod eq '') {
$sigmethod = 'HMAC-SHA1';	$sigmethod = 'HMAC-SHA1';
}	}
	srand( time() ^ ($$ + ($$ << 15)) ); # Seed rand.
my $nonce = Digest::SHA::sha1_hex(sprintf("%06x%06x",rand(0xfffff0),rand(0xfffff0)));	my $nonce = Digest::SHA::sha1_hex(sprintf("%06x%06x",rand(0xfffff0),rand(0xfffff0)));
my $request = Net::OAuth->request("request token")->new(	my $request = Net::OAuth->request("request token")->new(
consumer_key => $key,	consumer_key => $key,
Line 479 sub lti_provider_scope {	Line 480 sub lti_provider_scope {
my $rest = $1;	my $rest = $1;
if ($rest eq '') {	if ($rest eq '') {
$scope = 'map';	$scope = 'map';
	$realuri = $tail;
	} else {
	my ($map,$resid,$url) = &Apache::lonnet::decode_symb($tail);
	$realuri = &Apache::lonnet::clutter($url);
	if ($url =~ /\.sequence$/) {
	$scope = 'map';
	} else {
	$scope = 'resource';
	$realuri .= '?symb='.$tail;
	}
	}
	} elsif ($tail =~ m{^/res/$match_domain/$match_username/.+\.(?:sequence\|page)(\|___\d+___.+)$}) {
	my $rest = $1;
	if ($rest eq '') {
	$scope = 'map';
$realuri = $tail;	$realuri = $tail;
} else {	} else {
my ($map,$resid,$url) = &Apache::lonnet::decode_symb($tail);	my ($map,$resid,$url) = &Apache::lonnet::decode_symb($tail);