mod/babel.php

   1 <?php
   2 /**
   3  * @file mod/babel.php
   4  */
   5 use Friendica\Content\Text\Markdown;
   6 use Friendica\Core\L10n;
   7
   8 require_once 'include/bbcode.php';
   9 require_once 'include/bb2diaspora.php';
  10 require_once 'include/html2bbcode.php';
  11 require_once 'include/pgettext.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 (bbcode) 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 (Diaspora) 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($text);
  42                 $o .= '<h2>' . L10n::t('bbcode (raw HTML): ') . '</h2>' . EOL . EOL;
  43                 $o .= htmlspecialchars($html) . EOL . EOL;
  44
  45                 //$html = bbcode($text);
  46                 $o .= '<h2>' . L10n::t('bbcode: ') . '</h2>' . EOL . EOL;
  47                 $o .= $html . EOL . EOL;
  48
  49                 $bbcode = html2bbcode($html);
  50                 $o .= '<h2>' . L10n::t('bbcode => html2bbcode: ') . '</h2>' . EOL . EOL;
  51                 $o .= visible_lf($bbcode) . EOL . EOL;
  52
  53                 $diaspora = bb2diaspora($text);
  54                 $o .= '<h2>' . L10n::t('bb2diaspora: ') . '</h2>' . EOL . EOL;
  55                 $o .= visible_lf($diaspora) . EOL . EOL;
  56
  57                 $html = Markdown::convert($diaspora);
  58                 $o .= '<h2>' . L10n::t('bb2diaspora => Markdown: ') . '</h2>' . EOL . EOL;
  59                 $o .= $html . EOL . EOL;
  60
  61                 $bbcode = diaspora2bb($diaspora);
  62                 $o .= '<h2>' . L10n::t('bb2diaspora => diaspora2bb: ') . '</h2>' . EOL . EOL;
  63                 $o .= visible_lf($bbcode) . EOL . EOL;
  64
  65                 $bbcode = html2bbcode($html);
  66                 $o .= '<h2>' . L10n::t('bbcode => html2bbcode: ') . '</h2>' . EOL . EOL;
  67                 $o .= visible_lf($bbcode) . EOL . EOL;
  68         }
  69
  70         if (x($_REQUEST, 'd2bbtext')) {
  71                 $d2bbtext = trim($_REQUEST['d2bbtext']);
  72                 $o .= '<h2>' . L10n::t('Source input (Diaspora format): ') . '</h2>' . EOL . EOL;
  73                 $o .= '<pre>' . $d2bbtext . '</pre>' . EOL . EOL;
  74
  75                 $bb = diaspora2bb($d2bbtext);
  76                 $o .= '<h2>' . L10n::t('diaspora2bb: ') . '</h2>' . EOL . EOL;
  77                 $o .= '<pre>' . $bb . '</pre>' . EOL . EOL;
  78         }
  79
  80         return $o;
  81 }