78cd27b3 |
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) { |
39816f8b |
17 | require_once dirname(__FILE__).'/utf8.php'; |
78cd27b3 |
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 | |
1f75b135 |
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 | |
8e519bd8 |
33 | /** Redirect to the page with the given parameter |
34 | * @ref makeLink |
35 | */ |
41b90d00 |
36 | function redirectInBanana($params) |
fe8cbf1d |
37 | { |
f6df9eb2 |
38 | header('Location: ' . makeLink($params)); |
fe8cbf1d |
39 | } |
40 | |
8e519bd8 |
41 | /** Make a link using the given parameters |
42 | * @param ARRAY params, the parameters with |
43 | * key => value |
44 | * Known key are: |
45 | * - group = group name |
46 | * - artid/first = article id the the group |
47 | * - subscribe = to show the subscription page |
48 | * - action = action to do (new, cancel, view) |
49 | * - part = to show the given MIME part of the article |
50 | * - pj = to get the given attachment |
78f61fa3 |
51 | * - xface = to make a link to an xface |
8e519bd8 |
52 | * |
53 | * Can be overloaded by defining a hook_makeLink function |
54 | */ |
fe8cbf1d |
55 | function makeLink($params) |
56 | { |
f6df9eb2 |
57 | if (function_exists('hook_makeLink') |
58 | && $res = hook_makeLink($params)) { |
59 | return $res; |
60 | } |
8e519bd8 |
61 | $proto = empty($_SERVER['HTTPS']) ? 'http://' : 'https://'; |
fe8cbf1d |
62 | $host = $_SERVER['HTTP_HOST']; |
63 | $file = $_SERVER['PHP_SELF']; |
64 | |
78f61fa3 |
65 | if (isset($params['xface'])) { |
66 | $file = dirname($file) . '/xface.php'; |
5b1eaebd |
67 | $get = 'face=' . urlencode(base64_encode($params['xface'])); |
78f61fa3 |
68 | } else if (count($params) != 0) { |
f6df9eb2 |
69 | $get = '?'; |
70 | foreach ($params as $key=>$value) { |
71 | if (strlen($get) != 1) { |
72 | $get .= '&'; |
73 | } |
74 | $get .= $key . '=' . $value; |
75 | } |
76 | } else { |
77 | $get = ''; |
78 | } |
79 | |
80 | return $proto . $host . $file . $get; |
8e519bd8 |
81 | } |
82 | |
83 | /** Format a link to be use in a link |
84 | * @ref makeLink |
85 | */ |
2ba32e89 |
86 | function makeHREF($params, $text = null, $popup = null, $class = null) |
8e519bd8 |
87 | { |
f6df9eb2 |
88 | $link = makeLink($params); |
89 | if (is_null($text)) { |
90 | $text = $link; |
91 | } |
f0dc6af4 |
92 | if (!is_null($popup)) { |
93 | $popup = ' title="' . $popup . '"'; |
94 | } |
2ba32e89 |
95 | if (!is_null($class)) { |
96 | $class = ' class="' . $class . '"'; |
97 | } |
f6df9eb2 |
98 | $target = null; |
99 | if (isset($params['action']) && $params['action'] == 'view') { |
100 | $target = ' target="_blank"'; |
101 | } |
da6dc0c8 |
102 | return '<a href="' . htmlentities($link) .'"' . $target . $popup . $class . '>' . $text . '</a>'; |
fe8cbf1d |
103 | } |
104 | |
c14c86f4 |
105 | /** Format tree images links |
106 | * @param img STRING Image name (without extension) |
107 | * @param alt STRING alternative string |
108 | * @param width INT to force width of the image (null if not defined) |
109 | * |
110 | * This function can be overloaded by defining hook_makeImg() |
111 | */ |
5e200c3e |
112 | function makeImg($img, $alt, $height = null, $width = null) |
c14c86f4 |
113 | { |
114 | if (function_exists('hook_makeImg') |
f944d187 |
115 | && $res = hook_makeImg($img, $alt, $height, $width)) { |
c14c86f4 |
116 | return $res; |
117 | } |
118 | |
119 | if (!is_null($width)) { |
120 | $width = ' width="' . $width . '"'; |
121 | } |
5e200c3e |
122 | if (!is_null($height)) { |
123 | $height = ' height="' . $height . '"'; |
124 | } |
125 | |
c14c86f4 |
126 | $proto = empty($_SERVER['HTTPS']) ? 'http://' : 'https://'; |
127 | $host = $_SERVER['HTTP_HOST']; |
2ba32e89 |
128 | $file = dirname($_SERVER['PHP_SELF']) . '/img/' . $img; |
c14c86f4 |
129 | $url = $proto . $host . $file; |
130 | |
5e200c3e |
131 | return '<img src="' . $url . '"' . $height . $width . ' alt="' . $alt . '" />'; |
c14c86f4 |
132 | } |
133 | |
2ba32e89 |
134 | /** Make a link using an image |
135 | */ |
136 | function makeImgLink($params, $img, $alt, $height = null, $width = null, $class = null) |
137 | { |
138 | return makeHREF($params, |
139 | makeImg($img, ' [' . $alt . ']', $height, $width), |
140 | $alt, |
141 | $class); |
142 | } |
143 | |
1f75b135 |
144 | /******************************************************************************** |
145 | * HTML STUFF |
146 | * Taken from php.net |
147 | */ |
148 | |
aef14768 |
149 | /** |
1f75b135 |
150 | * @return string |
151 | * @param string |
152 | * @desc Strip forbidden tags and delegate tag-source check to removeEvilAttributes() |
153 | */ |
154 | function removeEvilTags($source) |
155 | { |
f12fdb59 |
156 | $allowedTags = '<h1><b><i><a><ul><li><pre><hr><blockquote><img><br><font><p><small><big><sup><sub><code><em>'; |
16b17ba5 |
157 | $source = preg_replace('|</div>|i', '<br />', $source); |
1f75b135 |
158 | $source = strip_tags($source, $allowedTags); |
159 | return preg_replace('/<(.*?)>/ie', "'<'.removeEvilAttributes('\\1').'>'", $source); |
160 | } |
161 | |
162 | /** |
163 | * @return string |
164 | * @param string |
165 | * @desc Strip forbidden attributes from a tag |
166 | */ |
167 | function removeEvilAttributes($tagSource) |
168 | { |
169 | $stripAttrib = 'javascript:|onclick|ondblclick|onmousedown|onmouseup|onmouseover|'. |
170 | 'onmousemove|onmouseout|onkeypress|onkeydown|onkeyup'; |
171 | return stripslashes(preg_replace("/$stripAttrib/i", '', $tagSource)); |
172 | } |
173 | |
aef14768 |
174 | /** Convert html to plain text |
175 | */ |
176 | function htmlToPlainText($res) |
177 | { |
16b17ba5 |
178 | $res = trim(html_entity_decode(strip_tags($res, '<div><br><p>'))); |
179 | $res = preg_replace("@</?(br|p|div)[^>]*>@i", "\n", $res); |
4cc80c9a |
180 | if (!is_utf8($res)) { |
181 | $res = utf8_encode($res); |
182 | } |
aef14768 |
183 | return $res; |
184 | } |
185 | |
820ce67b |
186 | /** Match **, // and __ to format plain text |
187 | */ |
188 | function formatPlainText($text) |
189 | { |
190 | $formatting = Array('\*' => 'strong', |
191 | '_' => 'u', |
192 | '/' => 'em'); |
193 | foreach ($formatting as $limit=>$mark) { |
194 | $text = preg_replace('@(^|\W)' . $limit . '(\w+)' . $limit . '(\W|$)@' |
195 | ,'\1<' . $mark . '>\2</' . $mark . '>\3' |
196 | , $text); |
197 | } |
198 | return $text; |
199 | } |
200 | |
aef14768 |
201 | /******************************************************************************** |
202 | * RICHTEXT STUFF |
203 | */ |
204 | |
205 | /** Convert richtext to html |
206 | */ |
207 | function richtextToHtml($source) |
208 | { |
209 | $tags = Array('bold' => 'b', |
210 | 'italic' => 'i', |
211 | 'smaller' => 'small', |
212 | 'bigger' => 'big', |
213 | 'underline' => 'u', |
214 | 'subscript' => 'sub', |
215 | 'superscript' => 'sup', |
216 | 'excerpt' => 'blockquote', |
217 | 'paragraph' => 'p', |
218 | 'nl' => 'br' |
219 | ); |
220 | |
221 | // clean unsupported tags |
222 | $protectedTags = '<signature><lt><comment><'.join('><', array_keys($tags)).'>'; |
223 | $source = strip_tags($source, $protectedTags); |
224 | |
225 | // convert richtext tags to html |
226 | foreach (array_keys($tags) as $tag) { |
227 | $source = preg_replace('@(</?)'.$tag.'([^>]*>)@i', '\1'.$tags[$tag].'\2', $source); |
228 | } |
229 | |
230 | // some special cases |
231 | $source = preg_replace('@<signature>@i', '<br>-- <br>', $source); |
232 | $source = preg_replace('@</signature>@i', '', $source); |
233 | $source = preg_replace('@<lt>@i', '<', $source); |
234 | $source = preg_replace('@<comment[^>]*>((?:[^<]|<(?!/comment>))*)</comment>@i', '<!-- \1 -->', $source); |
235 | return removeEvilAttributes($source); |
236 | } |
237 | |
78cd27b3 |
238 | /******************************************************************************** |
239 | * HEADER STUFF |
240 | */ |
241 | |
242 | function _headerdecode($charset, $c, $str) { |
eeae3e3e |
243 | $s = ($c == 'Q' || $c == 'q') ? quoted_printable_decode($str) : base64_decode($str); |
78cd27b3 |
244 | $s = iconv($charset, 'iso-8859-15', $s); |
245 | return str_replace('_', ' ', $s); |
246 | } |
247 | |
248 | function headerDecode($value) { |
eeae3e3e |
249 | $val = preg_replace('/(=\?[^?]*\?[BQbq]\?[^?]*\?=) (=\?[^?]*\?[BQbq]\?[^?]*\?=)/', '\1\2', $value); |
250 | return preg_replace('/=\?([^?]*)\?([BQbq])\?([^?]*)\?=/e', '_headerdecode("\1", "\2", "\3")', $val); |
78cd27b3 |
251 | } |
252 | |
253 | function headerEncode($value, $trim = 0) { |
254 | if ($trim) { |
255 | if (strlen($value) > $trim) { |
256 | $value = substr($value, 0, $trim) . "[...]"; |
257 | } |
258 | } |
259 | return "=?UTF-8?B?".base64_encode($value)."?="; |
260 | } |
261 | |
262 | function header_translate($hdr) { |
263 | switch ($hdr) { |
264 | case 'from': return _b_('De'); |
265 | case 'subject': return _b_('Sujet'); |
266 | case 'newsgroups': return _b_('Forums'); |
267 | case 'followup-to': return _b_('Suivi-à'); |
268 | case 'date': return _b_('Date'); |
269 | case 'organization': return _b_('Organisation'); |
270 | case 'references': return _b_('Références'); |
271 | case 'x-face': return _b_('Image'); |
272 | default: |
273 | if (function_exists('hook_headerTranslate') |
274 | && $res = hook_headerTranslate($hdr)) { |
275 | return $res; |
276 | } |
277 | return $hdr; |
278 | } |
279 | } |
280 | |
281 | function formatDisplayHeader($_header,$_text) { |
282 | global $banana; |
820ce67b |
283 | if (function_exists('hook_formatDisplayHeader') |
284 | && $res = hook_formatDisplayHeader($_header, $_text)) { |
285 | return $res; |
286 | } |
287 | |
78cd27b3 |
288 | switch ($_header) { |
289 | case "date": |
290 | return formatDate($_text); |
291 | |
292 | case "followup-to": |
293 | case "newsgroups": |
294 | $res = ""; |
295 | $groups = preg_split("/[\t ]*,[\t ]*/",$_text); |
296 | foreach ($groups as $g) { |
8e519bd8 |
297 | $res .= makeHREF(Array('group' => $g), $g) . ', '; |
78cd27b3 |
298 | } |
299 | return substr($res,0, -2); |
300 | |
301 | case "from": |
302 | return formatFrom($_text); |
6cca2dba |
303 | |
78cd27b3 |
304 | case "references": |
305 | $rsl = ""; |
306 | $ndx = 1; |
307 | $text = str_replace("><","> <",$_text); |
308 | $text = preg_split("/[ \t]/",strtr($text,$banana->spool->ids)); |
309 | $parents = preg_grep("/^\d+$/",$text); |
310 | $p = array_pop($parents); |
311 | $par_ok = Array(); |
312 | |
313 | while ($p) { |
314 | $par_ok[]=$p; |
315 | $p = $banana->spool->overview[$p]->parent; |
316 | } |
317 | foreach (array_reverse($par_ok) as $p) { |
0afbf2ed |
318 | $rsl .= makeHREF(Array('group' => $banana->spool->group, |
319 | 'artid' => $p), |
320 | $ndx) . ' '; |
78cd27b3 |
321 | $ndx++; |
322 | } |
323 | return $rsl; |
324 | |
325 | case "x-face": |
5b1eaebd |
326 | return '<img src="' . makeLink(Array('xface' => headerDecode($_text))) .'" alt="x-face" />'; |
820ce67b |
327 | |
328 | case "subject": |
0cae4790 |
329 | $link = null; |
330 | if (function_exists('hook_getSubject')) { |
331 | $link = hook_getSubject($_text); |
332 | } |
333 | return formatPlainText($_text) . $link; |
820ce67b |
334 | |
78cd27b3 |
335 | default: |
78cd27b3 |
336 | return htmlentities($_text); |
337 | } |
338 | } |
339 | |
340 | /******************************************************************************** |
341 | * FORMATTING STUFF |
342 | */ |
343 | |
344 | function formatDate($_text) { |
345 | return strftime("%A %d %B %Y, %H:%M (fuseau serveur)", strtotime($_text)); |
346 | } |
347 | |
348 | function fancyDate($stamp) { |
349 | $today = intval(time() / (24*3600)); |
350 | $dday = intval($stamp / (24*3600)); |
351 | |
352 | if ($today == $dday) { |
353 | $format = "%H:%M"; |
354 | } elseif ($today == 1 + $dday) { |
355 | $format = _b_('hier')." %H:%M"; |
356 | } elseif ($today < 7 + $dday) { |
357 | $format = '%a %H:%M'; |
358 | } else { |
359 | $format = '%a %e %b'; |
360 | } |
361 | return strftime($format, $stamp); |
362 | } |
363 | |
364 | function formatFrom($text) { |
365 | # From: mark@cbosgd.ATT.COM |
366 | # From: mark@cbosgd.ATT.COM (Mark Horton) |
367 | # From: Mark Horton <mark@cbosgd.ATT.COM> |
368 | $mailto = '<a href="mailto:'; |
369 | |
370 | $result = htmlentities($text); |
371 | if (preg_match("/^([^ ]+)@([^ ]+)$/",$text,$regs)) { |
372 | $result="$mailto{$regs[1]}@{$regs[2]}\">".htmlentities($regs[1]."@".$regs[2])."</a>"; |
373 | } |
374 | if (preg_match("/^([^ ]+)@([^ ]+) \((.*)\)$/",$text,$regs)) { |
375 | $result="$mailto{$regs[1]}@{$regs[2]}\">".htmlentities($regs[3])."</a>"; |
376 | } |
377 | if (preg_match("/^\"?([^<>\"]+)\"? +<(.+)@(.+)>$/",$text,$regs)) { |
378 | $result="$mailto{$regs[2]}@{$regs[3]}\">".htmlentities($regs[1])."</a>"; |
379 | } |
380 | return preg_replace("/\\\(\(|\))/","\\1",$result); |
381 | } |
382 | |
ca52cc4c |
383 | function makeTab($link, $text) |
384 | { |
385 | return Array(makeHREF($link, $text), |
386 | $text); |
387 | } |
388 | |
92f5ea62 |
389 | function displayTabs() |
2ba32e89 |
390 | { |
78cd27b3 |
391 | global $banana; |
392 | extract($banana->state); |
2ba32e89 |
393 | if (function_exists('hook_shortcuts') && $cstm = hook_shortcuts()) { |
92f5ea62 |
394 | $res = $cstm; |
78cd27b3 |
395 | } |
92f5ea62 |
396 | |
ca52cc4c |
397 | $res['subscribe'] = makeTab(Array('subscribe' => 1), _b_('Abonnements')); |
398 | $res['forums'] = makeTab(Array(), _b_('Les forums')); |
2ba32e89 |
399 | |
400 | if (!is_null($group)) { |
ca52cc4c |
401 | $res['group'] = makeTab(Array('group' => $group), $group); |
2ba32e89 |
402 | if (is_null($artid)) { |
92f5ea62 |
403 | if (@$action == 'new') { |
ca52cc4c |
404 | $res['action'] = makeTab(Array('group' => $group, |
405 | 'action' => 'new'), |
406 | _b_('Nouveau Message')); |
1254696c |
407 | } |
2ba32e89 |
408 | } else { |
ca52cc4c |
409 | $res['message'] = makeTab(Array('group' => $group, |
410 | 'artid' => $artid), |
411 | _b_('Message')); |
1254696c |
412 | if (!is_null($action)) { |
1254696c |
413 | if ($action == 'new') { |
ca52cc4c |
414 | $res['action'] = makeTab(Array('group' => $group, |
415 | 'artid' => $artid, |
416 | 'action' => 'new'), |
417 | _b_('Réponse')); |
1254696c |
418 | } elseif ($action == 'cancel') { |
ca52cc4c |
419 | $res['action'] = makeTab(Array('group' => $group, |
420 | 'artid' => $artid, |
421 | 'action' => 'cancel'), |
422 | _b_('Annuler')); |
1254696c |
423 | } |
1254696c |
424 | } |
78cd27b3 |
425 | } |
426 | } |
92f5ea62 |
427 | $ret = '<ul id="onglet">'; |
ca52cc4c |
428 | foreach ($res as $name=>$onglet) { |
52cafcf1 |
429 | if ($name != @$page) { |
ca52cc4c |
430 | $ret .= '<li>' . $onglet[0] . '</li>'; |
92f5ea62 |
431 | } else { |
ca52cc4c |
432 | $ret .= '<li class="actif">' . $onglet[1] . '</li>'; |
92f5ea62 |
433 | } |
434 | } |
435 | $ret .= '</ul>'; |
436 | return $ret; |
78cd27b3 |
437 | } |
438 | |
92f5ea62 |
439 | function displayPages($first = -1) |
440 | { |
441 | global $banana; |
442 | extract($banana->state); |
443 | $res = null; |
444 | if (!is_null($group) && is_null($artid) |
445 | && sizeof($banana->spool->overview)>$banana->tmax) { |
446 | $res .= '<div class="pages">'; |
447 | $n = intval(log(count($banana->spool->overview), 10))+1; |
448 | $i = 1; |
449 | for ($ndx = 1 ; $ndx <= sizeof($banana->spool->overview) ; $ndx += $banana->tmax) { |
450 | if ($first==$ndx) { |
451 | $res .= '<strong>' . $i . '</strong> '; |
452 | } else { |
453 | $res .= makeHREF(Array('group' => $group, |
454 | 'first' => $ndx), |
455 | $i, |
456 | $ndx . '-' . min($ndx+$banana->tmax-1,sizeof($banana->spool->overview))) |
457 | . ' '; |
458 | } |
459 | $i++; |
460 | } |
461 | $res .= '</div>'; |
462 | } |
463 | return $res; |
464 | } |
465 | |
466 | function makeTable($text) |
467 | { |
ca52cc4c |
468 | return '<table class="cadre_a_onglet" cellpadding="0" cellspacing="0" width="100%">' |
92f5ea62 |
469 | . '<tr><td>' |
470 | . displayTabs() |
471 | . '</td></tr>' |
472 | . '<tr><td class="conteneur_tab">' |
473 | . $text |
474 | . '</td></tr>' |
475 | . '</table>'; |
476 | } |
477 | |
78cd27b3 |
478 | /******************************************************************************** |
479 | * FORMATTING STUFF : BODY |
480 | */ |
481 | |
2e889b56 |
482 | function autoformat($text) |
9bd35988 |
483 | { |
484 | global $banana; |
485 | $length = $banana->wrap; |
f206493f |
486 | |
2e889b56 |
487 | $cmd = 'echo ' . escapeshellarg($text) |
488 | . ' | perl -MText::Autoformat -e \'autoformat {left=>1, right=>' . $length . ', all=>1 };\''; |
489 | |
9bd35988 |
490 | exec($cmd, $result, $ret); |
491 | if ($ret != 0) { |
ebd93a2d |
492 | $result = split("\n", $text); |
9bd35988 |
493 | } |
494 | return $result; |
495 | } |
496 | |
87514711 |
497 | function wrap($text, $_prefix="", $_force=false) |
78cd27b3 |
498 | { |
499 | $parts = preg_split("/\n-- ?\n/", $text); |
500 | if (count($parts) >1) { |
501 | $sign = "\n-- \n" . array_pop($parts); |
502 | $text = join("\n-- \n", $parts); |
503 | } else { |
504 | $sign = ''; |
78cd27b3 |
505 | } |
2e889b56 |
506 | |
78cd27b3 |
507 | global $banana; |
87514711 |
508 | $url = $banana->url_regexp; |
78cd27b3 |
509 | $length = $banana->wrap; |
87514711 |
510 | $max = $length + ($length/10); |
511 | $splits = split("\n", $text); |
9bd35988 |
512 | $result = array(); |
513 | $next = array(); |
514 | $format = false; |
87514711 |
515 | foreach ($splits as $line) { |
516 | if ($_force || strlen($line) > $max) { |
f206493f |
517 | if (preg_match("!^(.*)($url)(.*)!i", $line, $matches) |
518 | && strlen($matches[2]) > $length && strlen($matches) < 900) { |
9bd35988 |
519 | if (strlen($matches[1]) != 0) { |
520 | array_push($next, rtrim($matches[1])); |
521 | if (strlen($matches[1]) > $max) { |
522 | $format = true; |
523 | } |
524 | } |
525 | |
526 | if ($format) { |
527 | $result = array_merge($result, autoformat(join("\n", $next))); |
528 | } else { |
529 | $result = array_merge($result, $next); |
530 | } |
531 | $format = false; |
532 | $next = array(); |
533 | array_push($result, $matches[2]); |
534 | |
535 | if (strlen($matches[6]) != 0) { |
536 | array_push($next, ltrim($matches[6])); |
537 | if (strlen($matches[6]) > $max) { |
538 | $format = true; |
539 | } |
540 | } |
541 | } else { |
2e889b56 |
542 | array_push($next, $line); |
543 | $format = true; |
87514711 |
544 | } |
9bd35988 |
545 | } else { |
546 | array_push($next, $line); |
87514711 |
547 | } |
548 | } |
9bd35988 |
549 | if ($format) { |
550 | $result = array_merge($result, autoformat(join("\n", $next))); |
551 | } else { |
552 | $result = array_merge($result, $next); |
a4c1ad46 |
553 | } |
78cd27b3 |
554 | |
555 | return $_prefix.join("\n$_prefix", $result).($_prefix ? '' : $sign); |
556 | } |
557 | |
87514711 |
558 | function cutlink($link) |
559 | { |
560 | global $banana; |
561 | |
562 | if (strlen($link) > $banana->wrap) { |
563 | $link = substr($link, 0, $banana->wrap - 3)."..."; |
564 | } |
565 | return $link; |
566 | } |
567 | |
e7241984 |
568 | function cleanurl($url) |
569 | { |
570 | $url = str_replace('@', '%40', $url); |
571 | return '<a href="'.$url.'" title="'.$url.'">'.cutlink($url).'</a>'; |
572 | } |
573 | |
42a46157 |
574 | function catchMailLink($email) |
575 | { |
6cca2dba |
576 | global $banana; |
577 | $mid = '<' . $email . '>'; |
578 | if (isset($banana->spool->ids[$mid])) { |
579 | return makeHREF(Array('group' => $banana->state['group'], |
580 | 'artid' => $banana->spool->ids[$mid]), |
581 | $email); |
582 | } elseif (strpos($email, '$') !== false) { |
42a46157 |
583 | return $email; |
584 | } |
585 | return '<a href="mailto:' . $email . '">' . $email . '</a>'; |
586 | } |
587 | |
2e889b56 |
588 | /** Remove quotation marks |
589 | */ |
590 | function replaceQuotes($text) |
591 | { |
592 | return stripslashes(preg_replace("@(^|<pre>|\n)>[ \t\r]*@i", '\1', $text)); |
593 | } |
594 | |
87514711 |
595 | function formatbody($_text, $format='plain', $flowed=false) |
1f75b135 |
596 | { |
597 | if ($format == 'html') { |
8155c0a5 |
598 | $res = html_entity_decode(to_entities(removeEvilTags($_text))); |
aef14768 |
599 | } else if ($format == 'richtext') { |
8155c0a5 |
600 | $res = html_entity_decode(to_entities(richtextToHtml($_text))); |
1f75b135 |
601 | } else { |
8155c0a5 |
602 | $res = to_entities(wrap($_text, "", $flowed)); |
820ce67b |
603 | $res = formatPlainText($res); |
f6df9eb2 |
604 | } |
1f75b135 |
605 | |
d67abd9d |
606 | if ($format != 'html') { |
607 | global $banana; |
608 | $url = $banana->url_regexp; |
609 | $res = preg_replace("/(<|>|")/", " \\1 ", $res); |
e7241984 |
610 | $res = preg_replace("!$url!ie", "'\\1'.cleanurl('\\2').'\\3'", $res); |
6cca2dba |
611 | $res = preg_replace('/(["\[])?(?:mailto:|news:)?([a-z0-9.\-+_\$]+@([\-.+_]?[a-z0-9])+)(["\]])?/ie', |
612 | "'\\1' . catchMailLink('\\2') . '\\4'", |
42a46157 |
613 | $res); |
d67abd9d |
614 | $res = preg_replace("/ (<|>|") /", "\\1", $res); |
615 | |
616 | if ($format == 'richtext') { |
617 | $format = 'html'; |
618 | } |
619 | } |
87514711 |
620 | |
1f75b135 |
621 | if ($format == 'html') { |
19e26ef7 |
622 | $res = preg_replace("@(</p>)\n?-- ?\n?(<p[^>]*>|<br[^>]*>)@", "\\1<br/>-- \\2", $res); |
623 | $res = preg_replace("@<br[^>]*>\n?-- ?\n?(<p[^>]*>)@", "<br/>-- <br/>\\2", $res); |
624 | $res = preg_replace("@(<pre[^>]*>)\n?-- ?\n@", "<br/>-- <br/>\\1", $res); |
625 | $parts = preg_split("@(:?<p[^>]*>\n?-- ?\n?</p>|<br[^>]*>\n?-- ?\n?<br[^>]*>)@", $res); |
3fdcd11f |
626 | $sign = '<hr style="width: 100%; margin: 1em 0em; " />'; |
11102461 |
627 | } else { |
ebd93a2d |
628 | while (preg_match("@(^|<pre>|\n)>@i", $res)) { |
f0d8d46d |
629 | $res = preg_replace("@(^|<pre>|\n)((>[^\n]*(?:\n|$))+)@ie", |
ebd93a2d |
630 | "'\\1</pre><blockquote><pre>'" |
2e889b56 |
631 | ." . replaceQuotes('\\2')" |
632 | ." . '</pre></blockquote><pre>'", |
f6df9eb2 |
633 | $res); |
cfaab21d |
634 | } |
f6df9eb2 |
635 | $res = preg_replace("@<pre>-- ?\n@", "<pre>\n-- \n", $res); |
11102461 |
636 | $parts = preg_split("/\n-- ?\n/", $res); |
3fdcd11f |
637 | $sign = '</pre><hr style="width: 100%; margin: 1em 0em; " /><pre>'; |
1f75b135 |
638 | } |
639 | |
8155c0a5 |
640 | return join($sign, $parts); |
78cd27b3 |
641 | } |
642 | |
f6df9eb2 |
643 | // vim:set et sw=4 sts=4 ts=4 |
78cd27b3 |
644 | ?> |