You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
329 lines
14 KiB
329 lines
14 KiB
2 years ago
|
<?php
|
||
|
|
// 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/>.
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Listens for Instant Payment Notification from PayPal
|
||
|
|
*
|
||
|
|
* This script waits for Payment notification from PayPal,
|
||
|
|
* then double checks that data by sending it back to PayPal.
|
||
|
|
* If PayPal verifies this then it sets up the enrolment for that
|
||
|
|
* user.
|
||
|
|
*
|
||
|
|
* @package enrol_paypal
|
||
|
|
* @copyright 2010 Eugene Venter
|
||
|
|
* @author Eugene Venter - based on code by others
|
||
|
|
* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
|
||
|
|
*/
|
||
|
|
|
||
|
|
// Disable moodle specific debug messages and any errors in output,
|
||
|
|
// comment out when debugging or better look into error log!
|
||
|
|
define('NO_DEBUG_DISPLAY', true);
|
||
|
|
|
||
|
|
// @codingStandardsIgnoreLine This script does not require login.
|
||
|
|
require("../../config.php");
|
||
|
|
require_once("lib.php");
|
||
|
|
require_once($CFG->libdir.'/enrollib.php');
|
||
|
|
require_once($CFG->libdir . '/filelib.php');
|
||
|
|
|
||
|
|
// PayPal does not like when we return error messages here,
|
||
|
|
// the custom handler just logs exceptions and stops.
|
||
|
|
set_exception_handler(\enrol_paypal\util::get_exception_handler());
|
||
|
|
|
||
|
|
// Make sure we are enabled in the first place.
|
||
|
|
if (!enrol_is_enabled('paypal')) {
|
||
|
|
http_response_code(503);
|
||
|
|
throw new moodle_exception('errdisabled', 'enrol_paypal');
|
||
|
|
}
|
||
|
|
|
||
|
|
/// Keep out casual intruders
|
||
|
|
if (empty($_POST) or !empty($_GET)) {
|
||
|
|
http_response_code(400);
|
||
|
|
throw new moodle_exception('invalidrequest', 'core_error');
|
||
|
|
}
|
||
|
|
|
||
|
|
/// Read all the data from PayPal and get it ready for later;
|
||
|
|
/// we expect only valid UTF-8 encoding, it is the responsibility
|
||
|
|
/// of user to set it up properly in PayPal business account,
|
||
|
|
/// it is documented in docs wiki.
|
||
|
|
|
||
|
|
$req = 'cmd=_notify-validate';
|
||
|
|
|
||
|
|
$data = new stdClass();
|
||
|
|
|
||
|
|
foreach ($_POST as $key => $value) {
|
||
|
|
if ($key !== clean_param($key, PARAM_ALPHANUMEXT)) {
|
||
|
|
throw new moodle_exception('invalidrequest', 'core_error', '', null, $key);
|
||
|
|
}
|
||
|
|
if (is_array($value)) {
|
||
|
|
throw new moodle_exception('invalidrequest', 'core_error', '', null, 'Unexpected array param: '.$key);
|
||
|
|
}
|
||
|
|
$req .= "&$key=".urlencode($value);
|
||
|
|
$data->$key = fix_utf8($value);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (empty($data->custom)) {
|
||
|
|
throw new moodle_exception('invalidrequest', 'core_error', '', null, 'Missing request param: custom');
|
||
|
|
}
|
||
|
|
|
||
|
|
$custom = explode('-', $data->custom);
|
||
|
|
unset($data->custom);
|
||
|
|
|
||
|
|
if (empty($custom) || count($custom) < 3) {
|
||
|
|
throw new moodle_exception('invalidrequest', 'core_error', '', null, 'Invalid value of the request param: custom');
|
||
|
|
}
|
||
|
|
|
||
|
|
$data->userid = (int)$custom[0];
|
||
|
|
$data->courseid = (int)$custom[1];
|
||
|
|
$data->instanceid = (int)$custom[2];
|
||
|
|
$data->payment_gross = $data->mc_gross;
|
||
|
|
$data->payment_currency = $data->mc_currency;
|
||
|
|
$data->timeupdated = time();
|
||
|
|
|
||
|
|
$user = $DB->get_record("user", array("id" => $data->userid), "*", MUST_EXIST);
|
||
|
|
$course = $DB->get_record("course", array("id" => $data->courseid), "*", MUST_EXIST);
|
||
|
|
$context = context_course::instance($course->id, MUST_EXIST);
|
||
|
|
|
||
|
|
$PAGE->set_context($context);
|
||
|
|
|
||
|
|
$plugin_instance = $DB->get_record("enrol", array("id" => $data->instanceid, "enrol" => "paypal", "status" => 0), "*", MUST_EXIST);
|
||
|
|
$plugin = enrol_get_plugin('paypal');
|
||
|
|
|
||
|
|
/// Open a connection back to PayPal to validate the data
|
||
|
|
$paypaladdr = empty($CFG->usepaypalsandbox) ? 'ipnpb.paypal.com' : 'ipnpb.sandbox.paypal.com';
|
||
|
|
$c = new curl();
|
||
|
|
$options = array(
|
||
|
|
'returntransfer' => true,
|
||
|
|
'httpheader' => array('application/x-www-form-urlencoded', "Host: $paypaladdr"),
|
||
|
|
'timeout' => 30,
|
||
|
|
'CURLOPT_HTTP_VERSION' => CURL_HTTP_VERSION_1_1,
|
||
|
|
);
|
||
|
|
$location = "https://$paypaladdr/cgi-bin/webscr";
|
||
|
|
$result = $c->post($location, $req, $options);
|
||
|
|
|
||
|
|
if ($c->get_errno()) {
|
||
|
|
throw new moodle_exception('errpaypalconnect', 'enrol_paypal', '', array('url' => $paypaladdr, 'result' => $result),
|
||
|
|
json_encode($data));
|
||
|
|
}
|
||
|
|
|
||
|
|
/// Connection is OK, so now we post the data to validate it
|
||
|
|
|
||
|
|
/// Now read the response and check if everything is OK.
|
||
|
|
|
||
|
|
if (strlen($result) > 0) {
|
||
|
|
if (strcmp($result, "VERIFIED") == 0) { // VALID PAYMENT!
|
||
|
|
|
||
|
|
|
||
|
|
// check the payment_status and payment_reason
|
||
|
|
|
||
|
|
// If status is not completed or pending then unenrol the student if already enrolled
|
||
|
|
// and notify admin
|
||
|
|
|
||
|
|
if ($data->payment_status != "Completed" and $data->payment_status != "Pending") {
|
||
|
|
$plugin->unenrol_user($plugin_instance, $data->userid);
|
||
|
|
\enrol_paypal\util::message_paypal_error_to_admin("Status not completed or pending. User unenrolled from course",
|
||
|
|
$data);
|
||
|
|
die;
|
||
|
|
}
|
||
|
|
|
||
|
|
// If currency is incorrectly set then someone maybe trying to cheat the system
|
||
|
|
|
||
|
|
if ($data->mc_currency != $plugin_instance->currency) {
|
||
|
|
\enrol_paypal\util::message_paypal_error_to_admin(
|
||
|
|
"Currency does not match course settings, received: ".$data->mc_currency,
|
||
|
|
$data);
|
||
|
|
die;
|
||
|
|
}
|
||
|
|
|
||
|
|
// If status is pending and reason is other than echeck then we are on hold until further notice
|
||
|
|
// Email user to let them know. Email admin.
|
||
|
|
|
||
|
|
if ($data->payment_status == "Pending" and $data->pending_reason != "echeck") {
|
||
|
|
$eventdata = new \core\message\message();
|
||
|
|
$eventdata->courseid = empty($data->courseid) ? SITEID : $data->courseid;
|
||
|
|
$eventdata->modulename = 'moodle';
|
||
|
|
$eventdata->component = 'enrol_paypal';
|
||
|
|
$eventdata->name = 'paypal_enrolment';
|
||
|
|
$eventdata->userfrom = get_admin();
|
||
|
|
$eventdata->userto = $user;
|
||
|
|
$eventdata->subject = "Moodle: PayPal payment";
|
||
|
|
$eventdata->fullmessage = "Your PayPal payment is pending.";
|
||
|
|
$eventdata->fullmessageformat = FORMAT_PLAIN;
|
||
|
|
$eventdata->fullmessagehtml = '';
|
||
|
|
$eventdata->smallmessage = '';
|
||
|
|
message_send($eventdata);
|
||
|
|
|
||
|
|
\enrol_paypal\util::message_paypal_error_to_admin("Payment pending", $data);
|
||
|
|
die;
|
||
|
|
}
|
||
|
|
|
||
|
|
// If our status is not completed or not pending on an echeck clearance then ignore and die
|
||
|
|
// This check is redundant at present but may be useful if paypal extend the return codes in the future
|
||
|
|
|
||
|
|
if (! ( $data->payment_status == "Completed" or
|
||
|
|
($data->payment_status == "Pending" and $data->pending_reason == "echeck") ) ) {
|
||
|
|
die;
|
||
|
|
}
|
||
|
|
|
||
|
|
// At this point we only proceed with a status of completed or pending with a reason of echeck
|
||
|
|
|
||
|
|
// Make sure this transaction doesn't exist already.
|
||
|
|
if ($existing = $DB->get_record("enrol_paypal", array("txn_id" => $data->txn_id), "*", IGNORE_MULTIPLE)) {
|
||
|
|
\enrol_paypal\util::message_paypal_error_to_admin("Transaction $data->txn_id is being repeated!", $data);
|
||
|
|
die;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Check that the receiver email is the one we want it to be.
|
||
|
|
if (isset($data->business)) {
|
||
|
|
$recipient = $data->business;
|
||
|
|
} else if (isset($data->receiver_email)) {
|
||
|
|
$recipient = $data->receiver_email;
|
||
|
|
} else {
|
||
|
|
$recipient = 'empty';
|
||
|
|
}
|
||
|
|
|
||
|
|
if (core_text::strtolower($recipient) !== core_text::strtolower($plugin->get_config('paypalbusiness'))) {
|
||
|
|
\enrol_paypal\util::message_paypal_error_to_admin("Business email is {$recipient} (not ".
|
||
|
|
$plugin->get_config('paypalbusiness').")", $data);
|
||
|
|
die;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$user = $DB->get_record('user', array('id'=>$data->userid))) { // Check that user exists
|
||
|
|
\enrol_paypal\util::message_paypal_error_to_admin("User $data->userid doesn't exist", $data);
|
||
|
|
die;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!$course = $DB->get_record('course', array('id'=>$data->courseid))) { // Check that course exists
|
||
|
|
\enrol_paypal\util::message_paypal_error_to_admin("Course $data->courseid doesn't exist", $data);
|
||
|
|
die;
|
||
|
|
}
|
||
|
|
|
||
|
|
$coursecontext = context_course::instance($course->id, IGNORE_MISSING);
|
||
|
|
|
||
|
|
// Check that amount paid is the correct amount
|
||
|
|
if ( (float) $plugin_instance->cost <= 0 ) {
|
||
|
|
$cost = (float) $plugin->get_config('cost');
|
||
|
|
} else {
|
||
|
|
$cost = (float) $plugin_instance->cost;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Use the same rounding of floats as on the enrol form.
|
||
|
|
$cost = format_float($cost, 2, false);
|
||
|
|
|
||
|
|
if ($data->payment_gross < $cost) {
|
||
|
|
\enrol_paypal\util::message_paypal_error_to_admin("Amount paid is not enough ($data->payment_gross < $cost))", $data);
|
||
|
|
die;
|
||
|
|
|
||
|
|
}
|
||
|
|
// Use the queried course's full name for the item_name field.
|
||
|
|
$data->item_name = $course->fullname;
|
||
|
|
|
||
|
|
// ALL CLEAR !
|
||
|
|
|
||
|
|
$DB->insert_record("enrol_paypal", $data);
|
||
|
|
|
||
|
|
if ($plugin_instance->enrolperiod) {
|
||
|
|
$timestart = time();
|
||
|
|
$timeend = $timestart + $plugin_instance->enrolperiod;
|
||
|
|
} else {
|
||
|
|
$timestart = 0;
|
||
|
|
$timeend = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Enrol user
|
||
|
|
$plugin->enrol_user($plugin_instance, $user->id, $plugin_instance->roleid, $timestart, $timeend);
|
||
|
|
|
||
|
|
// Pass $view=true to filter hidden caps if the user cannot see them
|
||
|
|
if ($users = get_users_by_capability($context, 'moodle/course:update', 'u.*', 'u.id ASC',
|
||
|
|
'', '', '', '', false, true)) {
|
||
|
|
$users = sort_by_roleassignment_authority($users, $context);
|
||
|
|
$teacher = array_shift($users);
|
||
|
|
} else {
|
||
|
|
$teacher = false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$mailstudents = $plugin->get_config('mailstudents');
|
||
|
|
$mailteachers = $plugin->get_config('mailteachers');
|
||
|
|
$mailadmins = $plugin->get_config('mailadmins');
|
||
|
|
$shortname = format_string($course->shortname, true, array('context' => $context));
|
||
|
|
|
||
|
|
|
||
|
|
if (!empty($mailstudents)) {
|
||
|
|
$a = new stdClass();
|
||
|
|
$a->coursename = format_string($course->fullname, true, array('context' => $coursecontext));
|
||
|
|
$a->profileurl = "$CFG->wwwroot/user/view.php?id=$user->id";
|
||
|
|
|
||
|
|
$eventdata = new \core\message\message();
|
||
|
|
$eventdata->courseid = $course->id;
|
||
|
|
$eventdata->modulename = 'moodle';
|
||
|
|
$eventdata->component = 'enrol_paypal';
|
||
|
|
$eventdata->name = 'paypal_enrolment';
|
||
|
|
$eventdata->userfrom = empty($teacher) ? core_user::get_noreply_user() : $teacher;
|
||
|
|
$eventdata->userto = $user;
|
||
|
|
$eventdata->subject = get_string("enrolmentnew", 'enrol', $shortname);
|
||
|
|
$eventdata->fullmessage = get_string('welcometocoursetext', '', $a);
|
||
|
|
$eventdata->fullmessageformat = FORMAT_PLAIN;
|
||
|
|
$eventdata->fullmessagehtml = '';
|
||
|
|
$eventdata->smallmessage = '';
|
||
|
|
message_send($eventdata);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($mailteachers) && !empty($teacher)) {
|
||
|
|
$a->course = format_string($course->fullname, true, array('context' => $coursecontext));
|
||
|
|
$a->user = fullname($user);
|
||
|
|
|
||
|
|
$eventdata = new \core\message\message();
|
||
|
|
$eventdata->courseid = $course->id;
|
||
|
|
$eventdata->modulename = 'moodle';
|
||
|
|
$eventdata->component = 'enrol_paypal';
|
||
|
|
$eventdata->name = 'paypal_enrolment';
|
||
|
|
$eventdata->userfrom = $user;
|
||
|
|
$eventdata->userto = $teacher;
|
||
|
|
$eventdata->subject = get_string("enrolmentnew", 'enrol', $shortname);
|
||
|
|
$eventdata->fullmessage = get_string('enrolmentnewuser', 'enrol', $a);
|
||
|
|
$eventdata->fullmessageformat = FORMAT_PLAIN;
|
||
|
|
$eventdata->fullmessagehtml = '';
|
||
|
|
$eventdata->smallmessage = '';
|
||
|
|
message_send($eventdata);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!empty($mailadmins)) {
|
||
|
|
$a->course = format_string($course->fullname, true, array('context' => $coursecontext));
|
||
|
|
$a->user = fullname($user);
|
||
|
|
$admins = get_admins();
|
||
|
|
foreach ($admins as $admin) {
|
||
|
|
$eventdata = new \core\message\message();
|
||
|
|
$eventdata->courseid = $course->id;
|
||
|
|
$eventdata->modulename = 'moodle';
|
||
|
|
$eventdata->component = 'enrol_paypal';
|
||
|
|
$eventdata->name = 'paypal_enrolment';
|
||
|
|
$eventdata->userfrom = $user;
|
||
|
|
$eventdata->userto = $admin;
|
||
|
|
$eventdata->subject = get_string("enrolmentnew", 'enrol', $shortname);
|
||
|
|
$eventdata->fullmessage = get_string('enrolmentnewuser', 'enrol', $a);
|
||
|
|
$eventdata->fullmessageformat = FORMAT_PLAIN;
|
||
|
|
$eventdata->fullmessagehtml = '';
|
||
|
|
$eventdata->smallmessage = '';
|
||
|
|
message_send($eventdata);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
} else if (strcmp ($result, "INVALID") == 0) { // ERROR
|
||
|
|
$DB->insert_record("enrol_paypal", $data, false);
|
||
|
|
throw new moodle_exception('erripninvalid', 'enrol_paypal', '', null, json_encode($data));
|
||
|
|
}
|
||
|
|
}
|