mod/babel.php

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