SWAMPy

✎ CARVE FLESH

EDITING: file_archive.php

<?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/>.

/**
 * Abstraction of general file archives.
 *
 * @package   core_files
 * @copyright 2008 Petr Skoda (http://skodak.org)
 * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

defined('MOODLE_INTERNAL') || die();

/**
 * Each file archive type must extend this class.
 *
 * @package   core_files
 * @copyright 2008 Petr Skoda (http://skodak.org)
 * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */
abstract class file_archive implements Iterator {

/** Open archive if exists, fail if does not exist. */
    const OPEN      = 1;

/** Open archive if exists, create if does not. */
    const CREATE    = 2;

/** Always create new archive */
    const OVERWRITE = 4;

/** @var string Encoding of file names - windows usually expects DOS single-byte charset*/
    protected $encoding = 'utf-8';

/**
     * Open or create archive (depending on $mode).
     *
     * @param string $archivepathname archive path name
     * @param int $mode OPEN, CREATE or OVERWRITE constant
     * @param string $encoding archive local paths encoding
     * @return bool success
     */
    abstract public function open($archivepathname, $mode=file_archive::CREATE, $encoding='utf-8');

/**
     * Close archive.
     *
     * @return bool success
     */
    abstract public function close();

/**
     * Returns file stream for reading of content.
     *
     * @param int $index index of file
     * @return stream|bool stream or false if error
     */
    abstract public function get_stream($index);

/**
     * Returns file information.
     *
     * @param int $index index of file
     * @return stdClass|bool object or false if error
     */
    abstract public function get_info($index);

/**
     * Returns array of info about all files in archive.
     *
     * @return array of file infos
     */
    abstract public function list_files();

/**
     * Returns number of files in archive.
     *
     * @return int number of files
     */
    abstract public function count();

/**
     * Add file into archive.
     *
     * @param string $localname name of file in archive
     * @param string $pathname location of file
     * @return bool success
     */
    abstract public function add_file_from_pathname($localname, $pathname);

/**
     * Add content of string into archive.
     *
     * @param string $localname name of file in archive
     * @param string $contents contents
     * @return bool success
     */
    abstract public function add_file_from_string($localname, $contents);

/**
     * Add empty directory into archive.
     *
     * @param string $localname name of file in archive
     * @return bool success
     */
    abstract public function add_directory($localname);

/**
     * Tries to convert $localname into another encoding,
     * please note that it may fail really badly.
     *
     * @param string $localname name of file in utf-8 encoding
     * @return string
     */
    protected function mangle_pathname($localname) {
        if ($this->encoding === 'utf-8') {
            return $localname;
        }

$converted = core_text::convert($localname, 'utf-8', $this->encoding);
        $original  = core_text::convert($converted, $this->encoding, 'utf-8');

if ($original === $localname) {
            $result = $converted;

} else {
            // try ascii conversion
            $converted2 = core_text::specialtoascii($localname);
            $converted2 = core_text::convert($converted2, 'utf-8', $this->encoding);
            $original2  = core_text::convert($converted, $this->encoding, 'utf-8');

if ($original2 === $localname) {
                //this looks much better
                $result = $converted2;
            } else {
                //bad luck - the file name may not be usable at all
                $result = $converted;
            }
        }

$result = preg_replace('/\.\.+\//', '', $result); // Cleanup any potential ../ transversal (any number of dots).
        $result = preg_replace('/\.\.+/', '.', $result); // Join together any number of consecutive dots.
        $result = ltrim($result); // no leading /

if ($result === '.') {
            $result = '';
        }

return $result;
    }

/**
     * Tries to convert $localname into utf-8
     * please note that it may fail really badly.
     * The resulting file name is cleaned.
     *
     * @param string $localname name of file in $this->encoding
     * @return string in utf-8
     */
    protected function unmangle_pathname($localname) {
        $result = str_replace('\\', '/', $localname); // no MS \ separators
        $result = ltrim($result, '/');                // no leading /

if ($this->encoding !== 'utf-8') {
            $result = core_text::convert($result, $this->encoding, 'utf-8');
        }

return clean_param($result, PARAM_PATH);
    }

/**
     * Returns current file info.
     * @return object
     */
    //public abstract function current();

/**
     * Returns the index of current file.
     * @return int current file index
     */
    //public abstract function key();

/**
     * Moves forward to next file.
     * @return void
     */
    //public abstract function next();

/**
     * Rewinds back to the first file.
     * @return void
     */
    //public abstract function rewind();

/**
     * Did we reach the end?
     * @return boolean
     */
    //public abstract function valid();

}

CANCEL

Name	Type	Size	Modified	Actions
↩ ..	DIR	—	—
📁 tests/	DIR	—	2026-02-11 01:44
📄 file_archive.php	PHP	6.1 KB	2026-02-11 01:44	EDIT
📄 file_exceptions.php	PHP	4.6 KB	2026-02-11 01:44	EDIT
📄 file_packer.php	PHP	5.7 KB	2026-02-11 01:44	EDIT
📄 file_progress.php	PHP	3 KB	2026-02-11 01:44	EDIT
📄 file_storage.php	PHP	99.2 KB	2026-02-11 01:44	EDIT
📄 file_system.php	PHP	25.5 KB	2026-02-11 01:44	EDIT
📄 file_system_filedir.php	PHP	19.6 KB	2026-02-11 01:44	EDIT
📄 mbz_packer.php	PHP	7.3 KB	2026-02-11 01:44	EDIT
📄 stored_file.php	PHP	39 KB	2026-02-11 01:44	EDIT
📄 tgz_extractor.php	PHP	20.3 KB	2026-02-11 01:44	EDIT
📄 tgz_packer.php	PHP	33.6 KB	2026-02-11 01:44	EDIT
📄 zip_archive.php	PHP	29.2 KB	2026-02-11 01:44	EDIT
📄 zip_packer.php	PHP	22.9 KB	2026-02-11 01:44	EDIT