. /** * HTML import lib * * @package booktool_importhtml * @copyright 2011 Petr Skoda {@link http://skodak.org} * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later */ defined('MOODLE_INTERNAL') || die; require_once(__DIR__.'/lib.php'); require_once($CFG->dirroot.'/mod/book/locallib.php'); /** * Import HTML pages packaged into one zip archive * * @param stored_file $package * @param string $type type of the package ('typezipdirs' or 'typezipfiles') * @param stdClass $book * @param context_module $context * @param bool $verbose */ function toolbook_importhtml_import_chapters($package, $type, $book, $context, $verbose = true) { global $DB, $OUTPUT; $fs = get_file_storage(); $chapterfiles = toolbook_importhtml_get_chapter_files($package, $type); $packer = get_file_packer('application/zip'); $fs->delete_area_files($context->id, 'mod_book', 'importhtmltemp', 0); $package->extract_to_storage($packer, $context->id, 'mod_book', 'importhtmltemp', 0, '/'); // $datafiles = $fs->get_area_files($context->id, 'mod_book', 'importhtmltemp', 0, 'id', false); // echo "
";p(var_export($datafiles, true));
$chapters = array();
if ($verbose) {
echo $OUTPUT->notification(get_string('importing', 'booktool_importhtml'), 'notifysuccess');
}
if ($type == 0) {
$chapterfile = reset($chapterfiles);
if ($file = $fs->get_file_by_hash(sha1("$context->id/mod_book/importhtmltemp/0/$chapterfile->pathname"))) {
$htmlcontent = toolbook_importhtml_fix_encoding($file->get_content());
$htmlchapters = toolbook_importhtml_parse_headings(toolbook_importhtml_parse_body($htmlcontent));
// TODO: process h1 as main chapter and h2 as subchapters
}
} else {
foreach ($chapterfiles as $chapterfile) {
if ($file = $fs->get_file_by_hash(sha1("/$context->id/mod_book/importhtmltemp/0/$chapterfile->pathname"))) {
$chapter = new stdClass();
$htmlcontent = toolbook_importhtml_fix_encoding($file->get_content());
$chapter->bookid = $book->id;
$chapter->pagenum = $DB->get_field_sql('SELECT MAX(pagenum) FROM {book_chapters} WHERE bookid = ?', array($book->id)) + 1;
$chapter->importsrc = '/'.$chapterfile->pathname;
$chapter->content = toolbook_importhtml_parse_styles($htmlcontent);
$chapter->content .= toolbook_importhtml_parse_body($htmlcontent);
$chapter->title = toolbook_importhtml_parse_title($htmlcontent, $chapterfile->pathname);
$chapter->contentformat = FORMAT_HTML;
$chapter->hidden = 0;
$chapter->timecreated = time();
$chapter->timemodified = time();
if (preg_match('/_sub(\/|\.htm)/i', $chapter->importsrc)) { // If filename or directory ends with *_sub treat as subchapters
$chapter->subchapter = 1;
} else {
$chapter->subchapter = 0;
}
$chapter->id = $DB->insert_record('book_chapters', $chapter);
$chapter = $DB->get_record('book_chapters', array('id' => $chapter->id));
$chapters[$chapter->id] = $chapter;
\mod_book\event\chapter_created::create_from_chapter($book, $context, $chapter)->trigger();
}
}
}
if ($verbose) {
echo $OUTPUT->notification(get_string('relinking', 'booktool_importhtml'), 'notifysuccess');
}
$allchapters = $DB->get_records('book_chapters', array('bookid'=>$book->id), 'pagenum');
foreach ($chapters as $chapter) {
// find references to all files and copy them + relink them
$matches = null;
if (preg_match_all('/(src|codebase|name|href)\s*=\s*"([^"]+)"/i', $chapter->content, $matches)) {
$file_record = array('contextid'=>$context->id, 'component'=>'mod_book', 'filearea'=>'chapter', 'itemid'=>$chapter->id);
foreach ($matches[0] as $i => $match) {
$filepath = dirname($chapter->importsrc).'/'.$matches[2][$i];
$filepath = toolbook_importhtml_fix_path($filepath);
if (strtolower($matches[1][$i]) === 'href') {
// skip linked html files, we will try chapter relinking later
foreach ($allchapters as $target) {
if ($target->importsrc === $filepath) {
continue 2;
}
}
}
if ($file = $fs->get_file_by_hash(sha1("/$context->id/mod_book/importhtmltemp/0$filepath"))) {
if (!$oldfile = $fs->get_file_by_hash(sha1("/$context->id/mod_book/chapter/$chapter->id$filepath"))) {
$fs->create_file_from_storedfile($file_record, $file);
}
$chapter->content = str_replace($match, $matches[1][$i].'="@@PLUGINFILE@@'.$filepath.'"', $chapter->content);
}
}
$DB->set_field('book_chapters', 'content', $chapter->content, array('id'=>$chapter->id));
}
}
unset($chapters);
$allchapters = $DB->get_records('book_chapters', array('bookid'=>$book->id), 'pagenum');
foreach ($allchapters as $chapter) {
$newcontent = $chapter->content;
$matches = null;
if (preg_match_all('/(href)\s*=\s*"([^"]+)"/i', $chapter->content, $matches)) {
foreach ($matches[0] as $i => $match) {
if (strpos($matches[2][$i], ':') !== false or strpos($matches[2][$i], '@') !== false) {
// it is either absolute or pluginfile link
continue;
}
$chapterpath = dirname($chapter->importsrc).'/'.$matches[2][$i];
$chapterpath = toolbook_importhtml_fix_path($chapterpath);
foreach ($allchapters as $target) {
if ($target->importsrc === $chapterpath) {
$newcontent = str_replace($match, 'href="'.new moodle_url('/mod/book/view.php',
array('id'=>$context->instanceid, 'chapterid'=>$target->id)).'"', $newcontent);
}
}
}
}
if ($newcontent !== $chapter->content) {
$DB->set_field('book_chapters', 'content', $newcontent, array('id'=>$chapter->id));
}
}
$fs->delete_area_files($context->id, 'mod_book', 'importhtmltemp', 0);
// update the revision flag - this takes a long time, better to refetch the current value
$book = $DB->get_record('book', array('id'=>$book->id));
$DB->set_field('book', 'revision', $book->revision+1, array('id'=>$book->id));
}
/**
* Parse the headings of the imported package of type 'typeonefile'
* (currently unsupported)
*
* @param string $html html content to parse
* @todo implement this once the type 'typeonefile' is enabled
*/
function toolbook_importhtml_parse_headings($html) {
}
/**
* Parse the links to external css sheets of the imported html content
*
* @param string $html html content to parse
* @return string all the links to external css sheets
*/
function toolbook_importhtml_parse_styles($html) {
$styles = '';
if (preg_match('/]*>(.+)<\/head>/is', $html, $matches)) {
$head = $matches[1];
if (preg_match_all('/]+rel="stylesheet"[^>]*>/i', $head, $matches)) { // Extract links to css.
for ($i=0; $i]*>(.+)<\/head>/is', $html, $matches)) {
$head = $matches[1];
if (preg_match('/charset=([^"]+)/is', $head, $matches)) {
$enc = $matches[1];
return core_text::convert($html, $enc, 'utf-8');
}
}
return iconv('UTF-8', 'UTF-8//IGNORE', $html);
}
/**
* Extract the body from any html contents
*
* @param string $html the html to parse
* @return string the contents of the body
*/
function toolbook_importhtml_parse_body($html) {
$matches = null;
if (preg_match('/]*>(.+)<\/body>/is', $html, $matches)) {
return $matches[1];
} else {
return '';
}
}
/**
* Extract the title of any html content, getting it from the title tag
*
* @param string $html the html to parse
* @param string $default default title to apply if no title is found
* @return string the resulting title
*/
function toolbook_importhtml_parse_title($html, $default) {
$matches = null;
if (preg_match('/([^<]+)<\/title>/i', $html, $matches)) {
return $matches[1];
} else {
return $default;
}
}
/**
* Returns all the html files (chapters) from a file package
*
* @param stored_file $package file to be processed
* @param string $type type of the package ('typezipdirs' or 'typezipfiles')
*
* @return array the html files found in the package
*/
function toolbook_importhtml_get_chapter_files($package, $type) {
$packer = get_file_packer('application/zip');
$files = $package->list_files($packer);
$tophtmlfiles = array();
$subhtmlfiles = array();
$topdirs = array();
foreach ($files as $file) {
if (empty($file->pathname)) {
continue;
}
if (substr($file->pathname, -1) === '/') {
if (substr_count($file->pathname, '/') !== 1) {
// skip subdirs
continue;
}
if (!isset($topdirs[$file->pathname])) {
$topdirs[$file->pathname] = array();
}
} else {
$mime = mimeinfo('icon', $file->pathname);
if ($mime !== 'html') {
continue;
}
$level = substr_count($file->pathname, '/');
if ($level === 0) {
$tophtmlfiles[$file->pathname] = $file;
} else if ($level === 1) {
$subhtmlfiles[$file->pathname] = $file;
$dir = preg_replace('|/.*$|', '', $file->pathname);
$topdirs[$dir][$file->pathname] = $file;
} else {
// lower levels are not interesting
continue;
}
}
}
core_collator::ksort($tophtmlfiles, core_collator::SORT_NATURAL);
core_collator::ksort($subhtmlfiles, core_collator::SORT_NATURAL);
core_collator::ksort($topdirs, core_collator::SORT_NATURAL);
$chapterfiles = array();
if ($type == 2) {
$chapterfiles = $tophtmlfiles;
} else if ($type == 1) {
foreach ($topdirs as $dir => $htmlfiles) {
if (empty($htmlfiles)) {
continue;
}
core_collator::ksort($htmlfiles, core_collator::SORT_NATURAL);
if (isset($htmlfiles[$dir.'/index.html'])) {
$htmlfile = $htmlfiles[$dir.'/index.html'];
} else if (isset($htmlfiles[$dir.'/index.htm'])) {
$htmlfile = $htmlfiles[$dir.'/index.htm'];
} else if (isset($htmlfiles[$dir.'/Default.htm'])) {
$htmlfile = $htmlfiles[$dir.'/Default.htm'];
} else {
$htmlfile = reset($htmlfiles);
}
$chapterfiles[$htmlfile->pathname] = $htmlfile;
}
} else if ($type == 0) {
if ($tophtmlfiles) {
if (isset($tophtmlfiles['index.html'])) {
$htmlfile = $tophtmlfiles['index.html'];
} else if (isset($tophtmlfiles['index.htm'])) {
$htmlfile = $tophtmlfiles['index.htm'];
} else if (isset($tophtmlfiles['Default.htm'])) {
$htmlfile = $tophtmlfiles['Default.htm'];
} else {
$htmlfile = reset($tophtmlfiles);
}
} else {
$htmlfile = reset($subhtmlfiles);
}
$chapterfiles[$htmlfile->pathname] = $htmlfile;
}
return $chapterfiles;
}