Proyectos de Subversion Moodle

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

/**

 * Processor file for user exclusion overview and configuration

 *

 * File         exclude.php

 * Encoding     UTF-8

 *

 * @package     tool_usersuspension

 *

 * @copyright   Sebsoft.nl

 * @author      R.J. van Dongen <rogier@sebsoft.nl>

 * @license     http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later

 */

require_once(dirname(__FILE__) . '/../../../../config.php');

require_once($CFG->libdir.'/adminlib.php');

use tool_usersuspension\config;

use tool_usersuspension\processor\csv as csvprocessor;

/**

 * Test script message output callback.

 *

 * @param string $msg

 */

function trtrace($msg) {

    echo html_writer::div($msg, 'alert alert-info');

}

/**

 * Write action links for this script.

 * @param moodle_url|string $pageurl

 */

function write_actiontype_links($pageurl) {

    $actiontypes = ['suspend', 'unsuspend'];

    foreach ($actiontypes as $type) {

        echo html_writer::link(new moodle_url($pageurl, ['actiontype' => $type]),

                get_string('testfromfolder:' . $type, 'tool_usersuspension'), []);

        echo '<br/>';

    }

}

admin_externalpage_setup('toolusersuspension');

$context       = \context_system::instance();

$thispageurl = new moodle_url('/' . $CFG->admin . '/tool/usersuspension/view/testfromfolder.php', array());

require_capability('tool/usersuspension:administration', $context);

// Process exclusion?

$actiontype = optional_param('actiontype', null, PARAM_ALPHA);

$actiontypes = ['suspend', 'unsuspend'];

if (!in_array($actiontype, $actiontypes)) {

    echo $OUTPUT->header();

    echo '<div class="tool-usersuspension-container">';

    echo '<div>';

    \tool_usersuspension\util::print_view_tabs(array(), 'testfromfolder');

    echo '</div>';

    write_actiontype_links($thispageurl);

    echo '</div>';

    echo $OUTPUT->footer();

} else if ($actiontype === 'suspend') {

    echo $OUTPUT->header();

    echo '<div class="tool-usersuspension-container">';

    echo '<div>';

    \tool_usersuspension\util::print_view_tabs(array(), 'testfromfolder');

    echo '</div>';

    write_actiontype_links($thispageurl);

    echo $OUTPUT->heading(get_string('testing:suspendfromfolder', 'tool_usersuspension'), 4);

    if (!(bool)config::get('enabled')) {

        echo html_writer::div(get_string('config:tool:disabled', 'tool_usersuspension'), 'alert alert-danger');

    } else {

        echo html_writer::div(get_string('config:tool:enabled', 'tool_usersuspension'), 'alert alert-info');

    }

    if (!(bool)config::get('enablefromfolder')) {

        echo html_writer::div(get_string('config:fromfolder:disabled', 'tool_usersuspension'), 'alert alert-danger');

    } else {

        echo html_writer::div(get_string('config:fromfolder:enabled', 'tool_usersuspension'), 'alert alert-info');

    }

    if (is_dir(config::get('uploadfolder'))) {

        echo html_writer::div(get_string('config:uploadfolder:exists', 'tool_usersuspension',

                config::get('uploadfolder')), 'alert alert-info');

    } else {

        echo html_writer::div(get_string('config:uploadfolder:not-exists', 'tool_usersuspension',

                config::get('uploadfolder')), 'alert alert-danger');

    }

    $uploadedfile = config::get('uploadfolder') . '/' . config::get('uploadfilename');

    if (!file_exists($uploadedfile) || is_dir($uploadedfile)) {

        echo html_writer::div(get_string('config:uploadfile:not-exists', 'tool_usersuspension',

                $uploadedfile), 'alert alert-danger');

    } else {

        echo html_writer::div(get_string('config:uploadfile:exists', 'tool_usersuspension',

                $uploadedfile), 'alert alert-info');

        if (!is_readable($uploadedfile)) {

            echo html_writer::div(get_string('msg:file-not-readable', 'tool_usersuspension',

                    $uploadedfile), 'alert alert-danger');

        }

        $choices = \csv_import_reader::get_delimiter_list();

        // Process uploaded file.

        $proc = new csvprocessor();

        $proc->set_file($uploadedfile);

        $proc->set_delimiter($choices[config::get('csvdelimiter')]);

        $proc->set_enclosure('"');

        $proc->set_notifycallback('trtrace');

        $proc->set_mode(csvprocessor::MODE_SUSPEND);

        $proc->set_testmode();

        $proc->process();

        if (is_writable($uploadedfile)) {

            echo html_writer::div(get_string('msg:file-would-delete', 'tool_usersuspension',

                    $uploadedfile), 'alert alert-success');

        } else {

            echo html_writer::div(get_string('msg:file-not-writeable', 'tool_usersuspension',

                    $uploadedfile), 'alert alert-danger');

        }

    }

    echo '</div>';

    echo $OUTPUT->footer();

} else if ($actiontype === 'unsuspend') {

    echo $OUTPUT->header();

    echo '<div class="tool-usersuspension-container">';

    echo '<div>';

    \tool_usersuspension\util::print_view_tabs(array(), 'testfromfolder');

    echo '</div>';

    write_actiontype_links($thispageurl);

    echo $OUTPUT->heading(get_string('testing:unsuspendfromfolder', 'tool_usersuspension'), 4);

    if (!(bool)config::get('enabled')) {

        echo html_writer::div(get_string('config:tool:disabled', 'tool_usersuspension'), 'alert alert-danger');

    } else {

        echo html_writer::div(get_string('config:tool:enabled', 'tool_usersuspension'), 'alert alert-info');

    }

    if (!(bool)config::get('enableunsuspendfromfolder')) {

        echo html_writer::div(get_string('config:unsuspendfromfolder:disabled', 'tool_usersuspension'), 'alert alert-danger');

    } else {

        echo html_writer::div(get_string('config:unsuspendfromfolder:enabled', 'tool_usersuspension'), 'alert alert-info');

    }

    if (is_dir(config::get('uploadfolder'))) {

        echo html_writer::div(get_string('config:uploadfolder:exists', 'tool_usersuspension',

                config::get('uploadfolder')), 'alert alert-info');

    } else {

        echo html_writer::div(get_string('config:uploadfolder:not-exists', 'tool_usersuspension',

                config::get('uploadfolder')), 'alert alert-danger');

    }

    $uploadedfile = config::get('uploadfolder') . '/' . config::get('unsuspenduploadfilename');

    if (!file_exists($uploadedfile) || is_dir($uploadedfile)) {

        echo html_writer::div('CSV File "'.$uploadedfile.'" does not exist', 'alert alert-danger');

    } else {

        echo html_writer::div(get_string('config:uploadfile:exists', 'tool_usersuspension',

                $uploadedfile), 'alert alert-info');

        if (!is_readable($uploadedfile)) {

            echo html_writer::div(get_string('msg:file-not-readable', 'tool_usersuspension',

                    $uploadedfile), 'alert alert-danger');

        }

        $choices = \csv_import_reader::get_delimiter_list();

        // Process uploaded file.

        $proc = new csvprocessor();

        $proc->set_file($uploadedfile);

        $proc->set_delimiter($choices[config::get('csvdelimiter')]);

        $proc->set_enclosure('"');

        $proc->set_notifycallback('trtrace');

        $proc->set_mode(csvprocessor::MODE_UNSUSPEND);

        $proc->set_testmode();

        $proc->process();

        if (is_writable($uploadedfile)) {

            echo html_writer::div(get_string('msg:file-would-delete', 'tool_usersuspension',

                    $uploadedfile), 'alert alert-danger');

        } else {

            echo html_writer::div(get_string('msg:file-not-writeable', 'tool_usersuspension',

                    $uploadedfile), 'alert alert-danger');

        }

    }

    echo '</div>';

    echo $OUTPUT->footer();

}