122 lines
3.5 KiB
PHP
122 lines
3.5 KiB
PHP
|
<?php
|
||
|
/**
|
||
|
* @file src/Module/Magic.php
|
||
|
*/
|
||
|
namespace Friendica\Module;
|
||
|
|
||
|
use Friendica\BaseModule;
|
||
|
use Friendica\Database\DBM;
|
||
|
use Friendica\Network\Probe;
|
||
|
use Friendica\Util\HTTPSig;
|
||
|
use Friendica\Util\Network;
|
||
|
|
||
|
use dba;
|
||
|
|
||
|
class Magic extends BaseModule
|
||
|
{
|
||
|
public static function init()
|
||
|
{
|
||
|
$a = self::getApp();
|
||
|
$ret = ['success' => false, 'url' => '', 'message' => ''];
|
||
|
logger('magic mdule: invoked', LOGGER_DEBUG);
|
||
|
|
||
|
logger('args: ' . print_r($_REQUEST, true), LOGGER_DATA);
|
||
|
|
||
|
$addr = ((x($_REQUEST, 'addr')) ? $_REQUEST['addr'] : '');
|
||
|
$dest = ((x($_REQUEST, 'dest')) ? $_REQUEST['dest'] : '');
|
||
|
$test = ((x($_REQUEST, 'test')) ? intval($_REQUEST['test']) : 0);
|
||
|
$owa = ((x($_REQUEST, 'owa')) ? intval($_REQUEST['owa']) : 0);
|
||
|
|
||
|
// NOTE: I guess $dest isn't just the profile url (could be also
|
||
|
// other profile pages e.g. photo). We need to find a solution
|
||
|
// to be able to redirct to other pages than the contact profile.
|
||
|
$fields = ["id", "nurl", "url"];
|
||
|
$condition = ["nurl" => normalise_link($dest)];
|
||
|
|
||
|
$contact = dba::selectFirst("contact", $fields, $condition);
|
||
|
|
||
|
if (!DBM::is_result($contact)) {
|
||
|
// If we don't have a contact record, try to probe it.
|
||
|
/// @todo: Also check against the $addr.
|
||
|
Probe::uri($dest, '', -1, true, true);
|
||
|
$contact = dba::selectFirst("contact", $fields, $condition);
|
||
|
}
|
||
|
|
||
|
if (!DBM::is_result($contact)) {
|
||
|
logger("No contact record found: " . print_r($_REQUEST, true), LOGGER_DEBUG);
|
||
|
goaway($dest);
|
||
|
}
|
||
|
|
||
|
// Redirect if the contact is already authenticated on this site.
|
||
|
if (array_key_exists("id", $a->contact) && strpos($contact['nurl'], normalise_link(self::getApp()->get_baseurl())) !== false) {
|
||
|
if($test) {
|
||
|
$ret['success'] = true;
|
||
|
$ret['message'] .= 'Local site - you are already authenticated.' . EOL;
|
||
|
return $ret;
|
||
|
}
|
||
|
|
||
|
logger("Contact is already authenticated", LOGGER_DEBUG);
|
||
|
goaway($dest);
|
||
|
}
|
||
|
|
||
|
if (local_user()) {
|
||
|
$user = $a->user;
|
||
|
|
||
|
// OpenWebAuth
|
||
|
if ($owa) {
|
||
|
// Extract the basepath
|
||
|
// NOTE: we need another solution because this does only work
|
||
|
// for friendica contacts :-/ . We should have the basepath
|
||
|
// of a contact also in the contact table.
|
||
|
$exp = explode("/profile/", $contact['url']);
|
||
|
$basepath = $exp[0];
|
||
|
|
||
|
$headers = [];
|
||
|
$headers['Accept'] = 'application/x-dfrn+json';
|
||
|
$headers['X-Open-Web-Auth'] = random_string();
|
||
|
|
||
|
// Create a header that is signed with the local users private key.
|
||
|
$headers = HTTPSig::createSig(
|
||
|
'',
|
||
|
$headers,
|
||
|
$user['prvkey'],
|
||
|
'acct:' . $user['nickname'] . '@' . $a->get_hostname() . ($a->path ? '/' . $a->path : ''),
|
||
|
false,
|
||
|
true,
|
||
|
'sha512'
|
||
|
);
|
||
|
|
||
|
// Try to get an authentication token from the other instance.
|
||
|
$x = Network::curl($basepath . '/owa', false, $redirects, ['headers' => $headers]);
|
||
|
|
||
|
if ($x['success']) {
|
||
|
$j = json_decode($x['body'], true);
|
||
|
|
||
|
if ($j['success']) {
|
||
|
$token = '';
|
||
|
if ($j['encrypted_token']) {
|
||
|
// The token is encrypted. If the local user is really the one the other instance
|
||
|
// thinks he/she is, the token can be decrypted with the local users public key.
|
||
|
openssl_private_decrypt(base64url_decode($j['encrypted_token']), $token, $user['prvkey']);
|
||
|
} else {
|
||
|
$token = $j['token'];
|
||
|
}
|
||
|
$x = strpbrk($dest, '?&');
|
||
|
$args = (($x) ? '&owt=' . $token : '?f=&owt=' . $token);
|
||
|
|
||
|
goaway($dest . $args);
|
||
|
}
|
||
|
}
|
||
|
goaway($dest);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
if($test) {
|
||
|
$ret['message'] = 'Not authenticated or invalid arguments' . EOL;
|
||
|
return $ret;
|
||
|
}
|
||
|
|
||
|
goaway($dest);
|
||
|
}
|
||
|
}
|