Gecko [ admjudic.com.br ]

Name	Size	Permission
documentation.php	1.96 KB	-rw-r--r--
forms.php	8.63 KB	-rw-r--r--
lib.php	4.98 KB	-rw-r--r--
protocols.php	2.61 KB	-rw-rw-r--
service.php	3.98 KB	-rw-rw-r--
service_functions.php	4.83 KB	-rw-rw-r--
service_user_settings.php	3.1 KB	-rw-r--r--
service_users.php	4.91 KB	-rw-r--r--
testclient.php	5.92 KB	-rw-r--r--
testclient_forms.php	12.46 KB	-rw-r--r--
tokens.php	5.19 KB	-rw-rw-r--

Code Editor : protocols.php

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

/**
 * Web services protocols admin UI
 *
 * @package   webservice
 * @copyright 2009 Moodle Pty Ltd (http://moodle.com)
 * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

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

$PAGE->set_url('/' . $CFG->admin . '/webservice/protocols.php');
//TODO: disable the blocks here or better make the page layout default to no blocks!

require_admin();

$returnurl = $CFG->wwwroot . "/" . $CFG->admin . "/settings.php?section=webserviceprotocols";

$action     = optional_param('action', '', PARAM_ALPHANUMEXT);
$webservice = optional_param('webservice', '', PARAM_SAFEDIR);
$confirm    = optional_param('confirm', 0, PARAM_BOOL);

// get currently installed and enabled auth plugins
$available_webservices = core_component::get_plugin_list('webservice');
if (!empty($webservice) and empty($available_webservices[$webservice])) {
    redirect($returnurl);
}

$active_webservices = empty($CFG->webserviceprotocols) ? array() : explode(',', $CFG->webserviceprotocols);
foreach ($active_webservices as $key=>$active) {
    if (empty($available_webservices[$active])) {
        unset($active_webservices[$key]);
    }
}

////////////////////////////////////////////////////////////////////////////////
// process actions

if (!confirm_sesskey()) {
    redirect($returnurl);
}

switch ($action) {

case 'disable':
        // remove from enabled list
        $key = array_search($webservice, $active_webservices);
        unset($active_webservices[$key]);
        break;

case 'enable':
        // add to enabled list
        if (!in_array($webservice, $active_webservices)) {
            $active_webservices[] = $webservice;
            $active_webservices = array_unique($active_webservices);
        }
        break;

default:
        break;
}

set_config('webserviceprotocols', implode(',', $active_webservices));

redirect($returnurl);

${this.title}

Code Editor : protocols.php