2007-01-04 04:52:42 +00:00
|
|
|
<?php
|
2013-04-27 15:06:40 +02:00
|
|
|
// 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/>.
|
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
/**
|
|
|
|
* Authentication Plugin: FirstClass Authentication
|
|
|
|
* Authentication using a FirstClass server.
|
2013-04-27 15:06:40 +02:00
|
|
|
|
|
|
|
* @package auth_fc
|
|
|
|
* @author Martin Dougiamas
|
|
|
|
* @license http://www.gnu.org/copyleft/gpl.html GNU Public License
|
2007-01-04 04:52:42 +00:00
|
|
|
*/
|
|
|
|
|
2013-04-27 15:09:05 +02:00
|
|
|
defined('MOODLE_INTERNAL') || die();
|
2007-01-04 04:52:42 +00:00
|
|
|
|
2007-03-22 12:27:52 +00:00
|
|
|
require_once($CFG->libdir.'/authlib.php');
|
|
|
|
|
2007-02-20 17:03:36 +00:00
|
|
|
require_once 'fcFPP.php';
|
2007-01-04 04:52:42 +00:00
|
|
|
|
|
|
|
/**
|
|
|
|
* FirstClass authentication plugin.
|
|
|
|
*/
|
2007-03-22 12:27:52 +00:00
|
|
|
class auth_plugin_fc extends auth_plugin_base {
|
2007-01-04 04:52:42 +00:00
|
|
|
|
|
|
|
/**
|
|
|
|
* Constructor.
|
|
|
|
*/
|
2015-11-27 09:01:25 +08:00
|
|
|
public function __construct() {
|
2007-03-22 12:27:52 +00:00
|
|
|
$this->authtype = 'fc';
|
2017-04-03 10:50:09 -04:00
|
|
|
$this->config = get_config('auth_fc');
|
2007-01-04 04:52:42 +00:00
|
|
|
}
|
|
|
|
|
2015-11-27 09:01:25 +08:00
|
|
|
/**
|
|
|
|
* Old syntax of class constructor. Deprecated in PHP7.
|
|
|
|
*
|
|
|
|
* @deprecated since Moodle 3.1
|
|
|
|
*/
|
|
|
|
public function auth_plugin_fc() {
|
|
|
|
debugging('Use of class name as constructor is deprecated', DEBUG_DEVELOPER);
|
|
|
|
self::__construct();
|
|
|
|
}
|
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
/**
|
|
|
|
* Returns true if the username and password work and false if they are
|
|
|
|
* wrong or don't exist.
|
|
|
|
*
|
|
|
|
* @param string $username The username
|
|
|
|
* @param string $password The password
|
2007-02-20 17:03:36 +00:00
|
|
|
* @return bool Authentication success or failure.
|
2007-01-04 04:52:42 +00:00
|
|
|
*/
|
|
|
|
function user_login ($username, $password) {
|
|
|
|
global $CFG;
|
|
|
|
$retval = false;
|
|
|
|
|
|
|
|
// Don't allow blank usernames or passwords
|
|
|
|
if (!$username or !$password) {
|
|
|
|
return $retval;
|
|
|
|
}
|
|
|
|
|
|
|
|
$fpp = new fcFPP($this->config->host, $this->config->fppport);
|
|
|
|
if ($fpp->open()) {
|
|
|
|
if ($fpp->login($username, $password)) {
|
|
|
|
$retval = true;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$fpp->close();
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
return $retval;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Get user information from FirstCLass server and return it in an array.
|
|
|
|
* Localize this routine to fit your needs.
|
|
|
|
*/
|
|
|
|
function get_userinfo($username) {
|
|
|
|
/*
|
|
|
|
Moodle FirstCLass fieldID in UserInfo form
|
|
|
|
------ -----------------------------------
|
|
|
|
firstname 1202
|
|
|
|
lastname 1204
|
|
|
|
email 1252
|
|
|
|
icq -
|
|
|
|
phone1 1206
|
|
|
|
phone2 1207 (Fax)
|
|
|
|
institution -
|
|
|
|
department -
|
|
|
|
address 1205
|
|
|
|
city -
|
|
|
|
country -
|
|
|
|
lang -
|
|
|
|
timezone 8030 (Not used yet. Need to figure out how FC codes timezones)
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
description Get data from users resume. Pictures will be removed.
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
*/
|
|
|
|
|
|
|
|
$userinfo = array();
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-10-07 14:08:37 +00:00
|
|
|
$fpp = new fcFPP($this->config->host, $this->config->fppport);
|
2007-01-04 04:52:42 +00:00
|
|
|
if ($fpp->open()) {
|
|
|
|
if ($fpp->login($this->config->userid, $this->config->passwd)) {
|
|
|
|
$userinfo['firstname'] = $fpp->getUserInfo($username,"1202");
|
|
|
|
$userinfo['lastname'] = $fpp->getUserInfo($username,"1204");
|
|
|
|
$userinfo['email'] = strtok($fpp->getUserInfo($username,"1252"),',');
|
|
|
|
$userinfo['phone1'] = $fpp->getUserInfo($username,"1206");
|
|
|
|
$userinfo['phone2'] = $fpp->getUserInfo($username,"1207");
|
|
|
|
$userinfo['description'] = $fpp->getResume($username);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$fpp->close();
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
foreach($userinfo as $key => $value) {
|
|
|
|
if (!$value) {
|
|
|
|
unset($userinfo[$key]);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return $userinfo;
|
|
|
|
}
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
/**
|
|
|
|
* Get users group membership from the FirstClass server user and check if
|
|
|
|
* user is member of one of the groups of creators.
|
|
|
|
*/
|
2007-03-22 12:27:52 +00:00
|
|
|
function iscreator($username) {
|
2007-01-04 04:52:42 +00:00
|
|
|
if (! $this->config->creators) {
|
2007-03-22 12:27:52 +00:00
|
|
|
return null;
|
2007-01-04 04:52:42 +00:00
|
|
|
}
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
$fcgroups = array();
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-10-07 14:08:37 +00:00
|
|
|
$fpp = new fcFPP($this->config->host, $this->config->fppport);
|
2007-01-04 04:52:42 +00:00
|
|
|
if ($fpp->open()) {
|
|
|
|
if ($fpp->login($this->config->userid, $this->config->passwd)) {
|
|
|
|
$fcgroups = $fpp->getGroups($username);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$fpp->close();
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
if ((! $fcgroups)) {
|
|
|
|
return false;
|
|
|
|
}
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
$creators = explode(";", $this->config->creators);
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
foreach($creators as $creator) {
|
2007-03-22 12:27:52 +00:00
|
|
|
if (in_array($creator, $fcgroups)) {
|
|
|
|
return true;
|
|
|
|
}
|
2007-01-04 04:52:42 +00:00
|
|
|
}
|
2007-02-20 17:03:36 +00:00
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
2009-11-23 21:50:40 +00:00
|
|
|
function prevent_local_passwords() {
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
/**
|
|
|
|
* Returns true if this authentication plugin is 'internal'.
|
|
|
|
*
|
2007-02-20 17:03:36 +00:00
|
|
|
* @return bool
|
2007-01-04 04:52:42 +00:00
|
|
|
*/
|
|
|
|
function is_internal() {
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Returns true if this authentication plugin can change the user's
|
|
|
|
* password.
|
|
|
|
*
|
2007-02-20 17:03:36 +00:00
|
|
|
* @return bool
|
2007-01-04 04:52:42 +00:00
|
|
|
*/
|
|
|
|
function can_change_password() {
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
2007-03-22 12:27:52 +00:00
|
|
|
/**
|
|
|
|
* Sync roles for this user
|
|
|
|
*
|
|
|
|
* @param $user object user object (without system magic quotes)
|
|
|
|
*/
|
|
|
|
function sync_roles($user) {
|
|
|
|
$iscreator = $this->iscreator($user->username);
|
|
|
|
if ($iscreator === null) {
|
|
|
|
return; //nothing to sync - creators not configured
|
|
|
|
}
|
|
|
|
|
2010-03-31 07:41:31 +00:00
|
|
|
if ($roles = get_archetype_roles('coursecreator')) {
|
2007-03-22 12:27:52 +00:00
|
|
|
$creatorrole = array_shift($roles); // We can only use one, let's use the first one
|
2012-08-02 11:20:48 +08:00
|
|
|
$systemcontext = context_system::instance();
|
2007-03-22 12:27:52 +00:00
|
|
|
|
|
|
|
if ($iscreator) { // Following calls will not create duplicates
|
MDL-21782 reworked enrolment framework, the core infrastructure is in place, the basic plugins are all implemented; see the tracker issue for list of unfinished bits, expect more changes and improvements during the next week
AMOS START
MOV [sendcoursewelcomemessage,core_admin],[sendcoursewelcomemessage,enrol_self]
MOV [configsendcoursewelcomemessage,core_admin],[sendcoursewelcomemessage_desc,enrol_self]
MOV [enrolstartdate,core],[enrolstartdate,enrol_self]
MOV [enrolenddate,core],[enrolenddate,enrol_self]
CPY [welcometocourse,core],[welcometocourse,enrol_self]
CPY [welcometocoursetext,core],[welcometocoursetext,enrol_self]
MOV [notenrollable,core],[notenrollable,core_enrol]
MOV [enrolenddaterror,core],[enrolenddaterror,enrol_self]
MOV [enrolmentkeyhint,core],[passwordinvalidhint,enrol_self]
MOV [coursemanager,core_admin],[coursecontact,core_admin]
MOV [configcoursemanager,core_admin],[coursecontact_desc,core_admin]
MOV [enrolledincourserole,core],[enrolledincourserole,enrol_manual]
MOV [enrolme,core],[enrolme,core_enrol]
MOV [unenrol,core],[unenrol,core_enrol]
MOV [unenrolme,core],[unenrolme,core_enrol]
MOV [enrolmentnew,core],[enrolmentnew,core_enrol]
MOV [enrolmentnewuser,core],[enrolmentnewuser,core_enrol]
MOV [enrolments,core],[enrolments,core_enrol]
MOV [enrolperiod,core],[enrolperiod,core_enrol]
MOV [unenrolroleusers,core],[unenrolroleusers,core_enrol]
AMOS END
2010-06-21 15:30:49 +00:00
|
|
|
role_assign($creatorrole->id, $user->id, $systemcontext->id, 'auth_fc');
|
2007-03-22 12:27:52 +00:00
|
|
|
} else {
|
|
|
|
//unassign only if previously assigned by this plugin!
|
MDL-21782 reworked enrolment framework, the core infrastructure is in place, the basic plugins are all implemented; see the tracker issue for list of unfinished bits, expect more changes and improvements during the next week
AMOS START
MOV [sendcoursewelcomemessage,core_admin],[sendcoursewelcomemessage,enrol_self]
MOV [configsendcoursewelcomemessage,core_admin],[sendcoursewelcomemessage_desc,enrol_self]
MOV [enrolstartdate,core],[enrolstartdate,enrol_self]
MOV [enrolenddate,core],[enrolenddate,enrol_self]
CPY [welcometocourse,core],[welcometocourse,enrol_self]
CPY [welcometocoursetext,core],[welcometocoursetext,enrol_self]
MOV [notenrollable,core],[notenrollable,core_enrol]
MOV [enrolenddaterror,core],[enrolenddaterror,enrol_self]
MOV [enrolmentkeyhint,core],[passwordinvalidhint,enrol_self]
MOV [coursemanager,core_admin],[coursecontact,core_admin]
MOV [configcoursemanager,core_admin],[coursecontact_desc,core_admin]
MOV [enrolledincourserole,core],[enrolledincourserole,enrol_manual]
MOV [enrolme,core],[enrolme,core_enrol]
MOV [unenrol,core],[unenrol,core_enrol]
MOV [unenrolme,core],[unenrolme,core_enrol]
MOV [enrolmentnew,core],[enrolmentnew,core_enrol]
MOV [enrolmentnewuser,core],[enrolmentnewuser,core_enrol]
MOV [enrolments,core],[enrolments,core_enrol]
MOV [enrolperiod,core],[enrolperiod,core_enrol]
MOV [unenrolroleusers,core],[unenrolroleusers,core_enrol]
AMOS END
2010-06-21 15:30:49 +00:00
|
|
|
role_unassign($creatorrole->id, $user->id, $systemcontext->id, 'auth_fc');
|
2007-03-22 12:27:52 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2007-01-04 04:52:42 +00:00
|
|
|
}
|
|
|
|
|
2009-11-01 11:55:14 +00:00
|
|
|
|