3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2016 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
16 * Cette fonction prend une URL et la raccourcit si elle est trop longue
17 * de cette maniere au lieu d'afficher
18 * "http://zoumzamzouilam/truc/chose/machin/qui/fait/peur/a/tout/le/monde.mp3"
20 * http://zoumzamzouilam/truc/chose/machin..."
22 function inc_lien_court($url) {
23 $long_url = defined('_MAX_LONG_URL') ? _MAX_LONG_URL
: 40;
24 $coupe_url = defined('_MAX_COUPE_URL') ? _MAX_COUPE_URL
: 35;
26 if (strlen($url)>$long_url) {
27 $url = substr($url,0,$coupe_url).'...';