Adapts plat/al crons to the new database.
[platal.git] / bin / cron / checkdb.php
CommitLineData
ee68ddc1 1#!/usr/bin/php5 -q
0337d704 2<?php
3/***************************************************************************
9f5bd98e 4 * Copyright (C) 2003-2010 Polytechnique.org *
0337d704 5 * http://opensource.polytechnique.org/ *
6 * *
7 * This program is free software; you can redistribute it and/or modify *
8 * it under the terms of the GNU General Public License as published by *
9 * the Free Software Foundation; either version 2 of the License, or *
10 * (at your option) any later version. *
11 * *
12 * This program is distributed in the hope that it will be useful, *
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
15 * GNU General Public License for more details. *
16 * *
17 * You should have received a copy of the GNU General Public License *
18 * along with this program; if not, write to the Free Software *
19 * Foundation, Inc., *
20 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
21 ***************************************************************************/
5ecaa68e 22/* Checks inconsistances in tables ans joins. */
0337d704 23
5ecaa68e
SJ
24require './connect.db.inc.php';
25require 'Console/Getopt.php';
0337d704 26
5ecaa68e 27function check($sql, $comment = '')
0380bf85 28{
29 $it = XDB::iterRow($sql);
5ecaa68e
SJ
30 if ($err = XDB::error()) {
31 echo $err;
32 }
0380bf85 33 if ($it->total() > 0) {
5ecaa68e 34 echo "Erreur pour la verification : $comment\n$sql\n\n";
0337d704 35 echo "|";
0380bf85 36 while($col = $it->nextField()) {
5ecaa68e 37 echo "\t" . $col->name . "\t|";
0380bf85 38 }
0337d704 39 echo "\n";
40
0380bf85 41 while ($arr = $it->next()) {
0337d704 42 echo "|";
5ecaa68e
SJ
43 foreach ($arr as $val) {
44 echo "\t$val\t|";
45 }
0337d704 46 echo "\n";
eaf30d86 47 }
0337d704 48 echo "\n";
49 }
50}
51
5ecaa68e 52function info($sql, $comment = '') {
0337d704 53 global $opt_verbose;
5ecaa68e
SJ
54 if ($opt_verbose) {
55 check($sql, $comment);
56 }
0337d704 57}
58
5ecaa68e
SJ
59/* Parses options. */
60$opts = Console_GetOpt::getopt($argv, 'v');
61$opt_verbose = false;
0337d704 62
5ecaa68e 63if (PEAR::isError($opts)) {
0337d704 64 echo $opts->getMessage();
65} else {
66 $opts = $opts[0];
5ecaa68e 67 foreach ($opts as $opt) {
0337d704 68 switch ($opt[0]) {
5ecaa68e
SJ
69 case 'v':
70 $opt_verbose = true;
0337d704 71 break;
72 }
73 }
74}
75
5ecaa68e
SJ
76/* hrid correctness */
77check("SELECT uid, full_name
78 FROM accounts
79 WHERE hruid IS NULL OR hruid = ''",
d293e17c 80 "Utilisateur n'ayant pas de hruid.");
5ecaa68e
SJ
81check("SELECT p.pid, pd.public_name, pd.promo
82 FROM profiles AS p
83 LEFT JOIN profile_display AS pd ON (p.pid = pd.pid)
84 WHERE p.hrpid IS NULL OR p.hrpid = ''",
85 "Profil n'ayant pas de hrpid.");
86
87/* No alumni is allowed to have empty names. */
88check("SELECT p.pid, p.hrpid
89 FROM profiles AS p
90 INNER JOIN profile_name AS pn ON (p.pid = pn.pid)
91 WHERE name = ''",
92 "Liste des personnes qui ont un de leur nom de recherche vide.");
93
94/* Checks rewriting on deleted aliases. */
95check("SELECT a.alias, e.email, e.rewrite AS broken
96 FROM aliases AS a
97 INNER JOIN emails AS e ON (a.uid = e.uid AND rewrite != '')
98 LEFT JOIN aliases AS b ON (b.uid = a.uid AND rewrite LIKE CONCAT(b.alias, '@%') AND b.type != 'homonyme')
99 WHERE a.type = 'a_vie' AND b.type IS NULL",
100 "Personnes qui ont des rewrite sur un alias perdu.");
101
102/* Publicity flags correctness */
103check("SELECT p.pid, p.hrpid, p.freetext_pub, p.medals_pub, p.alias_pub,
104 pa.pub, pc.corps_pub, pj.pub, pj.email_pub, pn.pub, pp.pub, ph.pub
105 FROM profiles AS p
106 LEFT JOIN profile_addresses AS pa ON (p.pid = pa.pid)
107 LEFT JOIN profile_corps AS pc ON (p.pid = pc.pid)
108 LEFT JOIN profile_job AS pj ON (p.pid = pj.pid)
109 LEFT JOIN profile_networking AS pn ON (p.pid = pn.pid)
110 LEFT JOIN profile_phones AS pp ON (p.pid = pp.pid)
111 LEFT JOIN profile_photos AS ph ON (p.pid = ph.pid)
112 WHERE (p.freetext_pub != 'public' AND p.freetext_pub != 'private')
113 OR (p.medals_pub != 'public' AND p.medals_pub != 'private')
114 OR (p.alias_pub != 'public' AND p.alias_pub != 'private')
115 OR (pa.pub != 'public' AND pa.pub != 'ax' AND pa.pub != 'private')
116 OR (pc.corps_pub != 'public' AND pc.corps_pub != 'ax' AND pc.corps_pub != 'private')
117 OR (pj.pub != 'public' AND pj.pub != 'ax' AND pj.pub != 'private')
118 OR (pj.email_pub != 'public' AND pj.email_pub != 'ax' AND pj.email_pub != 'private')
119 OR (pn.pub != 'public' AND pn.pub != 'private')
120 OR (pp.pub != 'public' AND pp.pub != 'ax' AND pp.pub != 'private')
121 OR (ph.pub != 'public' AND ph.pub != 'private')",
122 'Profil ayant des flags de publicité manquant.');
123
124/* Checks profile_*_enum all have a name to describe them. */
125check("SELECT *
126 FROM profile_binet_enum
127 WHERE text IS NULL OR text = ''");
128check("SELECT *
129 FROM profile_corps_enum
130 WHERE name IS NULL OR name = ''");
131check("SELECT *
132 FROM profile_corps_rank_enum
133 WHERE name IS NULL OR name = ''");
134check("SELECT *
135 FROM profile_education_degree_enum
136 WHERE degree IS NULL OR degree = ''");
137check("SELECT *
138 FROM profile_education_enum
139 WHERE name IS NULL OR name = ''");
140check("SELECT *
141 FROM profile_education_field_enum
142 WHERE field IS NULL OR field = ''");
143check("SELECT *
144 FROM profile_job_enum
145 WHERE name IS NULL OR name = ''");
146check("SELECT *
147 FROM profile_job_sector_enum
148 WHERE name IS NULL OR name = ''");
149check("SELECT *
150 FROM profile_job_subsector_enum
151 WHERE name IS NULL OR name = ''");
152check("SELECT *
153 FROM profile_job_subsubsector_enum
154 WHERE name IS NULL OR name = ''");
155check("SELECT *
156 FROM profile_langskill_enum
157 WHERE langue_fr IS NULL OR langue_fr = ''");
158check("SELECT *
159 FROM profile_medal_enum
160 WHERE text IS NULL OR text = ''");
161check("SELECT *
162 FROM profile_name_enum
163 WHERE name IS NULL OR name = ''");
164check("SELECT *
165 FROM profile_networking_enum
166 WHERE name IS NULL OR name = ''");
167check("SELECT *
168 FROM profile_section_enum
169 WHERE text IS NULL OR text = ''");
170check("SELECT *
171 FROM profile_skill_enum
172 WHERE text_fr IS NULL OR text_fr = ''");
173
174/* Checks some other tables all have a name to describe them. */
175check("SELECT id, nom, diminutif
176 FROM groups
177 WHERE nom IS NULL OR nom = ''");
178check("SELECT fid, name
179 FROM forums
180 WHERE name IS NULL OR name = ''");
181
182/* Checks phone formating. */
e4cd7a1f
SJ
183check("SELECT DISTINCT g.phonePrefix
184 FROM geoloc_countries AS g
185 WHERE EXISTS (SELECT h.phonePrefix
186 FROM geoloc_countries AS h
187 WHERE h.phonePrefix = g.phonePrefix
188 AND h.phoneFormat != (SELECT i.phoneFormat
189 FROM geoloc_countries AS i
190 WHERE i.phonePrefix = g.phonePrefix
191 LIMIT 1))",
5ecaa68e 192 "Préfixes téléphoniques qui ont des formats de numéros de téléphones différents selon les pays.");
b235d980 193
5ecaa68e
SJ
194/* Checks correctness of countries in the profiles. */
195check("SELECT pa.pid, pa.countryId
196 FROM profile_addresses AS pa
e4cd7a1f
SJ
197 LEFT JOIN geoloc_countries AS gc ON (a.countryId = gc.iso_3166_1_a2)
198 WHERE gc.countryFR IS NULL OR gc.countryFR = ''",
5ecaa68e 199 "Donne la liste des pays dans les profils qui n'ont pas d'entrée correspondante dans geoloc_countries.");
0337d704 200
5ecaa68e 201/* Lists unsound emails that remain unprocessed by the administrators. */
e39d6c88 202check("SELECT a1.alias, a2.alias, e1.email, e2.flags
5ecaa68e
SJ
203 FROM emails AS e1
204 INNER JOIN emails AS e2 ON (e1.email = e2.email AND e1.uid != e2.uid AND
205 (e1.uid < e2.uid OR NOT FIND_IN_SET('active', e2.flags)))
206 INNER JOIN email_watch AS w ON (w.email = e1.email AND w.state = 'pending')
207 INNER JOIN aliases AS a1 ON (a1.uid = e1.uid AND a1.type = 'a_vie')
208 INNER JOIN aliases AS a2 ON (a2.uid = e2.uid AND a2.type = 'a_vie')
209 WHERE FIND_IN_SET('active', e1.flags)
210 ORDER BY a1.alias",
211 "Donne la liste des emails douteux actuellement non traites par les administrateurs.");
212
213/* Lists dangerous and unsound emails. */
e39d6c88 214info("SELECT a1.alias, a2.alias, e1.email, e2.flags, w.state
5ecaa68e
SJ
215 FROM emails AS e1
216 INNER JOIN emails AS e2 ON (e1.email = e2.email AND e1.uid != e2.uid AND
217 (e1.uid < e2.uid OR NOT FIND_IN_SET('active', e2.flags)))
218 INNER JOIN email_watch AS w ON (w.email = e1.email AND w.state != 'safe')
219 INNER JOIN aliases AS a1 ON (a1.uid = e1.uid AND a1.type = 'a_vie')
220 INNER JOIN aliases AS a2 ON (a2.uid = e2.uid AND a2.type = 'a_vie')
221 WHERE FIND_IN_SET('active', e1.flags)
222 ORDER BY a1.alias",
223 "Donne la liste des emails dangereux ou douteux.");
224
225/* Lists homonyms who have an alias equals to their loginbis for more than a month. */
0337d704 226check("SELECT a.alias AS username, b.alias AS loginbis, b.expire
5ecaa68e
SJ
227 FROM aliases AS a
228 INNER JOIN aliases AS b ON (a.uid=b.uid AND b.type != 'homonyme' and b.expire < NOW())
0337d704 229 WHERE a.type = 'a_vie'",
5ecaa68e
SJ
230 "Donne la liste des homonymes qui ont un alias égal à leur loginbis depuis plus d'un mois, il est temps de supprimer leur alias.");
231
232/* Correctness of ax_id in profiles table. */
233check("SELECT pid, hrpid, ax_id, COUNT(ax_id) AS c
234 FROM profiles
235 WHERE ax_id != '0'
236 GROUP BY ax_id
237 HAVING c > 1",
238 "À chaque personne de l'annuaire de l'AX doit correspondre AU PLUS UNE personne de notre annuaire -> si ce n'est pas le cas il faut regarder en manuel ce qui ne va pas !");
239
240/* Checks there is no user with a disactivated Google Apps account and an active redirection towards Google Apps. */
241check("SELECT a.alias, g.g_status, eo.storage
242 FROM email_options AS eo
243 INNER JOIN aliases AS a ON (a.uid = eo.uid AND a.type = 'a_vie')
244 INNER JOIN gapps_accounts AS g ON (g.l_userid = eo.uid)
245 WHERE FIND_IN_SET('googleapps', eo.storage) > 0 AND g.g_status != 'active'",
246 "Utilisateurs ayant une redirection vers Google Apps alors que leur compte GApps n'est pas actif.");
247
248/* TODO: add check on foreign keys for every table! */
2af95f6f 249
a7de4ef7 250// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
0337d704 251?>