function wrsqz_translateCASSession($session, $language){
//Call servlet in order to translate program
$postdata = array(
'mode' => 'problem',
'problem' => $session,
'function' => 'translate',
'lang' => $language
);
$message = wrsqz_openServlet($postdata);
if($message!==false){
$result = explode(';',$message);
if($result[0]!='true'){
return false;
}
$newsession = urldecode($result[1]);
$changedVars = array();
if (!empty($result[2])){
$changedVarsTmp = explode(',',$result[2]);
foreach ($changedVarsTmp as $changedvar){
$mapping = explode('=',$changedvar);
$changedVars[urldecode($mapping[0])] = urldecode($mapping[1]);
}
}
return array($newsession, $changedVars);
}else{
//The session couldn't be translated
return false;
}
}
function wrsqz_testServer(){
//checks the connectivity to quizzes service (the servlet)
global $CFG;
$postdata = array(
'function' => 'ping', //it is to prevent an Exception in server due to a (now fixed) bug
);
$result=wrsqz_openServlet($postdata);
if($result == 'pong'){
$ok = true;
$message = 'Succesfully connected to WIRIS quizzes service in '. $CFG->wirisquizzes_serverhost . $CFG->wirisquizzes_serverpath . ' at port ' . $CFG->wirisquizzes_serverport . '.';
}else{
$ok=false;
$message = 'Could not connect to WIRIS quizzes service in '. $CFG->wirisquizzes_serverhost . $CFG->wirisquizzes_serverpath . ' at port ' . $CFG->wirisquizzes_serverport . '.';
}
printRow('WIRIS quizzes service',$ok,$message);
}
