<?php
/********************************************************************************
-* include/wrapper.inc.php : text wrapper
-* -------------------------
-*
-* This file is part of the banana distribution
-* Copyright: See COPYING files that comes with this distribution
-********************************************************************************/
-
-function wrap($_text, $_prefix="", $_length=72)
+ * include/misc.inc.php : Misc functions
+ * -------------------------
+ *
+ * This file is part of the banana distribution
+ * Copyright: See COPYING files that comes with this distribution
+ ********************************************************************************/
+
+/********************************************************************************
+ * MISC
+ */
+
+function _b_($str) { return utf8_decode(dgettext('banana', utf8_encode($str))); }
+
+/********************************************************************************
+ * HEADER STUFF
+ */
+
+function _headerdecode($charset, $c, $str) {
+ $s = ($c == 'Q') ? quoted_printable_decode($str) : base64_decode($str);
+ $s = iconv($charset, 'iso-8859-15', $s);
+ return str_replace('_', ' ', $s);
+}
+
+function headerDecode($value) {
+ $val = preg_replace('/(=\?[^?]*\?[BQ]\?[^?]*\?=) (=\?[^?]*\?[BQ]\?[^?]*\?=)/', '\1\2', $value);
+ return preg_replace('/=\?([^?]*)\?([BQ])\?([^?]*)\?=/e', '_headerdecode("\1", "\2", "\3")', $val);
+}
+
+function header_translate($hdr) {
+ switch ($hdr) {
+ case 'from': return _b_('De');
+ case 'subject': return _b_('Sujet');
+ case 'newsgroups': return _b_('Forums');
+ case 'followup-to': return _b_('Suivi-à');
+ case 'date': return _b_('Date');
+ case 'organization': return _b_('Organisation');
+ case 'references': return _b_('Références');
+ case 'x-face': return _b_('Image');
+ default:
+ if (function_exists('hook_headerTranslate')
+ && $res = hook_headerTranslate($hdr)) {
+ return $res;
+ }
+ return $hdr;
+ }
+}
+
+function formatDisplayHeader($_header,$_text) {
+ global $banana;
+ switch ($_header) {
+ case "date":
+ return formatDate($_text);
+
+ case "followup-to":
+ case "newsgroups":
+ $res = "";
+ $groups = preg_split("/[\t ]*,[\t ]*/",$_text);
+ foreach ($groups as $g) {
+ $res.="<a href='?group=$g'>$g</a>, ";
+ }
+ return substr($res,0, -2);
+
+ case "from":
+ return formatFrom($_text);
+
+ case "references":
+ $rsl = "";
+ $ndx = 1;
+ $text = str_replace("><","> <",$_text);
+ $text = preg_split("/[ \t]/",strtr($text,$banana->spool->ids));
+ $parents = preg_grep("/^\d+$/",$text);
+ $p = array_pop($parents);
+ $par_ok = Array();
+
+ while ($p) {
+ $par_ok[]=$p;
+ $p = $banana->spool->overview[$p]->parent;
+ }
+ foreach (array_reverse($par_ok) as $p) {
+ $rsl .= "<a href=\"?group={$banana->spool->group}&artid=$p\">$ndx</a> ";
+ $ndx++;
+ }
+ return $rsl;
+
+ case "x-face":
+ return '<img src="xface.php?face='.base64_encode($_text).'" alt="x-face" />';
+
+ default:
+ if (function_exists('hook_formatDisplayHeader')
+ && $res = hook_formatDisplayHeader($_header, $_text))
+ {
+ return $res;
+ }
+ return htmlentities($_text);
+ }
+}
+
+/********************************************************************************
+ * FORMATTING STUFF
+ */
+
+function formatDate($_text) {
+ return strftime("%A %d %B %Y, %H:%M (fuseau serveur)", strtotime($_text));
+}
+
+function fancyDate($stamp) {
+ $today = intval(time() / (24*3600));
+ $dday = intval($stamp / (24*3600));
+
+ if ($today == $dday) {
+ $format = "%H:%M";
+ } elseif ($today == 1 + $dday) {
+ $format = _b_('hier')." %H:%M";
+ } elseif ($today < 7 + $dday) {
+ $format = '%a %H:%M';
+ } else {
+ $format = '%a %e %b';
+ }
+ return strftime($format, $stamp);
+}
+
+function formatFrom($text) {
+# From: mark@cbosgd.ATT.COM
+# From: mark@cbosgd.ATT.COM (Mark Horton)
+# From: Mark Horton <mark@cbosgd.ATT.COM>
+ $mailto = '<a href="mailto:';
+
+ $result = htmlentities($text);
+ if (preg_match("/^([^ ]+)@([^ ]+)$/",$text,$regs)) {
+ $result="$mailto{$regs[1]}@{$regs[2]}\">".htmlentities($regs[1]."@".$regs[2])."</a>";
+ }
+ if (preg_match("/^([^ ]+)@([^ ]+) \((.*)\)$/",$text,$regs)) {
+ $result="$mailto{$regs[1]}@{$regs[2]}\">".htmlentities($regs[3])."</a>";
+ }
+ if (preg_match("/^\"?([^<>\"]+)\"? +<(.+)@(.+)>$/",$text,$regs)) {
+ $result="$mailto{$regs[2]}@{$regs[3]}\">".htmlentities($regs[1])."</a>";
+ }
+ return preg_replace("/\\\(\(|\))/","\\1",$result);
+}
+
+function displayshortcuts($first = -1) {
+ global $banana;
+ extract($banana->state);
+
+ $res = '<div class="banana_scuts">';
+ $res .= '[<a href="?">'._b_('Liste des forums').'</a>] ';
+ if (is_null($group)) {
+ return $res.'</div>';
+ }
+
+ $res .= "[<a href=\"?group=$group\">$group</a>] ";
+
+ if (is_null($artid)) {
+ $res .= "[<a href=\"?group=$group&action=new\">"._b_('Nouveau message')."</a>] ";
+ if (sizeof($banana->spool->overview)>$banana->tmax) {
+ $res .= '<br />';
+ $n = intval(log(count($banana->spool->overview), 10))+1;
+ for ($ndx=1; $ndx <= sizeof($banana->spool->overview); $ndx += $banana->tmax) {
+ if ($first==$ndx) {
+ $fmt = "[%0{$n}u-%0{$n}u] ";
+ } else {
+ $fmt = "[<a href=\"?group=$group&first=$ndx\">%0{$n}u-%0{$n}u</a>] ";
+ }
+ $res .= sprintf($fmt, $ndx, min($ndx+$banana->tmax-1,sizeof($banana->spool->overview)));
+ }
+ }
+ } else {
+ $res .= "[<a href=\"?group=$group&artid=$artid&action=new\">"
+ ._b_('Répondre')."</a>] ";
+ if ($banana->post->checkcancel()) {
+ $res .= "[<a href=\"?group=$group&artid=$artid&action=cancel\">"
+ ._b_('Annuler ce message')."</a>] ";
+ }
+ }
+ return $res.'</div>';
+}
+
+/********************************************************************************
+ * FORMATTING STUFF : BODY
+ */
+
+function wrap($text, $_prefix="")
{
- $parts = preg_split("/\n-- ?\n/", $_text);
+ $parts = preg_split("/\n-- ?\n/", $text);
if (count($parts) >1) {
$sign = "\n-- \n" . array_pop($parts);
$text = join("\n-- \n", $parts);
} else {
$sign = '';
- $text = $_text;
+ $text = $text;
}
-
- $cmd = "echo ".escapeshellarg($text)." | perl -MText::Autoformat -e 'autoformat {left=>1, right=>$_length, all=>1 };'";
+
+ global $banana;
+ $length = $banana->wrap;
+ $cmd = "echo ".escapeshellarg($text)." | perl -MText::Autoformat -e 'autoformat {left=>1, right=>$length, all=>1 };'";
exec($cmd, $result);
return $_prefix.join("\n$_prefix", $result).($_prefix ? '' : $sign);
}
-function _headerdecode($charset, $c, $str) {
- $s = ($c == 'Q') ? quoted_printable_decode($str) : base64_decode($str);
- $s = iconv($charset, 'iso-8859-15', $s);
- return str_replace('_', ' ', $s);
-}
-
-function headerDecode($value) {
- $val = preg_replace('/(=\?[^?]*\?[BQ]\?[^?]*\?=) (=\?[^?]*\?[BQ]\?[^?]*\?=)/', '\1\2', $value);
- return preg_replace('/=\?([^?]*)\?([BQ])\?([^?]*)\?=/e', '_headerdecode("\1", "\2", "\3")', $val);
+function formatbody($_text) {
+ $res = "\n\n" . htmlentities(wrap($_text, ""))."\n\n";
+ $res = preg_replace("/(<|>|")/", " \\1 ", $res);
+ $res = preg_replace('/(["\[])?((https?|ftp|news):\/\/[a-z@0-9.~%$£µ&i#\-+=_\/\?]*)(["\]])?/i', "\\1<a href=\"\\2\">\\2</a>\\4", $res);
+ $res = preg_replace("/ (<|>|") /", "\\1", $res);
+
+ $parts = preg_split("/\n-- ?\n/", $res);
+
+ if (count($parts) > 1) {
+ $sign = "</pre><hr style='width: 100%; margin: 1em 0em; ' /><pre>" . array_pop($parts);
+ return join("\n-- \n", $parts).$sign;
+ } else {
+ return $res;
+ }
}
?>