bookid;
if( $bookid == 0){
error( get_string( 'bookquiz_not_select_book', 'game'));
}
if ($form = data_submitted())
{ /// Filename
if (empty($_FILES['newfile']))
{ // file was just uploaded
notify(get_string("uploadproblem") );
}
if ((!is_uploaded_file($_FILES['newfile']['tmp_name']) or $_FILES['newfile']['size'] == 0))
{
notify(get_string("uploadnofilefound") );
} else
{ // Valid file is found
if ( readdata( $course->id, 'game', $dirtemp, $r_levels, $r_titles, $r_texts, $dirfordelete))
{ // first try to reall all of the data in
$subchapter = optional_param('subchapter', 0, PARAM_BOOL);
$overwrite = optional_param('overwrite', 0, PARAM_BOOL);
if( $overwrite){
game_bookquiz_deletebook( $course->id, $bookid);
}
$pageobjects = extract_data( $course->id, 'game', $bookid, $dirtemp, $subchapter, $r_levels, $r_titles, $r_texts); // parse all the html files into objects
//clean_temp( $dirfordelete); // all done with files so dump em
$objects = game_bookquiz_create_objects( $pageobjects, $bookid); // function to preps the data to be sent to DB
if( !game_bookquiz_save_objects($objects))
{ // sends it to DB
error("could not save");
}
}else
error('could not get data');
print_continue("$CFG->wwwroot/mod/game/view.php?id=$cm->id");
print_footer($course);
exit;
}
}
/// Print upload form
print_heading_with_help( get_string( "bookquiz_import_odt", "game"), "importodt", "game");
print_simple_box_start( "center");
?>
dataroot."/temp/$modname";
if (!file_exists( $newdir))
mkdir( $newdir);
$i = 1;
srand((double)microtime()*1000000);
while(true)
{
$r_basedir = "$modname/$i-".rand(0,10000);
$newdir = $CFG->dataroot.'/temp/'.$r_basedir;
if (!file_exists( $newdir))
{
mkdir( $newdir);
$newdir .= '/';
break;
}
$i++;
}
$dirfordelete = $r_basedir;
$r_basedir .= '/';
$zipfile = $_FILES["newfile"]["name"];
$tempzipfile = $_FILES["newfile"]["tmp_name"];
// create our directory
$path_parts = pathinfo($zipfile);
$dirname = substr($zipfile, 0, strpos($zipfile, '.'.$path_parts['extension'])); // take off the extension
if (!file_exists($newdir.$dirname)){
mkdir($newdir.$dirname);
}
// move our uploaded file to temp/game
move_uploaded_file( $tempzipfile, $newdir.$zipfile);
//if the file ends with .lnk then use .odt instead
if( substr( $zipfile, -4) == ".lnk")
$zipfile = substr( $zipfile, 0, -4).".odt";
// unzip it!
unzip_file ( $newdir.$zipfile, $newdir.$dirname, false);
$r_basedir .= $dirname; // update the base
$newdir .= $dirname;
// this is the file where we get the names of the files for the slides (in the correct order too)
$content = $newdir.'/content.xml';
$data = file_get_contents( $content);
$content = $newdir.'/styles.xml';
if (file_exists( $content)){
$datastyle = file_get_contents( $content);
}else
{
$datastyle = '';
}
oo_game_convert_ver2( $data, $datastyle, $r_levels, $r_titles, $r_texts);
return true;
}
////////////////////////
function oo_game_convert_ver2( $data, $datastyle, &$r_levels, &$r_titles, &$r_texts)
{
$r_levels = array();
$r_titles = array();
$r_texts = array();
// we have tables, encode it here so all ', '', $data);
$data = preg_replace('##es', "base64_encode('\\1')", $data);
}
$styles = array();
game_bookquiz_convert_ver2_computestyles( $datastyle, $styles, true);
game_bookquiz_convert_ver2_computestyles( $data, $styles, false);
game_bookquiz_splitsections($data, $positions, $inputs, $titles, $titleframes, $texts);print_r($positions);
for( $i=0; $i < count( $positions); $i++)
{
preg_match_all( "#text:outline-level=\"([0-9]*)\"#es", $inputs[ $i], $matches);
$levels = $matches[ 1];
if( count( $levels) > 0){
$level = $levels[ 0];
}else
{
$level = 0;
}
$r_levels[] = $level;
$r_titles[] = strip_tags( $titles[ $i]);
$textframe = game_bookquiz_convert($titleframes[ $i], $styles, $images);
$text = game_bookquiz_convert($texts[ $i], $styles, $images);
if( $textframe != ''){
$text = $textframe.'
'.$text;
}
echo "
".$titles[ $i]."
".$text."\r\n\r\n\r\n\r\n";
$r_texts[] = $text;
}print_r($r_texts);
}
function extract_data( $courseid, $modname, $id, $basedir, $subchapter, $levels, $titles, $texts)
{
global $CFG;
global $matches;
$dirtemp = $CFG->dataroot.'/temp/'.$basedir;
for($i=0; $i < count( $levels); $i++){
echo $levels[ $i]." ".$titles[ $i]."
";
}
$extractedpages = array();
// directory for images
make_mod_upload_directory( $courseid); // make sure moddata is made
make_upload_directory( $courseid.'/moddata/'.$modname, false);
make_upload_directory( $courseid.'/moddata/'.$modname."/".$id, false); // we store our images in a subfolder in here
$imagedir = $CFG->dataroot.'/'.$courseid.'/moddata/'.$modname."/".$id;
if ($CFG->slasharguments)
$imagelink = $CFG->wwwroot.'/file.php/'.$courseid.'/moddata/'.$modname."/".$id;
else
$imagelink = $CFG->wwwroot.'/file.php?file=/'.$courseid.'/moddata/'.$modname."/".$id;
// try to make a unique subfolder to store the images
$i = 1;
while(true)
{
$newdir = $imagedir.'/'.$i;
if (!file_exists( $newdir))
{
// ok doesnt exist so make the directory and update our paths
mkdir( $newdir);
$imagedir = $newdir;
$imagelink = $imagelink.'/'.$i;
break;
}
$i++;
}
for( $i=0; $i < count( $titles); $i++)
{
// start building our page
$page = new stdClass;
$page->title = $titles[ $i];
$page->content = $texts[ $i];
//$page->source = $path_parts['basename']; // need for book only
$page->subchapter = ( $levels[ $i] >= 2);
//check if the nexts are subchapters
for( $j=$i+1; $j < count( $titles); $j++){
if( $levels[ $j] > 2){
$page->content .= '
'.$titles[ $j].'
'.$texts[ $j];
$i = $j;
continue;
}
break;
}
preg_match_all('#="Pictures/([a-z .A-Z_0-9]*)"#es', $page->content, $imgs);
foreach ($imgs[1] as $img)
{
$src = $dirtemp.'/Pictures/'.$img;
$dest = $imagedir.'/'.$img;
rename( $src, $dest);
$page->content = str_replace( "Pictures/$img", $imagelink."/".$img, $page->content);
}
// add the page to the array;
$extractedpages[] = $page;
} // end $pages foreach loop
return $extractedpages;
}
/**
Clean up the temp directory
*/
function clean_temp( $base)
{
global $CFG;
// this function is broken, use it to clean up later
// should only clean up what we made as well because someone else could be importing ppt as well
$dir = $CFG->dataroot.'/temp/'.$base;
remove_dir( $dir);
}
/**
Creates objects an chapter object that is to be inserted into the database
*/
function game_bookquiz_create_objects( $pageobjects, $bookid)
{
$chapters = array();
$lastpagenum = get_field('book_chapters', 'MAX(pagenum) as num', 'bookid', $bookid);
foreach ($pageobjects as $pageobject)
{
$chapter = new stdClass;
// same for all chapters
$chapter->bookid = $bookid;
$chapter->pagenum = ++$lastpagenum;
$chapter->timecreated = time();
$chapter->timemodified = time();
$chapter->subchapter = 0;
if ($pageobject->title == '')
$chapter->title = "Page $count"; // no title set so make a generic one
else
$chapter->title = addslashes($pageobject->title);
$chapter->subchapter = $pageobject->subchapter;
$content = str_replace("\n", '', $pageobject->content);
$content = str_replace("\r", '', $content);
$content = str_replace('
', '', $content); // puts in returns?
$content = ''.$content.'
';
$chapter->content = addslashes( $content);
$chapters[] = $chapter;
}
return $chapters;
}
/**
Save the chapter objects to the database
*/
function game_bookquiz_save_objects($chapters)
{
// nothing fancy, just save them all in order
foreach ($chapters as $chapter)
{
if (!$newid=insert_record('book_chapters', $chapter)) {
error('Could not insert to table book_chapters');
}
}
return true;
}
//splits the data to
function game_bookquiz_splitsections($data, &$positions, &$inputs, &$titles, &$titleframes, &$texts)
{
preg_match_all('#(.*?)#es', $data, $matches, PREG_OFFSET_CAPTURE);
$in = $matches[ 1] ;
$title = $matches[ 2];
$positions = array();
$inputs = array();
$titles = array();
$oldposition = 0;
$oldlen = 0;
for($i=0; $i < count( $in); $i++)
{
$inputs[] = $in[ $i][ 0];
$newposition = $in[ $i][ 1];
$positions[] = $newposition;
$titlenet = $title[ $i][ 0];
$titleframe = '';
//frames inside header
preg_match_all('#(.*?)#es', $titlenet, $titlematches, PREG_OFFSET_CAPTURE);
$frames = $titlematches[ 2];
if( count( $frames) > 0){
for($j=0; $j < count( $frames); $j++)
{
$titleframe .= $frames[ $j][ 0];
$titlenet = substr( $titlenet, $frames[ $j][ 1] + strlen( $frames[ $j][ 0]) + 13);
}
}
$titles[] = $titlenet;
$titleframes[] = $titleframe;
if( $i > 0){
$texts[] = substr( $data, $oldposition+$oldlen, $newposition - $oldposition - $oldlen);
}
$oldlen = strlen( $title[ $i][ 0]) + strlen( $in[ $i][ 0]) + 10;
$oldposition = $newposition;
}
$newposition = strlen( $data);
$texts[] = substr( $data, $oldposition+$oldlen, $newposition - $oldposition - $oldlen);
}
function game_bookquiz_convert( $data, $styles, &$images)
{
$images = array();
// get data
preg_match_all('#(.*?)#es', $data, $text);
$originals = $text[ 0];
$names = $text[ 1];
$texts = $text[ 2];
for( $i=0; $i < count( $texts); $i++)
{
$name = $names[ $i];
$text = $texts[ $i];
//repairs draw:frame
$pattern = "##es";
preg_match_all( $pattern, $text, $matches);
if( count( $matches[ 1]) ){
$new = game_bookquiz_convert_image( $matches, $styles, $images);
$data = str_replace( $originals[ $i], $new, $data);
}else IF($name == 'RKRK')
{
$new = game_bookquiz_convert_RKRK( $text);
$data = str_replace( $originals[ $i], $new, $data);
}else
{
$new = ''.game_bookquiz_convert_text( $text, $styles).'
';
$data = str_replace( $originals[ $i], $new, $data);
}
}
// repairs text:span text:style-name
preg_match_all( '#(.*?)#es', $data, $text);
$originals = $text[ 0];
$names = $text[ 1];
$texts = $text[ 2];
for( $i=0; $i < count( $texts); $i++)
{
$name = $names[ $i];
$text = $texts[ $i];
$pattern = "##es";
preg_match_all( $pattern, $text, $matches);
if( count( $matches[ 1]) ){
$new = game_bookquiz_convert_image( $matches, $styles, $images);
$data = str_replace( $originals[ $i], $new, $data);
}else IF($name == 'RKRK')
{
$new = game_bookquiz_convert_RKRK( $text);
$data = str_replace( $originals[ $i], $new, $data);
}else
{
$new = "'.game_bookquiz_convert_text( $text, $styles).'';
$data = str_replace( $originals[ $i], $new, $data);
}
}
// repairs text:a
preg_match_all( '#(.*?)#es', $data, $text);
$originals = $text[ 0];
$hrefs = $text[ 2];
$texts = $text[ 3];
for( $i=0; $i < count( $texts); $i++)
{
$href = $hrefs[ $i];
$text = $texts[ $i];
$new = "$text";
$data = str_replace( $originals[ $i], $new, $data);
}
//repair text:list
preg_match_all( '#(.*?)#es', $data, $text);
$originals = $text[ 0];
$names = $text[ 1];
$texts = $text[ 2];
for( $i=0; $i < count( $texts); $i++)
{
$new = '';
$data = str_replace( $originals[ $i], $new, $data);
//I have to repair the listitems
preg_match_all( '#(.*?)#es', $data, $listitems);
$originallistitems = $listitems[ 0];
$items = $listitems[ 1];
for( $j=0; $j < count( $items); $j++){
$new = ''.$items[ $j];
$data = str_replace( $originallistitems[ $j], $new, $data);
}
}
$data = str_replace( '', '
', $data);
return $data;
}
function game_bookquiz_convert_text( $text, $styles)
{
$pattern = "#(.*?)#es";
preg_match_all( $pattern, $text, $matches);
$originals = $matches[ 0];
$names = $matches[ 1];
$spantexts = $matches[ 2];
for( $i=0; $i < count( $names); $i++)
{
$name = $names[ $i];
$style = $styles[ $name];
$new = "".$spantexts[ $i]."";
$text = str_replace( $originals[ $i], $new, $text);
}
return $text;
}
function game_bookquiz_convert_image( $matches, $xmlstyles, &$images)
{
$ret = '';
$styles = $matches[ 1];
$pictures = $matches[ 3];
for( $j=0; $j < count( $pictures); $j++){
$style = $styles[ $j];
$ret .= '';
$images[] = $pictures[$j];
}
return $ret;
}
function game_bookquiz_convert_RKRK( $text)
{
$table = base64_decode($text);
$table = stripslashes($table);
$table = strtr($table, array('' => '', '' => '', '' => '
', '' => '', '' => '', '' => '', '>' => ">\n", '' => ''));
//preg_match_all('#table:name="([a-z A-Z_0-9]*)" table:style-name="([a-z A-Z_0-9]*)">#es', $table, $repl);
preg_match_all('#table:name="(.*?)" table:style-name="(.*?)">#es', $table, $repl);
foreach($repl[0] as $val)
{
//$table = str_replace($val, '', $table);
$table = str_replace($val, '', $table);
}
//preg_match_all('##es', $table, $repl);
preg_match_all('##es', $table, $repl);
foreach($repl[0] as $key => $val)
{
$table = str_replace($val, '', $table);
}
preg_match_all('##es', $table, $repl);
foreach($repl[0] as $val)
{
$table = str_replace($val, '', $table);
}
//preg_match_all('##es', $table, $repl);
preg_match_all('##es', $table, $repl);
foreach($repl[0] as $val)
{
$table = str_replace($val, '', $table);
}
//maybe there are a lot of pictures inside a table
preg_match_all('#xlink:href="Pictures/([a-z.A-Z_0-9]*)"#es', $table, $repl);
foreach( $repl[ 1] as $picture)
{
$table = str_replace('', '', $table);
}
if( strpos( $table," | ") === false)
$table .= " |
";
$ret = '
'.$table.'
';
return $ret;
}
function game_bookquiz_deletebook( $courseid, $bookid)
{
global $CFG;
if( !delete_records( 'book_chapters', 'bookid', $bookid)){
error( "Can't delete records from mdl_book_chapters bookid=$bookid");
}
remove_dir( "$CFG->dataroot/$courseid/moddata/game/book$bookid");
}
function game_bookquiz_convert_ver2_computestyles( $data, &$styles, $isstyle)
{
preg_match_all('#(.*?)#es', $data, $style);
$stylenames = $style[ 1];
$styleinfos = $style[ 2];
$styledatas = $style[ 3];
for($i=0; $i < count( $stylenames); $i++){
$name = $stylenames[ $i];
$change = false;
for(;;){
$pos1 = strpos( $styledatas[ $i], 'style:parent-style-name');
$pos2 = strpos( $styledatas[ $i], '/>');
if( ($pos1 === false) or ($pos2 === false)){
break;
}
if( $pos1 > $pos2){
break;
}
//is a parent style
$s = substr( $styledatas[ $i], 0, $pos2+2);
game_bookquiz_convertstyle_parent( $s, $styles);
$styledatas[ $i] = substr( $styledatas[ $i], $pos2 + 2);
$change = true;
}
if( $change){
//Must to recompute name, styledatas, styleinfos
preg_match_all('#(.*?)#es', $data, $style);
$name = $style[ 1][ 0];
$styleinfos[ $i] = $style[ 2][ 0];
$styledatas[ $i] = $style[ 3][ 0];
}
$styles[ $name] = game_bookquiz_convertstyle( $styledatas[ $i], $styleinfos[ $i], $styles);
}
}
function game_bookquiz_convertstyle_parent( $data, &$styles)
{
$styleitems = array();
preg_match_all( '#(.*?)style:name="(.*?)"(.*?)style:parent-style-name="(.*?)"(.*?)#es', $data, $infos);
$names = $infos[ 2];
$parents = $infos[ 4];
if( count( $parents)){
if( array_key_exists( $parents[ 0], $styles)){
//is a child style. Must to copy the properties of the parent style
$a = explode( ';', $styles[ $parents[ 0]]);
foreach( $a as $s){
$pos = strpos( $s, ':');
$key = substr( $s, 0, $pos);
$item = substr( $s, $pos + 1);
if( $item == ''){
continue;
}
$styleitems[ $key] = $item;
}
}
$name = $names[ 0];
}
$style = '';
foreach( $styleitems as $key => $item){
$style .= ';'.$key.':'.$item;
}
$styles[ $name] = substr( $style, 1);
}
function game_bookquiz_convertstyle( $data, $styleinfo, $styles)
{
$styleitems = array();
preg_match_all( '##es', $data, $infos);
$lines = $infos[ 1];
if( count( $lines)){
$line = $lines[ 0]; //print_object( $lines);
if( $line != ''){
game_bookquiz_convertstyle_paragraph( $line, $styleitems);
}
}
preg_match_all( '##es', $data, $infos);
$lines = $infos[ 1];
if( count( $lines)){
$line = $lines[ 0];
if( $line != ''){
game_bookquiz_convertstyle_textproperties( $line, $styleitems);
}
}
if( count( $styleitems) == 0){
return '';
}
$style = '';
foreach( $styleitems as $key => $item){
$style .= ';'.$key.':'.$item;
}
return substr( $style, 1);
}
function game_bookquiz_convertstyle_paragraph( $line, &$styleitems)
{
preg_match_all( '#(.*?)=(.*?) #es', $line.' ', $datas);
$data1 = $datas[ 1];
$data2 = $datas[ 2];
$ret = '';
for( $i=0; $i < count( $data1); $i++){
$eq1 = $data1[ $i];
$eq2 = $data2[ $i];
if( (substr( $eq2, 0, 1) == '"') and (substr( $eq2, -1, 1) == '"')){
$eq2 = substr( $eq2, 1, -1);
}
switch( $eq1){
case 'fo:text-align':
$styleitems[ 'align'] = $eq2;
//print_object( $styleitems);
break;
case 'fo:background-color':
$styleitems[ 'background-color'] = $eq2;
break;
}
}
}
function game_bookquiz_convertstyle_textproperties( $line, &$styleitems)
{
preg_match_all( '#(.*?)=(.*?) #es', $line.' ', $datas);
$data1 = $datas[ 1];
$data2 = $datas[ 2];
$ret = '';
for( $i=0; $i < count( $data1); $i++){
$eq1 = $data1[ $i];
$eq2 = $data2[ $i];
if( (substr( $eq2, 0, 1) == '"') and (substr( $eq2, -1, 1) == '"')){
$eq2 = substr( $eq2, 1, -1);
}
switch( $eq1){
case 'fo:font-size':
case 'fo:color':
case 'fo:background-color':
case 'fo:font-style':
case 'fo:font-weight':
$styleitems[ substr( $eq1, 3)] = $eq2;
break;
case 'style_text_underline_style':
if( $eq2 == 'solid'){
$styleitems[ 'text-decoration'] = 'underline';
}
break;
}
}
}