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

/**
 * Fixture for Behat test of the max_input_vars handling for large forms.
 *
 * @package core
 * @copyright 2015 The Open University
 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

require(__DIR__ . '/../../../config.php');
require_once($CFG->libdir . '/formslib.php');

// Behat test fixture only.
defined('BEHAT_SITE_RUNNING') || die('Only available on Behat test server');

/**
 * Form for testing max_input_vars.
 *
 * @copyright 2015 The Open University
 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */
class core_max_input_vars_form extends moodleform {
    /**
     * Form definition.
     */
    public function definition() {
        global $CFG, $PAGE;

        $mform =& $this->_form;

        $mform->addElement('header', 'general', '');
        $mform->addElement('hidden', 'type', $this->_customdata['type']);
        $mform->setType('type', PARAM_ALPHA);

        // This is similar to how the selects are created for the role tables,
        // without using a Moodle form element.
        $select = html_writer::select(array(13 => 'ArrayOpt13', 42 => 'ArrayOpt4', 666 => 'ArrayOpt666'),
                'arraytest[]', array(13, 42), false, array('multiple' => 'multiple', 'size' => 10));
        $mform->addElement('static', 'arraybit', $select);

        switch ($this->_customdata['control']) {
            case 'c' :
                // Create a whole stack of checkboxes.
                for ($i = 0; $i < $this->_customdata['fieldcount']; $i++) {
                    $mform->addElement('advcheckbox', 'test_c' . $i, 'Checkbox ' . $i);
                }
                break;

            case 'a' :
                // Create a very large array input type field.
                $options = array();
                $values = array();
                for ($i = 0; $i < $this->_customdata['fieldcount']; $i++) {
                    $options[$i] = 'BigArray ' . $i;
                    if ($i !== 3) {
                        $values[] = $i;
                    }
                }
                $select = html_writer::select($options,
                        'test_a[]', $values, false, array('multiple' => 'multiple', 'size' => 50));
                $mform->addElement('static', 'bigarraybit', $select);
                break;
        }

        // For the sake of it, let's have a second array.
        $select = html_writer::select(array(13 => 'Array2Opt13', 42 => 'Array2Opt4', 666 => 'Array2Opt666'),
                'array2test[]', array(13, 42), false, array('multiple' => 'multiple', 'size' => 10));
        $mform->addElement('static', 'array2bit', $select);

        $mform->addElement('submit', 'submitbutton', 'Submit here!');
    }
}

require_login();

$context = context_system::instance();

$type = optional_param('type', '', PARAM_ALPHA);

// Set up the page details.
$PAGE->set_url(new moodle_url('/lib/tests/fixtures/max_input_vars.php'));
$PAGE->set_context($context);

if ($type) {
    // Make it work regardless of max_input_vars setting on server, within reason.
    if ($type[1] === 's') {
        // Small enough to definitely fit in the area.
        $fieldcount = 10;
    } else if ($type[1] === 'm') {
        // Just under the limit (will go over for advancedcheckbox).
        $fieldcount = (int)ini_get('max_input_vars') - 100;
    } else if ($type[1] === 'e') {
        // Exactly on the PHP limit, taking into account extra form fields
        // and the double fields for checkboxes.
        if ($type[0] === 'c') {
            $fieldcount = (int)ini_get('max_input_vars') / 2 - 2;
        } else {
            $fieldcount = (int)ini_get('max_input_vars') - 11;
        }
    }

    $mform = new core_max_input_vars_form('max_input_vars.php',
            array('type' => $type, 'fieldcount' => $fieldcount, 'control' => $type[0]));
    if ($type[0] === 'c') {
        $data = array();
        for ($i = 0; $i < $fieldcount; $i++) {
            if ($i === 3) {
                // Everything is set except number 3.
                continue;
            }
            $data['test_c' . $i] = 1;
        }
        $mform->set_data($data);
    }
}

echo $OUTPUT->header();

if ($type && ($result = $mform->get_data())) {
    $testc = array();
    $testa = array();
    foreach ($_POST as $key => $value) {
        $matches = array();
        // Handle the 'bulk' ones separately so we can show success/fail rather
        // than outputting a thousand items; also makes it possible to Behat-test
        // without depending on specific value of max_input_vars.
        if (preg_match('~^test_c([0-9]+)$~', $key, $matches)) {
            $testc[(int)$matches[1]] = $value;
        } else if ($key === 'test_a') {
            $testa = $value;
        } else {
            // Other fields are output straight off.
            if (is_array($value)) {
                echo html_writer::div(s($key) . '=[' . s(implode(',', $value)) . ']');
            } else {
                echo html_writer::div(s($key) . '=' . s($value));
            }
        }
    }

    // Confirm that the bulk results are correct.
    switch ($type[0]) {
        case 'c' :
            $success = true;
            for ($i = 0; $i < $fieldcount; $i++) {
                if (!array_key_exists($i, $testc)) {
                    $success = false;
                    break;
                }
                if ($testc[$i] != ($i == 3 ? 0 : 1)) {
                    $success = false;
                    break;
                }
            }
            if (array_key_exists($fieldcount, $testc)) {
                $success = false;
            }
            // Check using Moodle form and _param functions too.
            $key = 'test_c' . ($fieldcount - 1);
            if (empty($result->{$key})) {
                $success = false;
            }
            if (optional_param($key, 0, PARAM_INT) !== 1) {
                $success = false;
            }
            echo html_writer::div('Bulk checkbox success: ' . ($success ? 'true' : 'false'));
            break;

        case 'a' :
            $success = true;
            for ($i = 0; $i < $fieldcount; $i++) {
                if ($i === 3) {
                    if (in_array($i, $testa)) {
                        $success = false;
                        break;
                    }
                } else {
                    if (!in_array($i, $testa)) {
                        $success = false;
                        break;
                    }
                }
            }
            if (in_array($fieldcount, $testa)) {
                $success = false;
            }
            // Check using Moodle _param function. The form does not include these
            // fields so it won't be in the form result.
            $array = optional_param_array('test_a', array(), PARAM_INT);
            if ($array != $testa) {
                $success = false;
            }
            echo html_writer::div('Bulk array success: ' . ($success ? 'true' : 'false'));
            break;
    }

} else if ($type) {
    $mform->display();
}

// Show links to each available type of test.
echo html_writer::start_tag('ul');
foreach (array('c' => 'Advanced checkboxes',
        'a' => 'Select options') as $control => $controlname) {
    foreach (array('s' => 'Small', 'm' => 'Below limit', 'e' => 'Exact PHP limit') as $size => $sizename) {
        echo html_writer::tag('li', html_writer::link('max_input_vars.php?type=' .
                $control . $size, $controlname . ' / ' . $sizename));
    }
}
echo html_writer::end_tag('ul');

echo $OUTPUT->footer();
