source: trunk/spip/esqueleto-redcta/plugins/mis_archivos/action/mis_archivos.php @ 133

Last change on this file since 133 was 30, checked in by sebas, 17 years ago

nueva importacion del codigo del esqueleto de redcta con los plugins

File size: 1.6 KB
Line 
1<?php
2
3if (!defined("_ECRIRE_INC_VERSION")) return;
4
5function action_mis_archivos() {
6
7        //securite
8        if(@function_exists('autoriser')) {
9                if(!autoriser('sauvegarder')) {
10                        $paspermis = true;
11                }
12        }
13        //vieille methode pour compatiblite ascendante
14        else { 
15                global $connect_statut;
16                global $connect_toutes_rubriques;
17                if (!($connect_statut == '0minirezo' AND $connect_toutes_rubriques)) {
18                        $paspermis = true;
19                }
20        }
21
22        if($paspermis) {
23                include_spip('inc/minipres');
24                echo minipres();
25                exit;
26        }
27       
28        include_spip('inc/pclzip');
29        $mes_options = defined('_FILE_OPTIONS') ? _FILE_OPTIONS : 'ecrire/mes_options.php';
30        $IMG = defined('_DIR_IMG') ? _DIR_IMG: 'IMG/';
31        $tmp_dump = defined('_DIR_DUMP') ? _DIR_DUMP: 'tmp/dump/';
32        $liste = array();
33        if (@is_dir($IMG)) {
34                $liste[] = $IMG;
35        }
36        if (@is_dir('themes/')) {
37                $liste[] = 'themes/';
38        }
39        if (@is_dir('plugins/')) {
40                $liste[] = 'plugins/';
41        }
42        if (@is_readable($mes_options)) {
43                $liste[] = $mes_options;
44        }
45        $dump = preg_files($tmp_dump);
46        $fichier_dump = '';
47        $mtime = 0;
48        foreach ($dump as $_fichier_dump) {
49                if (($_mtime = filemtime($_fichier_dump)) > $mtime) {
50                        $fichier_dump = $_fichier_dump;
51                        $mtime = $_mtime;
52                }
53        }
54        if ($fichier_dump) {
55                $liste[] = $fichier_dump;
56        }
57        spip_log('*** mis_archivos ***');
58        spip_log($liste);
59        $mis_archivos = new PclZip(_DIR_TMP . 'mis_archivos'.date("Ymd_Hi").'.zip');
60        $erreur = $mis_archivos->create($liste, PCLZIP_OPT_ADD_PATH, "spip");
61        if ($erreur == 0) {
62                die("Erreur : ".$mis_archivos->errorInfo(true));
63        }
64        redirige_par_entete(generer_url_ecrire('admin_tech', 'mis_archivos=sauve_ok', true));
65}
66
67?>
Note: See TracBrowser for help on using the repository browser.