2 /***************************************************************************
3 * Copyright (C) 2003-2008 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 class CoreModule
extends PLModule
27 '403' => $this->make_hook('403', AUTH_PUBLIC
),
28 '404' => $this->make_hook('404', AUTH_PUBLIC
),
29 'login' => $this->make_hook('login', AUTH_COOKIE
),
30 'send_bug' => $this->make_hook('bug', AUTH_COOKIE
),
31 'purge_cache' => $this->make_hook('purge_cache', AUTH_COOKIE
, 'admin'),
32 'kill_sessions' => $this->make_hook('kill_sessions', AUTH_COOKIE
, 'admin'),
33 'sql_errors' => $this->make_hook('sqlerror', AUTH_COOKIE
, 'admin'),
34 'get_rights' => $this->make_hook('get_rights', AUTH_MDP
, 'admin'),
36 'wiki_help' => $this->make_hook('wiki_help', AUTH_PUBLIC
),
37 'wiki_preview' => $this->make_hook('wiki_preview', AUTH_COOKIE
, 'user', NO_AUTH
),
39 'valid.html' => $this->make_hook('valid', AUTH_PUBLIC
),
40 'favicon.ico' => $this->make_hook('favicon', AUTH_PUBLIC
),
41 'robots.txt' => $this->make_hook('robotstxt', AUTH_PUBLIC
, 'user', NO_HTTPS
),
45 function handler_valid(&$page)
47 readfile($page->compile_dir
.'/valid.html');
51 function handler_403(&$page)
54 header($_SERVER['SERVER_PROTOCOL'] . ' 403 Forbidden');
55 $page->trigError('Tu n\'as pas les permissions nécessaires pour accéder à cette page.');
56 $page->coreTpl('403.tpl');
59 function handler_404(&$page)
61 global $globals, $platal;
62 header($_SERVER['SERVER_PROTOCOL'] . ' 404 Not Found');
63 $page->coreTpl('404.tpl');
64 $page->assign('near', $platal->near_hook());
65 $page->trigError('Cette page n\'existe pas !!!');
68 function handler_login(&$page)
70 $allkeys = func_get_args();
72 $url = join('/',$allkeys);
76 function handler_favicon(&$page)
79 $data = file_get_contents($globals->spoolroot
. '/htdocs/images/favicon.ico');
80 header('Content-Type: image/x-icon');
85 function handler_robotstxt(&$page)
89 $disallowed_uris = array();
90 if ($globals->core
->restricted_platal
) {
91 $disallowed_uris[] = '/';
92 } else if (!empty($globals->core
->robotstxt_disallowed_uris
)) {
93 $disallowed_uris = preg_split('/[\s,]+/',
94 $globals->core
->robotstxt_disallowed_uris
,
95 -1, PREG_SPLIT_NO_EMPTY
);
98 if (count($disallowed_uris) > 0) {
99 header('Content-Type: text/plain');
100 echo "User-agent: *\n";
101 foreach ($disallowed_uris as $uri) {
102 echo "Disallow: $uri\n";
109 function handler_purge_cache(&$page)
111 S
::assert_xsrf_token();
113 $page->clear_compiled_tpl();
114 PlWikiPage
::clearCache();
116 http_redirect(empty($_SERVER['HTTP_REFERER']) ?
'./' : $_SERVER['HTTP_REFERER']);
119 function handler_kill_sessions(&$page)
124 function handler_get_rights(&$page, $level)
126 if (S
::has('suid')) {
127 $page->kill('Déjà en SUID');
130 if (isset($_SESSION['log'])) {
132 S
::logger()->log("suid_start", "login by " . S
::user()->login());
134 // TODO(vzanotti): trash that code when support of forlife will be gone.
135 S
::logger()->log("suid_start", "login by ".S
::v('forlife'));
138 Platal
::session()->startSUID(S
::i('uid'));
139 Platal
::session()->makePerms($level);
144 function handler_bug(&$page)
148 if (empty($_SERVER['HTTP_REFERER'])) {
149 // We don't have a valid referer, we need to use the url
150 list($currentPage, $location) = explode('//', $_SERVER['REQUEST_URI'], 2);
152 $location = 'http'.(empty($_SERVER['HTTPS']) ?
'' : 's').'://'.$_SERVER['SERVER_NAME'].'/'.$location;
154 $location = $_SERVER['HTTP_REFERER'];
157 $page->coreTpl('bug.tpl', SIMPLE
);
158 $page->assign('location', $location);
159 $page->addJsLink('close_on_esc.js');
161 if (Env
::has('send') && trim(Env
::v('detailed_desc'))) {
162 S
::assert_xsrf_token();
164 // TODO(vzanotti): trash the 'forlife' bit when support of forlife will be gone.
165 $body = wordwrap(Env
::v('detailed_desc'), 78) . "\n\n"
166 . "----------------------------\n"
167 . "Page : " . Env
::v('page') . "\n\n"
168 . "Utilisateur : " . (S
::user() ? S
::user()->login() : S
::v('forlife')) . "\n"
169 . "Navigateur : " . $_SERVER['HTTP_USER_AGENT'] . "\n"
170 . "Skin : " . S
::v('skin') . "\n";
171 $page->assign('bug_sent', 1);
172 $page->trigSuccess('Ton message a bien été envoyé au support de ' . $globals->core
->sitename
173 . ', tu devrais en recevoir une copie d\'ici quelques minutes. Nous allons '
174 . 'le traiter et y répondre dans les plus brefs délais.');
175 $mymail = new PlMailer();
176 // TODO(vzanotti): trash the 'bestalias' bits when support of bestalias will be gone.
178 $mymail->setFrom(sprintf('"%s" <%s>', S
::user()->fullName(), S
::user()->bestEmail()));
179 $mymail->addCc(sprintf('"%s" <%s>', S
::user()->fullName(), S
::user()->bestEmail()));
181 $mymail->setFrom('"'.S
::v('prenom').' '.S
::v('nom').'" <'.S
::v('bestalias').'@' . $globals->mail
->domain
. '>');
182 $mymail->addCc('"'.S
::v('prenom').' '.S
::v('nom').'" <'.S
::v('bestalias').'@' . $globals->mail
->domain
. '>');
184 $mymail->addTo('support+platal@' . $globals->mail
->domain
);
185 $mymail->setSubject('Plat/al '.Env
::v('task_type').' : '.Env
::v('item_summary'));
186 $mymail->setTxtBody($body);
188 } elseif (Env
::has('send')) {
189 $page->trigError("Merci de remplir une explication du problème rencontré.");
193 function handler_wiki_help(&$page, $action = 'title')
195 $page->coreTpl('wiki.help.tpl', SIMPLE
);
196 $page->assign('wiki_help', MiniWiki
::help($action == 'title'));
199 /// Shared handler for wiki syntax result preview
200 function handler_wiki_preview(&$page, $action = 'title')
202 header('Content-Type: text/html; charset=utf-8');
203 $text = Env
::v('text');
204 echo MiniWiki
::wikiToHtml($text, $action == 'title');
208 function handler_sqlerror(&$page, $clear = null
) {
210 $file = @fopen
($globals->spoolroot
. '/spool/tmp/query_errors', 'r');
211 if ($file !== false
) {
215 echo '</html></body>';
217 if ($clear == 'clear') {
218 @unlink
($globals->spoolroot
. '/spool/tmp/query_errors');
224 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: