Mise en route du suivi.
[aidenligne_francais_universite.git] / plugins / couteau_suisse / outils / chatons.php
CommitLineData
c495c100
P
1<?php
2
3// Outils CHATONS - 30 janvier 2007
4// Serieuse refonte et integration au Couteau Suisse : Patrice Vanneufville
5// Toutes les infos sur : http://www.spip-contrib.net/?article2166
6
7// cette fonction n'est pas appelee dans les balises html : html|code|cadre|frame|script|acronym|cite
8function cs_rempl_chatons($texte) {
9 if (strpos($texte, ':')===false) return $texte;
10 $chatons_rempl = unserialize($GLOBALS['meta']['cs_chatons']);
11 return str_replace($chatons_rempl[0], $chatons_rempl[1], $texte);
12}
13
14function chatons_pre_typo($texte) {
15 if (strpos($texte, ':')===false) return $texte;
16 if (!isset($GLOBALS['meta']['cs_chatons']))
17 chatons_installe();
18 return cs_echappe_balises('html|code|cadre|frame|script|acronym|cite', 'cs_rempl_chatons', $texte);
19}
20
21// cette fonction est appelee automatiquement a chaque affichage de la page privee du Couteau Suisse
22function chatons_installe() {
23//cs_log('chatons_installe()');
24 $liste = $chatons = array();
25 $path = find_in_path('img/chatons');
26 $dossier = opendir($path);
27 if($path) while ($image = readdir($dossier)) {
28 if (preg_match(',^([a-z][a-z0-9_-]*)\.(png|gif|jpg),', $image, $reg)) {
29 $chatons[0][] = ':'.$reg[1];
30 $liste[] = '<b>:'.$reg[1].'</b>';
31 list(,,,$size) = @getimagesize("$path/$reg[1].$reg[2]");
32 $chatons[1][] = "<img class=\"no_image_filtrer\" alt=\"$reg[1]\" title=\"$reg[1]\" src=\"".url_absolue($path)."/$reg[1].$reg[2]\" $size/>";
33 }
34 }
35 ecrire_meta('cs_chatons_racc', join(', ', $liste));
36 ecrire_meta('cs_chatons', serialize($chatons));
37 ecrire_metas();
38}
39
40// cette fonction est appelee automatiquement a chaque affichage de la page privee du Couteau Suisse
41// le resultat est une chaine apportant des informations sur les nouveaux raccourcis ajoutes par l'outil
42// si cette fonction n'existe pas, le plugin cherche alors _T('couteauprive:un_outil:aide');
43function chatons_raccourcis() {
44 return _T('couteauprive:chatons:aide', array('liste' => $GLOBALS['meta']['cs_chatons_racc']));
45}
46
47// cette fonction renvoie une ligne de tableau entre <tr></tr> afin de l'inserer dans la Barre Typo V2, si elle est presente
48function chatons_BarreTypo($tr) {
49 if (!isset($GLOBALS['meta']['cs_chatons'])) chatons_installe();
50 // le tableau des chatons est present dans les metas
51 $chatons = unserialize($GLOBALS['meta']['cs_chatons']);
52 $max = count($chatons[0]);
53 $res = '';
54 for ($i=0; $i<$max; $i++)
55 $res .= "<a href=\"javascript:barre_inserer('{$chatons[0][$i]}',@@champ@@)\">{$chatons[1][$i]}</a>";
56 return $tr.'<tr><td><@@span@@>'._T('couteauprive:chatons:nom')."</span>&nbsp;$res</td></tr>";
57}
58
59?>