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