loncom/lti/ltiutils.pm - diff

Return to ltiutils.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.2, 2017/12/09 16:24:03	version 1.3, 2017/12/30 14:04:00
Line 319 sub verify_lis_item {	Line 319 sub verify_lis_item {
#	#

sub sign_params {	sub sign_params {
my ($url,$key,$secret,$paramsref) = @_;	my ($url,$key,$secret,$sigmethod,$paramsref) = @_;
return unless (ref($paramsref) eq 'HASH');	return unless (ref($paramsref) eq 'HASH');
	if ($sigmethod eq '') {
	$sigmethod = 'HMAC-SHA1';
	}
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,
consumer_secret => $secret,	consumer_secret => $secret,
request_url => $url,	request_url => $url,
request_method => 'POST',	request_method => 'POST',
signature_method => 'HMAC-SHA1',	signature_method => $sigmethod,
timestamp => time,	timestamp => time,
nonce => $nonce,	nonce => $nonce,
callback => 'about:blank',	callback => 'about:blank',
Line 444 sub get_tool_lock {	Line 447 sub get_tool_lock {
#	#

sub release_tool_lock {	sub release_tool_lock {
my ($cdom,$cnum,$marker) = @_;	my ($cdom,$cnum,$marker,$name) = @_;
# remove lock	# remove lock
my @del_lock = ($name."\0".$marker."\0".'lock');	my @del_lock = ($name."\0".$marker."\0".'lock');
my $dellockoutcome=&Apache::lonnet::del('exttools',\@del_lock,$cdom,$cnum);	my $dellockoutcome=&Apache::lonnet::del('exttools',\@del_lock,$cdom,$cnum);