3 /***************************************************************************
4 * Copyright (C) 2003-2011 Polytechnique.org *
5 * http://opensource.polytechnique.org/ *
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. *
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. *
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 *
20 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
21 ***************************************************************************/
22 /* Checks inconsistances in tables and joins. */
24 require './connect.db.inc.php';
25 require 'Console/Getopt.php';
27 function check($sql, $comment = '')
29 $it = XDB
::iterRow($sql);
30 if ($err = XDB
::error()) {
33 if ($it->total() > 0) {
34 echo "Erreur pour la vérification : $comment\n$sql\n\n";
36 while($col = $it->nextField()) {
37 echo "\t" . $col->name
. "\t|";
41 while ($arr = $it->next()) {
43 foreach ($arr as $val) {
52 function checkCount($sql, $comment = '')
54 $count = XDB
::rawFetchOneCell($sql);
55 if ($err = XDB
::error()) {
59 echo "Erreur pour la vérification : $comment\n$sql\n\n";
60 echo "|\tTotal\t|\n|\t$count\t|\n\n";
64 function info($sql, $comment = '', $onlyCounts = false
)
69 checkCount($sql, $comment);
71 check($sql, $comment);
76 function infoCountEmpty($table, $field, $nonEmpty = false
)
78 $sql = "SELECT COUNT(*) FROM $table";
80 $sql .= " WHERE $field IS NOT NULL OR $field != ''";
83 $sql .= " WHERE $field IS NULL OR $field = ''";
86 $comment = "Nombre de champs '$field'$negation vides dans la table '$table'.";
87 info($sql, $comment, true
);
91 $opts = Console_GetOpt
::getopt($argv, 'v');
94 if (PEAR
::isError($opts)) {
95 echo $opts->getMessage();
98 foreach ($opts as $opt) {
107 /* Checks rewriting on deleted aliases. */
108 check("SELECT a.alias, e.email, e.rewrite AS broken
110 INNER JOIN emails AS e ON (a.uid = e.uid AND rewrite != '')
111 LEFT JOIN aliases AS b ON (b.uid = a.uid AND rewrite LIKE CONCAT(b.alias, '@%') AND b.type != 'homonyme')
112 WHERE a.type = 'a_vie' AND b.type IS NULL",
113 "Personnes qui ont des rewrite sur un alias perdu.");
115 /* Lists unsound emails that remain unprocessed by the administrators. */
116 check("SELECT a1.alias, a2.alias, e1.email, e2.flags
118 INNER JOIN emails AS e2 ON (e1.email = e2.email AND e1.uid != e2.uid AND
119 (e1.uid < e2.uid OR NOT FIND_IN_SET('active', e2.flags)))
120 INNER JOIN email_watch AS w ON (w.email = e1.email AND w.state = 'pending')
121 INNER JOIN aliases AS a1 ON (a1.uid = e1.uid AND a1.type = 'a_vie')
122 INNER JOIN aliases AS a2 ON (a2.uid = e2.uid AND a2.type = 'a_vie')
123 WHERE FIND_IN_SET('active', e1.flags)
125 "Donne la liste des emails douteux actuellement non traites par les administrateurs.");
127 /* Lists dangerous and unsound emails. */
128 info("SELECT a1.alias, a2.alias, e1.email, e2.flags, w.state
130 INNER JOIN emails AS e2 ON (e1.email = e2.email AND e1.uid != e2.uid AND
131 (e1.uid < e2.uid OR NOT FIND_IN_SET('active', e2.flags)))
132 INNER JOIN email_watch AS w ON (w.email = e1.email AND w.state != 'safe')
133 INNER JOIN aliases AS a1 ON (a1.uid = e1.uid AND a1.type = 'a_vie')
134 INNER JOIN aliases AS a2 ON (a2.uid = e2.uid AND a2.type = 'a_vie')
135 WHERE FIND_IN_SET('active', e1.flags)
137 "Donne la liste des emails dangereux ou douteux.");
139 /* Lists homonyms who have an alias equals to their loginbis for more than a month. */
140 check("SELECT a.alias AS username, b.alias AS loginbis, b.expire
142 INNER JOIN aliases AS b ON (a.uid=b.uid AND b.type != 'homonyme' and b.expire < NOW())
143 WHERE a.type = 'a_vie'",
144 "Donne la liste des homonymes qui ont un alias égal à leur loginbis depuis plus d'un mois, il est temps de supprimer leur alias.");
146 // Counts empty profile fields that should never be empty.
147 infoCountEmpty('profile_addresses', 'text');
148 infoCountEmpty('profile_addresses', 'postalText');
149 infoCountEmpty('profile_education', 'eduid');
150 infoCountEmpty('profile_education', 'degreeid');
151 infoCountEmpty('profile_job', 'jobid');
152 infoCountEmpty('profile_mentor', 'expertise');
153 infoCountEmpty('profile_networking', 'address');
154 infoCountEmpty('profile_phones', 'search_tel');
155 infoCountEmpty('profile_phones', 'display_tel');
157 // XXX: counts the number of remaining issues due to the merge (to be removed once all merge related issues have been fixed)
158 infoCountEmpty('profile_merge_issues', 'issues', true
);
160 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: