networking.php 6.54 KB
Newer Older
1 2
<?php
/**
Francois Marier's avatar
Francois Marier committed
3
 * Mahara: Electronic portfolio, weblog, resume builder and social networking
4 5
 * Copyright (C) 2006-2009 Catalyst IT Ltd and others; see:
 *                         http://wiki.mahara.org/Contributors
6
 *
Francois Marier's avatar
Francois Marier committed
7 8 9 10
 * 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 3 of the License, or
 * (at your option) any later version.
11
 *
Francois Marier's avatar
Francois Marier committed
12 13 14 15
 * 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.
16
 *
Francois Marier's avatar
Francois Marier committed
17 18
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
19 20 21
 *
 * @package    mahara
 * @subpackage admin
22
 * @author     Catalyst IT Ltd
23
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
24
 * @copyright  (C) 2006-2009 Catalyst IT Ltd http://catalyst.net.nz
25 26 27 28 29
 *
 */

define('INTERNAL', 1);
define('ADMIN', 1);
30
define('MENUITEM', 'configsite/networking');
31 32 33
define('SECTION_PLUGINTYPE', 'core');
define('SECTION_PLUGINNAME', 'admin');
define('SECTION_PAGE', 'networking');
34 35

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

41 42 43 44 45 46 47 48 49 50 51
$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);
52
    $smarty->display('admin/site/networking.tpl');
53 54 55
    exit;
}

56 57 58 59 60 61 62 63 64 65
$openssl = OpenSslRepo::singleton();

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

$networkingform = pieform(
    array(
        'name'     => 'networkingform',
        'jsform'   => true,
        'elements' => array(
66 67 68
            'wwwroot' => array(
                'type'         => 'html',
                'title'        => get_string('wwwroot','admin'),
69
                'description'  => get_string('wwwrootdescription', 'admin'),
70 71
                'value'        => get_config('wwwroot')
            ),
72 73 74
            'pubkey' => array(
                'type'         => 'html',
                'title'        => get_string('publickey','admin'),
75
                'description'  => get_string('publickeydescription2', 'admin', 365),
76
                'value'        => '<pre style="font-size: 0.7em; white-space: pre;">'.$openssl->certificate.'</pre>'
77
            ),
78 79 80 81 82 83 84 85 86 87
            'sha1fingerprint' => array(
                'type'         => 'html',
                'title'        => 'SHA1 Fingerprint',
                'value'        => $openssl->sha1_fingerprint
            ),
            'md5fingerprint' => array(
                'type'         => 'html',
                'title'        => 'MD5 Fingerprint',
                'value'        => $openssl->md5_fingerprint
            ),
88 89 90
            'expires' => array(
                'type'         => 'html',
                'title'        => get_string('publickeyexpires','admin'),
91
                'value'        => format_date($openssl->expires)
92 93 94 95 96 97 98 99
            ),
            'enablenetworking' => array(
                'type'         => 'select',
                'title'        => get_string('enablenetworking','admin'),
                'description'  => get_string('enablenetworkingdescription','admin'),
                'defaultvalue' => get_config('enablenetworking'),
                'options'      => $yesno,
            ),
100 101 102 103 104 105 106
            'promiscuousmode' => array(
                'type'         => 'select',
                'title'        => get_string('promiscuousmode','admin'),
                'description'  => get_string('promiscuousmodedescription','admin'),
                'defaultvalue' => get_config('promiscuousmode'),
                'options'      => $yesno,
            ),
107 108 109
            'submit' => array(
                'type'  => 'submit',
                'value' => get_string('savechanges','admin')
110 111 112 113 114
            ),
            'deletesubmit' => array(
                'type'  => 'submit',
                'title' => get_string('deletekey', 'admin'),
                'value' => get_string('delete')
115 116 117 118 119 120
            )
        )
    )
);

function networkingform_fail(Pieform $form) {
121 122 123 124
    $form->reply(PIEFORM_ERR, array(
        'message' => get_string('enablenetworkingfailed','admin'),
        'goto'    => '/admin/site/networking.php',
    ));
125 126 127
}

function networkingform_submit(Pieform $form, $values) {
128
    $reply = '';
Donal McMullan's avatar
WIP  
Donal McMullan committed
129

130 131 132 133 134 135 136 137 138 139 140
    if (isset($values['deletesubmit'])) {
        global $SESSION;
        $openssl = OpenSslRepo::singleton();
        $openssl->get_keypair(true);
        $SESSION->add_info_msg(get_string('keydeleted', 'admin'));
        // Using cancel here as a hack to get it to redirect so it shows the new keys
        $form->reply(PIEFORM_CANCEL, array(
            'location'    => get_config('wwwroot') . 'admin/site/networking.php'
        ));
    }

141 142 143
    if (get_config('enablenetworking') != $values['enablenetworking']) {
        if (!set_config('enablenetworking', $values['enablenetworking'])) {
            networkingform_fail($form);
144 145
        }
        else {
146
            if (empty($values['enablenetworking'])) {
147
                $reply .= get_string('networkingdisabled','admin');
148 149
            }
            else {
150
                $reply .= get_string('networkingenabled','admin');
151 152
            }
        }
153 154
    }

155 156 157
    if (get_config('promiscuousmode') != $values['promiscuousmode']) {
        if (!set_config('promiscuousmode', $values['promiscuousmode'])) {
            networkingform_fail($form);
158 159
        }
        else {
160
            if (empty($values['promiscuousmode'])) {
161
                $reply .= get_string('promiscuousmodedisabled','admin');
162 163
            }
            else {
164
                $reply .= get_string('promiscuousmodeenabled','admin');
165 166
            }
        }
167
    }
168

169 170 171 172
    $form->reply(PIEFORM_OK, array(
        'message' => ($reply == '') ? get_string('networkingunchanged','admin') : $reply,
        'goto'    => '/admin/site/networking.php',
    ));
173 174 175
}

$smarty = smarty();
176
$smarty->assign('networkingform', $networkingform);
177
$smarty->assign('PAGEHEADING', TITLE);
178
$smarty->display('admin/site/networking.tpl');