source: trunk/spip/esqueleto-redcta/plugins/svn_update-redcta-spip-1-9/exec/svn_update.php @ 325

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

nueva importacion del codigo del esqueleto de redcta con los plugins

File size: 2.2 KB
Line 
1<?php
2
3include_spip('inc/svn_update');
4
5# redefinissables dans ecrire/mes_options ; si on veut en mettre
6# plusieurs separer par des deux-points
7define('_SVN_UPDATE_AUTEURS', '2');
8# fichier source
9define('_SVN_UPDATE_FILE', find_in_path('svn_update_list.txt'));
10
11# securite
12if (!defined("_ECRIRE_INC_VERSION")) return;
13
14function exec_svn_update() {
15        global $connect_statut, $connect_id_auteur, $connect_toutes_rubriques;
16        global $exec;
17        include_spip('inc/presentation');
18        include_spip('inc/config');
19
20        pipeline('exec_init',
21                array('args'=>array('exec'=>'configuration'),'data'=>''));
22
23        debut_page(_L('Update SVN'), "configuration", "configuration");
24        echo "<br><br><br>";
25        gros_titre(_L('Update SVN'));
26
27
28        if ($connect_statut != '0minirezo'
29        OR !in_array($connect_id_auteur, explode(':', _SVN_UPDATE_AUTEURS))) {
30                echo _T('avis_non_acces_page');
31// debug                echo ($connect_statut);
32// debug                echo ($connect_id_auteur);
33                fin_page();
34                exit;
35        }
36
37        debut_gauche();
38        debut_droite();
39
40        if (!defined('_SVN_UPDATE_FILE')
41        OR !file_exists(_SVN_UPDATE_FILE)) {
42                die ("Fichier de configuration "._SVN_UPDATE_FILE." absent");
43        }
44        $config = file(_SVN_UPDATE_FILE);
45
46        $dirs_ok = array();
47        foreach ($config as $l) {
48                $l = trim($l);
49                if ($l AND substr($l,0,1) != "#") {
50                        list($src,$dest) = explode(' ', $l);
51                        $dirs_ok[$dest] = $l;
52                        $sources[$dest] = $src;
53                }
54        }
55
56        if ($dirs_ok) {
57
58                chdir(_DIR_RACINE);
59                // Appliquer la demande
60                if (_request('dir_svn') == -1) {
61                        traiter_config_svn($config);
62                } else
63                if ($dir_svn = _request('dir_svn')
64                AND isset($dirs_ok[$dir_svn])) {
65                        traiter_config_svn(array($dirs_ok[$dir_svn]));
66                }
67                chdir(_DIR_RESTREINT_ABS);
68
69
70                // Menu
71
72                echo _L("Choisir le r&eacute;pertoire &agrave; mettre &agrave; jour&nbsp;: ");
73                echo "<form action='./?exec=$exec' method='post'>
74                <input type='hidden' name='exec' value='$exec' />
75                <select name='dir_svn'>
76                <option value=''></option>";
77                foreach ($dirs_ok as $dir => $source) {
78                        echo "<option value='$dir'>".$dir
79                                ." depuis ".$sources[$dir]."</option>\n";
80                }
81                echo "<option value='-1'>** "._L('Tous')."</option>\n";
82                echo "</select>
83                <input type='submit' value='Update' />
84                </form>
85                ";
86
87        } else
88                echo _L("D&eacute;sol&eacute;, aucun r&eacute;pertoire n'est accessible en SVN.");
89
90
91        fin_page();
92
93}
94
95?>
Note: See TracBrowser for help on using the repository browser.