spip / SPIP

	if (is_null($local))

		$local = fichier_copie_locale($source);

	else {

		if (_DIR_RACINE AND strncmp(_DIR_RACINE, $local, strlen(_DIR_RACINE))==0) {

			$local = substr($local, strlen(_DIR_RACINE));

		}

	}

	// si $local = '' c'est un fichier refuse par fichier_copie_locale(),

	// par exemple un fichier qui ne figure pas dans nos documents ;

		$debug = debug_backtrace();

		$l = $debug[1]['line'];

		$fi = $debug[1]['file'];

		if (strncmp($fi,_ROOT_RACINE,strlen(_ROOT_RACINE))==0)

			$fi = substr($fi,strlen(_ROOT_RACINE));

		$fu = isset($debug[2]['function']) ? $debug[2]['function'] : '';

		$debugverb = "$fi:L$l:$fu"."():";

	}

	// si DTD locale, ignorer ce repertoire pour le moment

	if ($avail == 'SYSTEM'){

		$file = $loc;

		if (_DIR_RACINE AND strncmp($file,_DIR_RACINE,strlen(_DIR_RACINE))==0)

			$file = substr($file,strlen(_DIR_RACINE));

	  $file = find_in_path($file);

	}

	else {

// http://doc.spip.org/@plugin_propre

function plugin_propre($texte, $module='') {

	// retirer le retour a la racine du module, car le find_in_path se fait depuis la racine

	if (_DIR_RACINE AND strncmp($module,_DIR_RACINE,strlen(_DIR_RACINE))==0)

		$module = substr($module,strlen(_DIR_RACINE));

	if (preg_match("|^\w+_[\w_]+$|", $texte)) {

		$texte = _T(($module ? "$module:" : '') . $texte, array(), array('force' => false));

	}

function calculer_nom_fonction_squel($skel, $mime_type='html', $connect='')

{

	// ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine

	if ($l=strlen(_DIR_RACINE) AND strncmp($skel,_DIR_RACINE,$l)==0)

		$skel = substr($skel,strlen(_DIR_RACINE));

	return $mime_type

	. (!$connect ?  '' : preg_replace('/\W/',"_", $connect)) . '_'

	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel'])?'*'.$GLOBALS['marqueur_skel']:''));