<?php
/**
 * Plugin Agenda 4 pour Spip 3.0
 * Licence GPL 3
 *
 * 2006-2011
 * Auteurs : cf paquet.xml
 */

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

include_spip('public/agenda');
include_spip('inc/agenda_filtres'); // deprecies mais encore supportes pour le moment

/**
 * Ajout d'un offset a une date
 *
 * @param string $date
 * @param int $secondes
 *   peut etre une expression math : 24*60*60
 * @param string $format
 *   format de sortie de la date
 * @return string
 */
function agenda_dateplus($date,$secondes,$format="Y-m-d H:i:s"){
	$date = strtotime($date)+eval("return $secondes;"); // permet de passer une expression
	return date($format,$date);
}

/**
 * decale les mois de la date.
 * cette fonction peut raboter le jour si le nouveau mois ne les contient pas
 * exemple 31/01/2007 + 1 mois => 28/02/2007
 *
 * @param string $date
 * @param int $decalage
 * @param string $format
 * @return string
 */
function agenda_moisdecal($date,$decalage,$format="Y-m-d H:i:s"){
	include_spip('inc/filtres');
	$date_array = recup_date($date);
	if ($date_array) list($annee, $mois, $jour) = $date_array;
	if (!$jour) $jour=1;
	if (!$mois) $mois=1;
	$mois2 = $mois + $decalage;
	$date2 = mktime(1, 1, 1, $mois2, $jour, $annee);
	// mois normalement attendu
	$mois3 = date('m', mktime(1, 1, 1, $mois2, 1, $annee));
	// et si le mois de la nouvelle date a moins de jours...
	$mois2 = date('m', $date2);
	if ($mois2 - $mois3) $date2 = mktime(1, 1, 1, $mois2, 0, $annee);
	return date($format, $date2);
}


/**
 * decale les jours de la date.
 *
 * @param string $date
 * @param int $decalage
 * @param string $format
 * @return string
 */
function agenda_jourdecal($date,$decalage,$format="Y-m-d H:i:s"){
	include_spip('inc/filtres');
	$date_array = recup_date($date);
	if ($date_array) list($annee, $mois, $jour) = $date_array;
	if (!$jour) $jour=1;
	if (!$mois) $mois=1;
	$jour2 = $jour + $decalage;
	$date2 = mktime(1, 1, 1, $mois, $jour2, $annee);
	return date($format, $date2);
}

/**
 * Filtre pour tester si une date est dans le futur
 * [(#DATE|agenda_date_a_venir) Dans le futur...]
 *
 * @param string $date_test
 * @param string $date_ref
 *   date de reference, par defaut celle du serveur (argument utile pour les tests unitaires)
 * @return string
 */
function agenda_date_a_venir($date_test,$date_ref=null){
	if (is_null($date_ref))
		$date_ref = $_SERVER['REQUEST_TIME'];
	else
		$date_ref = strtotime($date_ref);

	return (strtotime($date_test)>$date_ref)?' ':'';
}


/**
 * Filtre pour tester si une date est dans le passe
 * [(#DATE|agenda_date_passee) Dans le passe...]
 *
 * @param string $date_test
 * @param string $date_ref
 *   date de reference, par defaut celle du serveur (argument utile pour les tests unitaires)
 * @return string
 */
function agenda_date_passee($date_test,$date_ref=null){
	if (is_null($date_ref))
		$date_ref = $_SERVER['REQUEST_TIME'];
	else
		$date_ref = strtotime($date_ref);

	return (strtotime($date_test)<$date_ref)?' ':'';
}

/**
 * Determiner la date de debut de l'affichage de la liste des evenements
 * en fonction du mode demande et de la date courante
 * @param string $date
 * @param string $affichage_debut
 * @return string
 */
function agenda_date_debut_liste($date,$affichage_debut='date_jour'){
	switch($affichage_debut){
		case 'date_jour' :
			break;
		case 'date_veille' :
			$date = agenda_jourdecal($date, -1);
			break;
		case 'debut_semaine' :
			$t = strtotime($date);
			$date = agenda_jourdecal($date, -(date('N', $t)-1));
			break;
		case 'debut_semaine_prec' :
			$t = strtotime($date);
			$date = agenda_jourdecal($date, -(date('N', $t)-1+7));
			break;
		case 'debut_mois' :
			$t = strtotime($date);
			$date = agenda_jourdecal($date, -(date('j', $t)-1));
			break;
		case 'debut_mois_prec' :
			$t = strtotime($date);
			$date = agenda_jourdecal($date, -(date('j', $t)-1)); // debut de mois
			$date = agenda_moisdecal($date, -1); // precedent
			break;
		case 'debut_mois_1' :
		case 'debut_mois_2' :
		case 'debut_mois_3' :
		case 'debut_mois_4' :
		case 'debut_mois_5' :
		case 'debut_mois_6' :
		case 'debut_mois_7' :
		case 'debut_mois_8' :
		case 'debut_mois_9' :
		case 'debut_mois_10' :
		case 'debut_mois_11' :
		case 'debut_mois_12' :
			$t = strtotime($date);
			$mdebut = intval(substr($affichage_debut,strlen('debut_mois_')));
			$mcourant = date('n', $t);
			$offset = ($mcourant-$mdebut+12)%12;
			$date = agenda_jourdecal($date, -(date('j', $t)-1)); // debut de mois
			$date = agenda_moisdecal($date, -$offset);
			break;
	}
	return $date;
}
/**
 * Afficher la periode de l'agenda :
 * Le nom du mois si nb_mois = 1
 * L'annee si nb_mois=12 et debut du mois = janvier
 * sinon : mois annee - mois annee (xxx 12 - yyy 13)
 * si le debut de la periode est fixe (debut d'un mois donnee), on precede de
 * "Annee" ou "Saison" la periode
 *
 * @param string $date
 * @param int $nb_mois
 * @param string $affichage_debut
 * @return string
 */
function affdate_periode($date,$nb_mois,$affichage_debut='date_jour'){
	$fixe = in_array($affichage_debut,array('debut_mois_1','debut_mois_2','debut_mois_3','debut_mois_4','debut_mois_5','debut_mois_6','debut_mois_7','debut_mois_8','debut_mois_9','debut_mois_10','debut_mois_11','debut_mois_12'));
	if ($nb_mois==1)
		return affdate_mois_annee($date);
	if ($nb_mois==12 AND mois($date)==1)
		return ($fixe?_T('agenda:label_annee').' ':'').annee($date);

	return ($fixe?_T('agenda:label_periode_saison').' ':'').affdate_mois_annee($date)." - ".affdate_mois_annee(agenda_moisdecal($date, $nb_mois-1));
}

/**
 * Raccourcis [->evenement12] et [->evt12]
 */
/*
function generer_url_evenement($id, $args='', $ancre='') {
	return array('evenement', $id);
}*/

?>