<?php

/*

Plugin Name: xili-language

Plugin URI: http://dev.xiligroup.com/xili-language/

Description: This plugin modify on the fly the translation of the theme depending the language of the post or other blog elements - a way to create a real multilanguage site (cms or blog). It introduce a new taxonomy - here language - to describe posts and pages. To complete with tags, use also xili-tidy-tags plugin. 

Author: dev.xiligroup.com - MS

Version: 1.4.1

Author URI: http://dev.xiligroup.com

*/

# updated 100220 - 1.4.1 - wp_title translation for categories, () suppressed in cats list display, auto-search linked posts option

# updated 100216 - 1.3.2 - Option to modify home query according rules by chief editor. fixes gold functions. New Recent Posts Widget.

# updated 100216 - 1.3.1 - Just to correct a minor omission - Add New link works now for linked pages.

# updated 100215 - 1.3.0 - new functions to change and restore loop's language query-tag. Better post UI to create linked post - fixes lost lang's link when trash or untrash.

# updated 100207 - 1.2.1 - fixes some directories issues in (rare) xamp servers - Some improvements in post edit UI.

# updated 100109 - 1.2.0 - tested with WP 2.9.1 - more localization for admin UI (RU)

# updated 091104 - 1.1.9.1 - fixes special functions

# updated 091103 - 1.1.9 - optional improve hooking ways to be compatible with l10n cache of Johan see line 2200 - fix title of wp_get_archive links with current permalinks.

# updated 091019 - 1.1.8 - gold functions and shortcode for linked posts - first tests with WP 2.9

# updated 091007 - 1.1.es - tests - gold functions active - update undefined posts functions in library

# updated 090918 - 1.1 - xiliml_the_other_posts function improved and upgraded for CMS webmasters

# updated 090719 - 1.0.2 - fix unexpected like tags metabox added by WP 28 tracs #10437

# updated 090626 - 1.0.1 - fix filter unique id for category link hooks

# updated 090615 - 1.0 - Via admin UI, new ways to choose default language of front-page (page, home,...)

# updated 090606 - 0.9.9.6 - ready for 2.8 hooks - ready for multiple languages list widget

# see readme text for these intermediate versions.

# updated 090228 - Class and OOP - see 0.9.7 in comments of functions below - only for WP 2.7.x

# This plugin is free software; you can redistribute it and/or

# modify it under the terms of the GNU Lesser General Public

# License as published by the Free Software Foundation; either

# version 2.1 of the License, or (at your option) any later version.

#

# This plugin 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

# Lesser General Public License for more details.

#

# You should have received a copy of the GNU Lesser General Public

# License along with this plugin; if not, write to the Free Software

# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

define('XILILANGUAGE_VER','1.4.1'); /* used in admin UI*/

class xili_language {

	var $default_lang; /* language of config.php*/

	var $curlang;

	var $langstate; /* undefined or not */

	var $browseroption = '';

	var $authorbrowseroption = '';

	var $functions_enable = '';

	var $default_dir = ''; /* undefined or not in WP config '' or rtl or ltr */

	var $curlang_dir = ''; /* undefined or not according array */

	var $rtllanglist = 'ar-he-fa-ur'; /*default-list - can be set after class instantiation*/

	var $post_ajax = false; /* ajax used in meta box in post edit UI unstable yet */

	var $is_metabox = false; /* meta box in post edit UI - if used don't use custom fields that are not refreshed */

	var $xili_settings; /* saved in options */

	var $langs_group_id; /* group ID and Term Taxo ID */

	var $langs_group_tt_id; 

	var $get_archives_called = array(); /* if != '' - insert lang in link */

	var $idx = array(); /* used to identify filter or action set from this class - since 0.9.9.6 */

	var $theme_locale = false; /* to control locale hook */

	var $ossep = "/"; /* for recursive file search in xamp */

	var $current_lang_query_tag = ""; /* since 1.3.0 */

	var $temp_lang_query_tag = "";

	function xili_language($metabox = false, $post_ajax = false, $locale_method = false) {

		$this->is_metabox = $metabox;

		$this->post_ajax = $post_ajax;

		$this->locale_method = $locale_method; /* added for compatibility with cache plugin from johan */

		/*activated when first activation of plug*/

		register_activation_hook(__FILE__,array(&$this,'xili_language_activate'));

		$this->ossep = strtoupper(substr(PHP_OS,0,3)=='WIN')?'\\':'/';

		/*get current settings - name of taxonomy - name of query-tag - 0.9.8 new taxonomy taxolangsgroup */

		$this->xili_settings = get_option('xili_language_settings');

		if(empty($this->xili_settings)) {

			$submitted_settings = array(

			    'taxonomy'		=> 'language',

			    'version' 		=> '0.4',

			    'reqtag'		=> 'lang',

			    'browseroption' => '',

			    'authorbrowseroption' => '',

			    'taxolangsgroup' => 'languages_group',

			    'functions_enable' => '',

			    'langs_folder' => '',

			    'theme_domain' => '',

			    'homelang' => '' 

		    );

			define('TAXONAME','language');

			define('QUETAG','lang');

			define('TAXOLANGSGROUP','languages_group');

			update_option('xili_language_settings', $submitted_settings);	

			$this->xili_settings = get_option('xili_language_settings');		

		} else {

			define('TAXONAME',$this->xili_settings['taxonomy']);

			define('QUETAG',$this->xili_settings['reqtag']);

			$this->browseroption = $this->xili_settings['browseroption'];

			$this->authorbrowseroption = $this->xili_settings['authorbrowseroption'];

			$this->functions_enable = $this->xili_settings['functions_enable'];

			if ($this->xili_settings['version'] == '0.2' || $this->xili_settings['version'] == '0.3') { /* 1.3.2 */

				$this->xili_settings['taxolangsgroup'] = 'languages_group';

				$this->xili_settings['homelang'] = '';

				$this->xili_settings['version'] = '0.4';

				update_option('xili_language_settings', $this->xili_settings);

			}	

			define('TAXOLANGSGROUP',$this->xili_settings['taxolangsgroup']);

		}

		define('XILIFUNCTIONSPATH',WP_PLUGIN_DIR.'/xilidev-libraries'); /* since 1.0 to add xili-libraries */

		/** add new taxonomy in available taxonomies 

		 * 1.0.2 - add label false as http://core.trac.wordpress.org/ticket/10437 

		 * 			to avoid metabox as tag displayed

		 */

		register_taxonomy( TAXONAME, 'post',array('hierarchical' => false, 'label'=>false, 'rewrite' => false, 'update_count_callback' => array(&$this,'_update_post_lang_count')));

		register_taxonomy( TAXOLANGSGROUP, 'term',array('hierarchical' => false, 'update_count_callback' => ''));

		$thegroup = get_terms(TAXOLANGSGROUP, array('hide_empty' => false,'slug' => 'the-langs-group'));

		if (!$thegroup) { /* update langs group 0.9.8 */

			$args = array( 'alias_of' => '', 'description' => 'the group of languages', 'parent' => 0, 'slug' =>'the-langs-group');

			wp_insert_term( 'the-langs-group', TAXOLANGSGROUP, $args); /* create and link to existing langs */

			$listlanguages = get_terms(TAXONAME, array('hide_empty' => false));

			foreach($listlanguages as $language) {

				wp_set_object_terms($language->term_id, 'the-langs-group', TAXOLANGSGROUP);

			}

			$thegroup = get_terms(TAXOLANGSGROUP, array('hide_empty' => false,'slug' => 'the-langs-group'));

		}

		$this->langs_group_id = $thegroup[0]->term_id;

		$this->langs_group_tt_id = $thegroup[0]->term_taxonomy_id;

		/* default values */

		if (''!= WPLANG && strlen(WPLANG)==5) :

			$this->default_lang = WPLANG;

		else:

			$this->default_lang = 'en_US';

		endif;

		define('DEFAULTSLUG', $this->get_default_slug());

		if ( $dir = get_bloginfo('text_direction') ) /* if present in blog options @since 0.9.9 */

			$this->default_dir = $dir;

		add_filter('query_vars', array(&$this,'keywords_addQueryVar'));

		add_filter('posts_join', array(&$this,'with_lang'));

		add_filter('posts_where', array(&$this,'where_lang'));

		add_action('wp', array(&$this,'xiliml_language_wp')); 

		/* 'wp' = where theme's language is defined just after query */

		if ($this->locale_method)

			add_filter('locale', array(&$this,'xiliml_setlocale'), 10);

		/* to be compatible with l10n cache from Johan since 1.1.9 */

		add_filter('language_attributes',  array(&$this,'head_language_attributes'));

		add_action('wp_head', array(&$this,'head_insert_language_metas'),10,2);

 	 	add_filter('widget_title', array(&$this,'widget_texts')); /* added 0.9.8.1 */

	 	add_filter('widget_text', array(&$this,'widget_texts'));

		add_filter('list_cats', array(&$this,'xiliml_cat_language'),10,2); /* mode 2 : content = name */

		add_filter('category_link', array(&$this,'xiliml_link_append_lang'));

		$filter = 'category_link';

		$function = 'xiliml_link_append_lang';

		$this->idx['xiliml_link_append_lang'] = _wp_filter_build_unique_id($filter, array (&$this, $function == '' ? $filter : $function), 10); /* unique id of this filter from object fixed 1.0.1 */

		add_filter('category_description',array(&$this,'xiliml_link_translate_desc'));

		add_filter('single_cat_title',array(&$this,'xiliml_single_cat_title_translate')); /* 1.4.1 wp_title() */

		add_filter('tag_link', array(&$this,'xiliml_taglink_append_lang' ));

		add_action('pre_get_posts', array(&$this,'xiliml_modify_querytag'));

		/* filters for archives since 0.9.9.4 */

		add_filter('getarchives_join', array(&$this,'xiliml_getarchives_join'),10,2);

		add_filter('getarchives_where', array(&$this,'xiliml_getarchives_where'),10,2);

		add_filter('get_archives_link', array(&$this,'xiliml_get_archives_link'));

		/* actions for post and page admin UI */

		add_action('save_post', array(&$this,'xili_language_add'));

		//add_action('publish_post', array(&$this,'xili_language_add')); /* only set when published !*/

		add_action('save_page', array(&$this,'xili_language_add'));

		//add_action('publish_page', array(&$this,'xili_language_add'));

		if ($this->post_ajax) {

			add_action( 'wp_ajax_oklinked', array(&$this,'ok_linked') );

			add_action( 'wp_ajax_customrefresh', array(&$this,'custom_refresh') );

		}

		/* admin settings UI*/

		add_action('init', array(&$this, 'init_textdomain'));

		add_filter('plugin_action_links',  array(&$this,'xililang_filter_plugin_actions'), 10, 2);

		add_action('admin_menu', array(&$this,'myplugin_add_custom_box'));

		add_action('admin_menu', array(&$this,'xili_add_pages'));

		/* special to detect theme changing since 1.1.9 */

		add_action('switch_theme', array(&$this,'theme_switched'));

		/* inspired from custax */

		add_action('manage_posts_custom_column', array(&$this,'xili_manage_column'), 10, 2);

		add_filter('manage_edit_columns', array(&$this,'xili_manage_column_name'));

		add_action('manage_pages_custom_column', array(&$this,'xili_manage_column'), 10, 2);

		add_filter('manage_edit-pages_columns', array(&$this,'xili_manage_column_name'));

		/* new actions for xili-language theme's templates tags */

		$this->add_action('xili_language_list','xili_language_list',10,3); /* add third param 0.9.7.4*/

		$this->add_action('xili_post_language','xili_post_language',10,2);

		$this->add_action('xiliml_the_other_posts','xiliml_the_other_posts',10,4); /* add a param 1.1 */

		$this->add_action('xiliml_the_category','xiliml_the_category',10,3);

		$this->add_action('xiliml_langinsearchform','xiliml_langinsearchform',10,2);

	}

	function add_action ($action, $function = '', $priority = 10, $accepted_args = 1)

	{

		add_action ($action, array (&$this, $function == '' ? $action : $function), $priority, $accepted_args);

		$this->idx[$action] = _wp_filter_build_unique_id($action, array (&$this, $function == '' ? $action : $function), $priority); /* unique id of this filter from object */		 

	}

	function add_filter ($filter, $function = '', $priority = 10, $accepted_args = 1)

	{

		add_filter ($filter, array (&$this, $function == '' ? $filter : $function), $priority, $accepted_args);

		$this->idx[$filter] = _wp_filter_build_unique_id($filter, array (&$this, $function == '' ? $filter : $function), $priority); /* unique id of this filter from object fixed 1.0.1 */

	}

	/**

	 * More than one filter for the function. 

	 *

	 * @since 0.9.7

	 * 

	 * @param $the_function (string). 

	 * @return true if more than one.

	 */

	function this_has_filter($the_function) {

		global $wp_filter;

		$has = $wp_filter[$the_function];

		//print_r($has);

		$keys = array_keys($has);

		//echo count($has[$keys[0]]);

		if (count($has[$keys[0]]) >= 2) { /*one from class others from functions.php or elsewhere*/

			return true;

		} else {

			return false;

		} 	

	}	

	function myplugin_add_custom_box() {		

 		add_meta_box('xilil-2', __("Page's language",'xili-language'), array(&$this,'xili_language_checkboxes_n'), 'page', 'side','high');

 		add_meta_box('xilil-2', __("Post's language",'xili-language'), array(&$this,'xili_language_checkboxes_n'), 'post', 'side','high');

 		if ($this->is_metabox) {

 			add_meta_box('xilil-1', __('Linked posts','xili-language'), array(&$this,'xili_language_linked_posts'), 'post', 'side','high');

 			add_meta_box('xilil-1', __('Linked pages','xili-language'), array(&$this,'xili_language_linked_posts'), 'page', 'side','high');

 		}

	}

	/**

	 * Will update term count based on posts AND pages.

	 *  

	 * @access private from register taxonomy etc...

	 * @since 0.9.8.1

	 * @uses $wpdb

	 *

	 * @param array $terms List of Term taxonomy IDs

	 */

	function _update_post_lang_count( $terms ) {

		global $wpdb;

		foreach ( (array) $terms as $term ) {

			$count = $wpdb->get_var( $wpdb->prepare( "SELECT COUNT(*) FROM $wpdb->term_relationships, $wpdb->posts WHERE $wpdb->posts.ID = $wpdb->term_relationships.object_id AND post_status = 'publish' AND term_taxonomy_id = %d", $term ) );

			$wpdb->update( $wpdb->term_taxonomy, compact( 'count' ), array( 'term_taxonomy_id' => $term ) );

		}

	}

	/**

	 * set language when post or page is saved or changed 

	 *

	 * @since 0.9.0

	 * @completed 0.9.7.1 to record postmeta of linked posts in other languages

	 * @updated 0.9.7.5 to delete relationship when undefined

	 * @updated 0.9.9 to avoid delete relationship when in quick_edit

	 * @updated 1.3.0 to avoid delete relationship when trashing - 1.4.1 - create post-meta xl-search-linked

	 * @param $post_ID

	 */

	function xili_language_add($post_ID) {

		if (!isset($_POST['_inline_edit'])) { /* to avoid delete relationship when in quick_edit (edit.php) */

			$sellang = $_POST['xili_language_set'];

			if ("" != $sellang) {

				wp_set_object_terms($post_ID, $sellang, TAXONAME);

			} else {

				if ($_GET['action'] != 'trash' && $_GET['action'] != 'untrash')

						wp_delete_object_term_relationships( $post_ID, TAXONAME ); 	

			}

			if ($this->is_metabox) {	

				/* the linked posts set by author */	

				$listlanguages = get_terms(TAXONAME, array('hide_empty' => false));

				foreach ($listlanguages as $language) {

					$inputid = 'xili_language_'.QUETAG.'-'.$language->slug ;

					$recinputid = 'xili_language_rec_'.QUETAG.'-'.$language->slug ;

					$linkid = $_POST[$inputid];

					$reclinkid = $_POST[$recinputid]; /* hidden previous value */

					$langslug = QUETAG.'-'.$language->slug ;

					if ($reclinkid != $linkid) { /* only if changed value or created since 1.3.0 */			

						if ((is_numeric($linkid) && $linkid == 0) || '' == $linkid ) {

							delete_post_meta($post_ID, $langslug);

						} elseif (is_numeric($linkid) && $linkid > 0) {

							update_post_meta($post_ID, $langslug, $linkid);

							if ($reclinkid == "-1")	update_post_meta($linkid, QUETAG.'-'.$sellang, $post_ID); 

						}

					}	

				}

				//if (isset($_POST['xili_language_search_lang'])) {

					if ('' != $_POST['xili_language_search_lang']) {

						update_post_meta($post_ID, '_xl-search-linked', $_POST['xili_language_search_lang']);

					} else {

						if ($_GET['action'] != 'trash' && $_GET['action'] != 'untrash')

												delete_post_meta($post_ID, '_xl-search-linked');

					}

				//}	

			}

		} /* quick edit */		

	}

	/**

	 * Return language dir

	 *

	 * @since 0.9.9

	 * @param slug of lang

	 */

	function get_dir_of_cur_language($lang_slug) {

		$rtlarray = explode ('-',$this->rtllanglist);			

		$dir = (in_array(substr(strtolower($lang_slug),0,2),$rtlarray)) ? 'rtl' : 'ltr';

		return $dir;

	}

	/**

	 * Return language of post.

	 *

	 * @since 0.9.0

	 * @updated 0.9.7.6, 0.9.9

	 *

	 * @param $post_ID.

	 * @return slug of language of post or false if var langstate is false.

	 */

	function get_cur_language($post_ID) {

		$ress = wp_get_object_terms($post_ID, TAXONAME);

		if ($ress) {

			if (is_a($ress, 'WP_Error')){

				echo "Language table not created ! see plug-in admin";

				$this->langstate = false;

			} else {

				$obj_term = $ress[0];

				$this->langstate = true;

				$postlang = $obj_term->slug;

				$postlangdir = $this->get_dir_of_cur_language($postlang);

				return array('lang'=>$postlang,'direction'=>$postlangdir);

			}

	 	} else {

	 		$this->langstate = false; /* can be used in language attributes for header */

	  		return false;	/* undefined state */

	 	}		

	}

	/* first activation of plugin */

	function xili_language_activate() {

		$this->xili_settings = get_option('xili_language_settings');

		if(empty($this->xili_settings)) {

			$this->xili_settings = array(

			    'taxonomy'		=> 'language',

			    'version' 		=> '0.4',

			    'reqtag'		=> 'lang',

			    'browseroption' => '',

			    'authorbrowseroption' => '',

			    'taxolangsgroup' => 'languages_group',

			    'functions_enable' => '',

			    'langs_folder' => '',

			    'theme_domain' => '',

			    'homelang' => '' 

		    );

		    update_option('xili_language_settings', $this->xili_settings);

		}

	}

	/*enable the new query tag associated with new taxonomy*/

	function keywords_addQueryVar($vars) {

		$vars[] = QUETAG;

	return $vars ;

	}

	function get_default_slug() {

		$listlanguages = get_terms(TAXONAME, array('hide_empty' => false));

		$default_slug = 'en_us';

		foreach ($listlanguages as $language) {

			if ($language->name == $this->default_lang ) return $language->slug;

		}

		return $default_slug ;

	}

	/**