<?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);
	}
}