<?php

/**

 * @package    Social

 * @subpackage services

 */

abstract class Social_Service {

	/**

	 * @var  string  service key

	 */

	protected $_key = '';

	/**

	 * @var  array  collection of account objects

	 */

	protected $_accounts = array();

	/**

	 * Instantiates the

	 *

	 * @param  array  $accounts

	 */

	public function __construct(array $accounts = array()) {

		$this->accounts($accounts);

	}

	/**

	 * Returns the service key.

	 *

	 * @return string

	 */

	public function key() {

		return $this->_key;

	}

	/**

	 * Gets the title for the service.

	 *

	 * @return string

	 */

	public function title() {

		return ucwords(str_replace('_', ' ', $this->_key));

	}

	/**

	 * The max length a post can be when broadcasted.

	 *

	 * @return int

	 */

	public function max_broadcast_length() {

		return 140; // default to Twitter length

	}

	/**

	 * Builds the authorize URL for the service.

	 *

	 * @return string

	 */

	public function authorize_url() {

		global $post;

		$proxy = Social::$api_url.$this->_key.'/authorize';

		$url = apply_filters('social_authorize_url', $proxy, $this->_key);

		$params = '?social_controller=auth&social_action=authorize&target='.urlencode($url);

		if (is_admin()) {

			$url = (defined('IS_PROFILE_PAGE') ? 'profile.php' : 'options-general.php');

			$url = admin_url($url.$params);

		}

		else {

			$url = home_url('index.php'.$params.'&post_id='.$post->ID);

		}

		return $url;

	}

	/**

	 * Returns the disconnect URL.

	 *

	 * @static

	 *

	 * @param  object  $account

	 * @param  bool    $is_admin

	 * @param  string  $before

	 * @param  string  $after

	 *

	 * @return string

	 */

	public function disconnect_url($account, $is_admin = false, $before = '', $after = '') {

		$params = array(

			'social_controller' => 'auth',

			'social_action' => 'disconnect',

			'id' => $account->id(),

			'service' => $this->_key

		);

		if ($is_admin) {

			$personal = defined('IS_PROFILE_PAGE');

			$url = Social::settings_url($params, $personal);

		}

		else {

			$params['redirect_to'] = (isset($_GET['redirect_to']) ? $_GET['redirect_to'] : $_SERVER['REQUEST_URI']);

			foreach ($params as $key => $value) {

				$params[$key] = urlencode($value);

			}

			$url = add_query_arg($params, home_url());

		}

		return $url;

	}

	/**

	 * Returns the disconnect link.

	 *

	 * @static

	 *

	 * @param  object  $account

	 * @param  bool    $is_admin

	 * @param  string  $before

	 * @param  string  $after

	 *

	 * @return string

	 */

	public function disconnect_link($account, $is_admin = false, $before = '', $after = '') {

		$url = $this->disconnect_url($account, $is_admin, $before, $after);

		if ($is_admin) {

			$text = '<span title="'.__('Disconnect', 'social').'" class="social-disconnect">'.__('Disconnect', 'social').'</span>';

		}

		else {

			$text = __('Disconnect', 'social');

		}

		return sprintf('%s<a href="%s">%s</a>%s', $before, esc_url($url), $text, $after);

	}

	/**

	 * Creates a WordPress user with the passed in account.

	 *

	 * @param  Social_Service_Account  $account

	 * @param  string                  $nonce

	 * @return int|bool

	 */

	public function create_user($account, $nonce = null) {

		$username = $account->username();

		$username = sanitize_user($username, true);

		if (!empty($username)) {

			$user = get_user_by('login', $this->_key.'_'.$username);

			if ($user === false) {

				$id = wp_create_user($this->_key.'_'.$username, wp_generate_password(20, false), $this->_key.'.'.$username.'@example.com');

				if (is_wp_error($id)) {

					Social::log('Failed to create/find user with username of :username.', array(

						'username' => $username,

					));

					return false;

				}

				$role = '';

				if (get_option('users_can_register') == '1') {

					$role = get_option('default_role');

				}

				else {

					// Set commenter flag

					update_user_meta($id, 'social_commenter', 'true');

				}

				$user = new WP_User($id);

				$user->set_role($role);

				$user->show_admin_bar_front = 'false';

				wp_update_user(get_object_vars($user));

			}

			else {

				$id = $user->ID;

			}

			// Set the nonce

			if ($nonce !== null) {

				wp_set_current_user($id);

				update_user_meta($id, 'social_commenter', 'true');

				update_user_meta($id, 'social_auth_nonce_'.$nonce, 'true');

			}

			Social::log('Created/found user :username. (#:id)', array(

				'username' => $username,

				'id' => $id,

			));

			return $id;

		}

		Social::log('Failed to create/find user with username of :username.', array(

			'username' => $username,

		));

		return false;

	}

	/**

	 * Saves the accounts on the service.

	 *

	 * @param  bool  $personal  personal account?

	 * @return void

	 */

	public function save($personal = false) {

		// Flush the cache

		wp_cache_delete('services', 'social');

		$accounts = array();

		if ($personal) {

			foreach ($this->_accounts AS $account) {

				if ($account->personal()) {

					$accounts[$account->id()] = $account->as_object();

				}

				$account->universal(false);

			}

			$current = get_user_meta(get_current_user_id(), 'social_accounts', true);

			Social::log('Current accounts: :accounts', array(

				'accounts' => print_r($current, true)

			));

			if (count($accounts)) {

				$current[$this->_key] = $accounts;

			}

			else if (isset($current[$this->_key])) {

				unset($current[$this->_key]);

			}

			if (count($current)) {

				Social::log('New accounts: :accounts', array(

					'accounts' => print_r($current, true)

				));

				update_user_meta(get_current_user_id(), 'social_accounts', $current);

			}

			else {

				Social::log('No accounts, deleting user meta for user #:user_id social_accounts', array(

					'user_id' => get_current_user_id(),

				));

				delete_user_meta(get_current_user_id(), 'social_accounts');

			}

		}

		else {

			foreach ($this->_accounts AS $account) {

				if ($account->universal()) {

					$accounts[$account->id()] = $account->as_object();

				}

				$account->personal(false);

			}

			$current = Social::option('accounts');

			if ($current == null) {

				$current = array();

			}

			Social::log('Current accounts: :accounts', array(

				'accounts' => print_r($current, true)

			));

			if (count($accounts)) {

				$current[$this->_key] = $accounts;

			}

			else if (isset($current[$this->_key])) {

				unset($current[$this->_key]);

			}

			if (count($current)) {

				Social::log('New accounts: :accounts', array(

					'accounts' => print_r($current, true)

				));

				Social::option('accounts', $current);

			}

			else {

				Social::log('No accounts, deleting option social_accounts');

				delete_option('social_accounts');

			}

		}

	}

	/**

	 * Checks to see if the account exists on the object.

	 *

	 * @param  int  $id  account id

	 * @return bool

	 */

	public function account_exists($id) {

		return isset($this->_accounts[$id]);

	}

	/**

	 * Gets the requested account.

	 *

	 * @param  int|Social_Service_Account  $account  account id/object

	 * @return Social_Service_Account|Social_Service|bool

	 */

	public function account($account) {

		if ($account instanceof Social_Service_Account) {

			$this->_accounts[$account->id()] = $account;

			return $this;

		}

		if ($this->account_exists($account)) {

			return $this->_accounts[$account];

		}

		return false;

	}

	/**

	 * Gets the specified "api" account.

	 *

	 * @return Social_Service_Account|Social_Service|bool

	 */

	public function api_account() {

		if ($social_api_accounts = Social::option('social_api_accounts')) {

			if (isset($social_api_accounts[$this->key()])) {

				return $this->account($social_api_accounts[$this->key()]);

			}

		}

		return null;

	}

	/**

	 * Acts as a getter and setter for service accounts.

	 *

	 * @param  array  $accounts  accounts to add to the service

	 * @return array|Social_Service

	 */

	public function accounts(array $accounts = null) {

		if ($accounts === null) {

			return $this->_accounts;

		}

		$class = 'Social_Service_'.$this->_key.'_Account';

		foreach ($accounts as $account) {

			$account = new $class($account);

			if (!$this->account_exists($account->id())) {

				$this->_accounts[$account->id()] = $account;

			}

		}

		return $this;

	}

	/**

	 * Removes an account from the service.

	 *

	 * @abstract

	 * @param  int|Social_Service_Account  $account

	 * @return Social_Service

	 */

	public function remove_account($account) {

		Social::log('Starting account removal...');

		if (is_int($account)) {

			$account = $this->account($account);

		}

		Social::log('Accounts: :accounts', array(

			'accounts' => print_r($this->_accounts, true),

		));

		if ($account !== false) {

			Social::log('Removing...');

			unset($this->_accounts[$account->id()]);

		}

		Social::log('Accounts: :accounts', array(

			'accounts' => print_r($this->_accounts, true)

		));

		return $this;

	}

	/**

	 * Removes all accounts from the service.

	 *

	 * @abstract

	 * @return Social_Service

	 */

	public function clear_accounts() {

		$this->_accounts = array();

		return $this;

	}

	/**

	 * Formats the broadcast content.

	 *

	 * @param  object  $post

	 * @param  string  $format

	 * @return string

	 */

	public function format_content($post, $format) {

		// Filter the format

		$format = apply_filters('social_broadcast_format', $format, $post, $this);

		$_format = $format;

		$available = $this->max_broadcast_length();

		foreach (Social::broadcast_tokens() as $token => $description) {

			$_format = str_replace($token, '', $_format);

		}

		$available = $available - strlen($_format);

		$_format = explode(' ', $format);

		foreach (Social::broadcast_tokens() as $token => $description) {

			$content = '';

			switch ($token) {

				case '{url}':

					$url = wp_get_shortlink($post->ID);

					if (empty($url)) {

						$url = home_url('?p='.$post->ID);

					}

					$url = apply_filters('social_broadcast_permalink', $url, $post, $this);

					$content = esc_url($url);

					break;

				case '{title}':

					$content = htmlspecialchars_decode($post->post_title);

					break;

				case '{content}':

					$content = htmlspecialchars_decode(strip_tags($post->post_content));

 					$content = str_replace(array("\n", "\r", PHP_EOL, ' '), ' ', $content);

					$content = preg_replace('/\s+/', ' ', $content);

					break;

				case '{author}':

					$user = get_userdata($post->post_author);

					$content = htmlspecialchars_decode($user->display_name);

					break;

				case '{date}':

					$content = get_date_from_gmt($post->post_date_gmt);

					break;