]> git.mxchange.org Git - friendica.git/blob - mod/babel.php
Use network paging
[friendica.git] / mod / babel.php
1 <?php
2
3 use Friendica\App;
4
5 require_once 'include/bbcode.php';
6 require_once 'library/markdown.php';
7 require_once 'include/bb2diaspora.php';
8 require_once 'include/html2bbcode.php';
9
10 function visible_lf($s) {
11         return str_replace("\n", '<br />', $s);
12 }
13
14 function babel_content(App $a) {
15         $o .= '<h1>Babel Diagnostic</h1>';
16
17         $o .= '<form action="babel" method="post">';
18         $o .= t('Source (bbcode) text:') . EOL;
19         $o .= '<textarea name="text" cols="80" rows="10">' . htmlspecialchars($_REQUEST['text']) .'</textarea>' . EOL;
20         $o .= '<input type="submit" name="submit" value="Submit" /></form>';
21
22         $o .= '<br /><br />';
23
24         $o .= '<form action="babel" method="post">';
25         $o .= t('Source (Diaspora) text to convert to BBcode:') . EOL;
26         $o .= '<textarea name="d2bbtext" cols="80" rows="10">' . htmlspecialchars($_REQUEST['d2bbtext']) .'</textarea>' . EOL;
27         $o .= '<input type="submit" name="submit" value="Submit" /></form>';
28
29         $o .= '<br /><br />';
30
31         if (x($_REQUEST, 'text')) {
32                 $text = trim($_REQUEST['text']);
33                 $o .= '<h2>' . t('Source input: ') . '</h2>' . EOL. EOL;
34                 $o .= visible_lf($text) . EOL. EOL;
35
36                 $html = bbcode($text);
37                 $o .= '<h2>' . t('bb2html (raw HTML): ') . '</h2>' . EOL. EOL;
38                 $o .= htmlspecialchars($html). EOL. EOL;
39
40                 //$html = bbcode($text);
41                 $o .= '<h2>' . t('bb2html: ') . '</h2>' . EOL. EOL;
42                 $o .= $html. EOL. EOL;
43
44                 $bbcode = html2bbcode($html);
45                 $o .= '<h2>' . t('bb2html2bb: ') . '</h2>' . EOL. EOL;
46                 $o .= visible_lf($bbcode) . EOL. EOL;
47
48                 $diaspora = bb2diaspora($text);
49                 $o .= '<h2>' . t('bb2md: ') . '</h2>' . EOL. EOL;
50                 $o .= visible_lf($diaspora) . EOL. EOL;
51
52                 $html = Markdown($diaspora);
53                 $o .= '<h2>' . t('bb2md2html: ') . '</h2>' . EOL. EOL;
54                 $o .= $html. EOL. EOL;
55
56                 $bbcode = diaspora2bb($diaspora);
57                 $o .= '<h2>' . t('bb2dia2bb: ') . '</h2>' . EOL. EOL;
58                 $o .= visible_lf($bbcode) . EOL. EOL;
59
60                 $bbcode = html2bbcode($html);
61                 $o .= '<h2>' . t('bb2md2html2bb: ') . '</h2>' . EOL. EOL;
62                 $o .= visible_lf($bbcode) . EOL. EOL;
63         }
64
65         if (x($_REQUEST, 'd2bbtext')) {
66                 $d2bbtext = trim($_REQUEST['d2bbtext']);
67                 $o .= '<h2>' . t('Source input (Diaspora format): ') . '</h2>' . EOL. EOL;
68                 $o .= '<pre>' . $d2bbtext . '</pre>' . EOL. EOL;
69
70                 $bb = diaspora2bb($d2bbtext);
71                 $o .= '<h2>' . t('diaspora2bb: ') . '</h2>' . EOL. EOL;
72                 $o .= '<pre>' . $bb . '</pre>' . EOL. EOL;
73         }
74
75         return $o;
76 }