.-.-.-.-.-

<?php
/**
 * BouncingOrange SPIP SEO plugin
 *
 * @category   SEO
 * @package    SPIP\SEO\Fonctions
 * @author     Pierre ROUSSET (p.rousset@gmail.com)
 * @copyright  Copyright (c) 2009 BouncingOrange (http://www.bouncingorange.com)
 * @license    http://opensource.org/licenses/gpl-2.0.php  General Public License (GPL 2.0)
 */

if (!defined('_ECRIRE_INC_VERSION')) {
	return;
}

include_spip('inc/texte');

/**
 * Remplace les meta du head par celles calculees par le plugin
 * utilise par le squelette inclure/seo-head
 *
 * @param string $head
 * @param array $contexte
 * @return string
 */
function seo_insere_remplace_metas($head, $contexte) {

$append = '';
	// on ne fait rien si deja insere
	if (strpos($head, $append) !== false) {
		return $head;
	}

include_spip('inc/config');
	$config = lire_config('seo/');
	$i = seo_interprete_contexte($contexte);
	$is_sommaire = ($i['objet']=='sommaire');

if (isset($config['meta_tags']['activate']) and $config['meta_tags']['activate']=='yes') {
		/* d'abord les meta tags */
		$meta_tags = seo_generer_meta_tags(null, $contexte);

foreach ($meta_tags as $key => $meta) {
			$preg = '';
			if ($key=='title') {
				/**
				 * Si le tag est <title>
				 */
				$preg = "/(<{$key}[^>]*>.*<\/{$key}[^>]*>)/Uims";
			} else {
				/**
				 * Le tag est une <meta>
				 */
				$preg = "/(<meta\s+name=['\"]{$key}['\"][^>]*>)/Uims";
			}

// remplacer la meta si on la trouve
			if ($preg and preg_match($preg, $head, $match)) {
				if (stristr($match[0], "data-strict") === FALSE)
					$head = str_replace($match[0], $meta, $head);
			} else {
				$append .= "$meta\n";
			}
		}
	}
	/* META GOOGLE WEBMASTER TOOLS */
	if (isset($config['webmaster_tools'])
		and isset($config['webmaster_tools']['activate'])
		and $config['webmaster_tools']['activate']=='yes'
		and $is_sommaire) {
		$append .= "\n" . seo_generer_webmaster_tools();
	}

if (isset($config['bing'])
		and isset($config['bing']['activate'])
		and $config['bing']['activate'] == 'yes'
		and $is_sommaire) {
		$append .= "\n" . seo_generer_bing();
	}

/* CANONICAL URL */
	if (isset($config['canonical_url'])
		and isset($config['canonical_url']['activate'])
		and $config['canonical_url']['activate']=='yes') {
		$append .= "\n" . seo_generer_urls_canoniques($contexte);
	}

/* GOOGLE ANALYTICS */
	if (isset($config['analytics'])
		and isset($config['analytics']['activate'])
		and $config['analytics']['activate']=='yes') {
		$append .= "\n" . seo_generer_google_analytics();
	}

/* ALEXA */
	if (isset($config['alexa'])
		and isset($config['alexa']['activate'])
		and $config['alexa']['activate'] == 'yes'
		and $is_sommaire) {
		$append .= "\n" . seo_generer_alexa();
	}

if ($append) {
		$append = "\n$append\n";
		// sinon ajouter en fin de </head>
		if ($p = stripos($head, '</head>')) {
			$head = substr_replace($head, $append, $p, 0);
		} else {
			$head .= $append;
		}
	}

return $head;
}

/**
 * Renvoyer la balise <link> pour URL CANONIQUES
 *
 * @param array $contexte
 * @return string
 */
function seo_generer_urls_canoniques($contexte) {
	include_spip('inc/urls');
	$i = seo_interprete_contexte($contexte);

if (isset($i['id_objet'])) {
		return '<link rel="canonical" href="' . generer_url_entite_absolue($i['id_objet'], $i['objet']) . '" />';
	} elseif ($i['objet'] == 'sommaire') {
		return '<link rel="canonical" href="' . url_de_base() . '" />';
	}

return '';
}

/**
 * Renvoyer la balise SCRIPT de Google Analytics
 *
 * @return string
 */
function seo_generer_google_analytics() {
	include_spip('inc/config');

/* GOOGLE ANALYTICS */
	if ($id = lire_config('seo/analytics/id')) {
		$id = texte_script($id);
		// Nouvelle balise : http://www.google.com/support/analytics/bin/answer.py?hl=fr_FR&answer=174090&utm_id=ad
		if (!lire_config('seo/analytics/universal')) {
			return "<script type=\"text/javascript\">
var _gaq = _gaq || [];
_gaq.push(['_setAccount', '$id']);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
</script>
";
		} else {
			return "<script type=\"text/javascript\">
(function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
(i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
})(window,document,'script','//www.google-analytics.com/analytics.js','ga');
ga('create', '$id', 'auto');
ga('send', 'pageview');
</script>
";
		}
	}

return '';
}

/**
 * Renvoyer les META Classiques
 * - Meta Titre / Description / etc.
 *
 * @param null|array $contexte
 * @return array
 */
function seo_calculer_meta_tags($contexte = null) {
	include_spip('inc/config');
	include_spip('inc/filtres');
	$config = lire_config('seo/');

if (is_null($contexte)) {
		$contexte = $GLOBALS['contexte'];
	}
	$i = seo_interprete_contexte($contexte);

/* META TAGS */

// If the meta tags configuration is activate
	$meta_tags = array();

if (isset($i['id_objet'])) {
		$trouver_table = charger_fonction('trouver_table', 'base');
		$desc = $trouver_table($i['table_sql']);
		$select = array();
		if (isset($desc['titre'])) {
			$select[] = $desc['titre'];
		} elseif (isset($desc['field']['titre'])) {
			$select[] = 'titre';
		}
		if (isset($desc['field']['descriptif'])) {
			$select[] = 'descriptif';
		}
		if (isset($desc['field']['chapo'])) {
			$select[] = 'chapo';
		}
		if (isset($desc['field']['texte'])) {
			$select[] = 'texte';
		}

$tag = array();
		if (count($select)) {
			$select = implode(',', $select);
			$row = sql_fetsel($select, $i['table_sql'], $i['primary'].'=' . intval($i['id_objet']));
			if ($row) {
				if (isset($row['titre'])) {
					$tag['title'] = couper(extraire_multi($row['titre'], isset($contexte['lang']) ? $contexte['lang'] : $GLOBALS['spip_lang']), 64);
					unset($row['titre']);
				}
				if (isset($row['lang'])) {
					unset($row['lang']);
				}

if (count($row)) {
					$tag['description'] = couper(implode(' ', $row), 150, '');
				}
			}
		}
		// Get the value set by default
		if (isset($config['meta_tags']['default']) and is_array($config['meta_tags']['default'])) {
			foreach ($config['meta_tags']['default'] as $name => $option) {
				$meta_tags[$name] = array();
				if (in_array($option, array('page', 'page_sommaire'))) {
					if (isset($tag[$name])) {
						$meta_tags[$name][] = $tag[$name];
					}
				}
				if (in_array($option, array('sommaire','page_sommaire'))) {
					if (isset($config['meta_tags']['tag'][$name])) {
						$meta_tags[$name][] = $config['meta_tags']['tag'][$name];
					}
				}
				if (count($meta_tags[$name])) {
					$meta_tags[$name] = implode(' - ', $meta_tags[$name]);
				} else {
					unset($meta_tags[$name]);
				}
			}
		}

// If the meta tags rubrique and articles editing is activate (should overwrite other setting)
		if (isset($config['meta_tags']['activate_editing'])
			and $config['meta_tags']['activate_editing'] == 'yes') {
			$result = sql_select('*', 'spip_seo', 'id_objet=' . intval($i['id_objet']) . ' AND objet=' . sql_quote($i['objet']));
			while ($r = sql_fetch($result)) {
				if ($r['meta_content'] != '') {
					$meta_tags[$r['meta_name']] = $r['meta_content'];
				}
			}
		}
	} elseif ($i['objet'] == 'sommaire') {
		$meta_tags = isset($config['meta_tags']['tag'])?$config['meta_tags']['tag']:array();
	}
	$meta_tags = pipeline('post_seo', array
		(
			'args' => array(
				'contexte' => $contexte,
				'config' => $config
			),
			'data' => $meta_tags
		)
	);
	return $meta_tags;
}

/**
 * @param null|array $contexte
 * @param null|array $meta_tags
 * @return array
 */
function seo_generer_meta_tags($meta_tags = null, $contexte = null) {
	$tags = array();
	//Set meta list if not provided
	if (!is_array($meta_tags)) {
		$meta_tags = seo_calculer_meta_tags($contexte);
	}

// Print the result on the page
	foreach ($meta_tags as $name => $content) {
		if ($content!='') {
			if ($name == 'title') {
				$tags[$name] = '<title>' . trim(entites_html(supprimer_numero(textebrut(propre($content))))) . '</title>';
			} else {
				$tags[$name] = '<meta name="' . $name . '" content="' . trim(attribut_html(textebrut(propre($content)))) . '" />';
			}
		}
	}
	return $tags;
}

/**
 * Renvoyer une META toute seule (hors balise)
 * @param string $nom
 * @return string
 */
function seo_generer_meta_brute($nom) {
	include_spip('inc/config');
	return lire_config("seo/meta_tags/tag/$nom", '');
}

/**
 * Renvoyer la META GOOGLE WEBMASTER TOOLS
 * @return string
 */
function seo_generer_webmaster_tools() {
	include_spip('inc/config');
	if ($id = lire_config('seo/webmaster_tools/id')) {
		return '<meta name="google-site-verification" content="' . texte_script($id) . '" />';
	}
}

/**
 * Renvoyer la META BING TOOLS
 * @return string
 */
function seo_generer_bing() {
	include_spip('inc/config');
	if ($id=lire_config('seo/bing/id')) {
		return '<meta name="msvalidate.01" content="' . texte_script($id) . '" />';
	}
}

/**
 * Renvoyer la META ALEXA
 * @return string
 */
function seo_generer_alexa() {
	include_spip('inc/config');
	if ($id=lire_config('seo/alexa/id')) {
		return '<meta name="alexaVerifyID" content="' . texte_script($id) . '" />';
	}
}

/**
 * #SEO_URL
 * Renvoyer la balise <link> pour URL CANONIQUES
 * @param $p
 */
function balise_SEO_URL_dist($p) {
	$p->code = "seo_generer_urls_canoniques(\$Pile[0])";
	$p->interdire_scripts = false;
	return $p;
}

/**
 * #SEO_GA
 * Renvoyer la balise SCRIPT de Google Analytics
 * @param $p
 */
function balise_SEO_GA_dist($p) {
	$p->code = "seo_generer_google_analytics()";
	$p->interdire_scripts = false;
	return $p;
}

/**
 * #SEO_META_TAGS
 * Renvoyer les META editoriales
 * - Meta Titre / Description / etc.
 * @param $p
 */
function balise_SEO_META_TAGS_dist($p) {
	$p->code = 'implode("\\n",seo_generer_meta_tags(null,$Pile[0]))';
	$p->interdire_scripts = false;
	return $p;
}

/**
 * #SEO_META_BRUTE{nom_de_la_meta}
 * Renvoyer la valeur de la meta appelée (sans balise)
 * @param $p
 */
function balise_SEO_META_BRUTE_dist($p) {
	$_nom = str_replace("'", '', interprete_argument_balise(1, $p));
	$p->code = "table_valeur(seo_calculer_meta_tags(),$_nom,'')";
	$p->interdire_scripts = false;
	return $p;
}

/**
 * #SEO_GWT
 * Renvoyer la META GOOGLE WEBMASTER TOOLS
 * @param $p
 */
function balise_SEO_GWT_dist($p) {
	$p->code = "seo_generer_webmaster_tools()";
	$p->interdire_scripts = false;
	return $p;
}

/**
 * #SEO : insere toutes les meta d'un coup, a l'endroit indique
 * @param $p
 */
function balise_SEO_dist($p) {
	$p->code = "seo_insere_remplace_metas('',\$Pile[0])";
	$p->interdire_scripts = false;
	return $p;
}

/home/checkyd/www/a3056/../plugins/seo/seo_fonctions.php