accueil: correction d'un lien (pour Gustavo)
[aidenligne_francais_universite.git] / ecrire / prive.php
CommitLineData
c495c100
P
1<?php
2
3/***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
5 * *
6 * Copyright (c) 2001-2007 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
8 * *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11\***************************************************************************/
12
13 // Script pour appeler un squelette apres s'etre authentifie
14
15include_once 'inc_version.php';
16
17include_spip('inc/cookie');
18
19$auth = charger_fonction('auth', 'inc');
20$auth = $auth();
21
22if ($auth) {
23 if ($auth===-1) exit();
24 include_spip('inc/headers');
25 if ($auth == '6forum') {
26 $auth = '../?' . $_SERVER['QUERY_STRING'];
27 preg_match(',^[^/]*//[^/]*(.*)/.*/$,',
28 url_de_base(),
29 $r);
30 spip_setcookie('spip_session', $spip_session, time() + 3600 * 24 * 14, $r[1]);
31 } else
32 $auth = generer_url_public('login',
33 "url=" .
34 rawurlencode(str_replace('/./', '/',
35 (_DIR_RESTREINT ? "" : _DIR_RESTREINT_ABS)
36 . str_replace('&amp;', '&', self()))), true);
37 redirige_par_entete($auth);
38 }
39
40// En somme, est prive' ce qui est publiquement nomme'...
41
42include_once 'public.php';
43?>