chamilo
/
chamilo-lms
mirror of https://github.com/chamilo/chamilo-lms/tree/1.11.x
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

[svn r9898] Completed mandatory AICC HACP messaging exchanges. More tests needed.

Browse Source
skala
Yannick Warnier 18 years ago
parent 3f42f5efe8
commit e1ec8971e0
1 changed files with 135 additions and 34 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 169
      main/newscorm/aicc_hacp.php

169
main/newscorm/aicc_hacp.php
Unescape View File

@ -20,6 +20,15 @@
*
* This script implements the HACP messaging for AICC. The API messaging is
* made by another set of scripts.
*
* Rules for HACP processing of one AU
* Rule #1 The first HACP message issued must be a GetParam
* Rule #2 The last HACP message issued must be an ExitAU
* Rule #3 At least one PutParam message must be issued prior to an ExitAU message
* Rule #4 No HACP messages can be issued after a successfully issued ExitAU message
*
* Only suspend_data and core.lesson_location should be sent updated to a late GetParam
* request. All other params should be as when the AU was launched.
*/
/*
==============================================================================
@ -46,9 +55,9 @@ $_uid = $_SESSION['_uid'];
$_user = $_SESSION['_user'];
$file = $_SESSION['file'];
$oLP = unserialize($_SESSION['lpobject']);
$oItem = $oLP->items[$oLP->current];
$oItem =& $oLP->items[$oLP->current];
if(!is_object($oItem)){
error_log('New LP - scorm_api - Could not load oItem item',0);
error_log('New LP - aicc_hacp - Could not load oItem item',0);
exit;
}
$autocomplete_when_80pct = 0;
@ -60,76 +69,168 @@ $result = array(
'evaluation'=>array(),
'student_data'=>array(),
);
$convert_enc = array('%25','%0D','%0A','%09','%20','%2D','%2F','%3B','%3F','%7B','%7D','%7C','%5C','%5E','%7E','%5B','%5D','%60','%23','%3E','%3C','%22');
$convert_dec = array('%',"\r","\n","\t",' ','-','/',';','?','{','}','|','\\','^','~','[',']','`','#','>','<','"');
$crlf = "\r\n";
$tab = "\t";
$s_ec = 'error='; //string for error code
$s_et = 'error_text='; //string for error text
$s_ad = 'aicc_data='; //string for aicc_data
$errors = array(0=>'Successful',1=>'Invalid Command',2=>'Invalid AU password',3=>'Invalid Session ID');
$error_code = 0;
$error_text = '';
$aicc_data = '';
$result = '';
//GET REQUEST
if(!empty($_REQUEST['command']))
{
error_log('In '.__FILE__.', '.__LINE__.' - request is '.$_REQUEST['command'],0);
switch(strtolower($_REQUEST['command']))
{
case 'getparam':
foreach($_REQUEST as $name => $value){
switch(strtolower($name)){
case 'student_id':
break;
case 'student_name':
break;
case 'lesson_location':
break;
case 'credit':
break;
case 'lesson_status':
break;
case 'entry':
break;
case 'score':
break;
case 'time': //total time
break;
case 'lesson_mode':
break;
case 'core_lesson':
break;
case 'core_vendor':
break;
}
//request for all available data to be printed out in the answer
if(!empty($_REQUEST['version'])){
$hacp_version = learnpath::escape_string($_REQUEST['version']);
}
if(!empty($_REQUEST['session_id'])){
$hacp_session_id = learnpath::escape_string($_REQUEST['session_id']);
}
$error_code = 0;
$error_text = $errors[$error_code];
$result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
$result .= '[Core]'.$crlf;
$result .= $tab.'Student_ID='.$_uid.$crlf;
$result .= $tab.'Student_Name='.$_user['lastName'].', '.$_user['firstName'].$_uid.$crlf;
$result .= $tab.'Lesson_Location='.$oItem->get_lesson_location().$crlf;
$result .= $tab.'Credit='.$oItem->get_credit().$crlf;
$result .= $tab.'Lesson_Status='.$oItem->get_status().$crlf;
$result .= $tab.'Score='.$oItem->get_score().$crlf;
$result .= $tab.'Time='.$oItem->get_scorm_time('js').$crlf;
$result .= $tab.'Lesson_Mode='.$oItem->get_lesson_mode().$crlf;
$result .= '[Core_Lesson]'.$crlf;
$result .= $oItem->get_suspend_data().$crlf;
$result .= '[Core_Vendor]'.$crlf;
$result .= $oItem->get_launch_data.$crlf;
$result .= '[Comments]'.$crlf;
$result .= $crlf;
$result .= '[Evaluation]'.$crlf;
$result .= $tab.'Course_ID={'.api_get_course_id().'}'.$crlf;
//$result .= '[Objectives_Status]'.$crlf;
$result .= '[Student_Data]'.$crlf;
$result .= $tab.'Mastery_Score='.$oItem->masteryscore.$crlf;
//$result .= '[Student_Demographics]'.$crlf;
//$result .= '[Student_Preferences]'.$crlf;
error_log('Returning message: '.$result,0);
$result = str_replace($convert_dec,$convert_enc,$result);
error_log('Returning message (encoded): '.$result,0);
break;
case 'putparam':
$hacp_version = '';
$hacp_session_id = '';
$hacp_aicc_data = '';
foreach($_REQUEST as $name => $value)
{
//escape the value as described in the AICC documentation p170
switch(strtolower($name))
{
case 'lesson_location':
case 'version':
$hacp_version = $value;
break;
case 'lesson_status':
case 'session_id':
$hacp_session_id = $value;
break;
case 'exit':
case 'aicc_data':
//error_log('In '.__FILE__.', '.__LINE__.' - aicc data before translation is '.$value,0);
$value = str_replace('+',' ',$value);
$value = str_replace($convert_enc,$convert_dec,$value);
$hacp_aicc_data = $value;
break;
case 'score':
break;
case 'time': //session time
}
}
//error_log('In '.__FILE__.', '.__LINE__.' - aicc data is '.$hacp_aicc_data,0);
//treat the incoming request:
$msg_array = aicc::parse_ini_string_quotes_safe($hacp_aicc_data);
//error_log('Message is now in this form: '.print_r($msg_array,true),0);
foreach($msg_array as $key=>$dummy){
switch (strtolower($key)){
case 'core':
foreach($msg_array[$key] as $subkey => $value){
switch(strtolower($subkey)){
case 'lesson_location':
$oItem->set_lesson_location($value);
break;
case 'lesson_status':
$oItem->set_status($value);
break;
case 'score':
$oItem->set_score($value);
break;
case 'time':
$oItem->set_time($value);
break;
}
}
break;
case 'core_lesson':
$oItem->current_data = $msg_array[$key];
break;
case 'comments':
break;
case 'objectives_status':
break;
case 'student_data':
break;
case 'student_preferences':
break;
}
}
$error_code = 0;
$error_text = $errors[$error_code];
$result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
$oItem->save(false);
break;
case 'putcomments':
$error_code = 0;
$error_text = $errors[$error_code];
$result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
break;
case 'putobjectives':
$error_code = 0;
$error_text = $errors[$error_code];
$result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
break;
case 'putpath':
$error_code = 0;
$error_text = $errors[$error_code];
$result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
break;
case 'putinteractions':
$error_code = 0;
$error_text = $errors[$error_code];
$result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
break;
case 'putperformance':
$error_code = 0;
$error_text = $errors[$error_code];
$result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
break;
case 'exitau':
$error_code = 0;
$error_text = $errors[$error_code];
$result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf.$s_ad.$crlf;
break;
default:
$error_code = 1;
$error_text = $errors[1];
$result = $s_ec.$error_code.$crlf.$s_et.$error_text.$crlf;
}
}
$_SESSION['lpobject'] = serialize($oLP);
//content type must be text/plain
header('Content-type: text/plain');
echo $result;
?>
Write Preview
Loading…
Cancel
Save