Proyectos de Subversion Moodle

     * @throws file_exception If file operations fail

     * @throws file_exception If file operations fail

     * @throws coding_exception If any archive paths do not meet the restrictions

     * @throws coding_exception If any archive paths do not meet the restrictions

     */

     */

    public function archive_to_storage(array $files, $contextid,

    public function archive_to_storage(array $files, $contextid,

            $component, $filearea, $itemid, $filepath, $filename,

            $component, $filearea, $itemid, $filepath, $filename,

        global $CFG;

        global $CFG;

        // Set up a temporary location for the file.

        // Set up a temporary location for the file.

        $tempfolder = $CFG->tempdir . '/core_files';

        $tempfolder = $CFG->tempdir . '/core_files';

     * @param file_progress $progress Progress indicator callback or null if not required

     * @param file_progress $progress Progress indicator callback or null if not required

     * @return bool true if file created, false if not

     * @return bool true if file created, false if not

     * @throws coding_exception If any archive paths do not meet the restrictions

     * @throws coding_exception If any archive paths do not meet the restrictions

     */

     */

    public function archive_to_pathname(array $files, $archivefile,

    public function archive_to_pathname(array $files, $archivefile,

        // Open .gz file.

        // Open .gz file.

        if (!($gz = gzopen($archivefile, 'wb'))) {

        if (!($gz = gzopen($archivefile, 'wb'))) {

            return false;

            return false;

        }

        }

        try {

        try {

     * @param int $done Value for progress indicator

     * @param int $done Value for progress indicator

     * @return bool True if OK

     * @return bool True if OK

     * @throws coding_exception If names aren't valid

     * @throws coding_exception If names aren't valid

     */

     */

    protected function write_tar_entry($gz, $archivepath, $file, $size, $mtime, $content = null,

    protected function write_tar_entry($gz, $archivepath, $file, $size, $mtime, $content = null,

        // Header based on documentation of POSIX ustar format from:

        // Header based on documentation of POSIX ustar format from:

        // http://www.freebsd.org/cgi/man.cgi?query=tar&sektion=5&manpath=FreeBSD+8-current .

        // http://www.freebsd.org/cgi/man.cgi?query=tar&sektion=5&manpath=FreeBSD+8-current .

        // For directories, ensure name ends in a slash.

        // For directories, ensure name ends in a slash.

     * details.

     * details.

     * @return array list of processed files (name=>true)

     * @return array list of processed files (name=>true)

     * @throws moodle_exception If error

     * @throws moodle_exception If error

     */

     */

    public function extract_to_pathname($archivefile, $pathname,

    public function extract_to_pathname($archivefile, $pathname,

        $extractor = new tgz_extractor($archivefile);

        $extractor = new tgz_extractor($archivefile);

        try {

        try {

            $result = $extractor->extract(

            $result = $extractor->extract(

                    new tgz_packer_extract_to_pathname($pathname, $onlyfiles), $progress);

                    new tgz_packer_extract_to_pathname($pathname, $onlyfiles), $progress);

            if ($returnbool) {

            if ($returnbool) {

     * @return array list of processed files (name=>true)

     * @return array list of processed files (name=>true)

     * @throws moodle_exception If error

     * @throws moodle_exception If error

     */

     */

    public function extract_to_storage($archivefile, $contextid,

    public function extract_to_storage($archivefile, $contextid,

            $component, $filearea, $itemid, $pathbase, $userid = null,

            $component, $filearea, $itemid, $pathbase, $userid = null,

        $extractor = new tgz_extractor($archivefile);

        $extractor = new tgz_extractor($archivefile);

        return $extractor->extract(

        return $extractor->extract(

                new tgz_packer_extract_to_storage($contextid, $component,

                new tgz_packer_extract_to_storage($contextid, $component,

                    $filearea, $itemid, $pathbase, $userid), $progress);

                    $filearea, $itemid, $pathbase, $userid), $progress);

    }

    }

     * Constructor.

     * Constructor.

     *

     *

     * @param string $pathname target directory

     * @param string $pathname target directory

     * @param array $onlyfiles only extract files present in the array

     * @param array $onlyfiles only extract files present in the array

     */

     */

        $this->pathname = $pathname;

        $this->pathname = $pathname;

        $this->onlyfiles = $onlyfiles;

        $this->onlyfiles = $onlyfiles;

    }

    }