Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

mnet: core libraries and admin pages

  • Loading branch information...
commit 71558f8502644f9a1ea7640e35a87dd0885f41c9 1 parent 10daca9
martinlanghoff authored
View
583 admin/mnet/MethodTable.php
@@ -0,0 +1,583 @@
+<?php
+/**
+ * Adapted for Moodle from the AMFPHP Project at http://www.amfphp.org/
+ * Creates the methodTable for a service class.
+ *
+ * @usage $this->methodTable = MethodTable::create($this);
+ * @author Christophe Herreman
+ * @since 05/01/2005
+ * @version $id$
+ *
+ * Special contributions by Allessandro Crugnola and Ted Milker
+ */
+
+if (!defined('T_ML_COMMENT')) {
+ define('T_ML_COMMENT', T_COMMENT);
+} else {
+ define('T_DOC_COMMENT', T_ML_COMMENT);
+}
+
+/**
+ * Return string from start of haystack to first occurance of needle, or whole
+ * haystack, if needle does not occur
+ *
+ * @access public
+ * @param $haystack(String) Haystack to search in
+ * @param $needle(String) Needle to look for
+ */
+function strrstr($haystack, $needle)
+{
+ return substr($haystack, 0, strpos($haystack.$needle,$needle));
+}
+
+/**
+ * Return substring of haystack from end of needle onwards, or FALSE
+ *
+ * @access public
+ * @param $haystack(String) Haystack to search in
+ * @param $needle(String) Needle to look for
+ */
+function strstrafter($haystack, $needle)
+{
+ return substr(strstr($haystack, $needle), strlen($needle));
+}
+
+class MethodTable
+{
+ /**
+ * Constructor.
+ *
+ * Since this class should only be accessed through the static create() method
+ * this constructor should be made private. Unfortunately, this is not possible
+ * in PHP4.
+ *
+ * @access private
+ */
+ function MethodTable(){
+ }
+
+
+ /**
+ * Creates the methodTable for a passed class.
+ *
+ * @static
+ * @access public
+ * @param $sourcePath(String) The path to the file you want to parse
+ * @param $containsClass(Bool) True if the file is a class definition (optional)
+ */
+ function create($sourcePath, $containsClass = false){
+
+ $methodTable = array();
+ if(!file_exists($sourcePath))
+ {
+ return false;
+ }
+
+ $source = file_get_contents($sourcePath);
+ $tokens = (array)token_get_all($source);
+
+ $waitingForOpenParenthesis = false;
+ $waitingForFunction = false;
+ $waitingForClassName = false;
+ $bufferingArgs = false;
+ $argBuffer = "";
+ $lastFunction = "";
+ $lastFunctionComment = "";
+ $lastComment = "";
+ $classMethods = array();
+ $realClassName = "";
+
+ if($containsClass) {
+ $openBraces = -10000;
+ }
+ else
+ {
+ $openBraces = 1;
+ }
+
+ $waitingForEndEncapsedString = false;
+ foreach($tokens as $token)
+ {
+ if (is_string($token)) {
+ if($token == '{')
+ {
+ $openBraces++;
+ }
+ if($token == '}')
+ {
+ if($waitingForEndEncapsedString)
+ {
+ $waitingForEndEncapsedString = false;
+ }
+ else
+ {
+ $lastComment = '';
+ $openBraces--;
+
+ if($openBraces == 0)
+ {
+ break;
+ }
+ }
+ }
+ elseif($waitingForOpenParenthesis && $token == '(')
+ {
+ $bufferingArgs = true;
+ $argBuffer = "";
+ $waitingForOpenParenthesis = false;
+ }
+ elseif($bufferingArgs)
+ {
+ if($token != ')')
+ {
+ $argBuffer .= $token;
+ }
+ else
+ {
+ if($lastFunction != $realClassName)
+ {
+ $classMethods[] = array("name" => $lastFunction,
+ "comment" => $lastFunctionComment,
+ "args" => $argBuffer);
+
+ $bufferingArgs = false;
+ $argBuffer = "";
+ $lastFunction = "";
+ $lastFunctionComment = "";
+ }
+ }
+
+ }
+ } else {
+ // token array
+ list($id, $text) = $token;
+
+ if($bufferingArgs)
+ {
+ $argBuffer .= $text;
+ }
+ switch ($id)
+ {
+
+ case T_COMMENT:
+ case T_ML_COMMENT: // we've defined this
+ case T_DOC_COMMENT: // and this
+ // no action on comments
+ $lastComment = $text;
+ break;
+ case T_FUNCTION:
+ if($openBraces >= 1)
+ {
+ $waitingForFunction = true;
+ }
+ break;
+ case T_STRING:
+ if($waitingForFunction)
+ {
+ $waitingForFunction = false;
+ $waitingForOpenParenthesis = true;
+ $lastFunction = $text;
+ $lastFunctionComment = $lastComment;
+ $lastComment = "";
+ }
+ if($waitingForClassName)
+ {
+ $waitingForClassName = false;
+ $realClassName = $text;
+ }
+ break;
+ case T_CLASS:
+ $openBraces = 0;
+ $waitingForClassName = true;
+ break;
+ case T_CURLY_OPEN:
+ case T_DOLLAR_OPEN_CURLY_BRACES:
+ $waitingForEndEncapsedString = true;
+ break;
+ }
+ }
+ }
+
+ foreach ($classMethods as $key => $value) {
+ $methodSignature = $value['args'];
+ $methodName = $value['name'];
+ $methodComment = $value['comment'];
+
+ $description = MethodTable::getMethodDescription($methodComment) . " " . MethodTable::getMethodCommentAttribute($methodComment, "desc");
+ $description = trim($description);
+ $access = MethodTable::getMethodCommentAttributeFirstWord($methodComment, "access");
+ $roles = MethodTable::getMethodCommentAttributeFirstWord($methodComment, "roles");
+ $instance = MethodTable::getMethodCommentAttributeFirstWord($methodComment, "instance");
+ $returns = MethodTable::getMethodReturnValue($methodComment);
+ $pagesize = MethodTable::getMethodCommentAttributeFirstWord($methodComment, "pagesize");
+ $params = MethodTable::getMethodCommentArguments($methodComment);
+
+
+ //description, arguments, access, [roles, [instance, [returns, [pagesize]]]]
+ $methodTable[$methodName] = array();
+ //$methodTable[$methodName]["signature"] = $methodSignature; //debug purposes
+ $methodTable[$methodName]["description"] = ($description == "") ? "No description given." : $description;
+ $methodTable[$methodName]["arguments"] = MethodTable::getMethodArguments($methodSignature, $params);
+ $methodTable[$methodName]["access"] = ($access == "") ? "private" : $access;
+
+ if($roles != "") $methodTable[$methodName]["roles"] = $roles;
+ if($instance != "") $methodTable[$methodName]["instance"] = $instance;
+ if($returns != "") $methodTable[$methodName]["returns"] = $returns;
+ if($pagesize != "") $methodTable[$methodName]["pagesize"] = $pagesize;
+ }
+
+ return $methodTable;
+
+ }
+
+ /**
+ *
+ */
+ function getMethodCommentServices($comment)
+ {
+ $pieces = explode('@service', $comment);
+ $args = array();
+ if(is_array($pieces) && count($pieces) > 1)
+ {
+ for($i = 0; $i < count($pieces) - 1; $i++)
+ {
+ $ps = strrstr($pieces[$i + 1], '@');
+ $ps = strrstr($ps, '*/');
+ $args[] = MethodTable::cleanComment($ps);
+ }
+ }
+ return $args;
+ }
+
+
+ /**
+ *
+ */
+ function getMethodCommentArguments($comment)
+ {
+ $pieces = explode('@param', $comment);
+ $args = array();
+ if(is_array($pieces) && count($pieces) > 1)
+ {
+ for($i = 0; $i < count($pieces) - 1; $i++)
+ {
+ $ps = strrstr($pieces[$i + 1], '@');
+ $ps = strrstr($ps, '*/');
+ $args[] = MethodTable::cleanComment($ps);
+ }
+ }
+ return $args;
+ }
+
+
+ /**
+ * Returns the description from the comment.
+ * The description is(are) the first line(s) in the comment.
+ *
+ * @static
+ * @private
+ * @param $comment(String) The method's comment.
+ */
+ function getMethodDescription($comment){
+ $comment = MethodTable::cleanComment(strrstr($comment, "@"));
+ return trim($comment);
+ }
+
+
+ /**
+ * Returns the value of a comment attribute.
+ *
+ * @static
+ * @private
+ * @param $comment(String) The method's comment.
+ * @param $attribute(String) The name of the attribute to get its value from.
+ */
+ function getMethodCommentAttribute($comment, $attribute){
+ $pieces = strstrafter($comment, '@' . $attribute);
+ if($pieces !== FALSE)
+ {
+ $pieces = strrstr($pieces, '@');
+ $pieces = strrstr($pieces, '*/');
+ return MethodTable::cleanComment($pieces);
+ }
+ return "";
+ }
+
+ /**
+ * Returns the value of a comment attribute.
+ *
+ * @static
+ * @private
+ * @param $comment(String) The method's comment.
+ * @param $attribute(String) The name of the attribute to get its value from.
+ */
+ function getMethodCommentAttributeFirstLine($comment, $attribute){
+ $pieces = strstrafter($comment, '@' . $attribute);
+ if($pieces !== FALSE)
+ {
+ $pieces = strrstr($pieces, '@');
+ $pieces = strrstr($pieces, "*");
+ $pieces = strrstr($pieces, "/");
+ $pieces = strrstr($pieces, "-");
+ $pieces = strrstr($pieces, "\n");
+ $pieces = strrstr($pieces, "\r");
+ $pieces = strrstr($pieces, '*/');
+ return MethodTable::cleanComment($pieces);
+ }
+ return "";
+ }
+
+ /**
+ * Returns the value of a comment attribute.
+ *
+ * @static
+ * @private
+ * @param $comment(String) The method's comment.
+ * @param $attribute(String) The name of the attribute to get its value from.
+ */
+ function getMethodReturnValue($comment){
+ $result = array('type' => 'void', 'description' => '');
+ $pieces = strstrafter($comment, '@returns');
+ if(FALSE == $pieces) $pieces = strstrafter($comment, '@return');
+ if($pieces !== FALSE)
+ {
+ $pieces = strrstr($pieces, '@');
+ $pieces = strrstr($pieces, "*");
+ $pieces = strrstr($pieces, "/");
+ $pieces = strrstr($pieces, "-");
+ $pieces = strrstr($pieces, "\n");
+ $pieces = strrstr($pieces, "\r");
+ $pieces = strrstr($pieces, '*/');
+ $pieces = trim(MethodTable::cleanComment($pieces));
+ @list($result['type'], $result['description']) = explode(' ', $pieces, 2);
+ $result['type'] = MethodTable::standardizeType($result['type']);
+ }
+ return $result;
+ }
+
+ function getMethodCommentAttributeFirstWord($comment, $attribute){
+ $pieces = strstrafter($comment, '@' . $attribute);
+ if($pieces !== FALSE)
+ {
+ $val = MethodTable::cleanComment($pieces);
+ return trim(strrstr($val, ' '));
+ }
+ return "";
+ }
+
+ /**
+ * Returns an array with the arguments of a method.
+ *
+ * @static
+ * @access private
+ * @param $methodSignature(String) The method's signature;
+ */
+ function getMethodArguments($methodSignature, $commentParams){
+ if(strlen($methodSignature) == 0){
+ //no arguments, return an empty array
+ $result = array();
+ }else{
+ //clean the arguments before returning them
+ $result = MethodTable::cleanArguments(explode(",", $methodSignature), $commentParams);
+ }
+
+ return $result;
+ }
+
+ /**
+ * Cleans the function or method's return value.
+ *
+ * @static
+ * @access private
+ * @param $value(String) The "dirty" value.
+ */
+ function cleanReturnValue($value){
+ $result = array();
+ $value = trim($value);
+
+ list($result['type'], $result['description']) = explode(' ', $value, 2);
+
+ $result['type'] = MethodTable::standardizeType($result['type']);
+
+ return $result;
+ }
+
+
+ /**
+ * Takes a string and returns the XMLRPC type that most closely matches it.
+ *
+ * @static
+ * @access private
+ * @param $type(String) The given type string.
+ */
+ function standardizeType($type) {
+ $type = strtolower($type);
+ if('str' == $type || 'string' == $type) return 'string';
+ if('int' == $type || 'integer' == $type) return 'int';
+ if('bool' == $type || 'boolean' == $type) return 'boolean';
+
+ // Note that object is not a valid XMLRPC type
+ if('object' == $type || 'class' == $type) return 'object';
+ if('float' == $type || 'dbl' == $type || 'double' == $type || 'flt' == $type) return 'double';
+
+ // Note that null is not a valid XMLRPC type. The null type can have
+ // only one value - null.
+ if('null' == $type) return 'null';
+
+ // Note that mixed is not a valid XMLRPC type
+ if('mixed' == $type) return 'mixed';
+ if('array' == $type || 'arr' == $type) return 'array';
+ if('assoc' == $type || 'struct' == $type) return 'struct';
+
+ // Note that this is not a valid XMLRPC type. As references cannot be
+ // serialized or exported, there is no way this could be XML-RPCed.
+ if('reference' == $type || 'ref' == $type) return 'reference';
+ return 'string';
+ }
+
+ /**
+ * Cleans the arguments array.
+ * This method removes all whitespaces and the leading "$" sign from each argument
+ * in the array.
+ *
+ * @static
+ * @access private
+ * @param $args(Array) The "dirty" array with arguments.
+ */
+ function cleanArguments($args, $commentParams){
+ $result = array();
+
+ if(!is_array($args)) return array();
+
+ foreach($args as $index => $arg){
+ $arg = strrstr(str_replace(array('$','&$'), array('','&'), $arg), '=');
+ if(!isset($commentParams[$index]))
+ {
+ $result[] = trim($arg);
+ }
+ else
+ {
+ $start = trim($arg);
+ $end = trim(str_replace('$', '', $commentParams[$index]));
+
+ // Suppress Notice of 'Undefined offset' with @
+ @list($word0, $word1, $tail) = preg_split("/[\s]+/", $end, 3);
+ $word0 = strtolower($word0);
+ $word1 = strtolower($word1);
+
+ $wordBase0 = ereg_replace('^[&$]+','',$word0);
+ $wordBase1 = ereg_replace('^[&$]+','',$word1);
+ $startBase = strtolower(ereg_replace('^[&$]+','',$start));
+
+ if ($wordBase0 == $startBase) {
+ $type = str_replace(array('(',')'),'', $word1);
+ } elseif($wordBase1 == $startBase) {
+ $type = str_replace(array('(',')'),'', $word0);
+ } elseif( ereg('(^[&$]+)|(\()([a-z0-9]+)(\)$)', $word0, $regs) ) {
+ $tail = str_ireplace($word0, '', $end);
+ $type = $regs[3];
+ } else {
+ // default to string
+ $type = 'string';
+ }
+
+ $type = MethodTable::standardizeType($type);
+/*
+ if($type == 'str') {
+ $type = 'string';
+ } elseif($type == 'int' || $type == 'integer') {
+ $type = 'int';
+ } elseif($type == 'bool' || $type == 'boolean') {
+ $type = 'boolean';
+ } elseif($type == 'object' || $type == 'class') {
+ // Note that this is not a valid XMLRPC type
+ $type = 'object';
+ } elseif($type == 'float' || $type == 'dbl' || $type == 'double' || $type == 'flt') {
+ $type = 'double';
+ } elseif($type == 'null') {
+ // Note that this is not a valid XMLRPC type
+ // The null type can have only one value - null. Why would
+ // that be an argument to a function? Just in case:
+ $type = 'null';
+ } elseif($type == 'mixed') {
+ // Note that this is not a valid XMLRPC type
+ $type = 'mixed';
+ } elseif($type == 'array' || $type == 'arr') {
+ $type = 'array';
+ } elseif($type == 'assoc') {
+ $type = 'struct';
+ } elseif($type == 'reference' || $type == 'ref') {
+ // Note that this is not a valid XMLRPC type
+ // As references cannot be serialized or exported, there is
+ // no way this could be XML-RPCed.
+ $type = 'reference';
+ } else {
+ $type = 'string';
+ }
+*/
+ $result[] = array('type' => $type, 'description' => $start . ' - ' . $tail);
+ }
+ }
+
+ return $result;
+ }
+
+
+ /**
+ * Cleans the comment string by removing all comment start and end characters.
+ *
+ * @static
+ * @private
+ * @param $comment(String) The method's comment.
+ */
+ function cleanComment($comment){
+ $comment = str_replace("/**", "", $comment);
+ $comment = str_replace("*/", "", $comment);
+ $comment = str_replace("*", "", $comment);
+ $comment = str_replace("\n", "\\n", trim($comment));
+ $comment = eregi_replace("[\r\t\n ]+", " ", trim($comment));
+ $comment = str_replace("\"", "\\\"", $comment);
+ return $comment;
+ }
+
+ /**
+ *
+ */
+ function showCode($methodTable){
+
+ if(!is_array($methodTable)) $methodTable = array();
+
+ foreach($methodTable as $methodName=>$methodProps){
+ $result .= "\n\t\"" . $methodName . "\" => array(";
+
+ foreach($methodProps as $key=>$value){
+ $result .= "\n\t\t\"" . $key . "\" => ";
+
+ if($key=="arguments"){
+ $result .= "array(";
+ for($i=0; $i<count($value); $i++){
+ $result .= "\"" . addslashes($value[$i]) . "\"";
+ if($i<count($value)-1){
+ $result .= ", ";
+ }
+ }
+ $result .= ")";
+ }else{
+ $result .= "\"" . $value . "\"";
+ }
+
+ $result .= ",";
+ }
+
+ $result = substr($result, 0, -1);
+ $result .= "\n\t),";
+ }
+
+ $result = substr($result, 0, -1);
+ $result = "\$this->methodTable = array(" . $result;
+ $result .= "\n);";
+
+ return $result;
+ }
+}
+?>
View
208 admin/mnet/access_control.php
@@ -0,0 +1,208 @@
+<?php
+
+// Allows the admin to control user logins from remote moodles.
+
+require_once dirname(dirname(dirname(__FILE__))) . '/config.php';
+require_once($CFG->libdir.'/adminlib.php');
+include_once($CFG->dirroot.'/mnet/lib.php');
+
+$sort = optional_param('sort', 'username', PARAM_ALPHA);
+$dir = optional_param('dir', 'ASC', PARAM_ALPHA);
+$page = optional_param('page', 0, PARAM_INT);
+$perpage = optional_param('perpage', 30, PARAM_INT);
+$action = trim(strtolower(optional_param('action', '', PARAM_ALPHA)));
+
+require_login();
+$adminroot = admin_get_root();
+admin_externalpage_setup('ssoaccesscontrol', $adminroot);
+admin_externalpage_print_header($adminroot);
+
+$sitecontext = get_context_instance(CONTEXT_SYSTEM, SITEID);
+$sesskey = sesskey();
+$formerror = array();
+
+// grab the mnet hosts and remove the localhost
+$mnethosts = get_records_menu('mnet_host', '', '', 'name', 'id, name');
+if (array_key_exists($CFG->mnet_localhost_id, $mnethosts)) {
+ unset($mnethosts[$CFG->mnet_localhost_id]);
+}
+
+
+
+// process actions
+if (!empty($action) and confirm_sesskey()) {
+
+ // boot if insufficient permission
+ if (!has_capability('moodle/user:delete', $sitecontext)) {
+ error('You are not permitted to modify the MNET access control list.');
+ }
+
+ // fetch the record in question
+ $id = required_param('id', PARAM_INT);
+ if (!$idrec = get_record('mnet_sso_access_control', 'id', $id)) {
+ error('Record does not exist.', '/admin/mnet/access_control.php');
+ }
+
+ switch ($action) {
+
+ case "delete":
+ delete_records('mnet_sso_access_control', 'id', $id);
+ notify("SSO ACL: delete record for user '{$idrec->username}' from {$mnethosts[$idrec->mnet_host_id]}.");
+ break;
+
+ case "acl":
+
+ // require the access parameter, and it must be 'allow' or 'deny'
+ $access = trim(strtolower(required_param('access', PARAM_ALPHA)));
+ if ($access != 'allow' and $access != 'deny') {
+ error('Invalid access parameter.', '/admin/mnet/access_control.php');
+ }
+
+ if (mnet_update_sso_access_control($idrec->username, $idrec->mnet_host_id, $access)) {
+ notify("SSO ACL: $access user '{$idrec->username}' from {$mnethosts[$idrec->mnet_host_id]}");
+ }
+ break;
+
+ default:
+ error('Invalid action parameter.', '/admin/mnet/access_control.php');
+ }
+ redirect('access_control.php', get_string('changessaved'));
+}
+
+
+
+// process the form results
+if ($form = data_submitted() and confirm_sesskey()) {
+
+ // check permissions and verify form input
+ if (!has_capability('moodle/user:delete', $sitecontext)) {
+ error('You are not permitted to modify the MNET access control list.', '/admin/mnet/access_control.php');
+ }
+ if (empty($form->username)) {
+ $formerror['username'] = 'Please enter a username, or a list of usernames separated by commas.';
+ }
+ if (empty($form->mnet_host_id)) {
+ $formerror['mnet_host_id'] = 'Please select a remote Moodle host.';
+ }
+ if (empty($form->access)) {
+ $formerror['access'] = 'Please select an access level from the list.';
+ }
+
+ // process if there are no errors
+ if (count($formerror) == 0) {
+
+ // username can be a comma separated list
+ $usernames = explode(',', $form->username);
+
+ foreach ($usernames as $username) {
+ $username = trim(moodle_strtolower($username));
+ if (!empty($username)) {
+ if (mnet_update_sso_access_control($username, $form->mnet_host_id, $form->access)) {
+ notify("SSO ACL: $form->access user '$username' from {$mnethosts[$form->mnet_host_id]}");
+ }
+ }
+ }
+ redirect('access_control.php', get_string('changessaved'));
+ }
+}
+
+
+
+// output the ACL table
+$columns = array("username", "mnet_host_id", "access", "delete");
+$headings = array();
+$string = array('username' => get_string('username'),
+ 'mnet_host_id' => get_string('remotehost', 'mnet'),
+ 'access' => get_string('accesslevel', 'mnet'),
+ 'delete' => get_string('delete'));
+foreach ($columns as $column) {
+ if ($sort != $column) {
+ $columnicon = "";
+ $columndir = "ASC";
+ } else {
+ $columndir = $dir == "ASC" ? "DESC" : "ASC";
+ $columnicon = $dir == "ASC" ? "down" : "up";
+ $columnicon = " <img src=\"$CFG->pixpath/t/$columnicon.gif\" alt=\"\" />";
+ }
+ $headings[$column] = "<a href=\"?sort=$column&amp;dir=$columndir&amp;\">".$string[$column]."</a>$columnicon";
+}
+$headings['delete'] = '';
+$acl = get_records('mnet_sso_access_control', '', '', "$sort $dir", '*'); //, $page * $perpage, $perpage);
+$aclcount = count_records('mnet_sso_access_control');
+
+if (!$acl) {
+ print_heading('No entries in the SSO access control list');
+ $table = NULL;
+} else {
+ $table->head = $headings;
+ $table->align = array('left', 'left', 'center');
+ $table->width = "95%";
+ foreach ($acl as $aclrecord) {
+ if ($aclrecord->access == 'allow') {
+ $accesscolumn = get_string('allow', 'mnet')
+ . " (<a href=\"?id={$aclrecord->id}&amp;action=acl&amp;access=deny&amp;sesskey={$USER->sesskey}\">"
+ . get_string('deny', 'mnet') . "</a>)";
+ } else {
+ $accesscolumn = get_string('deny', 'mnet')
+ . " (<a href=\"?id={$aclrecord->id}&amp;action=acl&amp;access=allow&amp;sesskey={$USER->sesskey}\">"
+ . get_string('allow', 'mnet') . "</a>)";
+ }
+ $deletecolumn = "<a href=\"?id={$aclrecord->id}&amp;action=delete&amp;sesskey={$USER->sesskey}\">"
+ . get_string('delete') . "</a>";
+ $table->data[] = array ($aclrecord->username, $aclrecord->mnet_host_id, $accesscolumn, $deletecolumn);
+ }
+}
+
+if (!empty($table)) {
+ print_table($table);
+ echo '<p>&nbsp;</p>';
+ print_paging_bar($aclcount, $page, $perpage, "?sort=$sort&amp;dir=$dir&amp;perpage=$perpage&amp;");
+}
+
+
+
+// output the add form
+print_simple_box_start('center','90%','','20');
+
+?>
+ <div class="mnetaddtoaclform">
+ <form name="mnetaddtoacl" method="post">
+ <input type="hidden" name="sesskey" value="<?php echo $sesskey; ?>">
+<?php
+
+// enter a username
+echo get_string('username') . ":\n";
+if (!empty($formerror['username'])) {
+ echo '<span class="error"> * </span>';
+}
+echo '<input type="text" name="username" size="20" maxlength="100">';
+
+// choose a remote host
+echo " " . get_string('remotehost', 'mnet') . ":\n";
+if (!empty($formerror['mnet_host_id'])) {
+ echo '<span class="error"> * </span>';
+}
+choose_from_menu($mnethosts, 'mnet_host_id');
+
+// choose an access level
+echo " " . get_string('accesslevel', 'mnet') . ":\n";
+if (!empty($formerror['access'])) {
+ echo '<span class="error"> * </span>';
+}
+$accessmenu['allow'] = get_string('allow', 'mnet');
+$accessmenu['deny'] = get_string('deny', 'mnet');
+choose_from_menu($accessmenu, 'access');
+
+// submit button
+echo '<input type="submit" value="' . get_string('addtoacl', 'mnet') . '">';
+echo "</form></div>\n";
+
+// print errors
+foreach ($formerror as $error) {
+ echo "<br><span class=\"error\">$error<span>";
+}
+
+print_simple_box_end();
+admin_externalpage_print_footer($adminroot);
+
+?>
View
177 admin/mnet/adminlib.php
@@ -0,0 +1,177 @@
+<?php
+/**
+ * Library functions for mnet
+ *
+ * @author Donal McMullan donal@catalyst.net.nz
+ * @version 0.0.1
+ * @license http://www.gnu.org/copyleft/gpl.html GNU Public License
+ * @package mnet
+ */
+
+include_once $CFG->dirroot.'/admin/mnet/MethodTable.php';
+error_reporting(E_ALL);
+/**
+ * Parse a file to find out what functions/methods exist in it, and add entries
+ * for the remote-call-enabled functions to the database.
+ *
+ * The path to a file, e.g. auth/mnet/auth.php can be thought of as
+ * type/parentname/docname
+ *
+ * @param string $type mod, auth or enrol
+ * @param string $parentname Implementation of type, e.g. 'mnet' in the
+ * case of auth/mnet/auth.php
+ * @return bool True on success, else false
+ */
+function mnet_get_functions($type, $parentname) {
+ global $CFG;
+ $dataobject = new stdClass();
+ $docname = $type.'.php';
+ $publishes = array();
+ if ('mod' == $type) {
+ $docname = 'rpclib.php';
+ $relname = '/mod/'.$parentname.'/'.$docname;
+ $filename = $CFG->dirroot.$relname;
+ if (file_exists($filename)) include $filename;
+ $mnet_publishes = $parentname.'_mnet_publishes';
+ if (function_exists($mnet_publishes)) {
+ (array)$publishes = $mnet_publishes();
+ }
+ } else {
+ // auth or enrol
+ $relname = '/'.$type.'/'.$parentname.'/'.$docname;
+ $filename = $CFG->dirroot.$relname;
+ if (file_exists($filename)) include $filename;
+ $class = $type.($type=='enrol'? 'ment':'').'_plugin_'.$parentname;
+ if (class_exists($class)) {
+ $object = new $class();
+ if (method_exists($object, 'mnet_publishes')) {
+ (array)$publishes = $object->mnet_publishes();
+ }
+ }
+ }
+
+ $methodServiceArray = array();
+ foreach($publishes as $service) {
+ if (is_array($service['methods'])) {
+ foreach($service['methods'] as $methodname) {
+ $methodServiceArray[$methodname][] = $service;
+ }
+ }
+ }
+
+ // Disable functions that don't exist (any more) in the source
+ // Should these be deleted? What about their permissions records?
+ $rpcrecords = get_records_select('mnet_rpc', ' parent=\''.$parentname.'\' AND parent_type=\''.$type.'\' ', 'function_name ASC ');
+ if (!empty($rpcrecords)) {
+ foreach($rpcrecords as $rpc) {
+ if (!array_key_exists($rpc->function_name, $methodServiceArray)) {
+ $rpc->enabled = 0;
+ update_record('mnet_rpc', $rpc);
+ }
+ }
+ }
+
+ if (!file_exists($filename)) return false;
+
+ $functions = (array)MethodTable::create($filename,false);
+
+ foreach($functions as $functionname => $details) {
+ if (array_key_exists($functionname, $methodServiceArray)) {
+ $dataobject->function_name = $functionname;
+ $dataobject->xmlrpc_path = $type.'/'.$parentname.'/'.$docname.'/'.$functionname;
+ $dataobject->parent_type = $type;
+ $dataobject->parent = $parentname;
+ $dataobject->enabled = '0';
+ $dataobject->help = addslashes($details['description']);
+
+ $profile = $details['arguments'];
+ if (!isset($details['returns'])) {
+ array_unshift($profile, array('type' => 'void', 'description' => 'No return value'));
+ } else {
+ array_unshift($profile, $details['returns']);
+ }
+ $dataobject->profile = serialize($profile);
+
+ if ($record_exists = get_record('mnet_rpc', 'xmlrpc_path', $dataobject->xmlrpc_path)) {
+ $dataobject->id = $record_exists->id;
+ $dataobject->enabled = $record_exists->enabled;
+ update_record('mnet_rpc', $dataobject);
+ } else {
+ $dataobject->id = insert_record('mnet_rpc', $dataobject, true);
+ }
+
+ foreach($methodServiceArray[$functionname] as $service) {
+ $serviceobj = get_record('mnet_service', 'name', $service['name']);
+ if (false == $serviceobj) {
+ $serviceobj = new stdClass();
+ $serviceobj->name = $service['name'];
+ $serviceobj->apiversion = $service['apiversion'];
+ $serviceobj->offer = 1;
+ $serviceobj->id = insert_record('mnet_service', $serviceobj, true);
+ }
+
+ if (false == get_record('mnet_service2rpc', 'rpcid', $dataobject->id, 'serviceid', $serviceobj->id)) {
+ $obj = new stdClass();
+ $obj->rpcid = $dataobject->id;
+ $obj->serviceid = $serviceobj->id;
+ insert_record('mnet_service2rpc', $obj, true);
+ }
+ }
+ }
+ }
+ return true;
+}
+
+function upgrade_RPC_functions($returnurl) {
+ global $CFG;
+
+ $basedir = $CFG->dirroot.'/mod';
+ if (file_exists($basedir) && filetype($basedir) == 'dir') {
+ $dirhandle = opendir($basedir);
+ while (false !== ($dir = readdir($dirhandle))) {
+ $firstchar = substr($dir, 0, 1);
+ if ($firstchar == '.' or $dir == 'CVS' or $dir == '_vti_cnf') {
+ continue;
+ }
+ if (filetype($basedir .'/'. $dir) != 'dir') {
+ continue;
+ }
+
+ mnet_get_functions('mod', $dir);
+
+ }
+ }
+
+ $basedir = $CFG->dirroot.'/auth';
+ if (file_exists($basedir) && filetype($basedir) == 'dir') {
+ $dirhandle = opendir($basedir);
+ while (false !== ($dir = readdir($dirhandle))) {
+ $firstchar = substr($dir, 0, 1);
+ if ($firstchar == '.' or $dir == 'CVS' or $dir == '_vti_cnf') {
+ continue;
+ }
+ if (filetype($basedir .'/'. $dir) != 'dir') {
+ continue;
+ }
+
+ mnet_get_functions('auth', $dir);
+ }
+ }
+
+ $basedir = $CFG->dirroot.'/enrol';
+ if (file_exists($basedir) && filetype($basedir) == 'dir') {
+ $dirhandle = opendir($basedir);
+ while (false !== ($dir = readdir($dirhandle))) {
+ $firstchar = substr($dir, 0, 1);
+ if ($firstchar == '.' or $dir == 'CVS' or $dir == '_vti_cnf') {
+ continue;
+ }
+ if (filetype($basedir .'/'. $dir) != 'dir') {
+ continue;
+ }
+
+ mnet_get_functions('enrol', $dir);
+ }
+ }
+}
+?>
View
52 admin/mnet/delete.html
@@ -0,0 +1,52 @@
+<?php
+print_header("$site->shortname: $strmnetsettings", "$site->fullname",
+ '<a href="'.$CFG->wwwroot.'/admin/index.php">'.$stradministration.'</a> -> '.
+ '<a href="'.$CFG->wwwroot.'/admin/mnet/index.php">'.get_string('mnetsettings', 'mnet').'</a> -> Delete host');
+
+print_heading(get_string('mnetsettings', 'mnet'));
+?>
+<center>
+ <table align="center" class="generalbox" border="0" cellpadding="5" cellspacing="0">
+ <tr>
+ <td class="generalboxcontent">
+ <table cellpadding="9" cellspacing="0" >
+ <tr valign="top">
+ <td colspan="2" class="header" cellpadding="0"><span>Deleting a Server</span></td>
+ </tr>
+ <?php
+ if (count($warn) > 0):
+ ?>
+ <tr valign="top">
+ <td align="right" colspan="2">The following warnings were received:<br />
+ <?php foreach($warn as $warning) echo $warning .'<br />'; ?>
+ </td>
+ </tr>
+ <?php
+ endif;
+ ?>
+ <tr valign="top">
+ <td colspan="2">Are you sure you want to delete the server: "<?php echo $mnet_peer->name; ?>"?</td>
+ </tr>
+ <tr valign="top">
+ <td width="80">
+ <form method="POST" action="delete.php">
+ <input type="hidden" name="sesskey" value="<?php echo $USER->sesskey ?>" />
+ <input type="hidden" name="hostid" value="<?php echo $mnet_peer->id; ?>" />
+ <input type="hidden" name="step" value="delete" />
+ <input type="submit" name="submit" value="<?php print_string('delete'); ?>"/>
+ </form>
+ </td>
+ <td>
+ <form method="GET" action="index.php">
+ <input type="submit" name="ignore" value="<?php print_string('cancel'); ?>"/>
+ </form>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+</center>
+<?php
+print_footer();
+?>
View
52 admin/mnet/delete.php
@@ -0,0 +1,52 @@
+<?PHP // $Id$
+
+ require_once(dirname(dirname(dirname(__FILE__))) . '/config.php');
+ include_once($CFG->dirroot.'/mnet/lib.php');
+ $stradministration = get_string('administration');
+ $strconfiguration = get_string('configuration');
+ $strmnetsettings = get_string('mnetsettings', 'mnet');
+ $strmnetservices = get_string('mnetservices', 'mnet');
+ $strmnetlog = get_string('mnetlog', 'mnet');
+ $strmnetedithost = get_string('reviewhostdetails', 'mnet');
+ require_login();
+
+ if (!isadmin()) {
+ error('Only administrators can use this page!');
+ }
+
+ $context = get_context_instance(CONTEXT_SYSTEM, SITEID);
+
+ require_capability('moodle/site:config', $context, $USER->id, true, "nopermissions");
+
+ if (!$site = get_site()) {
+ error('Site isn\'t defined!');
+ }
+
+/// Initialize variables.
+
+ // Step must be one of:
+ // input Parse the details of a new host and fetch its public key
+ // commit Save our changes (to a new OR existing host)
+ $step = optional_param('step', 'verify', PARAM_ALPHA);
+ $hostid = required_param('hostid', PARAM_INT);
+ $warn = array();
+
+ if ($_SERVER['REQUEST_METHOD'] != 'POST') {
+ redirect('index.php', "The delete function requires a POST request.",7);
+ }
+
+ if ('verify' == $step) {
+ $mnet_peer = new mnet_peer();
+ $mnet_peer->set_id($hostid);
+ $live_users = $mnet_peer->count_live_sessions();
+ if ($live_users > 0) {
+ $warn[] = get_string('usersareonline', 'mnet', $live_users);
+ }
+ include('delete.html');
+ } elseif ('delete' == $step) {
+ $mnet_peer = new mnet_peer();
+ $mnet_peer->set_id($hostid);
+ $mnet_peer->delete();
+ redirect('peers.php', 'Ok - host deleted', 5);
+ }
+?>
View
33 admin/mnet/index.html
@@ -0,0 +1,33 @@
+<?php
+admin_externalpage_print_header($adminroot);
+?>
+<center>
+<form method="post" action="index.php">
+ <table align="center" class="generalbox" border="0" cellpadding="5" cellspacing="0">
+ <tr>
+ <td class="generalboxcontent">
+ <table cellpadding="9" cellspacing="0" >
+ <tr valign="top">
+ <td colspan="2" class="header" cellpadding="0"><span><?php print_string('aboutyourhost', 'mnet'); ?></span></td>
+ </tr>
+ <tr valign="top">
+ <td align="right">Public Key:</td>
+ <td><pre><?php echo $keypair['certificate']; ?></pre></td>
+ </tr>
+ <tr valign="top">
+ <td align="right">Networking:</td>
+ <td><input type="hidden" name="sesskey" value="<?php echo $USER->sesskey ?>" />
+ <input type="radio" name="mode" value="off" <?php echo ("off" == $CFG->mnet_dispatcher_mode)? 'checked="true"' : '' ?> /> <?php print_string('off', 'mnet'); ?> <br />
+ <input type="radio" name="mode" value="strict" <?php echo ("strict" == $CFG->mnet_dispatcher_mode)? 'checked="true"' : '' ?> /> <?php print_string('on', 'mnet'); ?><br />
+ <input type="submit" name="submit" value="submitNet" />
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+</form>
+</center>
+<?php
+admin_externalpage_print_footer($adminroot);
+?>
View
41 admin/mnet/index.php
@@ -0,0 +1,41 @@
+<?PHP // $Id$
+
+ // Allows the admin to configure mnet stuff
+
+ require_once(dirname(dirname(dirname(__FILE__))) . '/config.php');
+ require_once($CFG->libdir.'/adminlib.php');
+ include_once($CFG->dirroot.'/mnet/lib.php');
+
+ require_login();
+ $adminroot = admin_get_root();
+ admin_externalpage_setup('net', $adminroot);
+
+ $context = get_context_instance(CONTEXT_SYSTEM, SITEID);
+
+ require_capability('moodle/site:config', $context, $USER->id, true, "nopermissions");
+
+ if (!$site = get_site()) {
+ error('Site isn\'t defined!');
+ }
+
+ if (!function_exists('curl_init') ) {
+ error('PHP Curl library is not installed');
+ }
+
+ $keypair = unserialize($CFG->openssl);
+
+ if (!isset($CFG->mnet_dispatcher_mode)) set_config('mnet_dispatcher_mode', 'off');
+
+/// If data submitted, process and store
+ if (($form = data_submitted()) && confirm_sesskey()) {
+ if (in_array($form->mode, array("off", "strict", "promiscuous"))) {
+ if (set_config('mnet_dispatcher_mode', $form->mode)) {
+ redirect('index.php', get_string('changessaved'));
+ } else {
+ error('Invalid action parameter.', 'index.php');
+ }
+ }
+ }
+ $hosts = get_records_select('mnet_host', " id != '{$CFG->mnet_localhost_id}' AND deleted = '0' ",'wwwroot ASC' );
+ include('./index.html');
+?>
View
63 admin/mnet/mnet_log.php
@@ -0,0 +1,63 @@
+<?php
+
+
+ require_once(dirname(dirname(dirname(__FILE__))) . '/config.php');
+ include_once($CFG->dirroot.'/mnet/lib.php');
+
+ require_login();
+
+ if (!isadmin()) {
+ error('Only administrators can use this page!');
+ }
+
+ if (!$site = get_site()) {
+ error('Site isn\'t defined!');
+ }
+ $hostid = optional_param('hostid', NULL, PARAM_INT);
+ $stradministration = get_string('administration');
+ $strconfiguration = get_string('configuration');
+ $strmnetsettings = get_string('mnetsettings', 'mnet');
+ $strmnetservices = get_string('mnetservices', 'mnet');
+ $strmnetlog = get_string('mnetlog', 'mnet');
+ $strmnetedithost = get_string('reviewhostdetails', 'mnet');
+ $strmneteditservices = get_string('reviewhostservices', 'mnet');
+
+print_header("$site->shortname: $strmnetsettings", "$site->fullname",
+ '<a href="'.$CFG->wwwroot.'/admin/index.php">'.$stradministration.'</a> -> '.
+ '<a href="'.$CFG->wwwroot.'/admin/mnet/index.php">'.get_string('mnetsettings', 'mnet').'</a> -> '.get_string('hostsettings', 'mnet'));
+
+print_heading(get_string('mnetsettings', 'mnet'));
+$tabs[] = new tabobject('mnetdetails', 'index.php?step=update&hostid='.$hostid, $strmnetedithost, $strmnetedithost, false);
+$tabs[] = new tabobject('mnetservices', 'mnet_services.php?step=list&hostid='.$hostid, $strmnetservices, $strmnetservices, false);
+$tabs[] = new tabobject('mnetlog', 'mnet_log.php?step=list&hostid='.$hostid, $strmnetlog, $strmnetlog, false);
+print_tabs(array($tabs), 'mnetlog');
+print_simple_box_start("center", "");
+
+?>
+
+<table cellpadding="9" cellspacing="0" >
+<tr>
+ <td align="left" valign="top" colspan="2">
+ Activity Logs
+ </td>
+</tr>
+
+<tr>
+ <td align="left" valign="top" colspan="2">
+ <div id="formElements"><input type="hidden" name="outer" value="4" /></div>
+ </td>
+</tr>
+
+<?php
+
+echo ' </table>';
+print_simple_box_end();
+print_simple_box_end();
+
+?>
+</form>
+
+<?php
+
+print_footer();
+?>
View
127 admin/mnet/mnet_review.html
@@ -0,0 +1,127 @@
+<?php
+$logurl = $CFG->wwwroot.
+ '/course/report/log/index.php?chooselog=1&showusers=1&showcourses=1&host_course='.$mnet_peer->id.
+ '%2F1&user='.'0'.
+ '&date=0'.
+ '&modid=&modaction=0&logformat=showashtml';
+
+admin_externalpage_print_header($adminroot);
+
+if (isset($mnet_peer->id) && $mnet_peer->id > 0) {
+ $tabs[] = new tabobject('mnetdetails', 'peers.php?step=update&hostid='.$mnet_peer->id, $strmnetedithost, $strmnetedithost, false);
+ $tabs[] = new tabobject('mnetservices', 'mnet_services.php?step=list&hostid='.$mnet_peer->id, $strmnetservices, $strmnetservices, false);
+ $tabs[] = new tabobject('mnetlog', $logurl, $strmnetlog, $strmnetlog, false);
+} else {
+ $tabs[] = new tabobject('mnetdetails', '#', $strmnetedithost, $strmnetedithost, false);
+}
+print_tabs(array($tabs), 'mnetdetails');
+
+print_simple_box_start("center", "");
+?>
+<form method="post" action="peers.php">
+<input type="hidden" name="sesskey" value="<?php echo $USER->sesskey ?>" />
+<input type="hidden" name="step" value="commit" />
+<input type="hidden" name="last_connect_time" value="<?php echo $mnet_peer->last_connect_time; ?>" />
+<input type="hidden" name="id" value="<?php echo isset($mnet_peer->id)? $mnet_peer->id : '0' ; ?>" />
+<table cellpadding="9" cellspacing="0" >
+
+<tr>
+ <td align="right" valign="top" nowrap><?php print_string('site'); ?>:</td>
+ <td valign="top"><input type="text" name="name" size="30" value="<?php echo $mnet_peer->name; ?>" /></td>
+</tr>
+<tr>
+ <td align="right" valign="top" nowrap><?php print_string('hostname', 'mnet'); ?>:</td>
+ <td valign="top"><input type="text" name="wwwroot" size="30" value="<?php echo $mnet_peer->wwwroot; ?>" /></td>
+</tr>
+<?php
+if (empty($mnet_peer->public_key)) $mnet_peer->public_key = '';
+?>
+<tr>
+ <td align="right" valign="top" nowrap><?php
+ print_string('publickey', 'mnet');
+ echo ': <br />';
+ helpbutton("publickey", get_string('publickey', 'mnet'), "mnet", true, true);
+ ?></td>
+<?php
+if (isset($mnet_peer->deleted) && $mnet_peer->deleted > 0) {
+ $key = mnet_get_public_key($mnet_peer->wwwroot);
+ $mnet_peer->public_key = clean_param($key, PARAM_PEM);
+?>
+ <td valign="top">
+ <?php
+ if (empty($mnet_peer->public_key)) {
+ notice(get_string('invalidpubkey', 'mnet'));
+ }
+ ?>
+ <textarea rows="17" cols="65" name="public_key" style="font-size: 8px;"><?php echo $mnet_peer->public_key; ?></textarea></td>
+</tr>
+<?php
+} else {
+?>
+ <td valign="top">
+ <?php
+ if (empty($mnet_peer->public_key)) {
+ p(get_string('invalidpubkey', 'mnet'));
+ }
+ ?>
+ <pre style="font-size: 8px;">
+ <?php echo $mnet_peer->public_key; ?>
+ </pre></td>
+</tr>
+<?php
+}
+
+
+if (isset($mnet_peer->id) && $mnet_peer->id > 0):
+?>
+ <tr>
+ <td align="right" valign="top" nowrap><?php print_string('last_connect_time', 'mnet'); ?>:</td>
+ <td valign="top"><?php echo ($mnet_peer->last_connect_time == 0)? get_string('never','mnet') : date('H:i:s d/m/Y',$mnet_peer->last_connect_time);?></td>
+ </tr>
+<?php
+if (isset($mnet_peer->transport) && $mnet_peer->transport > 0):
+?>
+ <tr>
+ <td align="right" valign="top" nowrap><?php print_string('current_transport', 'mnet'); ?>:</td>
+ <td valign="top"><?php echo mnet_get_transport_name($mnet_peer->transport);?></td>
+ </tr>
+<?php
+endif;
+
+if (isset($mnet_peer->deleted) && $mnet_peer->deleted > 0):
+?>
+ <tr>
+ <td align="right" valign="top" nowrap><?php print_string('deleted'); ?>:</td>
+ <td valign="top">
+ <input type="radio" name="deleted" value="0" <?php echo ("off" == $CFG->mnet_dispatcher_mode)? 'checked="true"' : '' ?> /> No - select this option to re-enable this server. <br />
+ <input type="radio" name="deleted" value="1" <?php echo ("strict" == $CFG->mnet_dispatcher_mode)? 'checked="true"' : '' ?> /> Yes<br />
+ </td>
+ </tr>
+<?php
+endif;
+
+endif;
+
+if (isset($mnet_peer->ip_address) && '' != $mnet_peer->ip_address):
+?>
+ <tr>
+ <td align="right" valign="top" nowrap><?php print_string('ipaddress', 'mnet');
+ echo ': <br />';
+ helpbutton("ipaddress", get_string('ipaddress', 'mnet'), "mnet", true, true);
+ ?>:</td>
+ <td valign="top"><?php echo $mnet_peer->ip_address; ?></td>
+ </tr>
+
+<?php
+endif;
+?>
+<tr>
+ <td></td>
+ <td><input type="submit" value="<?php print_string("savechanges"); ?>" /></td>
+</tr>
+<?php
+
+echo ' </table>';
+print_simple_box_end();
+admin_externalpage_print_footer($adminroot);
+?>
View
22 admin/mnet/mnet_review_allhosts.html
@@ -0,0 +1,22 @@
+<?php
+admin_externalpage_print_header($adminroot);
+
+$tabs[] = new tabobject('mnetdetails', 'peers.php?step=update&hostid='.$mnet_peer->id, $strmnetedithost, $strmnetedithost, false);
+$tabs[] = new tabobject('mnetservices', 'mnet_services.php?step=list&hostid='.$mnet_peer->id, $strmnetservices, $strmnetservices, false);
+print_tabs(array($tabs), 'mnetdetails');
+
+print_simple_box_start("center", "");
+?>
+<table cellpadding="9" cellspacing="0" >
+<tr>
+ <td align="right" valign="top" nowrap><?php print_string('site'); ?>:</td>
+ <td valign="top"><?php echo $mnet_peer->name; ?></td>
+</tr>
+<tr>
+ <td align="right" valign="top" colspan="2"><?php print_string('allhosts_no_options'); ?>:</td>
+</tr>
+</table>
+<?php
+print_simple_box_end();
+admin_externalpage_print_footer($adminroot);
+?>
View
84 admin/mnet/mnet_services.html
@@ -0,0 +1,84 @@
+<?php
+admin_externalpage_print_header($adminroot);
+
+$logurl = $CFG->wwwroot.
+ '/course/report/log/index.php?chooselog=1&showusers=1&showcourses=1&host_course='.$mnet_peer->id.
+ '%2F1&user='.'0'.
+ '&date=0'.
+ '&modid=&modaction=0&logformat=showashtml';
+
+$tabs[] = new tabobject('mnetdetails', 'peers.php?step=update&hostid='.$mnet_peer->id, $strmnetedithost, $strmnetedithost, false);
+$tabs[] = new tabobject('mnetservices', 'mnet_services.php?step=list&hostid='.$mnet_peer->id, $strmnetservices, $strmnetservices, false);
+if ($mnet_peer->id != $CFG->mnet_all_hosts_id) $tabs[] = new tabobject('mnetlog', $logurl, $strmnetlog, $strmnetlog, false);
+print_tabs(array($tabs), 'mnetservices');
+print_simple_box_start("center", "");
+
+?>
+
+<form method="post" action="mnet_services.php">
+<input type="hidden" name="sesskey" value="<?php echo $USER->sesskey ?>" />
+<input type="hidden" name="step" value="<?php echo $mnet_peer->nextstep; ?>" />
+<input type="hidden" name="hostid" value="<?php echo ($mnet_peer->id)? $mnet_peer->id : '0' ; ?>" />
+<table cellpadding="9" cellspacing="0" >
+<?php
+ foreach($myservices as $name => $versions):
+ $version = current($versions);
+?>
+<tr>
+ <td align="left" valign="top" colspan="2">
+ <h3><?php echo get_string($name.'_name', $version['parent_type'].'_'.$version['parent'] , $mnet_peer->name); ?></h3>
+ <p><?php echo get_string($name.'_description', $version['parent_type'].'_'.$version['parent'], $mnet_peer->name); ?></p>
+<?php
+ $breakstring = '';
+ foreach($versions as $version):
+ if (count($versions) > 1) {
+ $versionstring = '('.get_string('version','mnet') .' '.$version['apiversion'].')';
+ } else {
+ $versionstring = '';
+ }
+
+ echo $breakstring;
+?>
+ <input type="hidden" name="exists[<?php echo $version['serviceid']; ?>]" value="1" />
+ <input type="checkbox" name="publish[<?php echo $version['serviceid']; ?>]" <?php echo (!empty($version['I_publish']))? 'checked ': '' ; ?>/> Publish <?php echo $versionstring; if (!empty($version['hostsubscribes'])) echo '<a href="#" title="'.get_string('issubscribed','mnet', $mnet_peer->name).'">&radic;</a> '; if (!empty($version['allhosts_publish'])) print_string("enabled_for_all",'mnet',!empty($version['I_publish'])); ?><br />
+ <input type="checkbox" name="subscribe[<?php echo $version['serviceid']; ?>]" <?php echo (!empty($version['I_subscribe']))? 'checked ': '' ; ?>/> Subscribe <?php echo $versionstring; if (!empty($version['hostpublishes'])) echo '<a href="#" title="'.get_string('ispublished','mnet', $mnet_peer->name).'">&radic;</a> '; if (!empty($version['allhosts_subscribe'])) print_string("enabled_for_all",'mnet',!empty($version['I_subscribe'])); ?><br />
+<?php
+ $breakstring = '. . . . . . . . . . . . . . . . . . . . . . . . <br>';
+ endforeach;
+?>
+ </td>
+</tr>
+<?php
+ endforeach;
+?>
+<tr>
+ <td align="left" valign="top" colspan="2">
+ <div id="pubTreeLoc"></div>
+ </td>
+</tr>
+<tr>
+ <td align="left" valign="top" colspan="2">
+ <div id="subTreeLoc"></div>
+ </td>
+</tr>
+<tr>
+ <td colspan="2"><input type="submit" value="<?php print_string("savechanges") ?>" /></td>
+</tr>
+<tr>
+ <td align="left" valign="top" colspan="2">
+ <div id="formElements"><input type="hidden" name="outer" value="4" /></div>
+ </td>
+</tr>
+<?php
+
+echo '
+ </table>
+';
+print_simple_box_end();
+print_simple_box_end();
+
+echo '
+</form>
+';
+admin_externalpage_print_footer($adminroot);
+?>
View
174 admin/mnet/mnet_services.php
@@ -0,0 +1,174 @@
+<?php
+ // Allows the admin to configure services for remote hosts
+
+ require_once(dirname(dirname(dirname(__FILE__))) . '/config.php');
+ require_once($CFG->libdir.'/adminlib.php');
+ include_once($CFG->dirroot.'/mnet/lib.php');
+
+ require_login();
+ $adminroot = admin_get_root();
+ admin_externalpage_setup('mnetpeers', $adminroot);
+
+ $context = get_context_instance(CONTEXT_SYSTEM, SITEID);
+
+ require_capability('moodle/site:config', $context, $USER->id, true, "nopermissions");
+
+ if (!$site = get_site()) {
+ error('Site isn\'t defined!');
+ }
+
+/// Initialize variables.
+
+ // Step must be one of:
+ // input Parse the details of a new host and fetch its public key
+ // commit Save our changes (to a new OR existing host)
+ // force Go ahead with something we've been warned is strange
+ $step = optional_param('step', NULL, PARAM_ALPHA);
+ $hostid = optional_param('hostid', NULL, PARAM_INT);
+ $nocertstring = '';
+ $nocertmatch = '';
+ $badcert = '';
+ $certerror = '';
+ $noipmatch = '';
+ $stradministration = get_string('administration');
+ $strconfiguration = get_string('configuration');
+ $strmnetsettings = get_string('mnetsettings', 'mnet');
+ $strmnetservices = get_string('mnetservices', 'mnet');
+ $strmnetlog = get_string('mnetlog', 'mnet');
+ $strmnetedithost = get_string('reviewhostdetails', 'mnet');
+ $strmneteditservices = get_string('reviewhostservices', 'mnet');
+
+ $mnet_peer = new mnet_peer();
+
+ if (($form = data_submitted()) && confirm_sesskey()) {
+ $mnet_peer->set_id($hostid);
+ $treevals = array();
+ foreach($_POST['exists'] as $key => $value) {
+ $host2service = get_record('mnet_host2service', 'hostid', $_POST['hostid'], 'serviceid', $key);
+ $publish = (isset($_POST['publish'][$key]) && $_POST['publish'][$key] == 'on')? 1 : 0;
+ $subscribe = (isset($_POST['subscribe'][$key]) && $_POST['subscribe'][$key] == 'on')? 1 : 0;
+
+ if (false == $host2service && ($publish == 1 || $subscribe == 1)) {
+ $host2service = new stdClass();
+ $host2service->hostid = $_POST['hostid'];
+ $host2service->serviceid = $key;
+
+ $host2service->publish = $publish;
+ $host2service->subscribe = $subscribe;
+
+ $host2service->id = insert_record('mnet_host2service', $host2service);
+ } elseif ($host2service->publish != $publish || $host2service->subscribe != $subscribe) {
+ $host2service->publish = $publish;
+ $host2service->subscribe = $subscribe;
+ $tf = update_record('mnet_host2service', $host2service);
+ }
+ }
+ }
+
+ if (is_int($hostid)) {
+ if (0 == $mnet_peer->id) $mnet_peer->set_id($hostid);
+ $mnet_peer->nextstep = 'verify';
+
+ $id_list = $mnet_peer->id;
+ if (!empty($CFG->mnet_all_hosts_id)) {
+ $id_list .= ', '.$CFG->mnet_all_hosts_id;
+ }
+
+ $query = "
+ SELECT DISTINCT
+ h2s.id,
+ svc.id as serviceid,
+ svc.name,
+ svc.offer,
+ svc.apiversion,
+ r.parent_type,
+ r.parent,
+ h2s.hostid,
+ h2s.publish,
+ h2s.subscribe
+ FROM
+ {$CFG->prefix}mnet_service2rpc s2r,
+ {$CFG->prefix}mnet_rpc r,
+ {$CFG->prefix}mnet_service svc
+ LEFT JOIN
+ {$CFG->prefix}mnet_host2service h2s
+ ON
+ h2s.hostid in ($id_list) AND
+ h2s.serviceid = svc.id
+ WHERE
+ svc.offer = '1' AND
+ s2r.serviceid = svc.id AND
+ s2r.rpcid = r.id
+ ORDER BY
+ svc.name ASC";
+
+ $resultset = get_records_sql($query);
+
+ if (is_array($resultset)) {
+ $resultset = array_values($resultset);
+ } else {
+ $resultset = array();
+ }
+
+ require_once $CFG->dirroot.'/mnet/xmlrpc/client.php';
+
+ $remoteservices = array();
+ if ($hostid != $CFG->mnet_all_hosts_id) {
+ // Create a new request object
+ $mnet_request = new mnet_xmlrpc_client();
+
+ // Tell it the path to the method that we want to execute
+ $mnet_request->set_method('system/listServices');
+ $mnet_request->send($mnet_peer);
+ if (is_array($mnet_request->response)) {
+ foreach($mnet_request->response as $service) {
+ $remoteservices[$service['name']][$service['apiversion']] = $service;
+ }
+ }
+ }
+
+ $myservices = array();
+ foreach($resultset as $result) {
+ $result->hostpublishes = false;
+ $result->hostsubscribes = false;
+ if (isset($remoteservices[$result->name][$result->apiversion])) {
+ if ($remoteservices[$result->name][$result->apiversion]['publish'] == 1) {
+ $result->hostpublishes = true;
+ }
+ if ($remoteservices[$result->name][$result->apiversion]['subscribe'] == 1) {
+ $result->hostsubscribes = true;
+ }
+ }
+
+ if (empty($myservices[$result->name][$result->apiversion])) {
+ $myservices[$result->name][$result->apiversion] = array('serviceid' => $result->serviceid,
+ 'name' => $result->name,
+ 'offer' => $result->offer,
+ 'apiversion' => $result->apiversion,
+ 'parent_type' => $result->parent_type,
+ 'parent' => $result->parent,
+ 'hostsubscribes' => $result->hostsubscribes,
+ 'hostpublishes' => $result->hostpublishes
+ );
+ }
+
+ // allhosts_publish allows us to tell the admin that even though he
+ // is disabling a service, it's still available to the host because
+ // he's also publishing it to 'all hosts'
+ if ($result->hostid == $CFG->mnet_all_hosts_id && $CFG->mnet_all_hosts_id != $mnet_peer->id) {
+ $myservices[$result->name][$result->apiversion]['allhosts_publish'] = $result->publish;
+ $myservices[$result->name][$result->apiversion]['allhosts_subscribe'] = $result->subscribe;
+ } elseif (!empty($result->hostid)) {
+ $myservices[$result->name][$result->apiversion]['I_publish'] = $result->publish;
+ $myservices[$result->name][$result->apiversion]['I_subscribe'] = $result->subscribe;
+ }
+
+ }
+
+ } else {
+ redirect('peers.php', get_string('nohostid','mnet'), '5');
+ exit;
+ }
+
+ include('./mnet_services.html');
+?>
View
84 admin/mnet/peers.html
@@ -0,0 +1,84 @@
+<?php
+admin_externalpage_print_header($adminroot);
+?>
+<center>
+<form method="POST" action="peers.php">
+<input type="hidden" name="sesskey" value="<?php echo $USER->sesskey ?>" />
+<input type="hidden" name="updateregisterall" value="1" />
+<table cellspacing="0" cellpadding="5" width="500" id="hosts" class="generaltable generalbox" >
+ <tr>
+ <th class="header c0" nowrap="nowrap" colspan="2"><?php print_string('registerallhosts', 'mnet'); ?></th>
+ </tr>
+ <tr>
+ <td class="cell c1" colspan="2"><?php print_string('registerallhostsexplain', 'mnet'); ?></td>
+ </tr>
+ <tr>
+ <td class="cell c1"><input type="checkbox" name="registerallhosts" <?php if (!empty($CFG->mnet_register_allhosts)) echo 'checked '; ?>/></td>
+ <td class="cell c1"> <?php print_string('registerallhosts', 'mnet'); ?> </td>
+ </tr>
+ <tr>
+ <td align="right" colspan="2"><input type="submit" name="submit" value="<?php print_string('savechanges'); ?>" /></td>
+ </tr>
+</table>
+</form>
+<table cellspacing="0" cellpadding="5" id="hosts" class="generaltable generalbox" >
+ <tr>
+ <th class="header c0" nowrap="nowrap"><?php print_string('site'); ?></th>
+ <th class="header c1" nowrap="nowrap"><?php print_string('system','mnet'); ?></th>
+ <th class="header c2" nowrap="nowrap"><?php print_string('last_connect_time', 'mnet'); ?></th>
+ <th class="header c3" nowrap="nowrap"></th>
+ </tr>
+<?php
+
+ foreach($hosts as $host):
+
+ if ($host->last_connect_time == 0) {
+ $last_connect = get_string('never');
+ } else {
+ $last_connect = date('H:i:s d/m/Y', $host->last_connect_time);
+ }
+
+?>
+ <tr>
+ <td class="cell c0"><a href="peers.php?step=update&hostid=<?php echo $host->id; ?>"><?php echo $host->name; ?></a></td>
+ <td class="cell c1"><a href="peers.php?step=update&hostid=<?php echo $host->id; ?>"><?php echo $host->wwwroot; ?></a></td>
+ <td class="cell c2" nowrap><?php if ($host->id != $CFG->mnet_all_hosts_id) echo $last_connect; ?></td>
+ <td class="cell c3">
+<?php if ($host->id != $CFG->mnet_all_hosts_id): ?>
+ <form method="POST" action="delete.php">
+ <input type="hidden" name="hostid" value="<?php echo $host->id; ?>" />
+ <input type="hidden" name="step" value="verify" />
+ <input type="submit" name="submit" value="<?php print_string('delete'); ?>"/>
+ </form>
+<?php endif; ?>
+ </td>
+ </tr>
+<?php
+ endforeach;
+?>
+ <tr>
+ <td class="cell c4" colspan="4">&nbsp;</td>
+ </tr>
+ <form method="post" action="peers.php">
+ <tr>
+ <th class="header c4" nowrap="nowrap" colspan="4">
+ <?php print_string('addnewhost', 'mnet'); ?>
+ <input type="hidden" name="sesskey" value="<?php echo $USER->sesskey ?>" />
+ <input type="hidden" name="step" value="input" />
+ </th>
+ </tr>
+ <tr>
+ <td class="cell c0"></td>
+ <td class="cell c1"><input type="text" name="wwwroot" value=""></td>
+ <td class="cell c2"></td>
+ <td class="cell c3"></td>
+ </tr>
+ <tr>
+ <td class="cell c4" align="right" colspan="4"><input type="submit" value="<?php print_string('addhost','mnet'); ?>" /></td>
+ </tr>
+ </form>
+</table>
+</center>
+<?php
+admin_externalpage_print_footer($adminroot);
+?>
View
125 admin/mnet/peers.php
@@ -0,0 +1,125 @@
+<?PHP // $Id$
+
+// Allows the admin to configure other Moodle hosts info
+
+require_once(dirname(dirname(dirname(__FILE__))) . '/config.php');
+require_once($CFG->libdir.'/adminlib.php');
+include_once($CFG->dirroot.'/mnet/lib.php');
+
+require_login();
+$adminroot = admin_get_root();
+admin_externalpage_setup('mnetpeers', $adminroot);
+
+$context = get_context_instance(CONTEXT_SYSTEM, SITEID);
+
+require_capability('moodle/site:config', $context, $USER->id, true, "nopermissions");
+
+if (!$site = get_site()) {
+ error('Site isn\'t defined!');
+}
+
+if (!function_exists('curl_init') ) {
+ error('PHP Curl library is not installed');
+}
+
+/// Initialize variables.
+
+// Step must be one of:
+// input Parse the details of a new host and fetch its public key
+// commit Save our changes (to a new OR existing host)
+$step = optional_param('step', NULL, PARAM_ALPHA);
+$hostid = optional_param('hostid', NULL, PARAM_INT);
+
+// Fetch some strings for the HTML templates
+$strmnetservices = get_string('mnetservices', 'mnet');
+$strmnetlog = get_string('mnetlog', 'mnet');
+$strmnetedithost = get_string('reviewhostdetails', 'mnet');
+
+$keypair = unserialize($CFG->openssl);
+
+if (!isset($CFG->mnet_dispatcher_mode)) set_config('mnet_dispatcher_mode', 'off');
+
+/// If data submitted, process and store
+if (($form = data_submitted()) && confirm_sesskey()) {
+
+ if (!empty($form->updateregisterall)) {
+ if (!empty($form->registerallhosts)) {
+ set_config('mnet_register_allhosts',1);
+ } else {
+ set_config('mnet_register_allhosts',0);
+ }
+ redirect('peers.php', get_string('changessaved'));
+ } else {
+
+ $mnet_peer = new mnet_peer();
+
+ if (!empty($form->id)) {
+ $form->id = clean_param($form->id, PARAM_INT);
+ $mnet_peer->set_id($form->id);
+ } else {
+ // PARAM_URL requires a genuine TLD (I think) This breaks my testing
+ $temp_wwwroot = $form->wwwroot; //clean_param($form->wwwroot, PARAM_URL);
+ if ($temp_wwwroot !== $form->wwwroot) {
+ trigger_error("We now parse the wwwroot with PARAM_URL");
+ error('Invalid URL parameter.', 'peers.php');
+ }
+ unset($temp_wwwroot);
+ $mnet_peer->bootstrap($form->wwwroot);
+ }
+
+ if (isset($form->name) && $form->name != $mnet_peer->name) {
+ $form->name = clean_param($form->name, PARAM_NOTAGS);
+ $mnet_peer->set_name($form->name);
+ }
+
+ if (isset($form->deleted) && ($form->deleted == '0' || $form->deleted == '1')) {
+ $mnet_peer->deleted = $form->deleted;
+ }
+
+ if (isset($form->public_key)) {
+ $form->public_key = clean_param($form->public_key, PARAM_PEM);
+ if (empty($form->public_key)) {
+ // Public key was not in a correct format
+ } else {
+ $oldkey = $mnet_peer->public_key;
+ $mnet_peer->public_key = $form->public_key;
+ $mnet_peer->public_key_expires = $mnet_peer->check_common_name($form->public_key);
+ if ($mnet_peer->public_key_expires == false) {
+ $mnet_peer->public_key == $oldkey;
+ }
+ }
+ }
+
+ // PREVENT DUPLICATE RECORDS ///////////////////////////////////////////
+ if ('input' == $form->step) {
+ if ( isset($mnet_peer->id) && $mnet_peer->id > 0 ) {
+ error(get_string("hostexists ".$mnet_peer->id, 'mnet', $mnet_peer->id),'peers.php?step=update&hostid='.$mnet_peer->id);
+ }
+ }
+
+ if ('input' == $form->step) {
+ include('./mnet_review.html');
+ } elseif ('commit' == $form->step) {
+ $bool = $mnet_peer->commit();
+ if ($bool) {
+ redirect('peers.php?step=update&hostid='.$mnet_peer->id, get_string('changessaved'));
+ } else {
+ error('Invalid action parameter.', 'index.php');
+ }
+ }
+ }
+} elseif (is_int($hostid)) {
+ $mnet_peer = new mnet_peer();
+ $mnet_peer->set_id($hostid);
+ $form = new stdClass();
+ if ($hostid != $CFG->mnet_all_hosts_id) {
+ include('./mnet_review.html');
+ } else {
+ include('./mnet_review_allhosts.html');
+ }
+} else {
+ $hosts = get_records_select('mnet_host', " id != '{$CFG->mnet_localhost_id}' AND deleted = '0' ",'wwwroot ASC' );
+ if (empty($hosts)) $hosts = array();
+ include('./peers.html');
+}
+?>
View
61 admin/mnet/trustedhosts.html
@@ -0,0 +1,61 @@
+<?php
+admin_externalpage_print_header($adminroot);
+?>
+<center>
+<table cellspacing="0" cellpadding="5" width="500" id="hosts" class="generaltable generalbox" >
+ <tr>
+ <th class="header c0" nowrap="nowrap" colspan="2"><?php print_string('trustedhosts', 'mnet'); ?></th>
+ </tr>
+ <tr>
+ <td class="cell c1" colspan="2"><?php print_string('trustedhostsexplain', 'mnet'); ?></td>
+ </tr>
+ <tr>
+ <td class="cell c1" colspan="2"><form method="POST" action="trustedhosts.php">
+ <input type="hidden" name="sesskey" value="<?php echo $USER->sesskey ?>" />
+ <textarea name="hostlist" cols="40" rows="20"><?php echo $trusted_hosts; ?></textarea><br />
+ <input type="submit" value="<?php print_string('savechanges'); ?>" />
+ </form>
+ </td>
+ </tr>
+</table>
+<table cellspacing="0" cellpadding="5" width="500" id="hosts" class="generaltable generalbox" >
+ <tr>
+ <th class="header c0" nowrap="nowrap" colspan="2"><?php print_string('testtrustedhosts', 'mnet'); ?></th>
+ </tr>
+<?php
+ if (!empty($test_ip_address)):
+?>
+ <tr>
+ <td class="cell c1" colspan="2">
+ <?php
+ if ($in_range) {
+ print_string('is_in_range', 'mnet', $test_ip_address);
+ echo '<br>';
+ print_string('validated_by', 'mnet', $validated_by);
+ } else {
+ print_string('not_in_range', 'mnet', $test_ip_address);
+ }
+ ?>
+ </td>
+ </tr>
+<?php
+ else:
+?>
+ <tr>
+ <td class="cell c1" colspan="2"><?php print_string('testtrustedhostsexplain', 'mnet'); ?></td>
+ </tr>
+<?php
+ endif;
+?>
+ <tr>
+ <td class="cell c1" colspan="2"><form method="GET" action="trustedhosts.php">
+ <input type="hidden" name="sesskey" value="<?php echo $USER->sesskey ?>" />
+ <input type="text" name="testipaddress" value="<?php echo $test_ip_address; ?>" />
+ <input type="submit" value="<?php print_string('go'); ?>" />
+ </form>
+ </td>
+ </tr>
+</table>
+<?php
+admin_externalpage_print_footer($adminroot);
+?>
View
62 admin/mnet/trustedhosts.php
@@ -0,0 +1,62 @@
+<?php
+ // Allows the admin to configure services for remote hosts
+
+ require_once(dirname(dirname(dirname(__FILE__))) . '/config.php');
+ require_once($CFG->libdir.'/adminlib.php');
+ include_once($CFG->dirroot.'/mnet/lib.php');
+
+ require_login();
+ $adminroot = admin_get_root();
+ admin_externalpage_setup('trustedhosts', $adminroot);
+
+ $context = get_context_instance(CONTEXT_SYSTEM, SITEID);
+
+ require_capability('moodle/site:config', $context, $USER->id, true, "nopermissions");
+
+ if (!$site = get_site()) {
+ error('Site isn\'t defined!');
+ }
+
+ $trusted_hosts = '';//array();
+ $old_trusted_hosts = get_config('mnet', 'mnet_trusted_hosts');
+
+ $test_ip_address = optional_param('testipaddress', NULL, PARAM_HOST);
+ $in_range = false;
+ if (!empty($test_ip_address)) {
+ foreach(explode(',', $old_trusted_hosts->value) as $host) {
+ list($network, $mask) = explode('/', $host.'/');
+ if (empty($network)) continue;
+ if (strlen($mask) == 0) $mask = 32;
+
+ if (ip_in_range($test_ip_address, $network, $mask)) {
+ $in_range = true;
+ $validated_by = $network.'/'.$mask;
+ break;
+ }
+ }
+ }
+
+ /// If data submitted, process and store
+ if (($form = data_submitted()) && confirm_sesskey()) {
+ echo 'a';
+ $hostlist = preg_split("/[\s,]+/", $form->hostlist);
+ foreach($hostlist as $host) {
+ list($address, $mask) = explode('/', $host.'/');
+ if (empty($address)) continue;
+ if (strlen($mask) == 0) $mask = 32;
+ $trusted_hosts .= trim($address).'/'.trim($mask)."\n";
+ unset($address, $mask);
+ }
+ set_config('mnet_trusted_hosts', str_replace("\n", ',', $trusted_hosts), 'mnet');
+ } elseif (!empty($old_trusted_hosts->value)) {
+ foreach(explode(',', $old_trusted_hosts->value) as $host) {
+ list($address, $mask) = explode('/', $host.'/');
+ if (empty($address)) continue;
+ if (strlen($mask) == 0) $mask = 32;
+ $trusted_hosts .= trim($address).'/'.trim($mask)."\n";
+ unset($address, $mask);
+ }
+ }
+
+ include('./trustedhosts.html');
+?>
View
118 mnet/environment.php
@@ -0,0 +1,118 @@
+<?php
+/**
+ * Info about the local environment, wrt RPC
+ *
+ * This should really be a singleton. A PHP5 Todo I guess.
+ */
+
+class mnet_environment {
+
+ var $id = 0;
+ var $wwwroot = '';
+ var $ip_address = '';
+ var $public_key = '';
+ var $public_key_expires = 0;
+ var $last_connect_time = 0;
+ var $last_log_id = 0;
+ var $keypair = array();
+
+ function mnet_environment() {
+ return true;
+ }
+
+ function init() {
+ global $CFG;
+
+ // Bootstrap the object data on first load.
+ if (empty($CFG->mnet_localhost_id) ) {
+ $this->get_keypair();
+
+ $hostobject = new stdClass();
+ $hostobject->wwwroot = $CFG->wwwroot;
+ $hostobject->ip_address = $_SERVER['SERVER_ADDR'];
+ $hostobject->public_key = $this->keypair['certificate'];
+ $hostobject->public_key_expires = '';
+ $hostobject->last_connect_time = '0';