source: spip-zone/_plugins_/scenari/scenari_fonctions.php @ 88118

Last change on this file since 88118 was 88118, checked in by amaury.adon@…, 5 years ago

eregi() est obsolete et crée des erreurs dans le couteau suisse
up de z

File size: 1.4 KB
Line 
1<?php
2
3        if (!defined("_ECRIRE_INC_VERSION")) return;
4
5        /* *
6         * remplace le motif par le lien vers le scenari
7         * si le lien n'est pas correct efface le motif
8         */
9
10        function scenari_insert_projet($texte){
11                while (preg_match("/scenari@([0-9a-zA-Z]+)@/i", $texte, $projetscenari)) { 
12                        $motif="scenari@".$projetscenari['1']."@";
13                        $lien=find_in_path(_DIR_IMG."scenari/".$projetscenari['1']);
14                        if(!empty($lien))
15                        $texte = str_replace($motif, '<a href="'.find_in_path(_DIR_IMG."scenari/".$projetscenari['1']).'/" target="scenari"><img src="'._DIR_PLUGIN_SCENARI.'images/scenari-32.png" alt="'.$projetscenari['1'].'"></a>', $texte);
16                        else
17                        $texte = str_replace($motif, '', $texte); //On remplace dans le texte
18                }
19                return $texte;
20        }
21
22        /* *
23         * Liste des scenari disponibles
24         */
25
26        function liste_scenari($dir){
27                $return=array();
28                if ($handle = opendir($dir)) {
29                        while (false !== ($file = readdir($handle))) {
30                                if (is_dir($dir.$file)&&$file!='.'&&$file!='..') {
31                                        $return[] = $file;
32                                }
33                        }
34                        closedir($handle);
35                }
36                return $return;
37        }
38
39        /* *
40         * Another simple way to recursively delete a directory that is not empty
41         */
42
43        function rrmdir($dir) {
44                if (is_dir($dir)) {
45                        $objects = scandir($dir);
46                        foreach ($objects as $object) {
47                                if ($object != "." && $object != "..") {
48                                        if (filetype($dir."/".$object) == "dir") rrmdir($dir."/".$object); else unlink($dir."/".$object);
49                                }
50                        }
51                        reset($objects);
52                        rmdir($dir);
53                }
54        } 
55
56?>
Note: See TracBrowser for help on using the repository browser.