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
 * Folder download
19
 *
20
 * @package   mod_folder
21
 * @copyright 2015 Andrew Hancox <andrewdchancox@googlemail.com>
22
 * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
23
 */
24
 
25
require_once(__DIR__ . "/../../config.php");
26
 
27
$id = required_param('id', PARAM_INT);  // Course module ID.
28
$cm = get_coursemodule_from_id('folder', $id, 0, true, MUST_EXIST);
29
 
30
$course = $DB->get_record('course', array('id' => $cm->course), '*', MUST_EXIST);
31
 
32
require_course_login($course, true, $cm);
33
$context = context_module::instance($cm->id);
34
require_capability('mod/folder:view', $context);
35
 
36
$folder = $DB->get_record('folder', array('id' => $cm->instance), '*', MUST_EXIST);
37
 
38
$downloadable = folder_archive_available($folder, $cm);
39
if (!$downloadable) {
40
    throw new \moodle_exception('cannotdownloaddir', 'repository');
41
}
42
 
43
$fs = get_file_storage();
44
$files = $fs->get_area_files($context->id, 'mod_folder', 'content');
45
if (empty($files)) {
46
    throw new \moodle_exception('cannotdownloaddir', 'repository');
47
}
48
 
49
// Log zip as downloaded.
50
folder_downloaded($folder, $course, $cm, $context);
51
 
52
// Close the session.
53
\core\session\manager::write_close();
54
 
55
$foldername = format_string($folder->name, true, ["context" => $context]);
56
$filename = shorten_filename(clean_filename($foldername . "-" . date("Ymd")) . ".zip");
57
$zipwriter = \core_files\archive_writer::get_stream_writer($filename, \core_files\archive_writer::ZIP_WRITER);
58
 
59
foreach ($files as $file) {
60
    if ($file->is_directory()) {
61
        continue;
62
    }
63
    $pathinzip = $file->get_filepath() . $file->get_filename();
64
    $zipwriter->add_file_from_stored_file($pathinzip, $file);
65
}
66
 
67
// Finish the archive.
68
$zipwriter->finish();
69
exit();