admin/webservice/protocols.php

   1 <?php
   2
   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/>.
  17
  18 /**
  19  * Web services protocols admin UI
  20  *
  21  * @package   webservice
  22  * @copyright 2009 Moodle Pty Ltd (http://moodle.com)
  23  * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  24  */
  25
  26 require_once('../../config.php');
  27 require_once($CFG->libdir.'/adminlib.php');
  28 require_once($CFG->libdir.'/tablelib.php');
  29
  30 $PAGE->set_url('/' . $CFG->admin . '/webservice/protocols.php');
  31 //TODO: disable the blocks here or better make the page layout default to no blocks!
  32
  33 require_login();
  34 require_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM));
  35
  36 $returnurl = $CFG->wwwroot . "/" . $CFG->admin . "/settings.php?section=webserviceprotocols";
  37
  38 $action     = optional_param('action', '', PARAM_ACTION);
  39 $webservice = optional_param('webservice', '', PARAM_SAFEDIR);
  40 $confirm    = optional_param('confirm', 0, PARAM_BOOL);
  41
  42 // get currently installed and enabled auth plugins
  43 $available_webservices = get_plugin_list('webservice');
  44 if (!empty($webservice) and empty($available_webservices[$webservice])) {
  45     redirect($returnurl);
  46 }
  47
  48 $active_webservices = empty($CFG->webserviceprotocols) ? array() : explode(',', $CFG->webserviceprotocols);
  49 foreach ($active_webservices as $key=>$active) {
  50     if (empty($available_webservices[$active])) {
  51         unset($active_webservices[$key]);
  52     }
  53 }
  54
  55 ////////////////////////////////////////////////////////////////////////////////
  56 // process actions
  57
  58 if (!confirm_sesskey()) {
  59     redirect($returnurl);
  60 }
  61
  62 switch ($action) {
  63     case 'uninstall':
  64         die('TODO: not implemented yet');
  65         break;
  66
  67     case 'disable':
  68         // remove from enabled list
  69         $key = array_search($webservice, $active_webservices);
  70         unset($active_webservices[$key]);
  71         break;
  72
  73     case 'enable':
  74         // add to enabled list
  75         if (!in_array($webservice, $active_webservices)) {
  76             $active_webservices[] = $webservice;
  77             $active_webservices = array_unique($active_webservices);
  78         }
  79         break;
  80
  81     default:
  82         break;
  83 }
  84
  85 set_config('webserviceprotocols', implode(',', $active_webservices));
  86
  87 redirect($returnurl);