PHP ecrire_fichier函数代码示例

function vertebres_styliser($flux) {

	// si pas de squelette trouve,
	// on verifie si on demande une vue de table
	if (!$squelette = $flux['data']) {
		
		$ext = $flux['args']['ext'];
		$fond = $flux['args']['fond'];
		$connect = $flux['args']['connect'];
		
		// Si pas de squelette regarder si c'est une table
		// et si l'on a la permission de l'afficher
		$trouver_table = charger_fonction('trouver_table', 'base');
		if (preg_match('/^table:(.*)$/', $fond, $r)
		AND $table = $trouver_table($r[1], $connect)
		AND include_spip('inc/autoriser')
		AND autoriser('webmestre')
		) {
			$fond = $r[1];
			$base = _DIR_TMP . 'table_' . $fond . ".$ext";
			if (!file_exists($base)
			OR  $GLOBALS['var_mode']) {
				$vertebrer = charger_fonction('vertebrer', 'public');
				ecrire_fichier($base, $vertebrer($table));
			}
			
			// sauver les changements
			$flux['data'] = _DIR_TMP . 'table_' . $fond;
		}
	}
	
	return $flux;
}

/**
 * Plugin SkelEditor
 * Editeur de squelette en ligne
 * (c) 2007-2010 erational
 * Licence GPL-v3
 *
 */

function action_skeleditor_new_from_dist(){
	$securiser_action = charger_fonction('securiser_action','inc');
	$arg = $securiser_action();

	// $arg est le fichier que l'on veut personaliser
	if (strncmp($arg,_DIR_RACINE,strlen(_DIR_RACINE)!==0))
		$arg = _DIR_RACINE.$arg;

	include_spip('inc/skeleditor');
	$file = skeleditor_nom_copie($arg);
	if ($file){
		include_spip('inc/skeleditor');
		$path_base = skeleditor_path_editable();
		list($chemin,) = skeleditor_cree_chemin($path_base, $file);
		if ($chemin){
			$file = basename($file);

			if (!file_exists($chemin . $file)) {
				lire_fichier($arg, $contenu);
				ecrire_fichier($chemin . $file, skeleditor_commente_copie($arg,$contenu));
			}

			if (file_exists($f=$chemin.$file))
				$GLOBALS['redirect'] = parametre_url(_request('redirect'),'f',$f);
		}
	}

}

/**
 * Minifier un fichier JS ou CSS
 *
 * Si la source est un chemin, on retourne un chemin avec le contenu minifié
 * dans _DIR_VAR/cache_$format/
 * Si c'est un flux on le renvoit compacté
 * Si on ne sait pas compacter, on renvoie ce qu'on a recu
 *
 * @param string $source
 *     Contenu à minifier ou chemin vers un fichier dont on veut minifier le contenu
 * @param string $format
 *     Format de la source (js|css).
 * @return string
 *     - Contenu minifié (si la source est un contenu)
 *     - Chemin vers un fichier ayant le contenu minifié (si source est un fichier)
 */
function minifier($source, $format = null)
{
    if (!$format and preg_match(',\\.(js|css)$,', $source, $r)) {
        $format = $r[1];
    }
    include_spip('inc/compresseur_minifier');
    if (!function_exists($minifier = 'minifier_' . $format)) {
        return $source;
    }
    // Si on n'importe pas, est-ce un fichier ?
    if (!preg_match(',[\\s{}],', $source) and preg_match(',\\.' . $format . '$,i', $source, $r) and file_exists($source)) {
        // si c'est une css, il faut reecrire les url en absolu
        if ($format == 'css') {
            $source = url_absolue_css($source);
        }
        $f = basename($source, '.' . $format);
        $f = sous_repertoire(_DIR_VAR, 'cache-' . $format) . preg_replace(",(.*?)(_rtl|_ltr)?\$,", "\\1-minify-" . substr(md5("{$source}-minify"), 0, 4) . "\\2", $f, 1) . '.' . $format;
        if (@filemtime($f) > @filemtime($source) and (!defined('_VAR_MODE') or _VAR_MODE != 'recalcul')) {
            return $f;
        }
        if (!lire_fichier($source, $contenu)) {
            return $source;
        }
        // traiter le contenu
        $contenu = $minifier($contenu);
        // ecrire le fichier destination, en cas d'echec renvoyer la source
        if (ecrire_fichier($f, $contenu, true)) {
            return $f;
        } else {
            return $source;
        }
    }
    // Sinon simple minification de contenu
    return $minifier($source);
}

function action_delimport_dist()
{
    // CHANGE xxxx to your delicious User Name
    $base = "http://delicious.com/xxxx";
    $c = recuperer_page_cache($base);
    $count = 0;
    if (preg_match(",<div class=\"left linkCount\">(\\d+),ims", $c, $m)) {
        $count = intval($m[1]);
    }
    echo "<h1>{$count} links</h1>";
    $maxiter = 200;
    $bookmarks = array();
    $url = $base;
    $page = 1;
    do {
        #var_dump($url);
        $c = recuperer_page_cache($url);
        $links = importer_links($c);
        $bookmarks = array_merge($bookmarks, $links);
        $page++;
        $url = parametre_url($base, 'page', $page);
    } while (count($links) and count($bookmarks) < $count and $maxiter--);
    var_dump(count($bookmarks));
    $out = exporter_links($bookmarks);
    ecrire_fichier(_DIR_TMP . "bookmarks.html", $out);
    echo "End";
}

/**
 * ecrire le cache dans un casier
 *
 * @param string $nom_cache
 * @param $valeur
 * @return bool
 */
function ecrire_cache($nom_cache, $valeur)
{
    $d = substr($nom_cache, 0, 2);
    $u = substr($nom_cache, 2, 2);
    $rep = _DIR_CACHE;
    $rep = sous_repertoire($rep, '', false, true);
    $rep = sous_repertoire($rep, $d, false, true);
    return ecrire_fichier($rep . $u . ".cache", serialize(array("nom_cache" => $nom_cache, "valeur" => $valeur)));
}

function install_fichier_connexion($nom, $texte)
{
	$texte = "<"."?php\n"
	. "if (!defined(\"_ECRIRE_INC_VERSION\")) return;\n"
	. $texte
	. "?".">";

	ecrire_fichier($nom, $texte);
}

/**
 * Installation des fichiers de configuration/parametrage PAYBOX
 */
function presta_paybox_install_dist()
{
    $dir = sous_repertoire(_DIR_ETC, 'presta');
    $dir = sous_repertoire($dir, 'paybox');
    if (!file_exists($dir . "pbx_ids.php")) {
        $merchant_config = "<" . "?php\n\t\tfunction bank_paybox_pbx_ids(){return array('PBX_IDENTIFIANT'=>'2','PBX_SITE'=>'1999888','PBX_RANG'=>'99');}\n" . "?" . ">";
        ecrire_fichier($dir . "pbx_ids.php", $merchant_config);
        ecrire_meta("bank_paybox_pbx_ids", substr($dir, strlen(_DIR_ETC)) . "pbx_ids.php");
    }
}

function formulaires_creer_squelette_traiter_dist($path_base){
	$res = array();

	$filename = _request('filename');
	if (ecrire_fichier($path_base.$filename, ""))
		$res = array('message_ok'=>_T('ok'),'redirect'=>parametre_url(self(),'f',$path_base.$filename));
	else
		$res['message_erreur'] = _T('skeleditor:erreur_ecriture_fichier');

	return $res;
}

function action_generer_recu_souscription_dist($id_souscription = null, $annee = null)
{
    if (is_null($id_souscription)) {
        $id_souscription = _request('id_souscription');
        $annee = _request('annee');
        $hash = _request('hash');
        $lowsec = souscription_hash_lowsec($id_souscription, $annee);
        if ($hash !== $lowsec) {
            die('Erreur : URL pas autorisee');
        }
    } else {
        $lowsec = souscription_hash_lowsec($id_souscription, $annee);
    }
    $format = _request('format');
    if (!in_array($format, array('html', 'pdf'))) {
        // PDF ou HTML ? si le plugin SPIPDF est la on genere un recu en PDF
        $format = "html";
        if (test_plugin_actif("spipdf")) {
            $format = "pdf";
        }
    }
    $numero = souscription_numero_recu($id_souscription, $annee);
    $dir = sous_repertoire(_DIR_IMG, "attestations");
    // securite : dossier inaccessible en http
    if (!file_exists($f = $dir . ".htaccess")) {
        ecrire_fichier($f, "deny from all\n");
    }
    $filename = $numero . ".{$format}";
    $file = $dir . $filename;
    if (!file_exists($file)) {
        $fond = $format == "pdf" ? "attestation_pdf" : "attestation";
        $content = recuperer_fond($fond, array("id_souscription" => $id_souscription, "annee" => $annee, "hash" => $lowsec));
        ecrire_fichier($file, $content);
    }
    $mime = "text/html";
    if ($format == "pdf") {
        $mime = "application/pdf";
    }
    header("Content-type: {$mime}");
    if ($format == "pdf") {
        $filename = preg_replace(",\\W+,", "", $GLOBALS['meta']['nom_site']) . "-Recu-" . $filename;
        header("Content-Disposition: attachment; filename={$filename}");
        //header("Content-Transfer-Encoding: binary");
    }
    // fix for IE catching or PHP bug issue
    header("Pragma: public");
    header("Expires: 0");
    // set expiration time
    header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
    if ($cl = filesize($file)) {
        header("Content-Length: " . $cl);
    }
    readfile($file);
}

function exec_cs_boite_rss_dist() {
	cs_minipres();
	// Constantes distantes
	include_spip('cout_define');
	if(defined('_CS_PAS_DE_DISTANT')) { ajax_retour(_T('couteauprive:version_distante_off')); return; }
	$p = '';
	// on cherche le flux rss toutes les _CS_RSS_UPDATE minutes
	$force = _request('force')=='oui';
	if(!$force) {
		$lastmodified = @file_exists(_CS_TMP_RSS)?@filemtime(_CS_TMP_RSS):0;
		if(time()-$lastmodified < _CS_RSS_UPDATE) lire_fichier(_CS_TMP_RSS, $p);
	}
	if(strlen($p)) { ajax_retour($p); return; }
	include_spip('inc/filtres');
	include_spip('action/editer_site');
	include_spip('inc/xml');
	$r = spip_xml_load(_CS_RSS_SOURCE);
	if(function_exists('spip_xml_match_nodes')) $c = spip_xml_match_nodes(',^item$,', $r, $r2);
	else {
		$r2 = !is_array($r)?array():array_shift(array_shift(array_shift(array_shift($r))));
		$c = count($r2);
	}
	if($c) {
		$r3 = &$r2['item'];
		$c = count($r3); $p='';
		for($i=0; $i<min($c, _CS_RSS_COUNT); $i++) {
		 $l = $r3[$i]['link'][0];
		 $d = affdate_court(date('Y-m-d', strtotime($r3[$i]['pubDate'][0])));
		 $t = str_replace('&amp;', '&', htmlentities($r3[$i]['title'][0], ENT_NOQUOTES, "UTF-8"));
		 $t = preg_replace(',\s*&#8364;(&brvbar;)?,', '&nbsp;(&hellip;)', $t);
		 $t = preg_replace(',^(.*?):,', "&bull; <a href='$l' class='spip_out' target='_cout'>$1</a> <i>($d)</i><br/>", $t);
			 $p .= "<li style='padding-top:0.6em;'>$t</li>";
		}
	} else {
		// pour cs_lien()
		include_spip('cout_fonctions');
		$p = '<span style="color: red;">'._T('couteauprive:erreur:probleme', array('pb'=>cs_lien(_CS_RSS_SOURCE,_T('couteauprive:erreur:distant')))).'</span>';
	}
	$du = affdate_heure(date('Y-m-d H:i:s',time()));
	$p = '<ul style="list-style-type:none; padding:0; margin:0; ">'.$p
		.'</ul><p class="spip_xx-small" style="border-top:solid gray thin;"><b>'
		._T('couteauprive:rss_edition')."</b><br/>$du</p>"
		.'<p style="text-align:right"><a href="'
		.generer_url_ecrire('admin_couteau_suisse','var_mode=calcul', true).'" onclick="'
		."javascipt:jQuery('div.cs_boite_rss').children().css('opacity', 0.5).parent().load('".generer_url_ecrire('cs_boite_rss', 'force=oui', true).'\');return false;">'
		._T('couteauprive:rss_actualiser').'</a> | <a href="'
		._CS_RSS_SOURCE.'">'
		._T('couteauprive:rss_source').'</a></p>';
	if($c) ecrire_fichier(_CS_TMP_RSS, $p);
	
	ajax_retour($p);
}

/**
 * Lecture du fichier de configuration d'un plugin
 *
 * @staticvar string $filecache
 * @staticvar array $cache
 *
 * @param string|array|bool $plug
 * @param bool $reload
 * @param string $dir
 * @param bool $clean_old
 * @return array
 */
function plugins_get_infos_dist($plug = false, $reload = false, $dir = _DIR_PLUGINS, $clean_old = false)
{
    static $cache = '';
    static $filecache = '';
    if ($cache === '') {
        $filecache = _DIR_TMP . "plugin_xml_cache.gz";
        if (is_file($filecache)) {
            lire_fichier($filecache, $contenu);
            $cache = unserialize($contenu);
        }
        if (!is_array($cache)) {
            $cache = array();
        }
    }
    if (defined('_VAR_MODE') and _VAR_MODE == 'recalcul') {
        $reload = true;
    }
    if ($plug === false) {
        ecrire_fichier($filecache, serialize($cache));
        return $cache;
    } elseif (is_string($plug)) {
        $res = plugins_get_infos_un($plug, $reload, $dir, $cache);
    } elseif (is_array($plug)) {
        $res = false;
        if (!$reload) {
            $reload = -1;
        }
        foreach ($plug as $nom) {
            $res |= plugins_get_infos_un($nom, $reload, $dir, $cache);
        }
        // Nettoyer le cache des vieux plugins qui ne sont plus la
        if ($clean_old and isset($cache[$dir]) and count($cache[$dir])) {
            foreach (array_keys($cache[$dir]) as $p) {
                if (!in_array($p, $plug)) {
                    unset($cache[$dir][$p]);
                }
            }
        }
    }
    if ($res) {
        ecrire_fichier($filecache, serialize($cache));
    }
    if (!isset($cache[$dir])) {
        return array();
    }
    if (is_string($plug)) {
        return isset($cache[$dir][$plug]) ? $cache[$dir][$plug] : array();
    } else {
        return $cache[$dir];
    }
}

/**
 * enlever les scripts de html si necessaire
 * on utilise safehtml
 *
 * @param string $file
 * @return array
 */
function medata_html_dist($file)
{
    $meta = array();
    // Securite si pas autorise : virer les scripts et les references externes
    // sauf si on est en mode javascript 'ok' (1), cf. inc_version
    if ($GLOBALS['filtrer_javascript'] < 1 and !autoriser('televerser', 'script')) {
        $texte = spip_file_get_contents($file);
        include_spip('inc/texte');
        $new = trim(safehtml($texte));
        // petit bug safehtml
        if ($new != $texte) {
            ecrire_fichier($file, $new);
        }
    }
    return $meta;
}

/**
 * Déterminer les dimensions d'un svg, et enlever ses scripts si nécessaire
 *
 * On utilise safehtml qui n'est pas apropriée pour ça en attendant mieux
 * cf http://www.slideshare.net/x00mario/the-image-that-called-me
 * http://heideri.ch/svgpurifier/SVGPurifier/index.php
 *
 * @param string $file
 * @return array Tableau (largeur, hauteur)
 */
function metadata_svg_dist($file)
{
    $meta = array();
    $texte = spip_file_get_contents($file);
    // Securite si pas autorise : virer les scripts et les references externes
    // sauf si on est en mode javascript 'ok' (1), cf. inc_version
    if ($GLOBALS['filtrer_javascript'] < 1 and !autoriser('televerser', 'script')) {
        include_spip('inc/texte');
        $new = trim(safehtml($texte));
        // petit bug safehtml
        if (substr($new, 0, 2) == ']>') {
            $new = ltrim(substr($new, 2));
        }
        if ($new != $texte) {
            ecrire_fichier($file, $texte = $new);
        }
    }
    $width = $height = 150;
    if (preg_match(',<svg[^>]+>,', $texte, $s)) {
        $s = $s[0];
        if (preg_match(',\\WviewBox\\s*=\\s*.\\s*(\\d+)\\s+(\\d+)\\s+(\\d+)\\s+(\\d+),i', $s, $r)) {
            $width = $r[3];
            $height = $r[4];
        } else {
            // si la taille est en centimetre, estimer le pixel a 1/64 de cm
            if (preg_match(',\\Wwidth\\s*=\\s*.(\\d+)([^"\']*),i', $s, $r)) {
                if ($r[2] != '%') {
                    $width = $r[1];
                    if ($r[2] == 'cm') {
                        $width <<= 6;
                    }
                }
            }
            if (preg_match(',\\Wheight\\s*=\\s*.(\\d+)([^"\']*),i', $s, $r)) {
                if ($r[2] != '%') {
                    $height = $r[1];
                    if ($r[2] == 'cm') {
                        $height <<= 6;
                    }
                }
            }
        }
    }
    $meta['largeur'] = $width;
    $meta['hauteur'] = $height;
    return $meta;
}

function info_maj_cache($nom, $dir, $page='')
{
	$re = '<archives id="a' . $GLOBALS['meta']["alea_ephemere"] . '">';
	if (preg_match("/$re/", $page)) return $page;

	$url = _VERSIONS_SERVEUR . $dir . '/' . _VERSIONS_LISTE;
	$a = file_exists($nom) ? filemtime($nom) : '';
	include_spip('inc/distant');
	$res = recuperer_lapage($url, false, 'GET', _COPIE_LOCALE_MAX_SIZE, '',false, $a);
	// Si rien de neuf (ou inaccessible), garder l'ancienne
	if ($res) list(, $page) = $res;
	// Placer l'indicateur de fraicheur
	$page = preg_replace('/^<archives.*?>/', $re, $page);
	sous_repertoire(_DIR_CACHE_XML);
	ecrire_fichier($nom, $page);
	return $page;
}

function cfg_php_enregistrer_fichier($fichier, $contenu)
{
    if (is_null($contenu)) {
        return supprimer_fichier($fichier);
    }
    $contenu = '<?php
/**************
* Config ecrite par CFG le ' . date('r') . '
* 
* NE PAS EDITER MANUELLEMENT !
***************/

$cfg = ' . var_export($contenu, true) . ';
?>
';
    return ecrire_fichier($fichier, $contenu);
}