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 'banana/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 /********************************************************************************
  24  *  HEADER STUFF
  25  */
  26
  27 function _headerdecode($charset, $c, $str) {
  28     $s = ($c == 'Q') ? quoted_printable_decode($str) : base64_decode($str);
  29     $s = iconv($charset, 'iso-8859-15', $s);
  30     return str_replace('_', ' ', $s);
  31 }
  32
  33 function headerDecode($value) {
  34     $val = preg_replace('/(=\?[^?]*\?[BQ]\?[^?]*\?=) (=\?[^?]*\?[BQ]\?[^?]*\?=)/', '\1\2', $value);
  35     return preg_replace('/=\?([^?]*)\?([BQ])\?([^?]*)\?=/e', '_headerdecode("\1", "\2", "\3")', $val);
  36 }
  37
  38 function headerEncode($value, $trim = 0) {
  39     if ($trim) {
  40         if (strlen($value) > $trim) {
  41             $value = substr($value, 0, $trim) . "[...]";
  42         }
  43     }
  44     return "=?UTF-8?B?".base64_encode($value)."?=";
  45 }
  46
  47 function header_translate($hdr) {
  48     switch ($hdr) {
  49         case 'from':            return _b_('De');
  50         case 'subject':         return _b_('Sujet');
  51         case 'newsgroups':      return _b_('Forums');
  52         case 'followup-to':     return _b_('Suivi-à');
  53         case 'date':            return _b_('Date');
  54         case 'organization':    return _b_('Organisation');
  55         case 'references':      return _b_('Références');
  56         case 'x-face':          return _b_('Image');
  57         default:
  58             if (function_exists('hook_headerTranslate')
  59                     && $res = hook_headerTranslate($hdr)) {
  60                 return $res;
  61             }
  62             return $hdr;
  63     }
  64 }
  65
  66 function formatDisplayHeader($_header,$_text) {
  67     global $banana;
  68     switch ($_header) {
  69         case "date":
  70             return formatDate($_text);
  71
  72         case "followup-to":
  73             case "newsgroups":
  74             $res = "";
  75             $groups = preg_split("/[\t ]*,[\t ]*/",$_text);
  76             foreach ($groups as $g) {
  77                 $res.="<a href='?group=$g'>$g</a>, ";
  78             }
  79             return substr($res,0, -2);
  80
  81         case "from":
  82             return formatFrom($_text);
  83
  84         case "references":
  85             $rsl     = "";
  86             $ndx     = 1;
  87             $text    = str_replace("><","> <",$_text);
  88             $text    = preg_split("/[ \t]/",strtr($text,$banana->spool->ids));
  89             $parents = preg_grep("/^\d+$/",$text);
  90             $p       = array_pop($parents);
  91             $par_ok  = Array();
  92
  93             while ($p) {
  94                 $par_ok[]=$p;
  95                 $p = $banana->spool->overview[$p]->parent;
  96             }
  97             foreach (array_reverse($par_ok) as $p) {
  98                 $rsl .= "<a href=\"?group={$banana->spool->group}&amp;artid=$p\">$ndx</a> ";
  99                 $ndx++;
 100             }
 101             return $rsl;
 102
 103         case "x-face":
 104             return '<img src="xface.php?face='.base64_encode($_text).'"  alt="x-face" />';
 105
 106         default:
 107             if (function_exists('hook_formatDisplayHeader')
 108                     && $res = hook_formatDisplayHeader($_header, $_text))
 109             {
 110                 return $res;
 111             }
 112             return htmlentities($_text);
 113     }
 114 }
 115
 116 /********************************************************************************
 117  *  FORMATTING STUFF
 118  */
 119
 120 function formatDate($_text) {
 121     return strftime("%A %d %B %Y, %H:%M (fuseau serveur)", strtotime($_text));
 122 }
 123
 124 function fancyDate($stamp) {
 125     $today  = intval(time() / (24*3600));
 126     $dday   = intval($stamp / (24*3600));
 127
 128     if ($today == $dday) {
 129         $format = "%H:%M";
 130     } elseif ($today == 1 + $dday) {
 131         $format = _b_('hier')." %H:%M";
 132     } elseif ($today < 7 + $dday) {
 133         $format = '%a %H:%M';
 134     } else {
 135         $format = '%a %e %b';
 136     }
 137     return strftime($format, $stamp);
 138 }
 139
 140 function formatFrom($text) {
 141 #     From: mark@cbosgd.ATT.COM
 142 #     From: mark@cbosgd.ATT.COM (Mark Horton)
 143 #     From: Mark Horton <mark@cbosgd.ATT.COM>
 144     $mailto = '<a href="&#109;&#97;&#105;&#108;&#116;&#111;&#58;';
 145
 146     $result = htmlentities($text);
 147     if (preg_match("/^([^ ]+)@([^ ]+)$/",$text,$regs)) {
 148         $result="$mailto{$regs[1]}&#64;{$regs[2]}\">".htmlentities($regs[1]."&#64;".$regs[2])."</a>";
 149     }
 150     if (preg_match("/^([^ ]+)@([^ ]+) \((.*)\)$/",$text,$regs)) {
 151         $result="$mailto{$regs[1]}&#64;{$regs[2]}\">".htmlentities($regs[3])."</a>";
 152     }
 153     if (preg_match("/^\"?([^<>\"]+)\"? +<(.+)@(.+)>$/",$text,$regs)) {
 154         $result="$mailto{$regs[2]}&#64;{$regs[3]}\">".htmlentities($regs[1])."</a>";
 155     }
 156     return preg_replace("/\\\(\(|\))/","\\1",$result);
 157 }
 158
 159 function displayshortcuts($first = -1) {
 160     global $banana;
 161     extract($banana->state);
 162
 163     $res  = '<div class="banana_scuts">';
 164     $res .= '[<a href="?">'._b_('Liste des forums').'</a>] ';
 165     if (is_null($group)) {
 166         return $res.'[<a href="?subscribe=1">'._b_('Abonnements').'</a>]</div>';
 167     }
 168
 169     $res .= "[<a href=\"?group=$group\">$group</a>] ";
 170
 171     if (is_null($artid)) {
 172         $res .= "[<a href=\"?group=$group&amp;action=new\">"._b_('Nouveau message')."</a>] ";
 173         if (sizeof($banana->spool->overview)>$banana->tmax) {
 174             $res .= '<br />';
 175             $n = intval(log(count($banana->spool->overview), 10))+1;
 176             for ($ndx=1; $ndx <= sizeof($banana->spool->overview); $ndx += $banana->tmax) {
 177                 if ($first==$ndx) {
 178                     $fmt = "[%0{$n}u-%0{$n}u] ";
 179                 } else {
 180                     $fmt = "[<a href=\"?group=$group&amp;first=$ndx\">%0{$n}u-%0{$n}u</a>] ";
 181                 }
 182                 $res .= sprintf($fmt, $ndx, min($ndx+$banana->tmax-1,sizeof($banana->spool->overview)));
 183             }
 184         }
 185     } else {
 186         $res .= "[<a href=\"?group=$group&amp;artid=$artid&amp;action=new\">"
 187             ._b_('Répondre')."</a>] ";
 188         if ($banana->post->checkcancel()) {
 189             $res .= "[<a href=\"?group=$group&amp;artid=$artid&amp;action=cancel\">"
 190                 ._b_('Annuler ce message')."</a>] ";
 191         }
 192     }
 193     return $res.'</div>';
 194 }
 195
 196 /********************************************************************************
 197  *  FORMATTING STUFF : BODY
 198  */
 199
 200 function wrap($text, $_prefix="")
 201 {
 202     $parts = preg_split("/\n-- ?\n/", $text);
 203     if (count($parts)  >1) {
 204         $sign = "\n-- \n" . array_pop($parts);
 205         $text = join("\n-- \n", $parts);
 206     } else {
 207         $sign = '';
 208         $text = $text;
 209     }
 210
 211     global $banana;
 212     $length = $banana->wrap;
 213     $cmd = "echo ".escapeshellarg($text)." | perl -MText::Autoformat -e 'autoformat {left=>1, right=>$length, all=>1 };'";
 214     exec($cmd, $result);
 215
 216     return $_prefix.join("\n$_prefix", $result).($_prefix ? '' : $sign);
 217 }
 218
 219 function formatbody($_text) {
 220     $res  = "\n\n" . to_entities(wrap($_text, ""))."\n\n";
 221     $res  = preg_replace("/(&lt;|&gt;|&quot;)/", " \\1 ", $res);
 222     $res  = preg_replace('/(["\[])?((https?|ftp|news):\/\/[a-z@0-9.~%$£µ&i#\-+=_\/\?]*)(["\]])?/i', "\\1<a href=\"\\2\">\\2</a>\\4", $res);
 223     $res  = preg_replace("/ (&lt;|&gt;|&quot;) /", "\\1", $res);
 224
 225     $parts = preg_split("/\n-- ?\n/", $res);
 226
 227     if (count($parts) > 1) {
 228         $sign = "</pre><hr style='width: 100%; margin: 1em 0em; ' /><pre>" . array_pop($parts);
 229         return join("\n-- \n", $parts).$sign;
 230     } else {
 231         return $res;
 232     }
 233 }
 234
 235 ?>