bf2692e3 |
1 | <?php |
2 | /*************************************************************************** |
3 | * Copyright (C) 2003-2006 Polytechnique.org * |
4 | * http://opensource.polytechnique.org/ * |
5 | * * |
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. * |
10 | * * |
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. * |
15 | * * |
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 * |
18 | * Foundation, Inc., * |
19 | * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * |
20 | ***************************************************************************/ |
21 | |
22 | function serv_to_str($params) { |
23 | $flags = explode(',',$params); |
24 | $trad = Array('web' => 'site web', 'mail'=> 'redirection mail', |
25 | 'smtp' => 'serveur sécurisé d\'envoi de mails', |
26 | 'nntp' => 'serveur des forums de discussion'); |
27 | $ret = Array(); |
28 | foreach ($flags as $flag) { |
29 | $ret[] = $trad[$flag]; |
30 | } |
31 | return implode(', ',$ret); |
32 | } |
33 | |
34 | class StatsModule extends PLModule |
35 | { |
36 | function handlers() |
37 | { |
38 | return array( |
39 | 'stats' => $this->make_hook('stats', AUTH_COOKIE), |
40 | 'stats/evolution' => $this->make_hook('evolution', AUTH_COOKIE), |
41 | 'stats/graph' => $this->make_hook('graph', AUTH_COOKIE), |
42 | 'stats/graph/evolution' |
43 | => $this->make_hook('graph_evo', AUTH_COOKIE), |
44 | 'stats/promos' => $this->make_hook('promos', AUTH_COOKIE), |
45 | |
46 | 'stats/coupures' => $this->make_hook('coupures', AUTH_PUBLIC), |
47 | ); |
48 | } |
49 | |
50 | function handler_stats(&$page) |
51 | { |
52 | $page->changeTpl('stats/index.tpl'); |
bf2692e3 |
53 | } |
54 | |
55 | function handler_evolution(&$page, $jours = 365) |
56 | { |
57 | $page->changeTpl('stats/evolution_inscrits.tpl'); |
58 | $page->assign('jours', $jours); |
bf2692e3 |
59 | } |
60 | |
61 | function handler_graph_evo(&$page, $jours = 365) |
62 | { |
63 | global $globals; |
64 | |
65 | define('DUREEJOUR',24*3600); |
66 | |
67 | //recupere le nombre d'inscriptions par jour sur la plage concernée |
08cce2ff |
68 | $res = XDB::iterRow( |
bf2692e3 |
69 | "SELECT IF( date_ins>DATE_SUB(NOW(),INTERVAL $jours DAY), |
70 | TO_DAYS(date_ins)-TO_DAYS(NOW()), |
71 | ".(-($jours+1)).") AS jour, |
72 | COUNT(user_id) AS nb |
73 | FROM auth_user_md5 |
74 | WHERE perms IN ('admin','user') |
75 | GROUP BY jour"); |
76 | |
77 | //genere des donnees compatibles avec GNUPLOT |
78 | $inscrits=''; |
79 | |
80 | // la première ligne contient le total des inscrits avant la date de départ (J - $jours) |
81 | list(,$init_nb) = $res->next(); |
82 | $total = $init_nb; |
83 | |
84 | list($numjour, $nb) = $res->next(); |
85 | |
86 | for ($i = -$jours; $i<=0; $i++) { |
87 | if ($numjour<$i) { |
88 | if(!list($numjour, $nb) = $res->next()) { |
89 | $numjour = 0; |
90 | $nb = 0; |
91 | } |
92 | } |
93 | if ($numjour==$i) $total+=$nb; |
94 | $inscrits .= date('d/m/y',$i*DUREEJOUR+time())." ".$total."\n"; |
95 | } |
96 | |
97 | //Genere le graphique à la volée avec GNUPLOT |
98 | header( "Content-type: image/png"); |
99 | |
100 | $delt = ($total - $init_nb)/10; |
101 | $ymin = round($init_nb - $delt,0); |
102 | $ymax = round($total + $delt,0); |
103 | |
104 | $gnuplot = <<<EOF2 |
105 | gnuplot <<EOF |
106 | |
107 | set term png small color |
108 | set size 640/480 |
109 | set xdata time |
110 | set timefmt "%d/%m/%y" |
111 | |
112 | set format x "%m/%y" |
113 | set yr [$ymin:$ymax] |
114 | |
115 | set title "Nombre d'inscrits" |
116 | |
117 | plot "-" using 1:2 title 'inscrits' with lines; |
118 | {$inscrits} |
119 | EOF |
120 | EOF2; |
121 | |
122 | passthru($gnuplot); |
123 | exit; |
124 | } |
125 | |
126 | function handler_graph(&$page, $promo = null) |
127 | { |
128 | global $globals; |
129 | |
130 | if ($promo == 'all') { |
131 | // date de départ |
132 | $depart = 1920; |
133 | |
134 | //recupere le nombre d'inscriptions par jour sur la plage concernée |
08cce2ff |
135 | $res = XDB::iterRow( |
bf2692e3 |
136 | "SELECT promo, SUM(perms IN ('admin', 'user')) / COUNT(*) * 100 |
137 | FROM auth_user_md5 |
138 | WHERE promo >= $depart AND deces = 0 |
139 | GROUP BY promo"); |
140 | |
141 | //genere des donnees compatibles avec GNUPLOT |
142 | $inscrits=''; |
143 | |
144 | // la première ligne contient le total des inscrits avant la date de départ |
145 | list($annee, $nb) = $res->next(); |
146 | |
147 | for ($i = $depart; $i <= date("Y"); $i++) { |
148 | if ($annee < $i) { |
149 | if(!list($annee, $nb) = $res->next()) { |
150 | $annee = 0; |
151 | $nb = 0; |
152 | } |
153 | } |
154 | if ($nb > 0 || $i < date('Y')) |
155 | $inscrits .= $i.' '.$nb."\n"; |
156 | } |
157 | |
158 | //Genere le graphique à la volée avec GNUPLOT |
159 | $fin = $i+2; |
160 | |
161 | $gnuplot = <<<EOF2 |
162 | gnuplot <<EOF |
163 | |
164 | set term png small color |
165 | set size 640/480 |
166 | set timefmt "%d/%m/%y" |
167 | |
168 | set xr [$depart:$fin] |
169 | set yr [0:100] |
170 | |
171 | set title "Nombre d'inscrits par promotion depuis $depart." |
172 | |
173 | plot "-" using 1:2 title 'inscrits' with boxes; |
174 | {$inscrits} |
175 | EOF |
176 | EOF2; |
177 | |
178 | } else { |
179 | //nombre de jours sur le graph |
180 | $jours = 365; |
181 | define('DUREEJOUR',24*3600); |
08cce2ff |
182 | $res = XDB::query("SELECT min(TO_DAYS(date_ins)-TO_DAYS(now())) |
bf2692e3 |
183 | FROM auth_user_md5 |
184 | WHERE promo = {?} |
185 | AND perms IN ('admin', 'user')", |
186 | $promo); |
187 | $jours = -$res->fetchOneCell(); |
188 | |
189 | //recupere le nombre d'inscriptions par jour sur la plage concernée |
08cce2ff |
190 | $res = XDB::iterRow( |
bf2692e3 |
191 | "SELECT IF( date_ins>DATE_SUB(NOW(),INTERVAL $jours DAY), |
192 | TO_DAYS(date_ins)-TO_DAYS(NOW()), |
193 | ".(-($jours+1)).") AS jour, |
194 | COUNT(user_id) AS nb |
195 | FROM auth_user_md5 |
196 | WHERE promo = {?} AND perms IN ('admin','user') |
197 | GROUP BY jour", $promo); |
198 | |
199 | //genere des donnees compatibles avec GNUPLOT |
200 | $inscrits=''; |
201 | |
202 | // la première ligne contient le total des inscrits avant la date de départ (J - $jours) |
203 | list(,$init_nb) = $res->next(); |
204 | $total = $init_nb; |
205 | |
206 | list($numjour, $nb) = $res->next(); |
207 | |
208 | for ($i = -$jours;$i<=0;$i++) { |
209 | if ($numjour<$i) { |
210 | if(!list($numjour, $nb) = $res->next()) { |
211 | $numjour = 0; |
212 | $nb = 0; |
213 | } |
214 | } |
215 | if ($numjour==$i) $total+=$nb; |
216 | $inscrits .= date('d/m/y',$i*DUREEJOUR+time())." ".$total."\n"; |
217 | } |
218 | |
219 | //Genere le graphique à la volée avec GNUPLOT |
220 | $delt = ($total - $init_nb) / 10; |
221 | $delt += ($delt < 1); |
222 | $ymin = round($init_nb - $delt,0); |
223 | $ymax = round($total + $delt,0); |
224 | |
225 | $gnuplot = <<<EOF2 |
226 | gnuplot <<EOF |
227 | |
228 | set term png small color |
229 | set size 640/480 |
230 | set xdata time |
231 | set timefmt "%d/%m/%y" |
232 | |
233 | set format x "%m/%y" |
234 | set yr [$ymin:$ymax] |
235 | |
236 | set title "Nombre d'inscrits de la promotion $promo." |
237 | |
238 | plot "-" using 1:2 title 'inscrits' with lines; |
239 | {$inscrits}e |
240 | EOF |
241 | EOF2; |
242 | } |
243 | |
244 | header('Content-type: image/png'); |
245 | passthru($gnuplot); |
246 | exit; |
247 | } |
248 | |
249 | function handler_promos(&$page, $promo = null) |
250 | { |
251 | global $globals; |
252 | |
253 | $page->changeTpl('stats/nb_by_promo.tpl'); |
254 | |
08cce2ff |
255 | $res = XDB::iterRow( |
bf2692e3 |
256 | "SELECT promo,COUNT(*) |
257 | FROM auth_user_md5 |
258 | WHERE promo > 1900 AND perms IN ('admin','user') |
259 | GROUP BY promo |
260 | ORDER BY promo"); |
261 | $max=0; $min=3000; |
262 | |
263 | while (list($p,$nb) = $res->next()) { |
264 | $p = intval($p); |
265 | if(!isset($nbpromo[$p/10])) { |
266 | $nbpromo[$p/10] = Array('','','','','','','','','',''); // tableau de 10 cases vides |
267 | } |
268 | $nbpromo[$p/10][$p%10]=Array('promo' => $p, 'nb' => $nb); |
269 | } |
270 | |
271 | $page->assign_by_ref('nbs', $nbpromo); |
272 | $page->assign('min', $min-$min % 10); |
273 | $page->assign('max', $max+10-$max%10); |
274 | $page->assign('promo', $promo); |
bf2692e3 |
275 | } |
276 | |
277 | function handler_coupures(&$page, $cp_id = null) |
278 | { |
279 | global $globals; |
280 | |
281 | $page->changeTpl('stats/coupure.tpl'); |
282 | |
283 | if (!is_null($cp_id)) { |
08cce2ff |
284 | $res = XDB::query("SELECT UNIX_TIMESTAMP(debut) AS debut, |
bf2692e3 |
285 | TIME_FORMAT(duree,'%kh%i') AS duree, |
286 | resume, description, services |
287 | FROM coupures |
288 | WHERE id = {?}", $cp_id); |
289 | $cp = $res->fetchOneAssoc(); |
290 | } |
291 | |
292 | if($cp) { |
293 | $cp['lg_services'] = serv_to_str($cp['services']); |
294 | $page->assign_by_ref('cp',$cp); |
295 | } else { |
296 | $beginning_date = date("Ymd", time() - 3600*24*21) . "000000"; |
297 | $sql = "SELECT id, UNIX_TIMESTAMP(debut) AS debut, resume, services |
298 | FROM coupures where debut > '$beginning_date' order by debut desc"; |
08cce2ff |
299 | $page->assign('coupures', XDB::iterator($sql)); |
bf2692e3 |
300 | } |
bf2692e3 |
301 | } |
302 | } |
303 | |
304 | ?> |