banana/misc.inc.php

   1 <?php
   2 /********************************************************************************
   3  * include/misc.inc.php : Misc functions
   4  * -------------------------
   5  *
   6  * This file is part of the banana distribution
   7  * Copyright: See COPYING files that comes with this distribution
   8  ********************************************************************************/
   9
  10 /********************************************************************************
  11  *  MISC
  12  */
  13
  14 function _b_($str) { return utf8_decode(dgettext('banana', utf8_encode($str))); }
  15
  16 function to_entities($str) {
  17     require_once dirname(__FILE__).'/utf8.php';
  18     return utf8entities(htmlentities($str, ENT_NOQUOTES, 'UTF-8'));
  19 }
  20
  21 function is_utf8($s) { return iconv('utf-8', 'utf-8', $s) == $s; }
  22
  23 function textFormat_translate($format)
  24 {
  25     switch (strtolower($format)) {
  26         case 'plain':       return _b_('Texte brut');
  27         case 'richtext':    return _b_('Texte enrichi');
  28         case 'html':        return _b_('HTML');
  29         default:            return $format;
  30     }
  31 }
  32
  33 /********************************************************************************
  34  * HTML STUFF
  35  * Taken from php.net
  36  */
  37
  38 /**
  39  * @return string
  40  * @param string
  41  * @desc Strip forbidden tags and delegate tag-source check to removeEvilAttributes()
  42  */
  43 function removeEvilTags($source)
  44 {
  45     $allowedTags = '<h1><b><i><a><ul><li><pre><hr><blockquote><img><br><font><p><small><big><sup><sub><code><em>';
  46     $source = preg_replace('|</div>|i', '<br />', $source);
  47     $source = strip_tags($source, $allowedTags);
  48     return preg_replace('/<(.*?)>/ie', "'<'.removeEvilAttributes('\\1').'>'", $source);
  49 }
  50
  51 /**
  52  * @return string
  53  * @param string
  54  * @desc Strip forbidden attributes from a tag
  55  */
  56 function removeEvilAttributes($tagSource)
  57 {
  58     $stripAttrib = 'javascript:|onclick|ondblclick|onmousedown|onmouseup|onmouseover|'.
  59                    'onmousemove|onmouseout|onkeypress|onkeydown|onkeyup';
  60     return stripslashes(preg_replace("/$stripAttrib/i", '', $tagSource));
  61 }
  62
  63 /** Convert html to plain text
  64  */
  65 function htmlToPlainText($res)
  66 {
  67     $res = trim(html_entity_decode(strip_tags($res, '<div><br><p>')));
  68     $res = preg_replace("@</?(br|p|div)[^>]*>@i", "\n", $res);
  69     if (!is_utf8($res)) {
  70         $res = utf8_encode($res);
  71     }
  72     return $res;
  73 }
  74
  75 /********************************************************************************
  76  * RICHTEXT STUFF
  77  */
  78
  79 /** Convert richtext to html
  80  */
  81 function richtextToHtml($source)
  82 {
  83     $tags = Array('bold' => 'b',
  84                   'italic' => 'i',
  85                   'smaller' => 'small',
  86                   'bigger' => 'big',
  87                   'underline' => 'u',
  88                   'subscript' => 'sub',
  89                   'superscript' => 'sup',
  90                   'excerpt' => 'blockquote',
  91                   'paragraph' => 'p',
  92                   'nl' => 'br'
  93             );
  94
  95     // clean unsupported tags
  96     $protectedTags = '<signature><lt><comment><'.join('><', array_keys($tags)).'>';
  97     $source = strip_tags($source, $protectedTags);
  98
  99     // convert richtext tags to html
 100     foreach (array_keys($tags) as $tag) {
 101         $source = preg_replace('@(</?)'.$tag.'([^>]*>)@i', '\1'.$tags[$tag].'\2', $source);
 102     }
 103
 104     // some special cases
 105     $source = preg_replace('@<signature>@i', '<br>-- <br>', $source);
 106     $source = preg_replace('@</signature>@i', '', $source);
 107     $source = preg_replace('@<lt>@i', '&lt;', $source);
 108     $source = preg_replace('@<comment[^>]*>((?:[^<]|<(?!/comment>))*)</comment>@i', '<!-- \1 -->', $source);
 109     return removeEvilAttributes($source);
 110 }
 111
 112 /********************************************************************************
 113  *  HEADER STUFF
 114  */
 115
 116 function _headerdecode($charset, $c, $str) {
 117     $s = ($c == 'Q') ? quoted_printable_decode($str) : base64_decode($str);
 118     $s = iconv($charset, 'iso-8859-15', $s);
 119     return str_replace('_', ' ', $s);
 120 }
 121
 122 function headerDecode($value) {
 123     $val = preg_replace('/(=\?[^?]*\?[BQ]\?[^?]*\?=) (=\?[^?]*\?[BQ]\?[^?]*\?=)/', '\1\2', $value);
 124     return preg_replace('/=\?([^?]*)\?([BQ])\?([^?]*)\?=/e', '_headerdecode("\1", "\2", "\3")', $val);
 125 }
 126
 127 function headerEncode($value, $trim = 0) {
 128     if ($trim) {
 129         if (strlen($value) > $trim) {
 130             $value = substr($value, 0, $trim) . "[...]";
 131         }
 132     }
 133     return "=?UTF-8?B?".base64_encode($value)."?=";
 134 }
 135
 136 function header_translate($hdr) {
 137     switch ($hdr) {
 138         case 'from':            return _b_('De');
 139         case 'subject':         return _b_('Sujet');
 140         case 'newsgroups':      return _b_('Forums');
 141         case 'followup-to':     return _b_('Suivi-à');
 142         case 'date':            return _b_('Date');
 143         case 'organization':    return _b_('Organisation');
 144         case 'references':      return _b_('Références');
 145         case 'x-face':          return _b_('Image');
 146         default:
 147             if (function_exists('hook_headerTranslate')
 148                     && $res = hook_headerTranslate($hdr)) {
 149                 return $res;
 150             }
 151             return $hdr;
 152     }
 153 }
 154
 155 function formatDisplayHeader($_header,$_text) {
 156     global $banana;
 157     switch ($_header) {
 158         case "date":
 159             return formatDate($_text);
 160
 161         case "followup-to":
 162             case "newsgroups":
 163             $res = "";
 164             $groups = preg_split("/[\t ]*,[\t ]*/",$_text);
 165             foreach ($groups as $g) {
 166                 $res.="<a href='?group=$g'>$g</a>, ";
 167             }
 168             return substr($res,0, -2);
 169
 170         case "from":
 171             return formatFrom($_text);
 172
 173         case "references":
 174             $rsl     = "";
 175             $ndx     = 1;
 176             $text    = str_replace("><","> <",$_text);
 177             $text    = preg_split("/[ \t]/",strtr($text,$banana->spool->ids));
 178             $parents = preg_grep("/^\d+$/",$text);
 179             $p       = array_pop($parents);
 180             $par_ok  = Array();
 181
 182             while ($p) {
 183                 $par_ok[]=$p;
 184                 $p = $banana->spool->overview[$p]->parent;
 185             }
 186             foreach (array_reverse($par_ok) as $p) {
 187                 $rsl .= "<a href=\"?group={$banana->spool->group}&amp;artid=$p\">$ndx</a> ";
 188                 $ndx++;
 189             }
 190             return $rsl;
 191
 192         case "x-face":
 193             return '<img src="xface.php?face='.base64_encode($_text).'"  alt="x-face" />';
 194
 195         default:
 196             if (function_exists('hook_formatDisplayHeader')
 197                     && $res = hook_formatDisplayHeader($_header, $_text))
 198             {
 199                 return $res;
 200             }
 201             return htmlentities($_text);
 202     }
 203 }
 204
 205 /********************************************************************************
 206  *  FORMATTING STUFF
 207  */
 208
 209 function formatDate($_text) {
 210     return strftime("%A %d %B %Y, %H:%M (fuseau serveur)", strtotime($_text));
 211 }
 212
 213 function fancyDate($stamp) {
 214     $today  = intval(time() / (24*3600));
 215     $dday   = intval($stamp / (24*3600));
 216
 217     if ($today == $dday) {
 218         $format = "%H:%M";
 219     } elseif ($today == 1 + $dday) {
 220         $format = _b_('hier')." %H:%M";
 221     } elseif ($today < 7 + $dday) {
 222         $format = '%a %H:%M';
 223     } else {
 224         $format = '%a %e %b';
 225     }
 226     return strftime($format, $stamp);
 227 }
 228
 229 function formatFrom($text) {
 230 #     From: mark@cbosgd.ATT.COM
 231 #     From: mark@cbosgd.ATT.COM (Mark Horton)
 232 #     From: Mark Horton <mark@cbosgd.ATT.COM>
 233     $mailto = '<a href="&#109;&#97;&#105;&#108;&#116;&#111;&#58;';
 234
 235     $result = htmlentities($text);
 236     if (preg_match("/^([^ ]+)@([^ ]+)$/",$text,$regs)) {
 237         $result="$mailto{$regs[1]}&#64;{$regs[2]}\">".htmlentities($regs[1]."&#64;".$regs[2])."</a>";
 238     }
 239     if (preg_match("/^([^ ]+)@([^ ]+) \((.*)\)$/",$text,$regs)) {
 240         $result="$mailto{$regs[1]}&#64;{$regs[2]}\">".htmlentities($regs[3])."</a>";
 241     }
 242     if (preg_match("/^\"?([^<>\"]+)\"? +<(.+)@(.+)>$/",$text,$regs)) {
 243         $result="$mailto{$regs[2]}&#64;{$regs[3]}\">".htmlentities($regs[1])."</a>";
 244     }
 245     return preg_replace("/\\\(\(|\))/","\\1",$result);
 246 }
 247
 248 function displayshortcuts($first = -1) {
 249     global $banana;
 250     extract($banana->state);
 251
 252     $res  = '<div class="banana_scuts">';
 253     $res .= '[<a href="?">'._b_('Liste des forums').'</a>] ';
 254     if (is_null($group)) {
 255         return $res.'[<a href="?subscribe=1">'._b_('Abonnements').'</a>]</div>';
 256     }
 257
 258     $res .= "[<a href=\"?group=$group\">$group</a>] ";
 259
 260     if (is_null($artid)) {
 261         $res .= "[<a href=\"?group=$group&amp;action=new\">"._b_('Nouveau message')."</a>] ";
 262         if (sizeof($banana->spool->overview)>$banana->tmax) {
 263             $res .= '<br />';
 264             $n = intval(log(count($banana->spool->overview), 10))+1;
 265             for ($ndx=1; $ndx <= sizeof($banana->spool->overview); $ndx += $banana->tmax) {
 266                 if ($first==$ndx) {
 267                     $fmt = "[%0{$n}u-%0{$n}u] ";
 268                 } else {
 269                     $fmt = "[<a href=\"?group=$group&amp;first=$ndx\">%0{$n}u-%0{$n}u</a>] ";
 270                 }
 271                 $res .= sprintf($fmt, $ndx, min($ndx+$banana->tmax-1,sizeof($banana->spool->overview)));
 272             }
 273         }
 274     } else {
 275         $res .= "[<a href=\"?group=$group&amp;artid=$artid&amp;action=new\">"
 276              ._b_('Répondre')."</a>] ";
 277         if ($banana->post && $banana->post->checkcancel()) {
 278             $res .= "[<a href=\"?group=$group&amp;artid=$artid&amp;action=cancel\">"
 279                  ._b_('Annuler ce message')."</a>] ";
 280         }
 281     }
 282     return $res.'</div>';
 283 }
 284
 285 /********************************************************************************
 286  *  FORMATTING STUFF : BODY
 287  */
 288
 289 function wrap($text, $_prefix="")
 290 {
 291     $parts = preg_split("/\n-- ?\n/", $text);
 292     if (count($parts)  >1) {
 293         $sign = "\n-- \n" . array_pop($parts);
 294         $text = join("\n-- \n", $parts);
 295     } else {
 296         $sign = '';
 297     }
 298
 299     global $banana;
 300     $length = $banana->wrap;
 301     $cmd = "echo ".escapeshellarg($text)." | perl -MText::Autoformat -e 'autoformat {left=>1, right=>$length, all=>1 };'";
 302     $ret = 0;
 303     exec($cmd, $result, $ret);
 304     if ($ret != 0) {
 305         $result = split("\n", $text);
 306     }
 307
 308     return $_prefix.join("\n$_prefix", $result).($_prefix ? '' : $sign);
 309 }
 310
 311 function formatbody($_text, $format='plain')
 312 {
 313     if ($format == 'html') {
 314         $res = '<br/>'.html_entity_decode(to_entities(removeEvilTags($_text))).'<br/>';
 315     } else if ($format == 'richtext') {
 316         $res = '<br/>'.html_entity_decode(to_entities(richtextToHtml($_text))).'<br/>';
 317         $format = 'html';
 318     } else {
 319         $res  = "\n\n" . to_entities(wrap($_text, ""))."\n\n";
 320     }
 321     $res  = preg_replace("/(&lt;|&gt;|&quot;)/", " \\1 ", $res);
 322     $res  = preg_replace('/(["\[])?((https?|ftp|news):\/\/[a-z@0-9.~%$£µ&i#\-+=_\/\?]*)(["\]])?/i', '\1<a href="\2">\2</a>\4', $res);
 323     $res  = preg_replace("/ (&lt;|&gt;|&quot;) /", "\\1", $res);
 324
 325     if ($format == 'html') {
 326         $res = preg_replace("@(</p>)\n?-- \n?(<p[^>]*>|<br[^>]*>)@", "\\1<br/>-- \\2", $res);
 327         $res = preg_replace("@<br[^>]*>\n?-- \n?(<p[^>]*>)@", "<br/>-- <br/>\\2", $res);
 328         $parts = preg_split("@(:?<p[^>]*>\n?-- \n?</p>|<br[^>]*>\n?-- \n?<br[^>]*>)@", $res);
 329     } else {
 330         for ($i = 1 ; preg_match("@(^|<pre>|\n)&gt;@i", $res) ; $i++) {
 331             $res  = preg_replace("@(^|<pre>|\n)((&gt;[^\n]*\n)+)@ie",
 332                 "'\\1</pre><blockquote class=\'level$i\'><pre>'"
 333                     .".stripslashes(preg_replace('@(^|<pre>|\n)&gt;[ \\t\\r]*@i', '\\1', '\\2'))"
 334                     .".'</pre></blockquote><pre>'",
 335                     $res);
 336         }
 337         $res = preg_replace("@<pre>-- ?\n@", "<pre>\n-- \n", $res);
 338         $parts = preg_split("/\n-- ?\n/", $res);
 339     }
 340
 341     if (count($parts) > 1) {
 342         $sign  = array_pop($parts);
 343         if ($format == 'html') {
 344             $res  = join('<br/>-- <br/>', $parts);
 345             $sign = '<hr style="width: 100%; margin: 1em 0em; " />'.$sign.'<br/>';
 346         } else {
 347             $res  = join('\n-- \n', $parts);
 348             $sign = '</pre><hr style="width: 100%; margin: 1em 0em; " /><pre>'.$sign;
 349         }
 350         return $res.$sign;
 351     } else {
 352         return $res;
 353     }
 354 }
 355
 356 ?>