X-Git-Url: http://git.cyclocoop.org/?p=velocampus%2Fweb%2Fwww.git;a=blobdiff_plain;f=www%2Fplugins%2Fauto%2Fcouteau_suisse%2Fcouteau_suisse%2Foutils%2Fliens_orphelins.php;fp=www%2Fplugins%2Fauto%2Fcouteau_suisse%2Fcouteau_suisse%2Foutils%2Fliens_orphelins.php;h=13a94ff86beb61fd3a9d052b8084aba34181d3e8;hp=0000000000000000000000000000000000000000;hb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed;hpb=aaf970bf4cdaf76689ecc10609048e18d073820c

diff --git a/www/plugins/auto/couteau_suisse/couteau_suisse/outils/liens_orphelins.php b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/liens_orphelins.php
new file mode 100644
index 0000000..13a94ff
--- /dev/null
+++ b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/liens_orphelins.php
@@ -0,0 +1,51 @@
+<?php
+
+/*
+ code & integration 2007 : Patrice Vanneufville
+ Toutes les infos sur : http://www.spip-contrib.net/?article2443
+*/
+include_spip('outils/inc_cs_liens');
+
+// liens_orphelins() est dans liens_orphelins_fonctions.php pour permettre les traitements
+function liens_orphelins_pipeline($texte){
+	if ($GLOBALS["liens_orphelins"]<0 || strpos($texte, '.')===false) return $texte;
+	return cs_echappe_balises('html|code|cadre|frame|script|acronym|cite', 'liens_orphelins', $texte);
+}
+
+function interro_liens_callback($matches) {
+ return cs_code_echappement(echappe_interro_amp($matches[0]), 'LIENS');
+}
+
+// Fonction de remplacement
+function interro_rempl($texte) {
+	// prudence 1 : on protege TOUTES les balises contenant des "?", "!" ou "-", histoire de voir plus clair
+	if (strpos($texte, '<')!==false) 
+		$texte = preg_replace_callback(',(<[^>]+[?!-][^>]*>),Ums', 'cs_liens_echappe_callback', $texte);
+	// prudence 2 : on protege TOUS les liens de raccourcis de liens Spip, au cas ou...
+	if (strpos($texte, '[')!==false) 
+		$texte = preg_replace_callback(',\[[^][]*->>?([^]]*)\],msS', 'cs_liens_echappe_callback', $texte);
+
+	// ici, on traite si on trouve des "?", "!" ou "--"
+	if (strpos($texte, '?')!==false || strpos($texte, '!')!==false || strpos($texte, '--')!==false) {
+		// trouve et protege : protocole://qqchose
+		$texte = preg_replace_callback(_cs_liens_HTTP, 'interro_liens_callback', $texte);
+		// trouve et protege : www.lieu.qqchose ou ftp.lieu.qqchose
+		$texte = preg_replace_callback(_cs_liens_WWW, 'interro_liens_callback', $texte);
+	}
+	return echappe_retour($texte, 'LIENS');
+}
+ 
+// Fonctions de pipeline
+function interro_pre_typo($texte) {
+ 	if ($GLOBALS["liens_interrogation"] 
+			&& (strpos($texte, '?')!==false || strpos($texte, '!')!==false || strpos($texte, '--')!==false))
+	 	// appeler interro_rempl() une fois que certaines balises ont ete protegees
+		return cs_echappe_balises('', 'interro_rempl', $texte);
+ 	return $texte;
+}
+
+function interro_post_propre($texte) {
+ 	return retour_interro_amp($texte);
+}
+
+?>
\ No newline at end of file