", $texte); + $texte = preg_replace("@^\s*
@S".$u, "", $texte); + return $texte; +} + +// Couper les "mots" de plus de $l caracteres (souvent des URLs) +// en mettant des espaces (par defaut, soft hyphen : = ) +// http://doc.spip.org/@lignes_longues +function lignes_longues($texte, $l = 70, $espace='') { + if ($l<1) return $texte; + if (!preg_match("/[\w,\/.]{".$l."}/UmsS", $texte)) + return $texte; + // Passer en utf-8 pour ne pas avoir de coupes trop courtes avec les &#xxxx; + // qui prennent 7 caracteres + #include_spip('inc/charsets'); + $texte = str_replace(" ","< >",$texte); + $texte = html2unicode($texte, true); + $texte = str_replace("< >"," ",$texte); + $texte = unicode_to_utf_8(charset2unicode( + $texte, $GLOBALS['meta']['charset'], true)); + + // echapper les tags (on ne veut pas casser les a href=...) + $tags = array(); + if (preg_match_all('/<.+>|&(?:amp;)?#x?[0-9]+;|&(?:amp;)?[a-zA-Z1-4]{2,6};/UumsS', $texte, $t, PREG_SET_ORDER)) { + foreach ($t as $n => $tag) { + $tags[$n] = $tag[0]; + $texte = str_replace($tag[0], "<---$n--->", $texte); + } + } + // casser les mots longs qui restent + // note : on pourrait preferer couper sur les / , etc. + if (preg_match_all("/[\w,\/.]{".$l."}/UmsS", $texte, $longs, PREG_SET_ORDER)) { + foreach ($longs as $long) { + $texte = str_replace($long[0], $long[0].$espace, $texte); + } + } + + // retablir les tags + if (preg_match_all('/<---[\s0-9]+--->/UumsS', $texte, $t, PREG_SET_ORDER)) { + foreach ($t as $tag) { + $n = intval(preg_replace(',[^0-9]+,U','',$tag[0])); + $texte = str_replace($tag[0], $tags[$n], $texte); + } + } + + return importer_charset($texte, 'utf-8'); +} + +// Majuscules y compris accents, en HTML +// http://doc.spip.org/@majuscules +function majuscules($texte) { + if (!strlen($texte)) return ''; + + // Cas du turc + if ($GLOBALS['spip_lang'] == 'tr') { + # remplacer hors des tags et des entites + if (preg_match_all(',<[^<>]+>|&[^;]+;,S', $texte, $regs, PREG_SET_ORDER)) + foreach ($regs as $n => $match) + $texte = str_replace($match[0], "@@SPIP_TURC$n@@", $texte); + + $texte = str_replace('i', 'İ', $texte); + + if ($regs) + foreach ($regs as $n => $match) + $texte = str_replace("@@SPIP_TURC$n@@", $match[0], $texte); + } + + // Cas general + return "$texte"; +} + +// "127.4 ko" ou "3.1 Mo" +// http://doc.spip.org/@taille_en_octets +function taille_en_octets ($taille) { + if ($taille < 1024) {$taille = _T('taille_octets', array('taille' => $taille));} + else if ($taille < 1024*1024) { + $taille = _T('taille_ko', array('taille' => ((floor($taille / 102.4))/10))); + } else { + $taille = _T('taille_mo', array('taille' => ((floor(($taille / 1024) / 102.4))/10))); + } + return $taille; +} + + +// Rend une chaine utilisable sans dommage comme attribut HTML +// http://doc.spip.org/@attribut_html +function attribut_html($texte,$textebrut = true) { + $u = $GLOBALS['meta']['pcre_u']; + if ($textebrut) + $texte = preg_replace(array(",\n,",",\s(?=\s),msS".$u),array(" ",""),textebrut($texte)); + $texte = texte_backend($texte); + $texte = str_replace(array("'",'"'),array(''', '"'), $texte); + + return preg_replace(array("/&(amp;|#38;)/","/&(?![A-Za-z]{0,4}\w{2,3};|#[0-9]{2,5};)/"),array("&","&") , $texte); +} + +// Vider les url nulles comme 'http://' ou 'mailto:' +// et leur appliquer un htmlspecialchars() + gerer les & +// http://doc.spip.org/@vider_url +function vider_url($url, $entites = true) { + # un message pour abs_url + $GLOBALS['mode_abs_url'] = 'url'; + + $url = trim($url); + if (preg_match(",^(http:?/?/?|mailto:?)$,iS", $url)) + return ''; + + if ($entites) $url = entites_html($url); + + return $url; +} + +// Extraire une date de n'importe quel champ (a completer...) +// http://doc.spip.org/@extraire_date +function extraire_date($texte) { + // format = 2001-08 + if (preg_match(",([1-2][0-9]{3})[^0-9]*(1[0-2]|0?[1-9]),",$texte,$regs)) + return $regs[1]."-".sprintf("%02d", $regs[2])."-01"; +} + +// Maquiller une adresse e-mail +// http://doc.spip.org/@antispam +function antispam($texte) { + include_spip('inc/acces'); + $masque = creer_pass_aleatoire(3); + return preg_replace("/@/", " $masque ", $texte); +} + +// http://doc.spip.org/@securiser_acces +function securiser_acces($id_auteur, $cle, $dir, $op='', $args='') +{ + include_spip('inc/acces'); + if ($op) $dir .= " $op $args"; + return verifier_low_sec($id_auteur, $cle, $dir); +} + +// sinon{texte, rien} : affiche "rien" si la chaine est vide, +// affiche la chaine si non vide ; +// attention c'est compile directement dans inc/references +// http://doc.spip.org/@sinon +function sinon ($texte, $sinon='') { + if ($texte OR (!is_array($texte) AND strlen($texte))) + return $texte; + else + return $sinon; +} + +// |choixsivide{vide,pasvide} affiche pasvide si la chaine n'est pas vide... +// http://doc.spip.org/@choixsivide +function choixsivide($a, $vide, $pasvide) { + return $a ? $pasvide : $vide; +} + +// |choixsiegal{aquoi,oui,non} affiche oui si la chaine est egal a aquoi ... +// http://doc.spip.org/@choixsiegal +function choixsiegal($a1,$a2,$v,$f) { + return ($a1 == $a2) ? $v : $f; +} + + +// +// Date, heure, saisons +// + +// on normalise la date, si elle vient du contexte (public/parametrer.php), on force le jour +// http://doc.spip.org/@normaliser_date +function normaliser_date($date, $forcer_jour = false) { + $date = vider_date($date); + if ($date) { + if (preg_match("/^[0-9]{8,10}$/", $date)) + $date = date("Y-m-d H:i:s", $date); + if (preg_match("#^([12][0-9]{3})([-/]00)?( [-0-9:]+)?$#", $date, $regs)) + $date = $regs[1]."-00-00".$regs[3]; + else if (preg_match("#^([12][0-9]{3}[-/][01]?[0-9])([-/]00)?( [-0-9:]+)?$#", $date, $regs)) + $date = preg_replace("@/@","-",$regs[1])."-00".$regs[3]; + else + $date = date("Y-m-d H:i:s", strtotime($date)); + + if ($forcer_jour) + $date = str_replace('-00', '-01', $date); + } + return $date; +} + +// http://doc.spip.org/@vider_date +function vider_date($letexte) { + if (strncmp("0000-00-00", $letexte,10)==0) return ''; + if (strncmp("0001-01-01", $letexte,10)==0) return ''; + if (strncmp("1970-01-01", $letexte,10)==0) return ''; // eviter le bug GMT-1 + return $letexte; +} + +// http://doc.spip.org/@recup_heure +function recup_heure($date){ + + static $d = array(0,0,0); + if (!preg_match('#([0-9]{1,2}):([0-9]{1,2}):([0-9]{1,2})#', $date, $r)) + return $d; + + array_shift($r); + return $r; +} + +// http://doc.spip.org/@heures +function heures($numdate) { + $date_array = recup_heure($numdate); + if ($date_array) + list($heures, $minutes, $secondes) = $date_array; + return $heures; +} + +// http://doc.spip.org/@minutes +function minutes($numdate) { + $date_array = recup_heure($numdate); + if ($date_array) + list($heures, $minutes, $secondes) = $date_array; + return $minutes; +} + +// http://doc.spip.org/@secondes +function secondes($numdate) { + $date_array = recup_heure($numdate); + if ($date_array) + list($heures,$minutes,$secondes) = $date_array; + return $secondes; +} + +// http://doc.spip.org/@heures_minutes +function heures_minutes($numdate) { + return _T('date_fmt_heures_minutes', array('h'=> heures($numdate), 'm'=> minutes($numdate))); +} + +// http://doc.spip.org/@recup_date +function recup_date($numdate, $forcer_jour = true){ + if (!$numdate) return ''; + $heures = $minutes = $secondes = 0; + if (preg_match('#([0-9]{1,2})/([0-9]{1,2})/([0-9]{4}|[0-9]{1,2})#', $numdate, $regs)) { + $jour = $regs[1]; + $mois = $regs[2]; + $annee = $regs[3]; + if ($annee < 90){ + $annee = 2000 + $annee; + } elseif ($annee<100) { + $annee = 1900 + $annee ; + } + list($heures, $minutes, $secondes) = recup_heure($numdate); + + } + elseif (preg_match('#([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})#',$numdate, $regs)) { + $annee = $regs[1]; + $mois = $regs[2]; + $jour = $regs[3]; + list($heures, $minutes, $secondes) = recup_heure($numdate); + } + elseif (preg_match('#([0-9]{4})-([0-9]{2})#', $numdate, $regs)){ + $annee = $regs[1]; + $mois = $regs[2]; + $jour =''; + list($heures, $minutes, $secondes) = recup_heure($numdate); + } + elseif (preg_match('#^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})$#', $numdate, $regs)){ + $annee = $regs[1]; + $mois = $regs[2]; + $jour = $regs[3]; + $heures = $regs[4]; + $minutes = $regs[5]; + $secondes = $regs[6]; + } else $annee = $mois = $jour =''; + if ($annee > 4000) $annee -= 9000; + if (substr($jour, 0, 1) == '0') $jour = substr($jour, 1); + + if ($forcer_jour AND $jour == '0') $jour = '1'; + if ($forcer_jour AND $mois == '0') $mois = '1'; + if ($annee OR $mois OR $jour OR $heures OR $minutes OR $secondes) + return array($annee, $mois, $jour, $heures, $minutes, $secondes); +} + +// une date pour l'interface : utilise date_relative si le decalage +// avec time() est de moins de douze heures, sinon la date complete +// http://doc.spip.org/@date_interface +function date_interface($date, $decalage_maxi = 43200/* 12*3600 */) { + return sinon( + date_relative($date, $decalage_maxi), + affdate_heure($date) + ); +} + +// http://doc.spip.org/@date_relative +function date_relative($date, $decalage_maxi=0,$ref_date=null) { + + if (is_null($ref_date)) + $ref_time = time(); + else + $ref_time = strtotime($ref_date); + + if (!$date) return; + $decal = date("U",$ref_time) - date("U", strtotime($date)); + + if ($decalage_maxi AND ($decal > $decalage_maxi OR $decal < 0)) + return ''; + + if ($decal < 0) { + $il_y_a = "date_dans"; + $decal = -1 * $decal; + } else { + $il_y_a = "date_il_y_a"; + } + + if ($decal > 3600 * 24 * 30 * 6) + return affdate_court($date); + + if ($decal > 3600 * 24 * 30) { + $mois = floor ($decal / (3600 * 24 * 30)); + if ($mois < 2) + $delai = "$mois "._T("date_un_mois"); + else + $delai = "$mois "._T("date_mois"); + } + else if ($decal > 3600 * 24 * 7) { + $semaines = floor ($decal / (3600 * 24 * 7)); + if ($semaines < 2) + $delai = "$semaines "._T("date_une_semaine"); + else + $delai = "$semaines "._T("date_semaines"); + } + else if ($decal > 3600 * 24) { + $jours = floor ($decal / (3600 * 24)); + if ($jours < 2) + return $il_y_a=="date_dans"?_T("date_demain"):_T("date_hier"); + else + $delai = "$jours "._T("date_jours"); + } + else if ($decal >= 3600) { + $heures = floor ($decal / 3600); + if ($heures < 2) + $delai = "$heures "._T("date_une_heure"); + else + $delai = "$heures "._T("date_heures"); + } + else if ($decal >= 60) { + $minutes = floor($decal / 60); + if ($minutes < 2) + $delai = "$minutes "._T("date_une_minute"); + else + $delai = "$minutes "._T("date_minutes"); + } else { + $secondes = ceil($decal); + if ($secondes < 2) + $delai = "$secondes "._T("date_une_seconde"); + else + $delai = "$secondes "._T("date_secondes"); + } + + return _T($il_y_a, array("delai"=> $delai)); +} + + +// http://doc.spip.org/@date_relativecourt +function date_relativecourt($date, $decalage_maxi=0) { + + if (!$date) return; + $decal = date("U",strtotime(date('Y-m-d'))-strtotime(date('Y-m-d',strtotime($date)))); + + if ($decalage_maxi AND ($decal > $decalage_maxi OR $decal < 0)) + return ''; + + if ($decal < -24*3600) { + $retour = date_relative($date, $decalage_maxi); + } + elseif ($decal < 0) { + $retour = _T("date_demain"); + } + else if ($decal < (3600 * 24) ) { + $retour = _T("date_aujourdhui"); + } + else if ($decal < (3600 * 24 *2) ) { + $retour = _T("date_hier"); + } + else { + $retour = date_relative($date, $decalage_maxi); + } + + + + return $retour; +} + +// http://doc.spip.org/@affdate_base +function affdate_base($numdate, $vue, $param = '') { + global $spip_lang; + $date_array = recup_date($numdate, false); + if (!$date_array) return; + list($annee, $mois, $jour, $heures, $minutes, $secondes)= $date_array; + + // 1er, 21st, etc. + $journum = $jour; + + if ($jour == 0) { + $jour = ''; + } else { + $njour = intval($jour); + if ($jourth = _T('date_jnum'.$jour)) + $jour = $jourth; + } + + $mois = intval($mois); + if ($mois > 0 AND $mois < 13) { + $nommois = _T('date_mois_'.$mois); + if ($jour) + $jourmois = _T('date_de_mois_'.$mois, array('j'=>$jour, 'nommois'=>$nommois)); + else + $jourmois = $nommois; + } else $nommois = ''; + + if ($annee < 0) { + $annee = -$annee." "._T('date_avant_jc'); + $avjc = true; + } + else $avjc = false; + + switch ($vue) { + case 'saison': + if ($mois > 0){ + $saison = 1; + if (($mois == 3 AND $jour >= 21) OR $mois > 3) $saison = 2; + if (($mois == 6 AND $jour >= 21) OR $mois > 6) $saison = 3; + if (($mois == 9 AND $jour >= 21) OR $mois > 9) $saison = 4; + if (($mois == 12 AND $jour >= 21) OR $mois > 12) $saison = 1; + } + return _T('date_saison_'.$saison); + + case 'court': + if ($avjc) return $annee; + $a = date('Y'); + if ($annee < ($a - 100) OR $annee > ($a + 100)) return $annee; + if ($annee != $a) return _T('date_fmt_mois_annee', array ('mois'=>$mois, 'nommois'=>ucfirst($nommois), 'annee'=>$annee)); + return _T('date_fmt_jour_mois', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee)); + + case 'jourcourt': + if ($avjc) return $annee; + $a = date('Y'); + if ($annee < ($a - 100) OR $annee > ($a + 100)) return $annee; + if ($annee != $a) return _T('date_fmt_jour_mois_annee', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee)); + return _T('date_fmt_jour_mois', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee)); + + case 'entier': + if ($avjc) return $annee; + if ($jour) + return _T('date_fmt_jour_mois_annee', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee)); + elseif ($mois) + return trim(_T('date_fmt_mois_annee', array ('mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee))); + else + return $annee; + + case 'nom_mois': + return $nommois; + + case 'mois': + return sprintf("%02s",$mois); + + case 'jour': + return $jour; + + case 'journum': + return $journum; + + case 'nom_jour': + if (!$mois OR !$njour) + return ''; + $nom = mktime(1,1,1,$mois,$njour,$annee); + $nom = 1+date('w',$nom); + $param = $param ? '_'.$param : ''; + return _T('date_jour_'.$nom.$param); + + case 'mois_annee': + if ($avjc) return $annee; + return trim(_T('date_fmt_mois_annee', array('mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee))); + + case 'annee': + return $annee; + + // Cas d'une vue non definie : retomber sur le format + // de date propose par http://www.php.net/date + default: + return date($vue, strtotime($numdate)); + } +} + +// http://doc.spip.org/@nom_jour +function nom_jour($numdate, $forme = '') { + if(!($forme == 'abbr' OR $forme == 'initiale')) $forme = ''; + return affdate_base($numdate, 'nom_jour', $forme); +} + +// http://doc.spip.org/@jour +function jour($numdate) { + return affdate_base($numdate, 'jour'); +} + +// http://doc.spip.org/@journum +function journum($numdate) { + return affdate_base($numdate, 'journum'); +} + +// http://doc.spip.org/@mois +function mois($numdate) { + return affdate_base($numdate, 'mois'); +} + +// http://doc.spip.org/@nom_mois +function nom_mois($numdate) { + return affdate_base($numdate, 'nom_mois'); +} + +// http://doc.spip.org/@annee +function annee($numdate) { + return affdate_base($numdate, 'annee'); +} + +// http://doc.spip.org/@saison +function saison($numdate) { + return affdate_base($numdate, 'saison'); +} + +// http://doc.spip.org/@affdate +function affdate($numdate, $format='entier') { + return affdate_base($numdate, $format); +} + +// http://doc.spip.org/@affdate_court +function affdate_court($numdate) { + return affdate_base($numdate, 'court'); +} + +// http://doc.spip.org/@affdate_jourcourt +function affdate_jourcourt($numdate) { + return affdate_base($numdate, 'jourcourt'); +} + +// http://doc.spip.org/@affdate_mois_annee +function affdate_mois_annee($numdate) { + return affdate_base($numdate, 'mois_annee'); +} + +// http://doc.spip.org/@affdate_heure +function affdate_heure($numdate) { + $date_array = recup_date($numdate); + if (!$date_array) return; + list($annee, $mois, $jour, $heures, $minutes, $sec)= $date_array; + return _T('date_fmt_jour_heure', array('jour' => affdate($numdate), 'heure' => _T('date_fmt_heures_minutes', array('h'=> $heures, 'm'=> $minutes)))); +} + + +// +// Alignements en HTML (Old-style, preferer CSS) +// + +// Cette fonction cree le paragraphe s'il n'existe pas (texte sur un seul para) +// http://doc.spip.org/@aligner +function aligner($letexte, $justif='') { + $letexte = trim($letexte); + if (!strlen($letexte)) return ''; + + // Paragrapher proprement + $letexte = paragrapher($letexte, true); + + // Inserer les alignements + if ($justif) + $letexte = str_replace( + '
', '
',
+ $letexte);
+
+ return $letexte;
+}
+
+// http://doc.spip.org/@justifier
+function justifier($letexte) {
+ return aligner($letexte,'justify');
+}
+
+// http://doc.spip.org/@aligner_droite
+function aligner_droite($letexte) {
+ return aligner($letexte,'right');
+}
+
+// http://doc.spip.org/@aligner_gauche
+function aligner_gauche($letexte) {
+ return aligner($letexte,'left');
+}
+
+// http://doc.spip.org/@centrer
+function centrer($letexte) {
+ return aligner($letexte,'center');
+}
+
+// http://doc.spip.org/@style_align
+function style_align($bof) {
+ global $spip_lang_left;
+ return "text-align: $spip_lang_left";
+}
+
+//
+// Export iCal
+//
+
+// http://doc.spip.org/@filtrer_ical
+function filtrer_ical($texte) {
+ #include_spip('inc/charsets');
+ $texte = html2unicode($texte);
+ $texte = unicode2charset(charset2unicode($texte, $GLOBALS['meta']['charset'], 1), 'utf-8');
+ $texte = preg_replace("/\n/", " ", $texte);
+ $texte = preg_replace("/,/", "\,", $texte);
+
+ return $texte;
+}
+
+// http://doc.spip.org/@date_ical
+function date_ical($date, $addminutes = 0) {
+ list($heures, $minutes, $secondes) = recup_heure($date);
+ list($annee, $mois, $jour) = recup_date($date);
+ return date("Ymd\THis",
+ mktime($heures, $minutes+$addminutes,$secondes,$mois,$jour,$annee));
+}
+
+// date_iso retourne la date au format "RFC 3339" / "ISO 8601"
+// voir http://www.php.net/manual/fr/ref.datetime.php#datetime.constants
+// http://doc.spip.org/@date_iso
+function date_iso($date_heure) {
+ list($annee, $mois, $jour) = recup_date($date_heure);
+ list($heures, $minutes, $secondes) = recup_heure($date_heure);
+ $time = @mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
+ return gmdate('Y-m-d\TH:i:s\Z', $time);
+}
+
+// date_822 retourne la date au format "RFC 822"
+// utilise pour )
+ if (preg_match(',/>,', $balise))
+ $balise = preg_replace(",\s?/>,S", $insert." />", $balise, 1);
+ // sinon une balise ...
+ else
+ $balise = preg_replace(",\s?>,S", $insert.">", $balise, 1);
+ }
+
+ return $balise;
+}
+
+// http://doc.spip.org/@vider_attribut
+function vider_attribut ($balise, $attribut) {
+ return inserer_attribut($balise, $attribut, '', false, true);
+}
+
+
+// Un filtre pour determiner le nom du mode des librement inscrits,
+// a l'aide de la liste globale des statuts (tableau mode => nom du mode)
+// Utile pour le formulaire d'inscription.
+// Si un mode est fourni, verifier que la configuration l'accepte.
+// Si mode inconnu laisser faire, c'est une extension non std
+// mais verifier que la syntaxe est compatible avec SQL
+
+// http://doc.spip.org/@tester_config
+function tester_config($id, $mode='') {
+
+ $s = array_search($mode, $GLOBALS['liste_des_statuts']);
+ switch ($s) {
+
+ case 'info_redacteurs' :
+ return (($GLOBALS['meta']['accepter_inscriptions'] == 'oui') ? $mode : '');
+
+ case 'info_visiteurs' :
+ return (($GLOBALS['meta']['accepter_visiteurs'] == 'oui' OR $GLOBALS['meta']['forums_publics'] == 'abo') ? $mode : '');
+
+ default:
+ if ($mode AND $mode == addslashes($mode))
+ return $mode;
+ if ($GLOBALS['meta']["accepter_inscriptions"] == "oui")
+ return $GLOBALS['liste_des_statuts']['info_redacteurs'];
+ if ($GLOBALS['meta']["accepter_visiteurs"] == "oui")
+ return $GLOBALS['liste_des_statuts']['info_visiteurs'];
+ return '';
+ }
+}
+
+//
+// Un filtre qui, etant donne un #PARAMETRES_FORUM, retourne un URL de suivi rss
+// dudit forum
+// Attention applique a un #PARAMETRES_FORUM complexe (id_article=x&id_forum=y)
+// ca retourne un url de suivi du thread y (que le thread existe ou non)
+// http://doc.spip.org/@url_rss_forum
+function url_rss_forum($param) {
+ if (!preg_match(',.*(id_(\w*?))=([0-9]+),S', $param, $regs)) return '';
+ list(,$k,$t,$v) = $regs;
+ if ($t == 'forum') $k = 'id_' . ($t = 'thread');
+ return generer_url_public("rss_forum_$t", array($k => $v));
+}
+
+//
+// Un filtre applique a #PARAMETRES_FORUM, qui donne l'adresse de la page
+// de reponse
+//
+// http://doc.spip.org/@url_reponse_forum
+function url_reponse_forum($parametres) {
+ if (!$parametres) return '';
+ return generer_url_public('forum', $parametres);
+}
+
+//
+// Quelques fonctions de calcul arithmetique
+//
+// http://doc.spip.org/@plus
+function plus($a,$b) {
+ return $a+$b;
+}
+// http://doc.spip.org/@moins
+function moins($a,$b) {
+ return $a-$b;
+}
+// http://doc.spip.org/@mult
+function mult($a,$b) {
+ return $a*$b;
+}
+// http://doc.spip.org/@div
+function div($a,$b) {
+ return $b?$a/$b:0;
+}
+// http://doc.spip.org/@modulo
+function modulo($nb, $mod, $add=0) {
+ return ($mod?$nb%$mod:0)+$add;
+}
+
+
+// Verifier la conformite d'une ou plusieurs adresses email
+// retourne false ou la normalisation de la derniere adresse donnee
+// http://doc.spip.org/@email_valide
+function email_valide($adresses) {
+ // eviter d'injecter n'importe quoi dans preg_match
+ if (!is_string($adresses))
+ return false;
+
+ // Si c'est un spammeur autant arreter tout de suite
+ if (preg_match(",[\n\r].*(MIME|multipart|Content-),i", $adresses)) {
+ spip_log("Tentative d'injection de mail : $adresses");
+ return false;
+ }
+
+ foreach (explode(',', $adresses) as $v) {
+ // nettoyer certains formats
+ // "Marie Toto