Proyectos de Subversion Moodle

<?php
// This file is part of Moodle - http://moodle.org/
//
// Moodle is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Moodle is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.

require_once $CFG->dirroot .'/backup/cc/cc_lib/xmlbase.php';
require_once 'cssparser.php';
require_once 'pathutils.php';



function is_url($url) {
    if (
         !preg_match('#^http\\:\\/\\/[a-z0-9\-]+\.([a-z0-9\-]+\.)?[a-z]+#i', $url) &&
         !preg_match('#^https\\:\\/\\/[a-z0-9\-]+\.([a-z0-9\-]+\.)?[a-z]+#i', $url) &&
         !preg_match('#^ftp\\:\\/\\/[a-z0-9\-]+\.([a-z0-9\-]+\.)?[a-z]+#i', $url)
        ) {
        $status = false;
    } else {
        $status = true;
    }
    return $status;
}

function GetDepFiles($manifestroot, $fname,$folder,&$filenames) {

    $extension      = end(explode('.',$fname));
    $filenames      = array();
    $dcx            = new XMLGenericDocument();
    $result         = true;

    switch ($extension){
        case 'xml':
                 $result = @$dcx->loadXMLFile($manifestroot.$folder.$fname);
                 if (!$result) {
                    $result = @$dcx->loadXMLFile($manifestroot.DIRECTORY_SEPARATOR.$folder.DIRECTORY_SEPARATOR.$fname);
                 }
                 GetDepFilesXML($manifestroot, $fname,$filenames,$dcx, $folder);
            break;
        case 'html':
        case 'htm':
                 $result = @$dcx->loadHTMLFile($manifestroot.$folder.$fname);
                 if (!$result) {
                    $result = @$dcx->loadHTMLFile($manifestroot.DIRECTORY_SEPARATOR.$folder.DIRECTORY_SEPARATOR.$fname);
                 }
                 GetDepFilesHTML($manifestroot, $fname,$filenames,$dcx, $folder);
            break;
    }
    return $result;
}



function GetDepFilesXML ($manifestroot, $fname,&$filenames,&$dcx, $folder){
        $nlist = $dcx->nodeList("//img/@src | //attachments/attachment/@href  | //link/@href | //script/@src");
        $css_obj_array = array();
        foreach ($nlist as $nl) {
            $item = $nl->nodeValue;
            $path_parts = pathinfo($item);
            $fname = $path_parts['basename'];
            $ext   = array_key_exists('extension',$path_parts) ? $path_parts['extension'] : '';
            if (!is_url($nl->nodeValue)) {
              //$file =   $folder.$nl->nodeValue; // DEPENDERA SI SE QUIERE Q SEA RELATIVO O ABSOLUTO
              $file =   $nl->nodeValue;
              toNativePath($file);
              $filenames[]=$file;
            }
        }
        $dcx->registerNS('qti','http://www.imsglobal.org/xsd/imscc/ims_qtiasiv1p2.xsd');
        $dcx->resetXpath();
        $nlist = $dcx->nodeList("//qti:mattext | //text");
        $dcx2 = new XMLGenericDocument();
        foreach ($nlist as $nl) {
            if ($dcx2->loadString($nl->nodeValue)){
                GetDepFilesHTML($manifestroot,$fname,$filenames,$dcx2,$folder);
            }
        }
}



function GetDepFilesHTML ($manifestroot, $fname,&$filenames,&$dcx, $folder){
        $dcx->resetXpath();
        $nlist = $dcx->nodeList("//img/@src | //link/@href | //script/@src | //a[not(starts-with(@href,'#'))]/@href");
        $css_obj_array=array();
        foreach ($nlist as $nl) {
            $item = $nl->nodeValue;
            $path_parts = pathinfo($item);
            $fname = $path_parts['basename'];
            $ext   = array_key_exists('extension',$path_parts) ? $path_parts['extension'] : '';
            if (!is_url($folder.$nl->nodeValue) && !is_url($nl->nodeValue)) {
              $path = $nl->nodeValue;
              //$file = fullPath($path,"/");
              toNativePath($path);
              $filenames[]= $path;
            }
            if ($ext == 'css') {
                $css = new cssparser();
                $css->Parse($dcx->filePath().$nl->nodeValue);
                $css_obj_array[$item]=$css;
            }
        }
        $nlist = $dcx->nodeList("//*/@class");
        foreach ($nlist as $nl) {
            $item = $nl->nodeValue;
            foreach ($css_obj_array as $csskey => $cssobj) {
                $bimg = $cssobj->Get($item,"background-image");
                $limg = $cssobj->Get($item,"list-style-image");
                $npath = pathinfo($csskey);
                if ((!empty($bimg))&& ($bimg != 'none')) {
                    $filenames[] = stripUrl($bimg,$npath['dirname'].'/');
                } else
                if ((!empty($limg))&& ($limg != 'none')) {
                    $filenames[] = stripUrl($limg,$npath['dirname'].'/');
                }
            }
        }
        $elems_to_check = array("body","p","ul","h4","a","th");
        $do_we_have_it = array();
        foreach ($elems_to_check as $elem) {
            $do_we_have_it[$elem]=($dcx->nodeList("//".$elem)->length > 0);
        }
        foreach ($elems_to_check as $elem) {
            if ($do_we_have_it[$elem]) {
                foreach ($css_obj_array as $csskey => $cssobj) {
                    $sb = $cssobj->Get($elem, "background-image");
                    $sbl = $cssobj->Get($elem,"list-style-image");
                    $npath = pathinfo($csskey);
                    if ((!empty($sb)) && ($sb != 'none')) {
                        $filenames[] = stripUrl($sb,$npath['dirname'].'/');
                    } else
                    if ((!empty($sbl)) && ($sbl != 'none')) {
                        $filenames[] = stripUrl($sbl,$npath['dirname'].'/');
                    }
                }
            }
        }
}