Proyectos de Subversion Moodle

Rev

| Ultima modificación | Ver Log |

Rev Autor Línea Nro. Línea
1 efrain 1
<?php
2
// This file is part of Moodle - http://moodle.org/
3
//
4
// Moodle is free software: you can redistribute it and/or modify
5
// it under the terms of the GNU General Public License as published by
6
// the Free Software Foundation, either version 3 of the License, or
7
// (at your option) any later version.
8
//
9
// Moodle is distributed in the hope that it will be useful,
10
// but WITHOUT ANY WARRANTY; without even the implied warranty of
11
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12
// GNU General Public License for more details.
13
//
14
// You should have received a copy of the GNU General Public License
15
// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
16
 
17
/**
18
 * This debug script is used during zip support development.
19
 *
20
 * @package    core_files
21
 * @copyright  2012 Petr Skoda
22
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
23
 */
24
 
25
define('CLI_SCRIPT', true);
26
 
27
require(__DIR__.'/../../../../config.php');
28
require_once($CFG->libdir.'/clilib.php');
29
 
30
$help =
31
    "Create sample zip file for testing
32
Example:
33
  \$php zip_create_test_file.php test.zip
34
";
35
 
36
if (count($_SERVER['argv']) != 2 or file_exists($_SERVER['argv'][1])) {
37
    echo $help;
38
    exit(0);
39
}
40
 
41
$archive = $_SERVER['argv'][1];
42
 
43
$packer = get_file_packer('application/zip');
44
 
45
$file = __DIR__.'/test.txt';
46
$files = array(
47
    'test.test' => $file,
48
    'testíček.txt' => $file,
49
    'Prüfung.txt' => $file,
50
    '测试.txt' => $file,
51
    '試験.txt' => $file,
52
    'Žluťoučký/Koníček.txt' => $file,
53
);
54
 
55
$packer->archive_to_pathname($files, $archive);