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

diff --git a/www/plugins/auto/couteau_suisse/couteau_suisse/outils/liens_orphelins_fonctions.php b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/liens_orphelins_fonctions.php
new file mode 100644
index 0000000..2a8a518
--- /dev/null
+++ b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/liens_orphelins_fonctions.php
@@ -0,0 +1,36 @@
+<?php
+/*
+ Liens orphelins - Code & integration 2007 : Patrice Vanneufville
+ Toutes les infos sur : http://www.spip-contrib.net/?article2443
+*/
+
+include_spip('outils/inc_cs_liens');
+
+function liens_orphelins($texte){
+	// deja, on s'en va si pas de point...
+	if ($GLOBALS["liens_orphelins"]<0 || strpos($texte, '.')===false) return $texte;
+	// prudence 1 : on protege TOUTES les balises <a></a> pour eviter les doublons
+	if (strpos($texte, '<a')!==false) 
+		$texte = preg_replace_callback(',<a\s*[^<]+</a>,Ums', 'cs_liens_echappe_callback', $texte);
+	// prudence 2 : on protege TOUS les raccourcis de liens Spip, au cas ou...
+	if (strpos($texte, '[')!==false) 
+		$texte = preg_replace_callback(',\[([^][]*)->(>?)([^]]*)\],msS', 'cs_liens_echappe_callback', $texte);
+	// prudence 3 : on protege TOUTES les balises contenant des points, histoire de voir plus clair
+	if (strpos($texte, '<')!==false) 
+		$texte = preg_replace_callback(',<[^>]+\.[^>]*>,Ums', 'cs_liens_echappe_callback', $texte);
+	// encore ici, on s'en va si pas de point...
+	if (strpos($texte, '.')===false) return echappe_retour($texte, 'LIENS');
+
+	// trouve et protege : protocole://qqchose
+	$texte = preg_replace_callback(_cs_liens_HTTP, 'cs_liens_raccourcis_callback', $texte);
+	// trouve et protege : www.lieu.qqchose ou ftp.lieu.qqchose
+	$texte = preg_replace_callback(_cs_liens_WWW, 'cs_liens_raccourcis_callback', $texte);
+	// trouve : mailto:qqchose ou news:qqchose
+	if($GLOBALS['liens_orphelins']>0) {
+	   $texte = preg_replace_callback(_cs_liens_NEWS, 'cs_liens_raccourcis_callback', $texte);
+	   $texte = preg_replace_callback(_cs_liens_MAILS, 'cs_liens_email_callback', $texte);
+	}
+	return echappe_retour($texte, 'LIENS');
+}
+
+?>
\ No newline at end of file