networking.php 5.02 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
<?php
/**
 * This program is part of Mahara
 *
 *  This program 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 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program 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 this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
 *
 * @package    mahara
 * @subpackage admin
21
 * @author     Donal McMullan <richard.mansfield@catalyst.net.nz>
22 23 24 25 26 27 28 29 30 31 32
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
 * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
 *
 */

define('INTERNAL', 1);
define('ADMIN', 1);
define('MENUITEM', 'configsite');
define('SUBMENUITEM', 'networking');

require(dirname(dirname(dirname(__FILE__))) . '/init.php');
33
require_once(get_config('docroot') . 'api/xmlrpc/lib.php');
34 35 36 37
require_once('pieforms/pieform.php');
require_once('searchlib.php');
define('TITLE', get_string('networking', 'admin'));

38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
$opensslext = extension_loaded('openssl');
$curlext    = extension_loaded('curl');
$xmlrpcext  = extension_loaded('xmlrpc');

if (!$opensslext || !$curlext || !$xmlrpcext) {
    $smarty = smarty();
    $missingextensions = array();
    !$opensslext && $missingextensions[] = 'openssl';
    !$curlext    && $missingextensions[] = 'curl';
    !$xmlrpcext  && $missingextensions[] = 'xmlrpc';
    $smarty->assign('missingextensions', $missingextensions);
    $smarty->display('admin/networking.tpl');
    exit;
}

53 54 55 56 57 58 59 60 61 62
$openssl = OpenSslRepo::singleton();

$yesno = array(true  => get_string('yes'),
               false => get_string('no'));

$networkingform = pieform(
    array(
        'name'     => 'networkingform',
        'jsform'   => true,
        'elements' => array(
63 64 65 66 67
            'wwwroot' => array(
                'type'         => 'html',
                'title'        => get_string('wwwroot','admin'),
                'value'        => get_config('wwwroot')
            ),
68 69 70 71 72 73 74 75 76
            'pubkey' => array(
                'type'         => 'html',
                'title'        => get_string('publickey','admin'),
                'description'  => get_string('publickeydescription', 'admin'),
                'value'        => '<pre style="font-size: 0.7em">'.$openssl->certificate.'</pre>'
            ),
            'expires' => array(
                'type'         => 'html',
                'title'        => get_string('publickeyexpires','admin'),
77
                'value'        => format_date($openssl->expires)
78 79 80 81 82 83 84 85
            ),
            'enablenetworking' => array(
                'type'         => 'select',
                'title'        => get_string('enablenetworking','admin'),
                'description'  => get_string('enablenetworkingdescription','admin'),
                'defaultvalue' => get_config('enablenetworking'),
                'options'      => $yesno,
            ),
86 87 88 89 90 91 92
            'promiscuousmode' => array(
                'type'         => 'select',
                'title'        => get_string('promiscuousmode','admin'),
                'description'  => get_string('promiscuousmodedescription','admin'),
                'defaultvalue' => get_config('promiscuousmode'),
                'options'      => $yesno,
            ),
93 94 95 96 97 98 99 100 101 102 103 104 105
            'submit' => array(
                'type'  => 'submit',
                'value' => get_string('savechanges','admin')
            )
        )
    )
);

function networkingform_fail(Pieform $form) {
    $form->json_reply(PIEFORM_ERR, get_string('enablenetworkingfailed','admin'));
}

function networkingform_submit(Pieform $form, $values) {
106

107
    $reply = '';
Donal McMullan's avatar
WIP  
Donal McMullan committed
108

109 110 111 112
    if (get_config('enablenetworking') != $values['enablenetworking']) {
        if (!set_config('enablenetworking', $values['enablenetworking'])) {
            networkingform_fail($form);
        } else {
113
            if (empty($values['enablenetworking'])) {
114
                $reply .= get_string('networkingdisabled','admin');
115
            } else {
116
                $reply .= get_string('networkingenabled','admin');
117 118
            }
        }
119 120
    }

121 122 123 124
    if (get_config('promiscuousmode') != $values['promiscuousmode']) {
        if (!set_config('promiscuousmode', $values['promiscuousmode'])) {
            networkingform_fail($form);
        } else {
125
            if (empty($values['promiscuousmode'])) {
126
                $reply .= get_string('promiscuousmodedisabled','admin');
127
            } else {
128
                $reply .= get_string('promiscuousmodeenabled','admin');
129 130
            }
        }
131
    }
132

133
    $form->json_reply(PIEFORM_OK, ($reply == '') ? get_string('networkingunchanged','admin') : $reply);
134 135 136 137 138 139 140
}

$smarty = smarty();
$smarty->assign('NETWORKINGFORM',   $networkingform);

$smarty->display('admin/networking.tpl');
?>