<?php
/*
 * Plugin Couteau Kiss
 * (c) 2010 Cedric Morin
 * Distribue sous licence GPL
 *
 */

if (!defined("_ECRIRE_INC_VERSION")) return;

include_spip('public/interfaces');
include_spip('inc/presenter_liste');

function ck_rtrim_dir($d){
	return rtrim($d,'/');
}
function ck_recupere_dossier_squelette($d,$raw=false){
	$squelettes = $d;
	$squelettes = explode(':',$squelettes);
	$squelettes = array_map('ck_rtrim_dir',$squelettes);
	$squelettes = array_diff($squelettes,array('squelettes',''));
	$squelettes = array_unique($squelettes);
	if (isset($GLOBALS['dossier_squelettes_sav'])){
		$squelettes = array_diff($squelettes,explode(":",$GLOBALS['dossier_squelettes_sav']));
	}
	if ($raw)
		return implode(':',$squelettes);
	array_push($squelettes, 'squelettes');
	$squelettes = implode(':',$squelettes);
	return $squelettes;
}

/**
 * Produire le fichier PHP et une copie en meta
 *
 * @param string $code
 * @return string
 */
function ck_produire_options($code){
	// appliquer et verifier que ca ne plante pas !
	eval($code);

	// et enregistrer dans le fichier le cas echeant
	$file = _DIR_TMP."ck_options.php";
	ecrire_fichier($file, "<"."?php\n$code\n");

	// sauvegarder dans une meta pour recuperer les options apres vidage de tmp/
	include_spip('inc/meta');
	ecrire_meta('ck_options',$code);
	return $file;
}

/**
 * Verifier l'existence du fichier PHP, et sinon le restaurer avec la copie en meta
 */
function ck_verifier_options($init = false){
	if (!file_exists($f=((defined('_ROOT_CWD')?_ROOT_CWD:'')._DIR_TMP."ck_options.php"))
	  AND
		($init OR isset($GLOBALS['meta']['ck_options']))) {
		// vider la meta auparavant, au cas ou le code php serait corrompu
		// si le code est valide, il sera remis dans la meta
		if (isset($GLOBALS['meta']['ck_options'])){
			$code = $GLOBALS['meta']['ck_options'];
			include_spip('inc/meta');
			effacer_meta('ck_options');
		}
		elseif($init){
			$c = formulaires_configurer_ck_charger_dist();
			$code = ck_produire_code($c);
		}
		ck_produire_options($code);
	}
}

/**
 * Produire le code a partir d'un tableau ou des requests
 * @param array|null $c
 * @return string
 */
function ck_produire_code($c=null){
	$code = "";
	// backuper un eventuel dossier_squelettes en dur pour ne pas le doublonner dans la config
	$code .= "if (isset(\$GLOBALS['dossier_squelettes'])) \$GLOBALS['dossier_squelettes_sav']=\$GLOBALS['dossier_squelettes'];\n";
	if ($d = _request('dossier_squelettes',$c)){
		$d = ck_recupere_dossier_squelette($d,true);
		// ne pas ecraser la globale avec une valeur vide, ca ne sert a rien
		// de plus on concatene
		if ($d){
			$value = addslashes($d);
			$code .= "\$GLOBALS['dossier_squelettes'] = (isset(\$GLOBALS['dossier_squelettes'])?rtrim(\$GLOBALS['dossier_squelettes'],':').':':'').'$value';\n";
		}
	}

	// pas la peine en SPIP 3 : c'est pas defaut
	if (intval($GLOBALS['spip_version_branche'])<3
		AND _request('supprimer_numero',$c)){
		$code .= "\$GLOBALS['table_des_traitements']['TITRE'][]= 'typo(supprimer_numero(%s), \"TYPO\", \$connect)';\n";
		$code .= "\$GLOBALS['table_des_traitements']['NOM'][]= 'typo(supprimer_numero(%s), \"TYPO\", \$connect)';\n";
	}

	$code .= ck_code_globale('toujours_paragrapher',_request('toujours_paragrapher',$c)?'true':'false');

	// on ne surcharge autobr uniquement si inhibe
	if(_request('no_autobr',$c))
		$code .= ck_code_constante('_AUTOBR',"''");

	$code .= ck_code_globale('forcer_lang',_request('forcer_lang',$c)?'true':'false');
	if ($v = _request('no_set_html_base',$c) OR (defined('_SET_HTML_BASE') and ($v=!_SET_HTML_BASE))){
		$code .= ck_code_constante('_SET_HTML_BASE',$v?'false':'true');
	}
	if (_request($s=_request('introduction_suite',$c)))
		$code .= ck_code_constante('_INTRODUCTION_SUITE',"'".addslashes($s)."'");


	// cache
	if (strlen($cs = _request('cache_strategie',$c))){
		if ($cs==-1) $code .= "if (\$_SERVER['REQUEST_TIME']<".(time()+24*3600).") ";
		$code .= ck_code_constante('_NO_CACHE',intval($cs));
	}

	$code .= ck_code_globale('derniere_modif_invalide',_request('derniere_modif_invalide',$c)?'true':'false');
	$code .= ck_code_constante('_DUREE_CACHE_DEFAUT',intval(_request('cache_duree',$c)));
	$code .= ck_code_constante('_DELAI_CACHE_resultats',intval(_request('cache_duree_recherche',$c)));

	// quota_cache disparait a partir de SPIP 3.3
	if (!defined('_SPIP_VERSION_ID') or _SPIP_VERSION_ID<30300) {
		$code .= ck_code_globale('quota_cache',intval(_request('cache_taille',$c)));
	}

	// taille des logo et images
	if ($t = _request('image_seuil_document',$c) and $t!=='_LARGEUR_MODE_IMAGE')
		$code .= ck_code_constante('_LARGEUR_MODE_IMAGE',intval($t));
	if ($t = _request('logo_max_size',$c) and $t!=='_LOGO_MAX_SIZE')
		$code .= ck_code_constante('_LOGO_MAX_SIZE',intval($t));
	if ($t = _request('logo_max_width',$c) and $t!=='_LOGO_MAX_WIDTH')
		$code .= ck_code_constante('_LOGO_MAX_WIDTH',intval($t));
	if ($t = _request('logo_max_height',$c) and $t!=='_LOGO_MAX_HEIGHT')
		$code .= ck_code_constante('_LOGO_MAX_HEIGHT',intval($t));
	if ($t = _request('docs_max_size',$c) and $t!=='_DOC_MAX_SIZE')
		$code .= ck_code_constante('_DOC_MAX_SIZE',intval($t));
	if ($t = _request('imgs_max_size',$c) and $t!=='_IMG_MAX_SIZE')
		$code .= ck_code_constante('_IMG_MAX_SIZE',intval($t));
	if ($t = _request('imgs_max_width',$c) and $t!=='_IMG_MAX_WIDTH')
		$code .= ck_code_constante('_IMG_MAX_WIDTH',intval($t));
	if ($t = _request('imgs_max_height',$c) and $t!=='_IMG_MAX_HEIGHT')
		$code .= ck_code_constante('_IMG_MAX_HEIGHT',intval($t));


	// ecrire
	if ($t = _request('longueur_login_mini',$c))
		$code .= ck_code_constante('_LOGIN_TROP_COURT',intval($t)-1);
	if ($t = _request('nb_objets_tranches',$c) and $t!=='_TRANCHES')
		$code .= ck_code_constante('_TRANCHES',intval($t));
	if (!$t = _request('compacte_head_ecrire',$c))
		$code .= ck_code_constante('_INTERDIRE_COMPACTE_HEAD_ECRIRE','true');
	if (!$t = _request('inhiber_javascript_ecrire',$c))
		$code .= ck_code_globale('filtrer_javascript',1);

	return $code;
}

/**
 *
 * @return array
 */
function formulaires_configurer_ck_charger_dist(){
	ck_verifier_options();
	$valeurs = array(
		'_dossier_squelettes_sav' => isset($GLOBALS['dossier_squelettes_sav'])?$GLOBALS['dossier_squelettes_sav']:'',
		'dossier_squelettes' => ck_recupere_dossier_squelette($GLOBALS['dossier_squelettes']),
		'supprimer_numero' => preg_match(",supprimer_numero,",reset($GLOBALS['table_des_traitements']['TITRE']))?1:0,
		'toujours_paragrapher' => $GLOBALS['toujours_paragrapher']?1:0,
		'no_set_html_base' => defined('_SET_HTML_BASE')?(_SET_HTML_BASE==false):0,
		'introduction_suite' => defined('_INTRODUCTION_SUITE')?_INTRODUCTION_SUITE:'',
		'no_autobr' => defined('_AUTOBR')?(_AUTOBR?false:true):false,

		'cache_strategie' => (defined('_NO_CACHE') AND strlen(_NO_CACHE))?(_NO_CACHE==0?0:-1):'',
		'derniere_modif_invalide' => $GLOBALS['derniere_modif_invalide'],
		'cache_duree' => defined('_DUREE_CACHE_DEFAUT')?_DUREE_CACHE_DEFAUT:24*3600,
		'cache_duree_recherche' => defined('_DELAI_CACHE_resultats')?_DELAI_CACHE_resultats:600,
		'cache_taille' => isset($GLOBALS['quota_cache']) ? $GLOBALS['quota_cache'] : '',

		'image_seuil_document' => defined('_LARGEUR_MODE_IMAGE')?_LARGEUR_MODE_IMAGE:'',
		'logo_max_size' => defined('_LOGO_MAX_SIZE')?_LOGO_MAX_SIZE:'',
		'logo_max_width' => defined('_LOGO_MAX_WIDTH')?_LOGO_MAX_WIDTH:'',
		'logo_max_height' => defined('_LOGO_MAX_HEIGHT')?_LOGO_MAX_HEIGHT:'',
		'docs_max_size' => defined('_DOC_MAX_SIZE')?_DOC_MAX_SIZE:'',
		'imgs_max_size' => defined('_IMG_MAX_SIZE')?_IMG_MAX_SIZE:'',
		'imgs_max_width' => defined('_IMG_MAX_WIDTH')?_IMG_MAX_WIDTH:'',
		'imgs_max_height' => defined('_IMG_MAX_HEIGHT')?_IMG_MAX_HEIGHT:'',

		'longueur_login_mini' => _LOGIN_TROP_COURT+1,
		'nb_objets_tranches' => defined('_TRANCHES')?_TRANCHES:'',
		'compacte_head_ecrire' => defined('_INTERDIRE_COMPACTE_HEAD_ECRIRE')?(_INTERDIRE_COMPACTE_HEAD_ECRIRE?0:1):1,
		'inhiber_javascript_ecrire' => $GLOBALS['filtrer_javascript']==1?0:1,

	);
	if (defined('_SPIP_VERSION_ID') and _SPIP_VERSION_ID>=30300) {
		$valeurs['_no_quota_cache'] = 1;
	}

	// forcer_lang est toujours true dans le prive donc on est oblige de reinclure le fichier ck_option pour savoir ce que ça vaut, et si le fichier n'existe pas on laisse decoche
	if (file_exists($f=((defined('_ROOT_CWD')?_ROOT_CWD:'')._DIR_TMP."ck_options.php"))) {
		include $f;
		$valeurs['forcer_lang'] = (!empty($GLOBALS['forcer_lang']) and $GLOBALS['forcer_lang'] and $GLOBALS['forcer_lang']!=='non')?1:0;
	}
	else {
		// si on ne sait pas on mets 0
		$valeurs['forcer_lang'] = 0;
	}

	return $valeurs;
}


function formulaires_configurer_ck_verifier_dist(){
	$erreurs = array();
	$cache_strategie = _request('cache_strategie');
	if ($cache_strategie!=-1){
		// quota_cache disparait a partir de SPIP 3.3
		if (!defined('_SPIP_VERSION_ID') or _SPIP_VERSION_ID<30300){
			if (!$t = _request('cache_taille')
				OR !$t = intval($t)
				OR $t<10){
				$erreurs['cache_taille'] = _T('ck:erreur_cache_taille_mini');
			}
		}
	}
	if ($d = _request('dossier_squelettes')){
		$d = explode(":",$d);
		foreach($d as $s){
			$s = trim($s);
			if (strncmp($s,"/",1)==0 OR strpos($s,"../")!==false)
				$erreurs['dossier_squelettes'] = _T('ck:erreur_dossier_squelette_invalide');
		}
	}
	return $erreurs;
}


function ck_code_constante($name,$value){
	return "if (!defined('$name')) define('$name',$value);\n";
}
function ck_code_globale($name,$value){
	return "\$GLOBALS['$name']=$value;\n";
}

function formulaires_configurer_ck_traiter_dist(){

	$code = ck_produire_code();
	$file = ck_produire_options($code);

	// on relance le hit via un refuser
	refuser_traiter_formulaire_ajax();

	// ne pas reinjecter dans la saisie
	set_request('dossier_squelettes');

	$res = array('editable'=>true,'message_ok'=>_T('ck:message_ok',array('file'=>joli_repertoire($file))));
	return $res;
}