]> git.mxchange.org Git - friendica.git/blob - include/bb2diaspora.php
Merge remote-tracking branch 'upstream/master'
[friendica.git] / include / bb2diaspora.php
1 <?php
2
3 require_once("include/oembed.php");
4 require_once("include/event.php");
5 require_once("library/markdown.php");
6 require_once("include/html2bbcode.php");
7 require_once("include/bbcode.php");
8 require_once("include/markdownify/markdownify.php");
9
10
11 // we don't want to support a bbcode specific markdown interpreter
12 // and the markdown library we have is pretty good, but provides HTML output.
13 // So we'll use that to convert to HTML, then convert the HTML back to bbcode,
14 // and then clean up a few Diaspora specific constructs.
15
16 function diaspora2bb($s) {
17
18         // for testing purposes: Collect raw markdown articles
19         // $file = tempnam("/tmp/friendica/", "markdown");
20         // file_put_contents($file, $s);
21
22         $s = html_entity_decode($s,ENT_COMPAT,'UTF-8');
23
24         // Too many new lines. So deactivated the following line
25         // $s = str_replace("\r","\n",$s);
26         // Simply remove cr.
27         $s = str_replace("\r","",$s);
28
29         // <br/> is invalid. Replace it with the valid expression
30         $s = str_replace("<br/>","<br />",$s);
31
32         $s = preg_replace('/\@\{(.+?)\; (.+?)\@(.+?)\}/','@[url=https://$3/u/$2]$1[/url]',$s);
33
34         // Escaping the hash tags - doesn't always seem to work
35         // $s = preg_replace('/\#([^\s\#])/','\\#$1',$s);
36         // This seems to work
37         $s = preg_replace('/\#([^\s\#])/','&#35;$1',$s);
38
39         $s = Markdown($s);
40
41         $s = str_replace('&#35;','#',$s);
42 // we seem to have double linebreaks
43 //      $s = str_replace("\n",'<br />',$s);
44
45         $s = html2bbcode($s);
46 //      $s = str_replace('&#42;','*',$s);
47
48         // protect the recycle symbol from turning into a tag, but without unescaping angles and naked ampersands
49         $s = str_replace('&#x2672;',html_entity_decode('&#x2672;',ENT_QUOTES,'UTF-8'),$s);
50
51         // Convert everything that looks like a link to a link
52         $s = preg_replace("/([^\]\=]|^)(https?\:\/\/)([a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/ism", '$1[url=$2$3]$2$3[/url]',$s);
53
54         //$s = preg_replace("/([^\]\=]|^)(https?\:\/\/)(vimeo|youtu|www\.youtube|soundcloud)([a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/ism", '$1[url=$2$3$4]$2$3$4[/url]',$s);
55         $s = bb_tag_preg_replace("/\[url\=?(.*?)\]https?:\/\/www.youtube.com\/watch\?v\=(.*?)\[\/url\]/ism",'[youtube]$2[/youtube]','url',$s);
56         $s = bb_tag_preg_replace("/\[url\=https?:\/\/www.youtube.com\/watch\?v\=(.*?)\].*?\[\/url\]/ism",'[youtube]$1[/youtube]','url',$s);
57         $s = bb_tag_preg_replace("/\[url\=?(.*?)\]https?:\/\/vimeo.com\/([0-9]+)(.*?)\[\/url\]/ism",'[vimeo]$2[/vimeo]','url',$s);
58         $s = bb_tag_preg_replace("/\[url\=https?:\/\/vimeo.com\/([0-9]+)\](.*?)\[\/url\]/ism",'[vimeo]$1[/vimeo]','url',$s);
59         // remove duplicate adjacent code tags
60         $s = preg_replace("/(\[code\])+(.*?)(\[\/code\])+/ism","[code]$2[/code]", $s);
61
62         // Don't show link to full picture (until it is fixed)
63         $s = scale_external_images($s, false);
64
65         return $s;
66 }
67
68
69 function stripdcode_br_cb($s) {
70         return '[code]' . str_replace('<br />', "\n\t", $s[1]) . '[/code]';
71 }
72
73
74 //////////////////////
75 // The following "diaspora_ul" and "diaspora_ol" are only appropriate for the
76 // pre-Markdownify conversion. If Markdownify isn't used, use the non-Markdownify
77 // versions below
78 //////////////////////
79 /*
80 function diaspora_ul($s) {
81         // Replace "[*]" followed by any number (including zero) of
82         // spaces by "* " to match Diaspora's list format
83         if( strpos($s[0], "[list]") === 0 )
84                 return '<ul class="listbullet" style="list-style-type: circle;">' . preg_replace("/\[\*\]( *)/", "* ", $s[1]) . '</ul>';
85         elseif( strpos($s[0], "[ul]") === 0 )
86                 return '<ul class="listbullet" style="list-style-type: circle;">' . preg_replace("/\[\*\]( *)/", "* ", $s[1]) . '</ul>';
87         else
88                 return $s[0];
89 }
90
91
92 function diaspora_ol($s) {
93         // A hack: Diaspora will create a properly-numbered ordered list even
94         // if you use '1.' for each element of the list, like:
95         //              1. First element
96         //              1. Second element
97         //              1. Third element
98         if( strpos($s[0], "[list=1]") === 0 )
99                 return '<ul class="listdecimal" style="list-style-type: decimal;">' . preg_replace("/\[\*\]( *)/", "1. ", $s[1]) . '</ul>';
100         elseif( strpos($s[0], "[list=i]") === 0 )
101                 return '<ul class="listlowerroman" style="list-style-type: lower-roman;">' . preg_replace("/\[\*\]( *)/", "1. ", $s[1]) . '</ul>';
102         elseif( strpos($s[0], "[list=I]") === 0 )
103                 return '<ul class="listupperroman" style="list-style-type: upper-roman;">' . preg_replace("/\[\*\]( *)/", "1. ", $s[1]) . '</ul>';
104         elseif( strpos($s[0], "[list=a]") === 0 )
105                 return '<ul class="listloweralpha" style="list-style-type: lower-alpha;">' . preg_replace("/\[\*\]( *)/", "1. ", $s[1]) . '</ul>';
106         elseif( strpos($s[0], "[list=A]") === 0 )
107                 return '<ul class="listupperalpha" style="list-style-type: upper-alpha;">' . preg_replace("/\[\*\]( *)/", "1. ", $s[1]) . '</ul>';
108         elseif( strpos($s[0], "[ol]") === 0 )
109                 return '<ul class="listdecimal" style="list-style-type: decimal;">' . preg_replace("/\[\*\]( *)/", "1. ", $s[1]) . '</ul>';
110         else
111                 return $s[0];
112 }
113 */
114
115 //////////////////////
116 // Non-Markdownify versions of "diaspora_ol" and "diaspora_ul"
117 //////////////////////
118 function diaspora_ul($s) {
119         // Replace "[\\*]" followed by any number (including zero) of
120         // spaces by "* " to match Diaspora's list format
121         return preg_replace("/\[\\\\\*\]( *)/", "* ", $s[1]);
122 }
123
124 function diaspora_ol($s) {
125         // A hack: Diaspora will create a properly-numbered ordered list even
126         // if you use '1.' for each element of the list, like:
127         // 1. First element
128         // 1. Second element
129         // 1. Third element
130         return preg_replace("/\[\\\\\*\]( *)/", "1. ", $s[1]);
131 }
132
133
134 function bb2diaspora($Text,$preserve_nl = false, $fordiaspora = true) {
135
136         // Re-enabling the converter again.
137         // The bbcode parser now handles youtube-links (and the other stuff) correctly.
138         // Additionally the html code is now fixed so that lists are now working.
139
140         /**
141          * Transform #tags, strip off the [url] and replace spaces with underscore
142          */
143         $Text = preg_replace_callback('/#\[url\=(\w+.*?)\](\w+.*?)\[\/url\]/i', create_function('$match',
144                 'return \'#\'. str_replace(\' \', \'_\', $match[2]);'
145         ), $Text);
146
147
148         // Converting images with size parameters to simple images. Markdown doesn't know it.
149         $Text = preg_replace("/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/ism", '[img]$3[/img]', $Text);
150
151         // the following was added on 10-January-2012 due to an inability of Diaspora's
152         // new javascript markdown processor to handle links with images as the link "text"
153         // It is not optimal and may be removed if this ability is restored in the future
154         //if ($fordiaspora)
155         //      $Text = preg_replace("/\[url\=([^\[\]]*)\]\s*\[img\](.*?)\[\/img\]\s*\[\/url\]/ism",
156         //                              "[url]$1[/url]\n[img]$2[/img]", $Text);
157
158         // Convert it to HTML - don't try oembed
159         $Text = bbcode($Text, $preserve_nl, false);
160
161         // Now convert HTML to Markdown
162         $md = new Markdownify(false, false, false);
163         $Text = $md->parseString($Text);
164
165         // The Markdownify converter converts underscores '_' in URLs to '\_', which
166         // messes up the URL. Manually fix these
167         $count = 1;
168         $pos = bb_find_open_close($Text, '[', ']', $count);
169         while($pos !== false) {
170                 $start = substr($Text, 0, $pos['start']);
171                 $subject = substr($Text, $pos['start'], $pos['end'] - $pos['start'] + 1);
172                 $end = substr($Text, $pos['end'] + 1);
173
174                 $subject = str_replace('\_', '_', $subject);
175                 $Text = $start . $subject . $end;
176
177                 $count++;
178                 $pos = bb_find_open_close($Text, '[', ']', $count);
179         }       
180
181         // If the text going into bbcode() has a plain URL in it, i.e.
182         // with no [url] tags around it, it will come out of parseString()
183         // looking like: <http://url.com>, which gets removed by strip_tags().
184         // So take off the angle brackets of any such URL
185         $Text = preg_replace("/<http(.*?)>/is", "http$1", $Text);
186
187         // Remove all unconverted tags
188         $Text = strip_tags($Text);
189
190
191 /* Old routine
192
193         $ev = bbtoevent($Text);
194
195         // Replace any html brackets with HTML Entities to prevent executing HTML or script
196         // Don't use strip_tags here because it breaks [url] search by replacing & with amp
197
198         $Text = str_replace("<", "&lt;", $Text);
199         $Text = str_replace(">", "&gt;", $Text);
200
201         // If we find any event code, turn it into an event.
202         // After we're finished processing the bbcode we'll
203         // replace all of the event code with a reformatted version.
204
205         if($preserve_nl)
206                 $Text = str_replace(array("\n","\r"), array('',''),$Text);
207         else
208                 // Remove the "return" character, as Diaspora uses only the "newline"
209                 // character, so having the "return" character can cause signature
210                 // failures
211                 $Text = str_replace("\r", "", $Text);
212
213
214         // Set up the parameters for a URL search string
215         $URLSearchString = "^\[\]";
216         // Set up the parameters for a MAIL search string
217         $MAILSearchString = $URLSearchString;
218
219         // Perform URL Search
220
221         // [img]pathtoimage[/img]
222
223         // the following was added on 10-January-2012 due to an inability of Diaspora's
224         // new javascript markdown processor to handle links with images as the link "text"
225         // It is not optimal and may be removed if this ability is restored in the future
226
227         $Text = preg_replace("/\[url\=([$URLSearchString]*)\]\[img\](.*?)\[\/img\]\[\/url\]/ism",
228                 '![' . t('image/photo') . '](' . '$2' . ')' . "\n" . '[' . t('link') . '](' . '$1' . ')', $Text);
229
230         $Text = preg_replace("/\[bookmark\]([$URLSearchString]*)\[\/bookmark\]/ism", '[$1]($1)', $Text);
231         $Text = preg_replace("/\[bookmark\=([$URLSearchString]*)\](.*?)\[\/bookmark\]/ism", '[$2]($1)', $Text);
232
233         $Text = preg_replace("/\[url\]([$URLSearchString]*)\[\/url\]/ism", '[$1]($1)', $Text);
234         $Text = preg_replace("/\#\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/ism", '[#$2]($1)', $Text);
235         $Text = preg_replace("/\[url\=([$URLSearchString]*)\](.*?)\[\/url\]/ism", '[$2]($1)', $Text);
236
237
238         $Text = preg_replace("/\[img\](.*?)\[\/img\]/", '![' . t('image/photo') . '](' . '$1' . ')', $Text);
239         $Text = preg_replace("/\[img\=(.*?)\](.*?)\[\/img\]/", '![' . t('image/photo') . '](' . '$2' . ')', $Text);
240
241         // Perform MAIL Search
242         $Text = preg_replace("(\[mail\]([$MAILSearchString]*)\[/mail\])", '[$1](mailto:$1)', $Text);
243         $Text = preg_replace("/\[mail\=([$MAILSearchString]*)\](.*?)\[\/mail\]/", '[$2](mailto:$1)', $Text);
244
245         $Text = str_replace('*', '\\*', $Text);
246         $Text = str_replace('_', '\\_', $Text);
247
248         $Text = str_replace('`','\\`', $Text);
249
250         // Check for bold text
251         $Text = preg_replace("(\[b\](.*?)\[\/b\])is",'**$1**',$Text);
252
253         // Check for italics text
254         $Text = preg_replace("(\[i\](.*?)\[\/i\])is",'_$1_',$Text);
255
256         // Check for underline text
257         // Replace with italics since Diaspora doesn't have underline
258         $Text = preg_replace("(\[u\](.*?)\[\/u\])is",'_$1_',$Text);
259
260         // Check for strike-through text
261         $Text = preg_replace("(\[s\](.*?)\[\/s\])is",'**[strike]**$1**[/strike]**',$Text);
262
263         // Check for over-line text
264 //      $Text = preg_replace("(\[o\](.*?)\[\/o\])is",'<span class="overline">$1</span>',$Text);
265
266         // Check for colored text
267         // Remove color since Diaspora doesn't support it
268         $Text = preg_replace("(\[color=(.*?)\](.*?)\[\/color\])is","$2",$Text);
269
270         // Check for sized text
271         // Remove it since Diaspora doesn't support sizes very well
272         $Text = preg_replace("(\[size=(.*?)\](.*?)\[\/size\])is","$2",$Text);
273
274         // Check for list text
275         $endlessloop = 0;
276         while ((((strpos($Text, "[/list]") !== false) && (strpos($Text, "[list") !== false)) ||
277                ((strpos($Text, "[/ol]") !== false) && (strpos($Text, "[ol]") !== false)) || 
278                ((strpos($Text, "[/ul]") !== false) && (strpos($Text, "[ul]") !== false)) || 
279                ((strpos($Text, "[/li]") !== false) && (strpos($Text, "[li]") !== false))) && (++$endlessloop < 20)) {
280                 $Text = preg_replace_callback("/\[list\](.*?)\[\/list\]/is", 'diaspora_ul', $Text);
281                 $Text = preg_replace_callback("/\[list=1\](.*?)\[\/list\]/is", 'diaspora_ol', $Text);
282                 $Text = preg_replace_callback("/\[list=i\](.*?)\[\/list\]/s",'diaspora_ol', $Text);
283                 $Text = preg_replace_callback("/\[list=I\](.*?)\[\/list\]/s", 'diaspora_ol', $Text);
284                 $Text = preg_replace_callback("/\[list=a\](.*?)\[\/list\]/s", 'diaspora_ol', $Text);
285                 $Text = preg_replace_callback("/\[list=A\](.*?)\[\/list\]/s", 'diaspora_ol', $Text);
286                 $Text = preg_replace_callback("/\[ul\](.*?)\[\/ul\]/is", 'diaspora_ul', $Text);
287                 $Text = preg_replace_callback("/\[ol\](.*?)\[\/ol\]/is", 'diaspora_ol', $Text);
288                 $Text = preg_replace("/\[li\]( *)(.*?)\[\/li\]/s", '* $2' ,$Text);
289         }
290
291         // Just get rid of table tags since Diaspora doesn't support tables
292         $Text = preg_replace("/\[th\](.*?)\[\/th\]/s", '$1' ,$Text);
293         $Text = preg_replace("/\[td\](.*?)\[\/td\]/s", '$1' ,$Text);
294         $Text = preg_replace("/\[tr\](.*?)\[\/tr\]/s", '$1' ,$Text);
295         $Text = preg_replace("/\[table\](.*?)\[\/table\]/s", '$1' ,$Text);
296
297         $Text = preg_replace("/\[table border=(.*?)\](.*?)\[\/table\]/s", '$2' ,$Text);
298 //      $Text = preg_replace("/\[table border=0\](.*?)\[\/table\]/s", '<table border="0" >$1</table>' ,$Text);
299
300
301 //      $Text = str_replace("[*]", "<li>", $Text);
302
303         // Check for font change text
304 //      $Text = preg_replace("(\[font=(.*?)\](.*?)\[\/font\])","<span style=\"font-family: $1;\">$2</span>",$Text);
305
306
307         $Text = preg_replace_callback("/\[code\](.*?)\[\/code\]/is",'stripdcode_br_cb',$Text);
308
309         // Check for [code] text
310         $Text = preg_replace("/(\[code\])+(.*?)(\[\/code\])+/is","\t$2\n", $Text);
311
312
313
314
315         // Declare the format for [quote] layout
316         //      $QuoteLayout = '<blockquote>$1</blockquote>';
317         // Check for [quote] text
318         $Text = preg_replace("/\[quote\](.*?)\[\/quote\]/is",">$1\n\n", $Text);
319         $Text = preg_replace("/\[quote=(.*?)\](.*?)\[\/quote\]/is",">$2\n\n", $Text);
320
321         // Images
322
323         // html5 video and audio
324
325         $Text = preg_replace("/\[video\](.*?)\[\/video\]/", '$1', $Text);
326
327         $Text = preg_replace("/\[audio\](.*?)\[\/audio\]/", '$1', $Text);
328
329 //      $Text = preg_replace("/\[iframe\](.*?)\[\/iframe\]/", '<iframe src="$1" width="425" height="350"><a href="$1">$1</a></iframe>', $Text);
330
331         // [img=widthxheight]image source[/img]
332 //      $Text = preg_replace("/\[img\=([0-9]*)x([0-9]*)\](.*?)\[\/img\]/", '<img src="$3" style="height:{$2}px; width:{$1}px;" >', $Text);
333
334         $Text = preg_replace("/\[youtube\]https?:\/\/www.youtube.com\/watch\?v\=(.*?)\[\/youtube\]/ism",'http://www.youtube.com/watch?v=$1',$Text); 
335         $Text = preg_replace("/\[youtube\]https?:\/\/www.youtube.com\/embed\/(.*?)\[\/youtube\]/ism",'http://www.youtube.com/watch?v=$1',$Text); 
336         $Text = preg_replace("/\[youtube\]https?:\/\/youtu.be\/(.*?)\[\/youtube\]/ism",'http://www.youtube.com/watch?v=$1',$Text); 
337         $Text = preg_replace("/\[youtube\]([A-Za-z0-9\-_=]+)(.*?)\[\/youtube\]/ism", 'http://www.youtube.com/watch?v=$1', $Text);
338
339         $Text = preg_replace("/\[vimeo\]https?:\/\/player.vimeo.com\/video\/([0-9]+)(.*?)\[\/vimeo\]/ism",'http://vimeo.com/$1',$Text); 
340         $Text = preg_replace("/\[vimeo\]https?:\/\/vimeo.com\/([0-9]+)(.*?)\[\/vimeo\]/ism",'http://vimeo.com/$1',$Text); 
341         $Text = preg_replace("/\[vimeo\]([0-9]+)(.*?)\[\/vimeo\]/ism", 'http://vimeo.com/$1',$Text);
342
343
344         $Text = str_replace('[nosmile]','',$Text);
345
346         // oembed tag
347         //      $Text = oembed_bbcode2html($Text);
348
349         // If we found an event earlier, strip out all the event code and replace with a reformatted version.
350
351         if(x($ev,'start')) {
352
353                 $sub = format_event_diaspora($ev);
354
355                 $Text = preg_replace("/\[event\-summary\](.*?)\[\/event\-summary\]/is",'',$Text);
356                 $Text = preg_replace("/\[event\-description\](.*?)\[\/event\-description\]/is",'',$Text);
357                 $Text = preg_replace("/\[event\-start\](.*?)\[\/event\-start\]/is",$sub,$Text);
358                 $Text = preg_replace("/\[event\-finish\](.*?)\[\/event\-finish\]/is",'',$Text);
359                 $Text = preg_replace("/\[event\-location\](.*?)\[\/event\-location\]/is",'',$Text);
360                 $Text = preg_replace("/\[event\-adjust\](.*?)\[\/event\-adjust\]/is",'',$Text);
361         }
362
363         $Text = preg_replace("/\<(.*?)(src|href)=(.*?)\&amp\;(.*?)\>/ism",'<$1$2=$3&$4>',$Text);
364
365         $Text = preg_replace_callback('/\[(.*?)\]\((.*?)\)/ism','unescape_underscores_in_links',$Text);
366
367 */
368
369         // Remove any leading or trailing whitespace, as this will mess up
370         // the Diaspora signature verification and cause the item to disappear
371         $Text = trim($Text);
372
373         call_hooks('bb2diaspora',$Text);
374
375         return $Text;
376 }
377
378 function unescape_underscores_in_links($m) {
379         $y = str_replace('\\_','_', $m[2]);
380         return('[' . $m[1] . '](' . $y . ')');
381 }
382
383 function format_event_diaspora($ev) {
384
385         $a = get_app();
386
387         if(! ((is_array($ev)) && count($ev)))
388                 return '';
389
390         $bd_format = t('l F d, Y \@ g:i A') ; // Friday January 18, 2011 @ 8 AM
391
392         $o = 'Friendica event notification:' . "\n";
393
394         $o .= '**' . (($ev['summary']) ? bb2diaspora($ev['summary']) : bb2diaspora($ev['desc'])) .  '**' . "\n";
395
396         $o .= t('Starts:') . ' ' . '['
397                 . (($ev['adjust']) ? day_translate(datetime_convert('UTC', 'UTC', 
398                         $ev['start'] , $bd_format ))
399                         :  day_translate(datetime_convert('UTC', 'UTC', 
400                         $ev['start'] , $bd_format)))
401                 .  '](' . $a->get_baseurl() . '/localtime/?f=&time=' . urlencode(datetime_convert('UTC','UTC',$ev['start'])) . ")\n";
402
403         if(! $ev['nofinish'])
404                 $o .= t('Finishes:') . ' ' . '[' 
405                         . (($ev['adjust']) ? day_translate(datetime_convert('UTC', 'UTC', 
406                                 $ev['finish'] , $bd_format ))
407                                 :  day_translate(datetime_convert('UTC', 'UTC', 
408                                 $ev['finish'] , $bd_format )))
409                         . '](' . $a->get_baseurl() . '/localtime/?f=&time=' . urlencode(datetime_convert('UTC','UTC',$ev['finish'])) . ")\n";
410
411         if(strlen($ev['location']))
412                 $o .= t('Location:') . bb2diaspora($ev['location']) 
413                         . "\n";
414
415         $o .= "\n";
416         return $o;
417 }