<?php
/**
 * Plugin Intranet
 *
 * (c) 2013-2016 kent1
 * Distribue sous licence GPL
 *
 */

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

/**
 * Autoriser a voir le site en Intranet : par defaut toute personne identifiée
 * @return mixed
 */
function autoriser_intranet_dist() {
	$autoriser = false;
	// On laisse en premier le cas du user connecté, cas le plus courant pour l'utilisation de ce plugin
	if (isset($GLOBALS['visiteur_session']['id_auteur']) and $GLOBALS['visiteur_session']['id_auteur'] > 0) {
		$autoriser = true;
	} else {
		/*cas intranet definit par une IP ou un range d'ip ...à faire : compatibilité IPV6 */
		if (!function_exists('lire_config')) {
			include_spip('inc/config');
		}

		//récupération ip du client
		if (isset($_SERVER['REMOTE_ADDR'])) {
			$ip = $_SERVER['REMOTE_ADDR'];

			$long_ip = ip2long($ip);
			$ranges = explode(',', lire_config('intranet/plageip'));
			if (count($ranges) > 0) {
				foreach ($ranges as $range) {
					//Range d'ip contenant - comme séparateur
					if (preg_match('/-/', $range)) {
						$ranges_2 = explode('-', $range);
						$low_long_ip = ip2long($ranges_2[0]);
						$high_long_ip = ip2long($ranges_2[1]);
						if ($long_ip <= $high_long_ip && $low_long_ip <= $long_ip) {
							$autoriser = true;
							break; // on a trouvé une ip bonne on ne continue pas plus loin
						}
					} else if ($long_ip != '' && $long_ip == ip2long($range)) {
						// Ip individuelle, mais il faut que l'on en ai une
						$autoriser = true;
						break;
					} else if (in_array($range, array('::1', 'localhost', '127.0.0.1'))
						and (in_array($ip, array('::1', 'localhost', '127.0.0.1')))) {
						// Ips locales
						$autoriser = true;
						break;
					}
				}
			}
			if (!$autoriser and $config_hosts = lire_config('intranet/hosts') and strlen(trim($config_hosts)) > 0) {
				$hosts = explode(',', $config_hosts);
				if (count($hosts) > 0) {
					$hote = gethostbyaddr($ip);
					foreach ($hosts as $host) {
						if ($host != '' && preg_match('/'.preg_quote($host, '/Uims').'/', $hote)) {
							$autoriser = true;
							break;
						}
					}
				}
			}
		}
	}
	return $autoriser;
}

// dans le site public
// si auteur pas autorise : placer sur un cache dedie
if (!test_espace_prive()) {
	include_spip('inc/autoriser');
	if (!autoriser('intranet')) {
		if (isset($GLOBALS['marqueur'])) {
			$GLOBALS['marqueur'].= ':intranet_out';
		} else {
			$GLOBALS['marqueur'] = 'intranet_out';
		}
	}
}

/**
 * Pipeline styliser pour rerouter tous les fonds vers intranet
 *
 * @param array $flux
 * @return array
 */
function intranet_styliser($flux) {
	if (!test_espace_prive()
		and strpos($flux['args']['fond'], '/') === false
		and !in_array(substr($flux['args']['fond'], -3), array('.js', '.css'))
		and include_spip('inc/autoriser')
		and !autoriser('intranet')
		and include_spip('inc/config')
		and ($pages_ok = array_filter(pipeline('intranet_pages_ok', array_merge(array('robots.txt','spip_pass','favicon.ico','informer_auteur'), array_map('trim', explode(',', lire_config('intranet/pages_intranet', ' ')))))))
		and (
			!in_array($flux['args']['fond'], $pages_ok)
			and (!isset($flux['args']['contexte'][_SPIP_PAGE]) or !in_array($flux['args']['contexte'][_SPIP_PAGE], $pages_ok)))
		) {
			if (lire_config('intranet/intranet_ouverts', '') == 'on'
				and table_objet_sql($flux['args']['fond'])
				and isset($flux['args']['contexte'][id_table_objet($flux['args']['fond'])])) {
				$existe = sql_getfetsel('objet', 'spip_intranet_ouverts', 'objet='.sql_quote($flux['args']['fond']). ' AND id_objet='.intval($flux['args']['contexte'][id_table_objet($flux['args']['fond'])]));
				if ($existe) {
					return $flux;
				}
			}
			$fond = trouver_fond('inclure/intranet', '', true);
			$flux['data'] = $fond['fond'];
	}
	return $flux;
}

/**
 * Pipeline formulaire_traiter pour vider le cache lors d'un changement de configuration
 *
 * @param array $flux
 * @return array
 */
function intranet_formulaire_traiter($flux) {
	if ($flux['args']['form'] == 'configurer_intranet') {
		include_spip('inc/invalideur');
		purger_repertoire(_DIR_CACHE, array('subdir' => true));
	}
	return $flux;
}