source: spip-zone/_plugins_/trad-lang/trunk/inc/salvatore_ecriveur.php @ 119832

Last change on this file since 119832 was 119832, checked in by Cerdic, 2 years ago

factorisation de code et renommage variable

  • Property svn:eol-style set to native
File size: 16.1 KB
Line 
1<?php
2
3/*
4    This file is part of Salvatore, the translation robot of Trad-lang (SPIP)
5
6    Salvatore 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    Trad-Lang 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 Trad-Lang; if not, write to the Free Software
18    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19
20    Copyright 2003-2020
21        Florent Jugla <florent.jugla@eledo.com>,
22        Philippe Riviere <fil@rezo.net>,
23        Chryjs <chryjs!@!free!.!fr>,
24        kent1 <kent1@arscenic.info>
25        Cerdic <cedric@yterium.com>
26*/
27
28include_spip('base/abstract_sql');
29include_spip('inc/charsets');
30include_spip('inc/config');
31include_spip('inc/filtres');
32include_spip('inc/texte');
33include_spip('inc/xml');
34include_spip('inc/lang_liste');
35include_spip('inc/session');
36
37
38/**
39 * @param array $liste_sources
40 * @param string $dir_modules
41 * @throws Exception
42 */
43function salvatore_ecrire($liste_sources, $dir_modules = null, $message_commit=''){
44        include_spip('inc/salvatore');
45        salvatore_init();
46
47        // on va lire dans la base, il faut qu'elle soit a jour
48        salvatore_verifier_base_upgradee();
49
50        if (is_null($dir_modules)){
51                $dir_modules = _DIR_SALVATORE_MODULES;
52        }
53        salvatore_check_dir($dir_modules);
54        $url_gestionnaire = salvatore_get_self_url();
55
56        foreach ($liste_sources as $source){
57                salvatore_log("\n<info>--- Module " . $source['module'] . " | " . $source['dir_module'] . " | " . $source['url'] . "</info>");
58
59                $module = $source['module'];
60                $dir_module = $dir_modules . $source['dir_module'];
61
62                if ($autre_gestionnaire = salvatore_verifier_gestionnaire_traduction($dir_module, $module)){
63                        salvatore_fail("[Lecteur] Erreur sur $module", "Erreur : import impossible, le fichier est traduit autre part : $autre_gestionnaire\n");
64                }
65
66                $id_tradlang_module = sql_getfetsel('id_tradlang_module', 'spip_tradlang_modules', 'module = ' . sql_quote($source[1]));
67
68                // url de l'interface de traduction d'un module
69                $url_trad = url_absolue(generer_url_entite($id_tradlang_module, 'tradlang_module'), $url_gestionnaire);
70                export_trad_module($source, $url_gestionnaire, $url_trad, $message_commit);
71        }
72}
73
74//
75// Genere les fichiers de traduction d'un module
76// TODO
77//
78function export_trad_module($source, $url_site, $url_trad, $message_commit = ''){
79        global $tmp;
80
81        // sanity check
82        if (!is_dir($tmp . $source[1] . '/')){
83                return false;
84        }
85
86        $module = sql_fetsel('id_tradlang_module,limite_trad,lang_mere', 'spip_tradlang_modules', 'module = ' . sql_quote($source[1]));
87
88        $seuil_export = 50;
89        if (is_numeric($module['limite_trad']) and $module['limite_trad']>0){
90                $seuil_export = $module['limite_trad'];
91        } elseif (function_exists('lire_config')) {
92                $seuil_export = lire_config('tradlang/seuil_export_tradlang', 50);
93        }
94        if (intval($module['id_tradlang_module'])>=1){
95                // charger la langue originale, pour la copier si necessaire
96                $count_original = 0;
97                $res = sql_allfetsel('id, id_tradlang_module,str,comm,statut', 'spip_tradlangs', 'id_tradlang_module = ' . intval($module['id_tradlang_module']) . ' AND lang = ' . sql_quote($module['lang_mere']) . ' AND statut="OK"', 'id');
98                foreach ($res as $row){
99                        $row['statut'] = 'NEW';
100                        $lorigine[$row['id']] = $row;
101                        $id_tradlang_module = $row['id_tradlang_module'];
102                        $count_original++;
103                }
104
105                $liste_lang = $liste_lang_non_exportees = $liste_lang_supprimer = array();
106                $minimal = ceil((($count_original*$seuil_export)/100));
107                salvatore_log("\nMinimal = $minimal ($seuil_export %)\n");
108
109                $res = sql_allfetsel('lang,COUNT(*) as N', 'spip_tradlangs', 'module = ' . sql_quote($source[1]) . ' AND statut != "NEW" AND statut != "attic"', 'lang', 'lang');
110                foreach ($res as $row){
111                        /**
112                         * Le fichier est il suffisamment traduit
113                         */
114                        if ($row['N']>=$minimal){
115                                $liste_lang[] = $row['lang'];
116                        } else {
117                                /**
118                                 * Le fichier n'est pas suffisamment traduit et n'existe pas, on ne fera donc rien
119                                 */
120                                if (!file_exists($tmp . $source[1] . '/' . $source[1] . '_' . $row['lang'] . '.php')){
121                                        $liste_lang_non_exportees[] = $row['lang'];
122                                } else {
123                                        /**
124                                         * Il n'est pas suffisamment traduit, cependant, il existe déjà
125                                         * On ne va donc pas le supprimer à la barbare, mais on le met à jour quand même
126                                         */
127                                        $liste_lang[] = $row['lang'];
128                                        $liste_lang_supprimer[] = $row['lang'];
129                                        $percent = (($row['N']/$count_original)*100);
130                                        if ($percent<($seuil_export-15)){
131                                                $message_commit .= "La langue '" . $row['lang'] . "' devrait être supprimée car trop peu traduite (" . number_format($percent, 2) . " %)\n";
132                                        }
133                                }
134                        }
135                }
136
137                // traiter chaque langue
138                $infos = $commiteurs = array();
139                foreach ($liste_lang as $lang){
140                        salvatore_log("Generation de la langue $lang ");
141                        // Proteger les caracteres typographiques a l'interieur des tags html
142                        $typo = (in_array($lang, array('eo', 'fr', 'cpf')) || strncmp($lang, 'fr_', 3)==0) ? 'fr' : 'en';
143                        $typographie = charger_fonction($typo, 'typographie');
144                        $tab = "\t";
145
146                        $x = $tous = $tradlangs = array();
147                        $prev = '';
148                        $traduits = $modifs = $relire = 0;
149
150                        // On ne prend que les MODIF, les RELIRE et les OK pour ne pas rendre les sites multilingues en français
151                        $res = sql_allfetsel('id_tradlang,id,str,comm,statut,md5', 'spip_tradlangs', 'module = "' . $source[1] . '" AND lang = "' . $lang . '" AND statut != "NEW" AND statut != "attic"', 'id');
152                        foreach ($res as $row){
153                                $tradlangs[] = $row['id_tradlang'];
154                                $tous[$row['id']] = $row;
155                        }
156                        ksort($tous);
157
158                        foreach ($tous as $row){
159                                if ($row['statut']=='OK'){
160                                        $traduits++;
161                                } elseif ($row['statut']=='MODIF') {
162                                        $modifs++;
163                                } elseif ($row['statut']=='RELIRE') {
164                                        $relire++;
165                                }
166
167                                if (strlen($row['comm'])>1){
168                                        // On remplace les sauts de lignes des commentaires sinon ça crée des erreurs php
169                                        $row['comm'] = str_replace(array("\r\n", "\n", "\r"), ' ', $row['comm']);
170                                        // Conversion des commentaires en utf-8
171                                        $row['comm'] = unicode_to_utf_8(html_entity_decode(preg_replace('/&([lg]t;)/S', '&amp;\1', $row['comm']), ENT_NOQUOTES, 'utf-8'));
172                                }
173
174                                if ($prev!=strtoupper($row['id'][0])){
175                                        $x[] = "\n$tab// " . strtoupper($row['id'][0]);
176                                }
177                                $prev = strtoupper($row['id'][0]);
178
179                                if (strlen($row['statut']) and ($row['statut']!='OK')){
180                                        $row['comm'] .= ' ' . $row['statut'];
181                                }
182                                if (trim($row['comm'])){
183                                        $row['comm'] = ' # ' . trim($row['comm']); // on rajoute les commentaires ?
184                                }
185
186                                $str = $row['str'];
187
188                                /**
189                                 * On enlève les sauts de lignes windows pour des sauts de ligne linux
190                                 */
191                                $str = str_replace("\r\n", "\n", $str);
192
193                                /**
194                                 * protection dans les balises genre <a href="..." ou <img src="..."
195                                 * cf inc/filtres
196                                 */
197                                if (preg_match_all(_TYPO_BALISE, $str, $regs, PREG_SET_ORDER)){
198                                        foreach ($regs as $reg){
199                                                $insert = $reg[0];
200                                                // hack: on transforme les caracteres a proteger en les remplacant
201                                                // par des caracteres "illegaux". (cf corriger_caracteres())
202                                                $insert = strtr($insert, _TYPO_PROTEGER, _TYPO_PROTECTEUR);
203                                                $str = str_replace($reg[0], $insert, $str);
204                                        }
205                                }
206
207                                /**
208                                 * Protéger le contenu des balises <html> <code> <cadre> <frame> <tt> <pre>
209                                 */
210                                define('_PROTEGE_BLOCS_HTML', ',<(html|code|cadre|pre|tt)(\s[^>]*)?>(.*)</\1>,UimsS');
211                                if ((strpos($str, '<')!==false) and preg_match_all(_PROTEGE_BLOCS_HTML, $str, $matches, PREG_SET_ORDER)){
212                                        foreach ($matches as $reg){
213                                                $insert = $reg[0];
214                                                // hack: on transforme les caracteres a proteger en les remplacant
215                                                // par des caracteres "illegaux". (cf corriger_caracteres())
216                                                $insert = strtr($insert, _TYPO_PROTEGER, _TYPO_PROTECTEUR);
217                                                $str = str_replace($reg[0], $insert, $str);
218                                        }
219                                }
220
221                                /**
222                                 * On applique la typographie de la langue
223                                 */
224                                $str = $typographie($str);
225                                /**
226                                 * On remet les caractères normaux sur les caractères illégaux
227                                 */
228                                $str = strtr($str, _TYPO_PROTECTEUR, _TYPO_PROTEGER);
229
230                                $str = unicode_to_utf_8(html_entity_decode(preg_replace('/&([lg]t;)/S', '&amp;\1', $str), ENT_NOQUOTES, 'utf-8'));
231
232                                /**
233                                 * Calcul du nouveau md5
234                                 */
235                                $newmd5 = md5($str);
236
237                                /**
238                                 * Si le md5 ou la chaine à changé, on la met à jour dans la base
239                                 */
240                                if (($row['md5']!=$newmd5) || ($str!=$row['str'])){
241                                        $r = sql_updateq('spip_tradlangs', array('md5' => $newmd5, 'str' => $str), 'id_tradlang = ' . intval($row['id_tradlang']));
242                                }
243
244                                $x[] = $tab . var_export($row['id'], 1) . ' => ' . var_export($str, 1) . ',' . $row['comm'];
245                        }
246                        $orig = ($lang==$source[2]) ? $source[0] : false;
247
248                        salvatore_log(" - traduction ($traduits/$count_original OK | $relire/$count_original RELIRE | $modifs/$count_original MODIFS), export\n");
249                        // historiquement les fichiers de lang de spip_loader ne peuvent pas etre securises
250                        $secure = ($source[1]=='tradloader')
251                                ? ''
252                                : "if (!defined('_ECRIRE_INC_VERSION')) {
253        return;
254}\n\n";
255
256                        $fd = fopen($tmp . $source[1] . '/' . $source[1] . '_' . $lang . '.php', 'w');
257
258                        # supprimer la virgule du dernier item
259                        $x[count($x)-1] = preg_replace('/,([^,]*)$/', '\1', $x[count($x)-1]);
260
261                        $contenu = join("\n", $x);
262
263                        // L'URL du site de traduction
264                        $url_trad = parametre_url($url_trad, 'lang_cible', $lang);
265                        /**
266                         * Ecrire le fichier de langue complet
267                         */
268                        fwrite(
269                                $fd,
270                                '<' . '?php
271// This is a SPIP language file  --  Ceci est un fichier langue de SPIP
272'
273
274                                . ($orig
275                                        ? '// Fichier source, a modifier dans ' . $orig
276                                        : '// extrait automatiquement de ' . $url_trad . '
277// ** ne pas modifier le fichier **
278'
279                                )
280                                . "\n" . $secure . '$GLOBALS[$GLOBALS[\'idx_lang\']] = array(
281'
282                                . $contenu
283                                . '
284);
285'
286                        );
287                        fclose($fd);
288
289                        // noter la langue et les traducteurs pour lang/module.xml
290                        $infos[$lang] = $people_unique = array();
291                        $infos[$lang]['traducteurs'] = array();
292                        $infos[$lang]['traduits'] = $traduits;
293                        $infos[$lang]['modifs'] = $modifs;
294                        $infos[$lang]['relire'] = $relire;
295                        if (defined('_ID_AUTEUR_SALVATORE') and intval(_ID_AUTEUR_SALVATORE)>0){
296                                $people_unique[] = _ID_AUTEUR_SALVATORE;
297                        }
298                        $s = sql_allfetsel('DISTINCT(traducteur)', 'spip_tradlangs', 'id_tradlang_module = ' . intval($module['id_tradlang_module']) . ' AND lang = ' . sql_quote($lang));
299                        foreach ($s as $t){
300                                $traducteurs_lang = explode(',', $t['traducteur']);
301                                foreach ($traducteurs_lang as $traducteur){
302                                        if (!in_array($traducteur, $people_unique)){
303                                                if (is_numeric($traducteur) and $id_auteur = intval($traducteur)){
304                                                        $traducteur_supp['nom'] = extraire_multi(sql_getfetsel('nom', 'spip_auteurs', 'id_auteur = ' . $id_auteur));
305                                                        $traducteur_supp['lien'] = url_absolue(generer_url_entite($id_auteur, 'auteur'), $url_site);
306                                                } elseif (trim(strlen($traducteur))>0) {
307                                                        $traducteur_supp['nom'] = trim($traducteur);
308                                                        $traducteur_supp['lien'] = '';
309                                                }
310                                                if (isset($traducteur_supp['nom'])){
311                                                        $infos[$lang]['traducteurs'][strtolower($traducteur_supp['nom'])] = $traducteur_supp;
312                                                }
313                                                unset($traducteur_supp);
314                                                $people_unique[] = $traducteur;
315                                        }
316                                }
317                        }
318                        unset($people_unique);
319
320                        if (substr(exec('svn status ' . _DIR_SALVATORE_TMP . $source[1] . '/' . $source[1] . '_' . $lang . '.php'), 0, 1)=='?'){
321                                if ($module['limite_trad']==0){
322                                        passthru('svn add ' . _DIR_SALVATORE_TMP . $source[1] . '/' . $source[1] . "_$lang.php 2> /dev/null") ? salvatore_log("$log\n") : '';
323                                } elseif (!in_array($source[1], array('ecrire', 'spip', 'public'))) {
324                                        if ((intval(($infos[$lang]['traduits']/$count_original)*100)>$seuil_export)){
325                                                passthru('svn add ' . _DIR_SALVATORE_TMP . $source[1] . '/' . $source[1] . "_$lang.php* 2> /dev/null") ? salvatore_log("$log\n") : '';
326                                        }
327                                }
328                        }
329                        /**
330                         * Le fichier a été modifié ou ajouté (svn status A ou M)
331                         *
332                         * On récupère la date de dernier changement avec svn info
333                         * On cherche toutes les dernières modifications dans la base de donnée
334                         * Si un seul auteur de révisions (Hors salvatore et -1) on l'ajoute comme commiteur
335                         * Si plusieurs auteurs le commiteur sera Salvatore
336                         */
337                        if (in_array(substr(exec('svn status ' . _DIR_SALVATORE_TMP . $source[1] . '/' . $source[1] . "_$lang.php"), 0, 1), array('A', 'M'))){
338                                $last_change = exec('env LC_MESSAGES=en_US.UTF-8 svn info ' . _DIR_SALVATORE_TMP . $source[1] . '/' . $source[1] . "_$lang.php | awk '/^Last Changed Date/ { print $4 \" \" $5 }'");
339                                $auteur_versions = sql_allfetsel('id_auteur', 'spip_versions', 'objet="tradlang" AND date > ' . sql_quote($last_change) . ' AND ' . sql_in('id_objet', $tradlangs) . ' AND id_auteur != "-1" AND id_auteur !=' . intval(_ID_AUTEUR_SALVATORE), 'id_auteur');
340                                if (count($auteur_versions)==1){
341                                        $email = sql_getfetsel('email', 'spip_auteurs', 'id_auteur = ' . intval($auteur_versions[0]['id_auteur']));
342                                        if ($email){
343                                                $commiteurs[$lang] = $email;
344                                        }
345                                        salvatore_log("\nLe commiteur sera pour la langue $lang : " . $commiteurs[$lang] . " \n");
346                                }
347                        }
348                }
349
350                // ecrire lang/module.xml
351                $xml = "<traduction module=\"$source[1]\" gestionnaire=\"salvatore\" url=\"$url_site\" source=\"$source[0]\" reference=\"$source[2]\">\n";
352                foreach ($infos as $lang => $info){
353                        if (count($info['traducteurs']>0)){
354                                $xml .= "       <langue code=\"$lang\" url=\"" . parametre_url($url_trad, 'lang_cible', $lang) . "\" total=\"$count_original\" traduits=\"" . $info['traduits'] . '" relire="' . $info['relire'] . '" modifs="' . $info['modifs'] . '" nouveaux="' . ($count_original-($info['modifs']+$info['traduits']+$info['relire'])) . '" pourcent="' . number_format((($info['traduits']/$count_original)*100), 2) . "\">\n";
355                                ksort($info['traducteurs']);
356                                foreach ($info['traducteurs'] as $nom => $people){
357                                        $xml .= '               <traducteur nom="' . entites_html($people['nom']) . '" lien="' . entites_html($people['lien']) . "\" />\n";
358                                }
359                                $xml .= "       </langue>\n";
360                        } else {
361                                $xml .= "       <langue code=\"$lang\" url=\"" . parametre_url($url_trad, 'lang_cible', $lang) . "\" />\n";
362                        }
363                }
364                unset($traducteurs[$source[2]]);
365                $xml .= "</traduction>\n";
366
367                ecrire_fichier($tmp . $source[1] . '/' . $source[1] . '.xml', $xml);
368
369                if (isset($liste_lang_non_exportees) and (count($liste_lang_non_exportees)>0)){
370                        $liste_lang_non_exportees_string = implode(', ', $liste_lang_non_exportees);
371                        salvatore_log("\nLes langues suivantes ne sont pas exportées car trop peu traduites:\n");
372                        salvatore_log("$liste_lang_non_exportees_string\n");
373                }
374                if (isset($liste_lang_supprimer) and (count($liste_lang_supprimer)>0)){
375                        $liste_lang_supprimer_string = implode(', ', $liste_lang_supprimer);
376                        salvatore_log("\nLes langues suivantes devraient être supprimées car trop peu traduites:\n");
377                        salvatore_log("$liste_lang_supprimer_string\n");
378                }
379                if ($module['limite_trad']==0){
380                        foreach ($liste_lang as $lang){
381                                passthru('svn add ' . _DIR_SALVATORE_TMP . $source[1] . '/' . $source[1] . "_$lang.php* 2> /dev/null") ? salvatore_log("$log\n") : '';
382                        }
383                } elseif (!in_array($source[1], array('ecrire', 'spip', 'public'))) {
384                        salvatore_log('Limite trad = ' . $seuil_export);
385                        foreach ($liste_lang as $lang){
386                                if ((intval(($infos[$lang]['traduits']/$count_original)*100)>$seuil_export)
387                                        and (substr(exec('svn status ' . _DIR_SALVATORE_TMP . $source[1] . '/' . $source[1] . "_$lang.php"), 0, 1)=='?')){
388                                        passthru('svn add ' . _DIR_SALVATORE_TMP . $source[1] . '/' . $source[1] . "_$lang.php* 2> /dev/null") ? salvatore_log("$log\n") : '';
389                                }
390                        }
391                }
392                salvatore_log("\n" . passthru('svn status ' . _DIR_SALVATORE_TMP . $source[1] . '/') . "\n");
393                if (strlen($message_commit)>1 || count($commiteurs)>0){
394                        $fd = fopen($tmp . $source[1] . '/message_commit.inc', 'w');
395                        # ecrire le fichier
396                        fwrite(
397                                $fd,
398                                '<' . '?php
399$message_commit = "' . $message_commit . '";
400
401$commiteurs = ' . var_export($commiteurs, 1) . ';
402
403?' . '>
404'
405                        );
406                        fclose($fd);
407                }
408        } else {
409                salvatore_log("\n Ce module n'existe pas\n");
410        }
411}
Note: See TracBrowser for help on using the repository browser.