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