<?php
/*
 * Laconica - a distributed open-source microblogging tool
 * Copyright (C) 2008, Controlez-Vous, Inc.
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program 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 Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

if (!defined('LACONICA')) { exit(1); }

require_once('OAuth.php');
require_once(INSTALLDIR.'/lib/oauthstore.php');

require_once(INSTALLDIR.'/classes/Consumer.php');
require_once(INSTALLDIR.'/classes/Nonce.php');
require_once(INSTALLDIR.'/classes/Token.php');

require_once('Auth/Yadis/Yadis.php');

define('OAUTH_NAMESPACE', 'http://oauth.net/core/1.0/');
define('OMB_NAMESPACE', 'http://openmicroblogging.org/protocol/0.1');
define('OMB_VERSION_01', 'http://openmicroblogging.org/protocol/0.1');
define('OAUTH_DISCOVERY', 'http://oauth.net/discovery/1.0');

define('OMB_ENDPOINT_UPDATEPROFILE', OMB_NAMESPACE.'/updateProfile');
define('OMB_ENDPOINT_POSTNOTICE', OMB_NAMESPACE.'/postNotice');
define('OAUTH_ENDPOINT_REQUEST', OAUTH_NAMESPACE.'endpoint/request');
define('OAUTH_ENDPOINT_AUTHORIZE', OAUTH_NAMESPACE.'endpoint/authorize');
define('OAUTH_ENDPOINT_ACCESS', OAUTH_NAMESPACE.'endpoint/access');
define('OAUTH_ENDPOINT_RESOURCE', OAUTH_NAMESPACE.'endpoint/resource');
define('OAUTH_AUTH_HEADER', OAUTH_NAMESPACE.'parameters/auth-header');
define('OAUTH_POST_BODY', OAUTH_NAMESPACE.'parameters/post-body');
define('OAUTH_HMAC_SHA1', OAUTH_NAMESPACE.'signature/HMAC-SHA1');

function omb_oauth_consumer() {
	static $con = NULL;
	if (!$con) {
		$con = new OAuthConsumer(common_root_url(), '');
	}
	return $con;
}

function omb_oauth_server() {
	static $server = null;
	if (!$server) {
		$server = new OAuthServer(omb_oauth_datastore());
		$server->add_signature_method(omb_hmac_sha1());
	}
	return $server;
}

function omb_oauth_datastore() {
	static $store = NULL;
	if (!$store) {
		$store = new LaconicaOAuthDataStore();
	}
	return $store;
}

function omb_hmac_sha1() {
	static $hmac_method = NULL;
	if (!$hmac_method) {
		$hmac_method = new OAuthSignatureMethod_HMAC_SHA1();
	}
	return $hmac_method;
}

function omb_get_services($xrd, $type) {
	return $xrd->services(array(omb_service_filter($type)));
}

function omb_service_filter($type) {
	return create_function('$s',
						   'return omb_match_service($s, \''.$type.'\');');
}

function omb_match_service($service, $type) {
	return in_array($type, $service->getTypes());
}

function omb_service_uri($service) {
	if (!$service) {
		return NULL;
	}
	$uris = $service->getURIs();
	if (!$uris) {
		return NULL;
	}
	return $uris[0];
}

function omb_local_id($service) {
	if (!$service) {
		return NULL;
	}
	$els = $service->getElements('xrd:LocalID');
	if (!$els) {
		return NULL;
	}
	$el = $els[0];
	return $service->parser->content($el);
}

function omb_broadcast_remote_subscribers($notice) {
	# First, get remote users subscribed to this profile
	# XXX: use a join here rather than looping through results
	$sub = new Subscription();
	$sub->subscribed = $notice->profile_id;
	if ($sub->find()) {
		$posted = array();
		while ($sub->fetch()) {
			$rp = Remote_profile::staticGet('id', $sub->subscriber);
			if ($rp) {
				if (!$posted[$rp->postnoticeurl]) {
					if (omb_post_notice($notice, $rp, $sub)) {
						$posted[$rp->postnoticeurl] = TRUE;
					}
				}
			}
		}
	}
	return true;
}

function omb_post_notice($notice, $remote_profile, $subscription) {
	global $config; # for license URL
	$user = User::staticGet('id', $notice->profile_id);
	$con = omb_oauth_consumer();
	$token = new OAuthToken($subscription->token, $subscription->secret);
	$url = $remote_profile->postnoticeurl;
	$parsed = parse_url($url);
	$params = array();
	parse_str($parsed['query'], $params);
	$req = OAuthRequest::from_consumer_and_token($con, $token,
												 "POST", $url, $params);
	$req->set_parameter('omb_version', OMB_VERSION_01);
	$req->set_parameter('omb_listenee', $user->uri);
	$req->set_parameter('omb_notice', $notice->uri);
	$req->set_parameter('omb_notice_content', $notice->content);
	$req->set_parameter('omb_notice_url', common_local_url('shownotice',
														   array('notice' =>
																 $notice->id)));
	$req->set_parameter('omb_notice_license', $config['license']['url']);

	$req->sign_request(omb_hmac_sha1(), $con, $token);

	# We re-use this tool's fetcher, since it's pretty good

	$fetcher = Auth_Yadis_Yadis::getHTTPFetcher();

	$result = $fetcher->post($req->get_normalized_http_url(),
							 $req->to_postdata());

	common_debug('Got HTTP result "'.print_r($result,TRUE).'"', __FILE__);

	if ($result->status == 403) { # not authorized, don't send again
		common_debug('403 result, deleting subscription', __FILE__);
		$subscription->delete();
		return false;
	} else if ($result->status != 200) {
		common_debug('Error status '.$result->status, __FILE__);
		return false;
	} else { # success!
		parse_str($result->body, $return);
		if ($return['omb_version'] == OMB_VERSION_01) {
			return true;
		} else {
			return false;
		}
	}
}

function omb_broadcast_profile($profile) {
	# First, get remote users subscribed to this profile
	# XXX: use a join here rather than looping through results
	$sub = new Subscription();
	$sub->subscribed = $profile->id;
	if ($sub->find()) {
		$updated = array();
		while ($sub->fetch()) {
			$rp = Remote_profile::staticGet('id', $sub->subscriber);
			if ($rp) {
				if (!$updated[$rp->updateprofileurl]) {
					if (omb_update_profile($profile, $rp, $sub)) {
						$updated[$rp->updateprofileurl] = TRUE;
					}
				}
			}
		}
	}
}

function omb_update_profile($profile, $remote_profile, $subscription) {
	global $config; # for license URL
	$user = User::staticGet($profile->id);
	$con = omb_oauth_consumer();
	$token = new OAuthToken($subscription->token, $subscription->secret);
	$url = $remote_profile->updateprofileurl;
	$parsed = parse_url($url);
	$params = array();
	parse_str($parsed['query'], $params);
	$req = OAuthRequest::from_consumer_and_token($con, $token,
												 "POST", $url, $params);
	$req->set_parameter('omb_version', OMB_VERSION_01);
	$req->set_parameter('omb_listenee', $user->uri);
	$req->set_parameter('omb_listenee_profile', common_profile_url($profile->nickname));
	$req->set_parameter('omb_listenee_nickname', $profile->nickname);

	# We use blanks to force emptying any existing values in these optional fields

	$req->set_parameter('omb_listenee_fullname',
						($profile->fullname) ? $profile->fullname : '');
	$req->set_parameter('omb_listenee_homepage',
						($profile->homepage) ? $profile->homepage : '');
	$req->set_parameter('omb_listenee_bio',
						($profile->bio) ? $profile->bio : '');
	$req->set_parameter('omb_listenee_location',
						($profile->location) ? $profile->location : '');

	$avatar = $profile->getAvatar(AVATAR_PROFILE_SIZE);
	$req->set_parameter('omb_listenee_avatar',
						($avatar) ? $avatar->url : '');

	$req->sign_request(omb_hmac_sha1(), $con, $token);

	# We re-use this tool's fetcher, since it's pretty good

	$fetcher = Auth_Yadis_Yadis::getHTTPFetcher();

	common_debug('request URL = '.$req->get_normalized_http_url(), __FILE__);
	common_debug('postdata = '.$req->to_postdata(), __FILE__);
	$result = $fetcher->post($req->get_normalized_http_url(),
							 $req->to_postdata());

	common_debug('Got HTTP result "'.print_r($result,TRUE).'"', __FILE__);

	if ($result->status == 403) { # not authorized, don't send again
		common_debug('403 result, deleting subscription', __FILE__);
		$subscription->delete();
		return false;
	} else if ($result->status != 200) {
		common_debug('Error status '.$result->status, __FILE__);
		return false;
	} else { # success!
		parse_str($result->body, $return);
		if ($return['omb_version'] == OMB_VERSION_01) {
			return true;
		} else {
			return false;
		}
	}
}