You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
419 lines
14 KiB
419 lines
14 KiB
12 years ago
|
<?php // $Id: exporthtml.php,v 1.23 2012/07/25 11:16:03 bdaloukas Exp $
|
||
|
|
/**
|
||
|
|
* This page export the game to html for games: cross, hangman
|
||
|
|
*
|
||
|
|
* @author bdaloukas
|
||
|
|
* @version $Id: exporthtml.php,v 1.23 2012/07/25 11:16:03 bdaloukas Exp $
|
||
|
|
* @package game
|
||
|
|
**/
|
||
|
|
|
||
|
|
require_once( "locallib.php");
|
||
|
|
require_once( "exportjavame.php");
|
||
|
|
|
||
|
|
function game_OnExportHTML( $game, $context, $html){
|
||
|
|
global $CFG;
|
||
|
|
|
||
|
|
$destdir = game_export_createtempdir();
|
||
|
|
|
||
|
|
switch( $game->gamekind){
|
||
|
|
case 'cross';
|
||
|
|
game_OnExportHTML_cross( $game, $context, $html, $destdir);
|
||
|
|
break;
|
||
|
|
case 'hangman':
|
||
|
|
game_OnExportHTML_hangman( $game, $context, $html, $destdir);
|
||
|
|
break;
|
||
|
|
case 'snakes':
|
||
|
|
game_OnExportHTML_snakes( $game, $html, $destdir, $context);
|
||
|
|
break;
|
||
|
|
case 'millionaire':
|
||
|
|
game_OnExportHTML_millionaire( $game, $context, $html, $destdir);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
remove_dir( $destdir);
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_OnExportHTML_cross( $game, $context, $html, $destdir){
|
||
|
|
|
||
|
|
global $CFG, $DB;
|
||
|
|
|
||
|
|
if( $html->filename == ''){
|
||
|
|
$html->filename = 'cross';
|
||
|
|
}
|
||
|
|
|
||
|
|
$filename = $html->filename . '.htm';
|
||
|
|
|
||
|
|
require( "cross/play.php");
|
||
|
|
$attempt = game_getattempt( $game, $crossrec, true);
|
||
|
|
if( $crossrec == false){
|
||
|
|
game_cross_new( $game, $attempt->id, $crossm);
|
||
|
|
$attempt = game_getattempt( $game, $crossrec);
|
||
|
|
}
|
||
|
|
|
||
|
|
$ret = game_export_printheader( $html->title);
|
||
|
|
echo "$ret<br>";
|
||
|
|
|
||
|
|
ob_start();
|
||
|
|
|
||
|
|
game_cross_play( 0, $game, $attempt, $crossrec, '', true, false, false, false, $html->checkbutton, true, $html->printbutton, false, $context);
|
||
|
|
|
||
|
|
$output_string = ob_get_contents();
|
||
|
|
ob_end_clean();
|
||
|
|
|
||
|
|
$course = $DB->get_record( 'course', array( 'id' => $game->course));
|
||
|
|
|
||
|
|
$filename = $html->filename . '.htm';
|
||
|
|
|
||
|
|
file_put_contents( $destdir.'/'.$filename, $ret . "\r\n" . $output_string);
|
||
|
|
|
||
|
|
$filename = game_OnExportHTML_cross_repair_questions( $game, $context, $filename, $destdir);
|
||
|
|
|
||
|
|
game_send_stored_file( $filename);
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_OnExportHTML_cross_repair_questions( $game, $context, $filename, $destdir)
|
||
|
|
{
|
||
|
|
global $CFG, $DB;
|
||
|
|
|
||
|
|
$file_handle = fopen( $destdir.'/'.$filename, "rb");
|
||
|
|
|
||
|
|
$found = false;
|
||
|
|
$files = array();
|
||
|
|
$contextcourse = false;
|
||
|
|
$linesbefore = array();
|
||
|
|
$linesafter = array();
|
||
|
|
while (!feof($file_handle) ) {
|
||
|
|
$line = fgets( $file_handle);
|
||
|
|
|
||
|
|
if( $found)
|
||
|
|
{
|
||
|
|
if( strpos( $line, 'new Array'))
|
||
|
|
{
|
||
|
|
$linesafter[] = $line;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
$array .= $line;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if( strpos( $line, 'Clue = new Array') === false)
|
||
|
|
{
|
||
|
|
$linesbefore[] = $line;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$array = $line;
|
||
|
|
$found = true;
|
||
|
|
}
|
||
|
|
while (!feof($file_handle) ) {
|
||
|
|
$linesafter[] = fgets( $file_handle);
|
||
|
|
}
|
||
|
|
|
||
|
|
fclose($file_handle);
|
||
|
|
|
||
|
|
$search = $CFG->wwwroot.'/pluginfile.php';
|
||
|
|
$pos = 0;
|
||
|
|
$search = '"'.$CFG->wwwroot.'/pluginfile.php/'.$context->id.'/mod_game/';
|
||
|
|
$len = strlen( $search);
|
||
|
|
$start = 0;
|
||
|
|
$filescopied = false;
|
||
|
|
for(;;)
|
||
|
|
{
|
||
|
|
$pos1 = strpos( $array, $search, $start);
|
||
|
|
if( $pos1 == false)
|
||
|
|
break;
|
||
|
|
|
||
|
|
$pos2 = strpos( $array, '\"', $pos1+$len);
|
||
|
|
if( $pos2 == false)
|
||
|
|
break;
|
||
|
|
|
||
|
|
//Have to copy the files
|
||
|
|
|
||
|
|
if( $contextcourse === false)
|
||
|
|
{
|
||
|
|
mkdir( $destdir.'/images');
|
||
|
|
if (!$contextcourse = get_context_instance(CONTEXT_COURSE, $game->course)) {
|
||
|
|
print_error('nocontext');
|
||
|
|
}
|
||
|
|
$fs = get_file_storage();
|
||
|
|
}
|
||
|
|
|
||
|
|
$inputs = explode( '/', substr( $array, $pos1+$len, $pos2-$pos1-$len));
|
||
|
|
|
||
|
|
$filearea = $inputs[ 0];
|
||
|
|
$id = $inputs[ 1];
|
||
|
|
$fileimage = urldecode( $inputs[ 2]);
|
||
|
|
$component = 'question';
|
||
|
|
|
||
|
|
$params = array( 'component' => $component, 'filearea' => $filearea,
|
||
|
|
'itemid' => $id, 'filename' => $fileimage, 'contextid' => $context, 'contextid' => $contextcourse->id);
|
||
|
|
$rec = $DB->get_record( 'files', $params);
|
||
|
|
if( $rec == false)
|
||
|
|
{
|
||
|
|
print_r( $params);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$file = $fs->get_file_by_hash($rec->pathnamehash) or $file->is_directory())
|
||
|
|
continue;
|
||
|
|
|
||
|
|
$posext = strrpos( $fileimage, '.');
|
||
|
|
$filenoext = substr( $fileimage, $posext);
|
||
|
|
$ext = substr( $fileimage, $posext+1);
|
||
|
|
for($i=0;;$i++)
|
||
|
|
{
|
||
|
|
$newfile = $filenoext.$i;
|
||
|
|
$newfile = md5( $newfile).'.'.$ext;
|
||
|
|
if( !array_search( $newfile, $files))
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
$file->copy_content_to( $destdir.'/images/'.$newfile);
|
||
|
|
$filescopied = true;
|
||
|
|
|
||
|
|
$array = substr( $array, 0, $pos1+1).'images/'.$newfile.substr( $array, $pos2);
|
||
|
|
}
|
||
|
|
|
||
|
|
if( $filescopied == false)
|
||
|
|
return $destdir.'/'.$filename;
|
||
|
|
|
||
|
|
$linesbefore[] = $array;
|
||
|
|
foreach( $linesafter as $line)
|
||
|
|
$linesbefore [] = $line;
|
||
|
|
file_put_contents( $destdir.'/'.$filename, $linesbefore);
|
||
|
|
|
||
|
|
$pos = strrpos( $filename, '.');
|
||
|
|
if( $pos === false)
|
||
|
|
$filezip = $filename.'.zip';
|
||
|
|
else
|
||
|
|
$filezip = substr( $filename, 0, $pos).'.zip';
|
||
|
|
|
||
|
|
$filezip = game_create_zip( $destdir, $game->course, $filezip);
|
||
|
|
|
||
|
|
return $filezip;
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_export_printheader( $title, $showbody=true)
|
||
|
|
{
|
||
|
|
$ret = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'."\n";
|
||
|
|
$ret .= '<html xmlns="http://www.w3.org/1999/xhtml" dir="ltr" lang="el" xml:lang="el">'."\n";
|
||
|
|
$ret .= "<head>\n";
|
||
|
|
$ret .= '<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />'."\n";
|
||
|
|
$ret .= '<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">'."\n";
|
||
|
|
$ret .= "<title>$title</title>\n";
|
||
|
|
$ret .= "</head>\n";
|
||
|
|
if( $showbody)
|
||
|
|
$ret .= "<body>";
|
||
|
|
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_OnExportHTML_hangman( $game, $context, $html, $destdir){
|
||
|
|
|
||
|
|
global $CFG, $DB;
|
||
|
|
|
||
|
|
if( $html->filename == ''){
|
||
|
|
$html->filename = 'hangman';
|
||
|
|
}
|
||
|
|
|
||
|
|
if( $game->param10 <= 0)
|
||
|
|
$game->param10 = 6;
|
||
|
|
|
||
|
|
$filename = $html->filename . '.htm';
|
||
|
|
|
||
|
|
$ret = game_export_printheader( $html->title, false);
|
||
|
|
$ret .= "\r<body onload=\"reset()\">\r";
|
||
|
|
|
||
|
|
$export_attachment = ( $html->type == 'hangmanp');
|
||
|
|
|
||
|
|
$map = game_exmportjavame_getanswers( $game, $context, $export_attachment, $destdir, $files);
|
||
|
|
if( $map == false){
|
||
|
|
print_error( get_string('no_words', 'game'));
|
||
|
|
}
|
||
|
|
|
||
|
|
ob_start();
|
||
|
|
|
||
|
|
//Here is the code of hangman
|
||
|
|
require_once( "exporthtml_hangman.php");
|
||
|
|
|
||
|
|
$output_string = ob_get_contents();
|
||
|
|
ob_end_clean();
|
||
|
|
|
||
|
|
$courseid = $game->course;
|
||
|
|
$course = $DB->get_record( 'course', array( 'id' => $courseid));
|
||
|
|
|
||
|
|
$filename = $html->filename . '.htm';
|
||
|
|
file_put_contents( $destdir.'/'.$filename, $ret . "\r\n" . $output_string);
|
||
|
|
|
||
|
|
if( $html->type != 'hangmanp')
|
||
|
|
{
|
||
|
|
//Not copy the standard pictures when we use the "Hangman with pictures"
|
||
|
|
$src = $CFG->dirroot.'/mod/game/pix/hangman/1';
|
||
|
|
$handle = opendir( $src);
|
||
|
|
while (false!==($item = readdir($handle))) {
|
||
|
|
if($item != '.' && $item != '..') {
|
||
|
|
if(!is_dir($src.'/'.$item)) {
|
||
|
|
$itemdest = $item;
|
||
|
|
|
||
|
|
if( strpos( $item, '.') === false)
|
||
|
|
continue;
|
||
|
|
|
||
|
|
copy( $src.'/'.$item, $destdir.'/'.$itemdest);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$filezip = game_create_zip( $destdir, $courseid, $html->filename.'.zip');
|
||
|
|
game_send_stored_file( $filezip);
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_OnExportHTML_millionaire( $game, $context, $html, $destdir){
|
||
|
|
|
||
|
|
global $CFG, $DB;
|
||
|
|
|
||
|
|
if( $html->filename == ''){
|
||
|
|
$html->filename = 'millionaire';
|
||
|
|
}
|
||
|
|
|
||
|
|
$filename = $html->filename . '.htm';
|
||
|
|
|
||
|
|
$ret = game_export_printheader( $html->title, false);
|
||
|
|
$ret .= "\r<body onload=\"Reset();\">\r";
|
||
|
|
|
||
|
|
//Here is the code of millionaire
|
||
|
|
require( "exporthtml_millionaire.php");
|
||
|
|
|
||
|
|
$questions = game_millionaire_html_getquestions( $game, $context, $maxanswers, $maxquestions, $retfeedback, $destdir, $files);
|
||
|
|
ob_start();
|
||
|
|
|
||
|
|
game_millionaire_html_print( $game, $questions, $maxanswers);
|
||
|
|
|
||
|
|
//End of millionaire code
|
||
|
|
$output_string = ob_get_contents();
|
||
|
|
ob_end_clean();
|
||
|
|
|
||
|
|
$courseid = $game->course;
|
||
|
|
$course = $DB->get_record( 'course', array( 'id' => $courseid));
|
||
|
|
|
||
|
|
$filename = $html->filename . '.htm';
|
||
|
|
|
||
|
|
file_put_contents( $destdir.'/'.$filename, $ret . "\r\n" . $output_string);
|
||
|
|
|
||
|
|
//Copy the standard pictures of Millionaire
|
||
|
|
$src = $CFG->dirroot.'/mod/game/millionaire/1';
|
||
|
|
$handle = opendir( $src);
|
||
|
|
while (false!==($item = readdir($handle))) {
|
||
|
|
if($item != '.' && $item != '..') {
|
||
|
|
if(!is_dir($src.'/'.$item)) {
|
||
|
|
$itemdest = $item;
|
||
|
|
|
||
|
|
if( strpos( $item, '.') === false)
|
||
|
|
continue;
|
||
|
|
|
||
|
|
copy( $src.'/'.$item, $destdir.'/'.$itemdest);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$filezip = game_create_zip( $destdir, $courseid, $html->filename.'.zip');
|
||
|
|
game_send_stored_file($filezip);
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_OnExportHTML_snakes( $game, $html, $destdir, $context){
|
||
|
|
require_once( "exporthtml_millionaire.php");
|
||
|
|
|
||
|
|
global $CFG, $DB;
|
||
|
|
|
||
|
|
if( $html->filename == ''){
|
||
|
|
$html->filename = 'snakes';
|
||
|
|
}
|
||
|
|
|
||
|
|
$filename = $html->filename . '.htm';
|
||
|
|
|
||
|
|
$ret = '';
|
||
|
|
|
||
|
|
$board = game_snakes_get_board( $game);
|
||
|
|
|
||
|
|
if( ($game->sourcemodule == 'quiz') or ($game->sourcemodule == 'question'))
|
||
|
|
$questionsM = game_millionaire_html_getquestions( $game, $context, $maxquestions, $countofquestionsM, $retfeedback, $files);
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$questionsM = array();
|
||
|
|
$countofquestionsM = 0;
|
||
|
|
$retfeedback = '';
|
||
|
|
}
|
||
|
|
$questionsS = game_exmportjavame_getanswers( $game, $context, false, $destdir, $files);
|
||
|
|
|
||
|
|
ob_start();
|
||
|
|
|
||
|
|
//Here is the code of hangman
|
||
|
|
require( "exporthtml_snakes.php");
|
||
|
|
|
||
|
|
$output_string = ob_get_contents();
|
||
|
|
ob_end_clean();
|
||
|
|
|
||
|
|
$courseid = $game->course;
|
||
|
|
$course = $DB->get_record( 'course', array( 'id' => $courseid));
|
||
|
|
|
||
|
|
$filename = $html->filename . '.htm';
|
||
|
|
|
||
|
|
file_put_contents( $destdir.'/'.$filename, $ret . "\r\n" . $output_string);
|
||
|
|
|
||
|
|
$src = $CFG->dirroot.'/mod/game/export/html/snakes';
|
||
|
|
game_copyfiles( $src, $destdir);
|
||
|
|
|
||
|
|
mkdir( $destdir .'/css');
|
||
|
|
$src = $CFG->dirroot.'/mod/game/export/html/snakes/css';
|
||
|
|
game_copyfiles( $src, $destdir.'/css');
|
||
|
|
|
||
|
|
mkdir( $destdir .'/js');
|
||
|
|
$src = $CFG->dirroot.'/mod/game/export/html/snakes/js';
|
||
|
|
game_copyfiles( $src, $destdir.'/js');
|
||
|
|
|
||
|
|
mkdir( $destdir .'/images');
|
||
|
|
$destfile = $destdir.'/images/'.$board->fileboard;
|
||
|
|
if( $game->param3 != 0)
|
||
|
|
{
|
||
|
|
//Is a standard board
|
||
|
|
copy( $board->imagesrc, $destfile);
|
||
|
|
}else
|
||
|
|
{
|
||
|
|
$cmg = get_coursemodule_from_instance('game', $game->id, $game->course);
|
||
|
|
$modcontext = get_context_instance(CONTEXT_MODULE, $cmg->id);
|
||
|
|
$fs = get_file_storage();
|
||
|
|
$files = $fs->get_area_files($modcontext->id, 'mod_game', 'snakes_board', $game->id);
|
||
|
|
foreach ($files as $f) {
|
||
|
|
if( $f->is_directory())
|
||
|
|
continue;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
$f->copy_content_to( $destfile);
|
||
|
|
}
|
||
|
|
|
||
|
|
$a = array( 'player1.png', 'dice1.png', 'dice2.png', 'dice3.png', 'dice4.png', 'dice5.png', 'dice6.png', 'numbers.png');
|
||
|
|
foreach( $a as $file)
|
||
|
|
copy( $CFG->dirroot.'/mod/game/snakes/1/'.$file, $destdir.'/images/'.$file);
|
||
|
|
|
||
|
|
$filezip = game_create_zip( $destdir, $courseid, $html->filename.'.zip');
|
||
|
|
game_send_stored_file($filezip);
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_copyfiles( $src, $destdir)
|
||
|
|
{
|
||
|
|
$handle = opendir( $src);
|
||
|
|
while (($item = readdir($handle)) !== false)
|
||
|
|
{
|
||
|
|
if( $item == '.' or $item == '..')
|
||
|
|
continue;
|
||
|
|
|
||
|
|
if( strpos( $item, '.') === false)
|
||
|
|
continue;
|
||
|
|
|
||
|
|
if(is_dir($src.'/'.$item))
|
||
|
|
continue;
|
||
|
|
|
||
|
|
copy( $src.'/'.$item, $destdir.'/'.$item);
|
||
|
|
}
|
||
|
|
closedir($handle);
|
||
|
|
}
|