Subversion Repositories Sites.tela-botanica.org

<?php

/***************************************************************************\
 *  SPIP, Systeme de publication pour l'internet                           *
 *                                                                         *
 *  Copyright (c) 2001-2005                                                *
 *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
 *                                                                         *
 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
\***************************************************************************/

if (defined("_TEST_DIRS")) return;
define("_TEST_DIRS", "1");

include("ecrire/inc_version.php3");

include_ecrire("inc_presentation.php3");

utiliser_langue_visiteur();


//
// Tente d'ecrire
//
function test_ecrire($my_dir) {
        $ok = true;
        $nom_fich = "$my_dir/test.txt";
        $f = @fopen($nom_fich, "w");
        if (!$f) $ok = false;
        else if (!@fclose($f)) $ok = false;
        else if (!@unlink($nom_fich)) $ok = false;
        return $ok;
}

//
// teste les droits sur les repertoires $test_dirs declares dans inc_version
//

// rajouter celui passer dans l'url ou celui du source (a l'installation)

if ($test_dir) {
  if (!ereg("/$", $test_dir)) $test_dir .= '/';
  if (!in_array($test_dir, $test_dirs)) $test_dirs[] = $test_dir;
 }
else {
        if (!_FILE_CONNECT)
          $test_dirs[] = dirname(_FILE_CONNECT_INS);
}

unset($bad_dirs);
unset($absent_dirs);

while (list(, $my_dir) = each($test_dirs)) {
        if (!test_ecrire($my_dir)) {
                @umask(0);
                if (@file_exists($my_dir)) {
                        @chmod($my_dir, 0777);
                        // ???
                        if (!test_ecrire($my_dir))
                                @chmod($my_dir, 0775);
                        if (!test_ecrire($my_dir))
                                @chmod($my_dir, 0755);
                        if (!test_ecrire($my_dir))
                                $bad_dirs[] = "<LI>".$my_dir;
                } else
                        $absent_dirs[] = "<LI>".$my_dir;
        }
}

if ($bad_dirs OR $absent_dirs) {
        install_debut_html();

        if (!_FILE_CONNECT) {
                $titre = _T('dirs_preliminaire');
                $continuer = ' '._T('dirs_commencer');
        } else
                $titre = _T('dirs_probleme_droits');

        $bad_url = "spip_test_dirs.php3";
        if ($test_dir) $bad_url .= '?test_dir='.$test_dir;

        echo "<FONT FACE=\"Verdana,Arial,Helvetica,sans-serif\" SIZE=3>$titre</FONT>\n<p>";
        echo "<div align='right'>". menu_langues('var_lang_ecrire')."</div>\n";

        if ($bad_dirs) {
                echo "<p>";
                echo _T('dirs_repertoires_suivants',
                        array('bad_dirs' => join(" ", $bad_dirs)));
                echo "<B>". _T('login_recharger')."</b>";
        }

        if ($absent_dirs) {
                echo "<p>";
                echo _T('dirs_repertoires_absents',
                        array('bad_dirs' => join(" ", $absent_dirs)));
                echo "<B>". _T('login_recharger')."</b>";
        }

        echo $continuer.'. ';
        echo aide ("install0");
        echo "<p>";

        echo "<FORM ACTION='$bad_urls' METHOD='GET'>\n";
        echo "<DIV align='right'><INPUT TYPE='submit' CLASS='fondl' VALUE='". _T('login_recharger')."'></DIV>";
        echo "</FORM>";

        install_fin_html();

} else {
        if (!_FILE_CONNECT)
                header("Location: " . _DIR_RESTREINT_ABS . "install.php3?etape=1");
        else
                header("Location: " . _DIR_RESTREINT_ABS);
}

?>