MDL-29956: Implement common cartridge export (r16882)
This commit is contained in:
Mark Nielsen
committed by
Eloy Lafuente (stronk7)
Eloy Lafuente (stronk7)
parent
3319af85a9
commit
42dffc6feb
@@ -0,0 +1,419 @@
|
||||
<?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/>.
|
||||
|
||||
/**
|
||||
* Function expands all relative parts of supplied path string thus
|
||||
* removing things like ../../ or ./../.
|
||||
*
|
||||
* @param string $path
|
||||
* @param string $dirsep Character that represents directory separator should be
|
||||
* specified here. Default is DIRECTORY_SEPARATOR.
|
||||
* @return string
|
||||
*/
|
||||
function fullPath($path,$dirsep=DIRECTORY_SEPARATOR) {
|
||||
$token = '$IMS-CC-FILEBASE$';
|
||||
$path = str_replace($token,'',$path);
|
||||
if ( is_string($path) && ($path != '') ) {
|
||||
$sep = $dirsep;
|
||||
$dotDir= '.';
|
||||
$upDir = '..';
|
||||
$length= strlen($path);
|
||||
$rtemp= trim($path);
|
||||
$start = strrpos($path, $sep);
|
||||
$canContinue = ($start !== false);
|
||||
$result= $canContinue ? '': $path;
|
||||
$rcount=0;
|
||||
while ($canContinue) {
|
||||
$dirPart = ($start !== false) ? substr($rtemp,$start+1,$length-$start) : $rtemp;
|
||||
$canContinue = ($dirPart !== false);
|
||||
if ($canContinue) {
|
||||
if ($dirPart != $dotDir) {
|
||||
if ($dirPart == $upDir) {
|
||||
$rcount++;
|
||||
} else {
|
||||
if ($rcount > 0) {
|
||||
$rcount--;
|
||||
} else {
|
||||
$result = ($result == '') ? $dirPart : $dirPart.$sep.$result;
|
||||
}
|
||||
}
|
||||
}
|
||||
$rtemp = substr($path,0,$start);
|
||||
$start = strrpos($rtemp, $sep);
|
||||
$canContinue = (($start !== false) || (strlen($rtemp) > 0));
|
||||
}
|
||||
} //end while
|
||||
}
|
||||
return $result;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/**
|
||||
* Function strips url part from css link
|
||||
*
|
||||
* @param string $path
|
||||
* @param string $rootDir
|
||||
* @return string
|
||||
*/
|
||||
function stripUrl($path, $rootDir='') {
|
||||
$result = $path;
|
||||
if ( is_string($path) && ($path != '') ) {
|
||||
$start=strpos($path,'(')+1;
|
||||
$length=strpos($path,')')-$start;
|
||||
$rut = $rootDir.substr($path,$start,$length);
|
||||
$result=fullPath($rut,'/');
|
||||
}
|
||||
return $result;
|
||||
}
|
||||
|
||||
/**
|
||||
* Converts direcotry separator in given path to / to validate in CC
|
||||
* Value is passed byref hence variable itself is changed
|
||||
*
|
||||
* @param string $path
|
||||
*/
|
||||
function toNativePath(&$path) {
|
||||
for ($count = 0 ; $count < strlen($path); ++$count) {
|
||||
$chr = $path{$count};
|
||||
if (($chr == '\\') || ($chr == '/')) {
|
||||
$path{$count} = '/';
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/**
|
||||
* Converts direcotry separator in given path to the one on the server platform
|
||||
* Value is passed byref hence variable itself is changed
|
||||
*
|
||||
* @param string $path
|
||||
*/
|
||||
function toNativePath2(&$path) {
|
||||
for ($count = 0 ; $count < strlen($path); ++$count) {
|
||||
$chr = $path{$count};
|
||||
if (($chr == '\\') || ($chr == '/')) {
|
||||
$path{$count} = DIRECTORY_SEPARATOR;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/**
|
||||
* Converts \ Directory separator to the / more suitable for URL
|
||||
*
|
||||
* @param string $path
|
||||
*/
|
||||
function toUrlPath(&$path) {
|
||||
for ($count = 0 ; $count < strlen($path); ++$count) {
|
||||
$chr = $path{$count};
|
||||
if (($chr == '\\')) {
|
||||
$path{$count} = '/';
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/**
|
||||
* Returns relative path from two directories with full path
|
||||
*
|
||||
* @param string $path1
|
||||
* @param string $path2
|
||||
* @return string
|
||||
*/
|
||||
function pathDiff($path1, $path2) {
|
||||
toUrlPath($path1);
|
||||
toUrlPath($path2);
|
||||
$result = "";
|
||||
$bl2 = strlen($path2);
|
||||
$a = strpos($path1,$path2);
|
||||
if ($a !== false) {
|
||||
$result = trim(substr($path1,$bl2+$a),'/');
|
||||
}
|
||||
return $result;
|
||||
}
|
||||
|
||||
/**
|
||||
* Copy a file, or recursively copy a folder and its contents
|
||||
*
|
||||
* @author Aidan Lister <[email protected]>
|
||||
* @version 1.0.1
|
||||
* @link http://aidanlister.com/repos/v/function.copyr.php
|
||||
* @param string $source Source path
|
||||
* @param string $dest Destination path
|
||||
* @return bool Returns TRUE on success, FALSE on failure
|
||||
*/
|
||||
function copyr($source, $dest)
|
||||
{
|
||||
// Simple copy for a file
|
||||
if (is_file($source)) {
|
||||
return copy($source, $dest);
|
||||
}
|
||||
|
||||
// Make destination directory
|
||||
if (!is_dir($dest)) {
|
||||
mkdir($dest);
|
||||
}
|
||||
|
||||
// Loop through the folder
|
||||
$dir = dir($source);
|
||||
while (false !== $entry = $dir->read()) {
|
||||
// Skip pointers
|
||||
if ($entry == '.' || $entry == '..') {
|
||||
continue;
|
||||
}
|
||||
|
||||
// Deep copy directories
|
||||
if ($dest !== "$source/$entry") {
|
||||
copyr("$source/$entry", "$dest/$entry");
|
||||
}
|
||||
}
|
||||
|
||||
// Clean up
|
||||
$dir->close();
|
||||
return true;
|
||||
}
|
||||
|
||||
/**
|
||||
* Function returns array with directories contained in folder (only first level)
|
||||
*
|
||||
* @param string $rootDir directory to look into
|
||||
* @param string $contains which string to look for
|
||||
* @param array $excludeitems array of names to be excluded
|
||||
* @param bool $startswith should the $contains value be searched only from
|
||||
* beginning
|
||||
* @return array Returns array of sub-directories. In case $rootDir path is
|
||||
* invalid it returns FALSE.
|
||||
*/
|
||||
function getDirectories($rootDir, $contains, $excludeitems = null, $startswith = true) {
|
||||
$result = is_dir($rootDir);
|
||||
if ($result) {
|
||||
$dirlist = dir($rootDir);
|
||||
$entry = null;
|
||||
$result = array();
|
||||
while(false !== ($entry = $dirlist->read())) {
|
||||
$currdir = $rootDir.$entry;
|
||||
if (is_dir($currdir)) {
|
||||
$bret = strpos($entry,$contains);
|
||||
if (($bret !== false)) {
|
||||
if (($startswith && ($bret == 0)) || !$startswith) {
|
||||
if (!( is_array($excludeitems) && in_array($entry,$excludeitems) )) {
|
||||
$result[] = $entry;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return $result;
|
||||
}
|
||||
|
||||
function getFilesOnly($rootDir, $contains, $excludeitems = null, $startswith = true,$extension=null) {
|
||||
$result = is_dir($rootDir);
|
||||
if ($result) {
|
||||
$filelist = dir($rootDir);
|
||||
$entry = null;
|
||||
$result = array();
|
||||
while(false !== ($entry = $filelist->read())) {
|
||||
$curritem = $rootDir.$entry;
|
||||
$pinfo = pathinfo($entry);
|
||||
$ext = array_key_exists('extension',$pinfo) ? $pinfo['extension'] : null;
|
||||
if (is_file($curritem) && (is_null($extension) || ($ext == $extension) )) {
|
||||
$bret = strpos($entry,$contains);
|
||||
if (($bret !== false)) {
|
||||
if (($startswith && ($bret == 0)) || !$startswith) {
|
||||
if (!( is_array($excludeitems) && in_array($entry,$excludeitems) )) {
|
||||
$result[] = $entry;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
natcasesort($result);
|
||||
return $result;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/**
|
||||
* Search an identifier in array
|
||||
*
|
||||
* @param array $array
|
||||
* @param string $name
|
||||
*
|
||||
*/
|
||||
|
||||
function search_ident_by_name($array,$name){
|
||||
if (empty($array)){
|
||||
throw new Exception('The array given is null');
|
||||
}
|
||||
$ident = null;
|
||||
foreach ($array as $k => $v){
|
||||
($k);
|
||||
if ($v[1] == $name){
|
||||
$ident = $v[0];
|
||||
break;
|
||||
}
|
||||
}
|
||||
return $ident;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/**
|
||||
* Function returns files recursivly with appeneded relative path
|
||||
*
|
||||
* @param string $startDir
|
||||
* @param string $rootDir
|
||||
* @param array $excludedirs
|
||||
* @param array $excludefileext
|
||||
* @return array
|
||||
*/
|
||||
function getRawFiles($startDir, &$fhandle, $rootDir='', $excludedirs = null, $excludefileext = null) {
|
||||
$result = is_dir($startDir);
|
||||
if ($result) {
|
||||
$dirlist = dir($startDir);
|
||||
$entry = null;
|
||||
while(false !== ($entry = $dirlist->read())) {
|
||||
$curritem = $startDir.$entry;
|
||||
if (($entry=='.') || ($entry =='..')) {
|
||||
continue;
|
||||
}
|
||||
if (is_dir($curritem)) {
|
||||
if (!( is_array($excludedirs) && in_array($entry,$excludedirs) )) {
|
||||
getRawFiles($startDir.$entry."/",$fhandle,$rootDir.$entry."/",$excludedirs,$excludefileext);
|
||||
}
|
||||
continue;
|
||||
}
|
||||
if (is_file($curritem)){
|
||||
$pinfo = pathinfo($entry);
|
||||
$ext = array_key_exists('extension',$pinfo) ? $pinfo['extension'] : '';
|
||||
if (!is_array($excludefileext) ||
|
||||
(is_array($excludefileext) && !in_array($ext,$excludefileext))) {
|
||||
fwrite($fhandle,$rootDir.$entry."\n");
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return $result;
|
||||
}
|
||||
|
||||
|
||||
function getRawFiles2($startDir,&$arr, $rootDir='', $excludedirs = null, $excludefileext = null) {
|
||||
|
||||
$result = is_dir($startDir);
|
||||
if ($result) {
|
||||
$dirlist = dir($startDir);
|
||||
$entry = null;
|
||||
while(false !== ($entry = $dirlist->read())) {
|
||||
$curritem = $startDir.$entry;
|
||||
if (($entry=='.') || ($entry =='..')) {
|
||||
continue;
|
||||
}
|
||||
if (is_dir($curritem)) {
|
||||
if (!( is_array($excludedirs) && in_array($entry,$excludedirs) )) {
|
||||
getRawFiles2($startDir.$entry."/",$arr,$rootDir.$entry."/",$excludedirs,$excludefileext);
|
||||
}
|
||||
continue;
|
||||
}
|
||||
if (is_file($curritem)){
|
||||
$pinfo = pathinfo($entry);
|
||||
$ext = array_key_exists('extension',$pinfo) ? $pinfo['extension'] : '';
|
||||
if (!is_array($excludefileext) ||
|
||||
(is_array($excludefileext) && !in_array($ext,$excludefileext))) {
|
||||
array_push($arr,$rootDir.$entry);
|
||||
// fwrite($fhandle,$rootDir.$entry."\n");
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return $result;
|
||||
}
|
||||
|
||||
|
||||
function GetFiles($startDir, $outfile, $rootDir='', $excludedirs = null, $excludefileext = null) {
|
||||
$fh = @fopen($outfile,"w+");
|
||||
if ($fh !== FALSE) {
|
||||
getRawFiles($startDir,$fh,$rootDir,$excludedirs,$excludefileext);
|
||||
@fclose($fh);
|
||||
@chmod($outfile,0777);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/**
|
||||
* Function to get an array with all files in a directory and subdirectories
|
||||
*
|
||||
* @param string $startDir
|
||||
* @param string $rootDir
|
||||
* @param string $excludedirs
|
||||
* @param string $excludefileext
|
||||
* @return array
|
||||
*/
|
||||
|
||||
function GetFilesArray($startDir, $rootDir='', $excludedirs = null, $excludefileext = null) {
|
||||
$arr = array();
|
||||
getRawFiles2($startDir,$arr,$rootDir,$excludedirs,$excludefileext);
|
||||
return $arr;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/**
|
||||
* Function returns array with directories contained in folder (only first level)
|
||||
* simmilar to getDirectories but returned items are naturally sorted.
|
||||
*
|
||||
* @param string $rootDir
|
||||
* @param string $contains
|
||||
* @param array $excludeitems
|
||||
* @param bool $startswith
|
||||
* @return array
|
||||
*/
|
||||
function getCourseDirs ($rootDir, $contains, $excludeitems=null, $startswith=true) {
|
||||
$result = getDirectories($rootDir,$contains,$excludeitems,$startswith);
|
||||
if ($result !== false) {
|
||||
natcasesort($result);
|
||||
$result = array_values($result);
|
||||
}
|
||||
return $result;
|
||||
}
|
||||
|
||||
|
||||
/**
|
||||
* Delete a directory recursive with files inside
|
||||
*
|
||||
* @param string $dirname
|
||||
* @return bool
|
||||
*/
|
||||
function rmdirr($dirname)
|
||||
{
|
||||
if (!file_exists($dirname)) {
|
||||
return false;
|
||||
}
|
||||
if (is_file($dirname) || is_link($dirname)) {
|
||||
return unlink($dirname);
|
||||
}
|
||||
$dir = dir($dirname);
|
||||
while (false !== $entry = $dir->read()) {
|
||||
if ($entry == '.' || $entry == '..') {
|
||||
continue;
|
||||
}
|
||||
rmdirr($dirname . DIRECTORY_SEPARATOR . $entry);
|
||||
}
|
||||
$dir->close();
|
||||
return rmdir($dirname);
|
||||
}
|
||||
Reference in New Issue
Block a user