.-.-.-.-.-

<?php

/*
 * transforme un raccourci de ressource en un lien minimaliste
 * 
 *
 */

define('_EXTRAIRE_RESSOURCES', ',' . '<"?(https?://|[^\s][\w -]+\.[\w -]+)[^<]*>' . ',UimsS');

/* pipeline pour typo */
function tw_post_typo($t) {
	if (strpos($t, '<') !== false) {
		$t = preg_replace_callback(_EXTRAIRE_RESSOURCES, 'tw_traiter_ressources', $t);
	}

return $t;
}

/* pipeline pour propre */
function tw_pre_liens($t) {
	if (strpos($t, '<') !== false) {
		$t = preg_replace_callback(_EXTRAIRE_RESSOURCES, 'tw_traiter_ressources', $t);

// echapper les autoliens eventuellement inseres (en une seule fois)
		if (strpos($t, "<html>") !== false) {
			$t = echappe_html($t);
		}
	}

return $t;
}

function tw_traiter_ressources($r) {
	$html = null;

include_spip('inc/lien');
	$url = explode(' ', trim($r[0], '<>'));
	$url = $url[0];
	# <http://url/absolue>
	if (preg_match(',^https?://,i', $url)) {
		$html = PtoBR(propre("&lt;[->" . $url . "]&gt;"));
	} # <url/relative>
	else {
		if (false !== strpos($url, '/')) {
			$html = PtoBR(propre("&lt;[->" . $url . "]&gt;"));
		} # <fichier.rtf>
		else {

if (
				preg_match(',\.([^.]+)$,', $url, $regs)
				and file_exists($f = _DIR_IMG . $regs[1] . '/' . $url)
			) {
				$html = PtoBR(propre("&lt;[" . $url . "->" . $f . "]&gt;"));
			} else {
				$html = PtoBR(propre("&lt;" . $url . "&gt;"));
			}
		}
	}

return '<html>' . $html . '</html>';
}

/home/checkyd/www/plugins-dist/plan/../textwheel/inc/ressource.php