MDL-22388 Added some checks to kill these scripts dead with an unequivocal notice...
[moodle.git] / mod / imscp / mod_form.php
1 <?php
3 // This file is part of Moodle - http://moodle.org/
4 //
5 // Moodle is free software: you can redistribute it and/or modify
6 // it under the terms of the GNU General Public License as published by
7 // the Free Software Foundation, either version 3 of the License, or
8 // (at your option) any later version.
9 //
10 // Moodle is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 // GNU General Public License for more details.
14 //
15 // You should have received a copy of the GNU General Public License
16 // along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
18 /**
19  * IMS CP configuration form
20  *
21  * @package   mod-imscp
22  * @copyright 2009 Petr Skoda (http://skodak.org)
23  * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
24  */
26 if (!defined('MOODLE_INTERNAL')) {
27     die('Direct access to this script is forbidden.');    ///  It must be included from a Moodle page
28 }
30 require_once ($CFG->dirroot.'/course/moodleform_mod.php');
31 require_once($CFG->dirroot.'/mod/resource/locallib.php');
32 require_once($CFG->libdir.'/filelib.php');
34 class mod_imscp_mod_form extends moodleform_mod {
35     function definition() {
36         global $CFG, $DB;
37         $mform = $this->_form;
39         $config = get_config('imscp');
41         //-------------------------------------------------------
42         $mform->addElement('header', 'general', get_string('general', 'form'));
43         $mform->addElement('text', 'name', get_string('name'), array('size'=>'48'));
44         if (!empty($CFG->formatstringstriptags)) {
45             $mform->setType('name', PARAM_TEXT);
46         } else {
47             $mform->setType('name', PARAM_CLEAN);
48         }
49         $mform->addRule('name', null, 'required', null, 'client');
50         $this->add_intro_editor($config->requiremodintro);
52         //-------------------------------------------------------
53         $mform->addElement('header', 'content', get_string('contentheader', 'imscp'));
54         $mform->addElement('filepicker', 'package', get_string('packagefile', 'imscp'));
56         $options = array('-1'=>get_string('all'), '0'=>get_string('no'), '1'=>'1', '2'=>'2', '5'=>'5', '10'=>'10', '20'=>'20');
57         $mform->addElement('select', 'keepold', get_string('keepold', 'imscp'), $options);
58         $mform->setDefault('keepold', $config->keepold);
59         $mform->setAdvanced('keepold', $config->keepold_adv);
61         //-------------------------------------------------------
62         $this->standard_coursemodule_elements();
64         //-------------------------------------------------------
65         $this->add_action_buttons();
66     }
68     function validation($data, $files) {
69         global $USER;
71         if ($errors = parent::validation($data, $files)) {
72             return $errors;
73         }
75         $usercontext = get_context_instance(CONTEXT_USER, $USER->id);
76         $fs = get_file_storage();
78         if (!$files = $fs->get_area_files($usercontext->id, 'user_draft', $data['package'], 'id', false)) {
79             if (!$this->current->instance) {
80                 $errors['package'] = get_string('required');
81                 return $errors;
82             }
83         }
85         $file = reset($files);
87         if ($file->get_mimetype() != 'application/zip') {
88             $errors['package'] = get_string('invalidfiletype', 'error', '', $file);
89             // better delete current file, it is not usable anyway
90             $fs->delete_area_files($usercontext->id, 'user_draft', $data['package']);
91         }
93         return $errors;
94     }
95 }