spip / SPIP

	$sessions = lister_sessions_auteur($id_auteur);

	// 1ere passe : lire et fusionner les sessions

	foreach ($sessions as $session) {

		$GLOBALS['visiteur_session'] = array();

		// a pu etre supprime entre le preg initial et le moment ou l'on arrive la (concurrence)

		if ($session !== $fichier_session_courante

			and @file_exists($session)

		) {

			include $session; # $GLOBALS['visiteur_session'] est alors l'auteur cible

			$auteur = array_merge($GLOBALS['visiteur_session'], $auteur);

		}

	}

	// supprimer les eventuelles cles dont on ne veut plus

	$auteur_session = preparer_ecriture_session($auteur);

	// seconde passe : ecrire les sessions qui ne sont pas a jour

	foreach ($sessions as $session) {

		$GLOBALS['visiteur_session'] = array();

		// a pu etre supprime entre le preg initial et le moment ou l'on arrive la (concurrence)

		if (@file_exists($session)) {

			include $session; # $GLOBALS['visiteur_session'] est alors l'auteur cible

			// est-ce que cette session est a mettre a jour ?

			if ($auteur_session != $GLOBALS['visiteur_session']) {

				ecrire_fichier_session($session, $auteur);

			}

		}

	}

	if ($id_auteur == $id_auteur_courant) {

		$GLOBALS['visiteur_session'] = $auteur;