spip_loader ' . _SPIP_LOADER_VERSION .'
'; } function nettoyer_racine($fichier) { @unlink($fichier); @unlink(_DIR_BASE.'pclzip.php'); $d = opendir(_DIR_BASE); while (false !== ($f = readdir($d))) { if(preg_match('/^tradloader_(.+).php$/', $f)) @unlink(_DIR_BASE.$f); } closedir($d); return true; } // un essai pour parer le probleme incomprehensible des fichiers pourris function touchCallBack($p_event, &$p_header) { // bien extrait ? if ($p_header['status'] == 'ok') { // allez, on touche le fichier, le @ est pour les serveurs sous Windows qui ne comprennent pas touch() @touch($p_header['filename']); } return 1; } function microtime_float() { list($usec, $sec) = explode(" ", microtime()); return ((float)$usec + (float)$sec); } function verifie_zlib_ok() { global $taux; if (!function_exists("gzopen")) return false; if(!file_exists($f = _DIR_BASE . 'pclzip.php')) { $taux = microtime_float(); $contenu = recuperer_page(_URL_LOADER_DL . 'pclzip.php.txt'); if ($contenu) { ecrire_fichierT($f, $contenu); } $taux = _PCL_ZIP_SIZE / (microtime_float() - $taux); } include $f; $necessaire = array(); foreach (explode(',', _SPIP_LOADER_EXTRA) as $fil) { $necessaire[$fil] = strrchr($fil, '.') == '.php' ? '.txt' : ''; } foreach ($necessaire as $fil=>$php) { if (!file_exists($f = _DIR_BASE . basename($fil))) { $contenu = recuperer_page(_URL_LOADER_DL . $fil . $php); if ($contenu) { ecrire_fichierT($f, $contenu); } } if ($php){ include $f; } } return true; } function spip_loader_reinstalle() { if(!defined(_SPIP_LOADER_UPDATE_AUTEURS)) define('_SPIP_LOADER_UPDATE_AUTEURS', '1'); if ($GLOBALS['auteur_session']['statut'] != '0minirezo' OR !in_array($GLOBALS['auteur_session']['id_auteur'], explode(':', _SPIP_LOADER_UPDATE_AUTEURS))) { include_spip('inc/headers'); include_spip('inc/minipres'); http_status('403'); install_debut_html(); echo _T('ecrire:avis_non_acces_page'); install_fin_html(); exit; } } function spip_deballe_paquet($paquet, $fichier, $dest, $range) { global $chmod; // le repertoire temporaire est invariant pour permettre la reprise @mkdir ($tmp = _DIR_BASE.'zip_'.md5($fichier), $chmod); $ok = is_dir($tmp); $zip = new PclZip($fichier); $content = $zip->listContent(); $max_index = count($content); $start_index = $_REQUEST['start']?$_REQUEST['start']:0; if ($start_index<$max_index){ if (!$range) $range = _PCL_ZIP_RANGE; $end_index = min($start_index+$range,$max_index); $ok &= $zip->extractByIndex("$start_index-$end_index", PCLZIP_OPT_PATH, $tmp, PCLZIP_OPT_SET_CHMOD, $chmod, PCLZIP_OPT_REPLACE_NEWER, PCLZIP_OPT_REMOVE_PATH, _REMOVE_PATH_ZIP."/", PCLZIP_CB_POST_EXTRACT, 'touchCallBack' ); } if (!$ok OR $zip->error_code<0) { debut_html(); echo _TT('tradloader:donnees_incorrectes', array('erreur' => $zip->errorInfo())); fin_html(); } else { // si l'extraction n'est pas finie, relancer if ($start_index<$max_index){ $url = _DIR_BASE._SPIP_LOADER_SCRIPT . (strpos(_SPIP_LOADER_SCRIPT, '?') ? '&' : '?') . "etape=fichier&chemin=$paquet&dest=$dest&start=$end_index"; header("Location: $url"); exit; } if ($dest) { @mkdir(_DIR_PLUGINS, $chmod); $dir = _DIR_PLUGINS . $dest; $url = _DIR_BASE._SPIP_LOADER_PLUGIN_RETOUR; } else { $dir = _DIR_BASE; $url = _DIR_BASE._SPIP_LOADER_URL_RETOUR; } move_all($tmp, $dir); rmdir($tmp); nettoyer_racine($fichier); header("Location: $url"); } } function spip_presente_deballe($fichier, $paquet, $dest, $range) { $nom = (_DEST_PAQUET_ZIP == '') ? _TT('tradloader:ce_repertoire') : (_TT('tradloader:du_repertoire'). ' '._DEST_PAQUET_ZIP.''); $hidden = array('chemin' => $paquet, 'dest' => $dest, 'range' => $range, 'etape' => file_exists($fichier) ? 'fichier' : 'charger'); $corps = _TT('tradloader:texte_intro', array('paquet'=>strtoupper(_NOM_PAQUET_ZIP),'dest'=> $nom)) . ""
. ''
. '
';
debut_html($corps, $hidden);
fin_html();
}
function spip_recupere_paquet($paquet, $fichier, $dest, $range)
{
$contenu = recuperer_page(_URL_SPIP_DEPOT . $paquet);
if(!($contenu AND ecrire_fichierT($fichier, $contenu))) {
debut_html();
echo _TT('tradloader:echec_chargement'), "$paquet, $fichier, $range" ;
fin_html();
} else {
// Passer a l'etape suivante (desarchivage)
$sep = strpos(_SPIP_LOADER_SCRIPT, '?') ? '&' : '?';
header("Location: "._DIR_BASE._SPIP_LOADER_SCRIPT.$sep."etape=fichier&chemin=$paquet&dest=$dest&range=$range");
}
}
function spip_deballe($paquet, $etape, $dest, $range)
{
$fichier = _DIR_BASE . basename($paquet);
if ($etape == 'fichier' AND file_exists($fichier)) {
// etape finale: deploiement de l'archive
spip_deballe_paquet($paquet, $fichier, $dest, $range);
} elseif ($etape == 'charger') {
// etape intermediaire: charger l'archive
spip_recupere_paquet($paquet, $fichier, $dest, $range);
} else {
// etape intiale, afficher la page de presentation
spip_presente_deballe($fichier, $paquet, $dest, $range);
}
}
///////////////////////////////////////////////
// debut du process
//
error_reporting(E_ALL ^ E_NOTICE);
// PHP >= 5.3 rale si cette init est absente du php.ini et consorts
// On force a defaut de savoir anticiper l'erreur (il doit y avoir mieux)
if (function_exists('date_default_timezone_set'))
date_default_timezone_set('Europe/Paris');
$GLOBALS['taux'] = 0; // calcul eventuel du taux de transfert+dezippage
// En cas de reinstallation, verifier que le demandeur a les droits avant tout
// definir _FILE_CONNECT a autre chose que machin.php si on veut pas
if (@file_exists('ecrire/inc_version.php')) {
include_once 'ecrire/inc_version.php';
if (defined('_FILE_CONNECT')
&& _FILE_CONNECT && strpos(_FILE_CONNECT, '.php')) {
spip_loader_reinstalle();
}
}
$droits = tester_repertoire();
$GLOBALS['lang'] = selectionner_langue($droits);
if (!$GLOBALS['lang']) {
//on ne peut pas telecharger
$GLOBALS['lang'] = 'fr'; //francais par defaut
$GLOBALS['i18n_tradloader_fr']['titre'] = 'Téléchargement de SPIP';
$GLOBALS['i18n_tradloader_fr']['echec_chargement'] = '