version 1.1, 2017/12/07 15:36:25
|
version 1.2, 2017/12/09 16:24:03
|
Line 85 sub handler {
|
Line 85 sub handler {
|
($cdom,$cnum) = &LONCAPA::ltiutils::get_loncapa_course($r->dir_config('lonHostID'), |
($cdom,$cnum) = &LONCAPA::ltiutils::get_loncapa_course($r->dir_config('lonHostID'), |
$cid,\%errors); |
$cid,\%errors); |
unless ($cdom && $cnum) { |
unless ($cdom && $cnum) { |
$errors{4} = 1; |
|
&invalid_request($r,\%errors); |
&invalid_request($r,\%errors); |
return OK; |
return OK; |
} |
} |
Line 98 sub handler {
|
Line 97 sub handler {
|
&LONCAPA::ltiutils::get_tool_instance($cdom,$cnum,$digsymb,undef,\%errors); |
&LONCAPA::ltiutils::get_tool_instance($cdom,$cnum,$digsymb,undef,\%errors); |
|
|
unless ($marker) { |
unless ($marker) { |
$errors{5} = 1; |
$errors{4} = 1; |
&invalid_request($r,\%errors); |
&invalid_request($r,\%errors); |
return OK; |
return OK; |
} |
} |
Line 126 sub handler {
|
Line 125 sub handler {
|
unless (LONCAPA::ltiutils::verify_request($params,$protocol,$r->hostname,$r->uri, |
unless (LONCAPA::ltiutils::verify_request($params,$protocol,$r->hostname,$r->uri, |
$env{'request.method'},$consumer_secret, |
$env{'request.method'},$consumer_secret, |
\%errors)) { |
\%errors)) { |
$errors{6} = 1; |
|
&invalid_request($r,\%errors); |
&invalid_request($r,\%errors); |
return OK; |
return OK; |
} |
} |
Line 137 sub handler {
|
Line 135 sub handler {
|
|
|
unless (&LONCAPA::ltiutils::check_nonce($params->{'oauth_nonce'},$params->{'oauth_timestamp'}, |
unless (&LONCAPA::ltiutils::check_nonce($params->{'oauth_nonce'},$params->{'oauth_timestamp'}, |
$nonce_lifetime,$cdom,$r->dir_config('lonLTIDir'))) { |
$nonce_lifetime,$cdom,$r->dir_config('lonLTIDir'))) { |
$errors{7} = 1; |
$errors{16} = 1; |
&invalid_request($r,\%errors); |
&invalid_request($r,\%errors); |
return OK; |
return OK; |
} |
} |
Line 149 sub handler {
|
Line 147 sub handler {
|
|
|
unless (&LONCAPA::ltiutils::verify_lis_item($rostersig,'roster',$digsymb,undef,$cdom,$cnum, |
unless (&LONCAPA::ltiutils::verify_lis_item($rostersig,'roster',$digsymb,undef,$cdom,$cnum, |
\%toolsettings,\%ltitools,\%errors)) { |
\%toolsettings,\%ltitools,\%errors)) { |
$errors{8} = 1; |
|
&invalid_request($r,\%errors); |
&invalid_request($r,\%errors); |
return OK; |
return OK; |
} |
} |
Line 165 sub handler {
|
Line 162 sub handler {
|
} |
} |
|
|
unless (keys(%maproles)) { |
unless (keys(%maproles)) { |
$errors{9} = 1; |
$errors{21} = 1; |
&invalid_request($r,\%errors); |
&invalid_request($r,\%errors); |
return OK; |
return OK; |
} |
} |
Line 392 sub invalid_request {
|
Line 389 sub invalid_request {
|
my ($r,$errors) = @_; |
my ($r,$errors) = @_; |
my $errormsg; |
my $errormsg; |
if (ref($errors) eq 'HASH') { |
if (ref($errors) eq 'HASH') { |
$errormsg = join('&&',keys(%{$errors})); |
$errormsg = join(',',keys(%{$errors})); |
} |
} |
&Apache::loncommon::content_type($r,'text/xml'); |
&Apache::loncommon::content_type($r,'text/xml'); |
$r->send_http_header; |
$r->send_http_header; |