"babel" diagnostic - convert bbcode to different formats and back again

diff --git a/mod/babel.php b/mod/babel.php
new file mode 100644 (file)
index 0000000..9d87b47
--- /dev/null
+++ b/mod/babel.php
@@ -0,0 +1,56 @@
+<?php
+
+require_once('include/bbcode.php');
+require_once('library/markdown.php');
+require_once('include/bb2diaspora.php');
+require_once('include/html2bbcode.php');
+
+function visible_lf($s) {
+       return str_replace("\n",'<br />', $s);
+}
+
+function babel_content(&$a) {
+
+       $o .= '<h3>Babel Diagnostic</h3>';
+
+       $o .= '<form action="babel" method="post">';
+       $o .= t('Source (bbcode) text:') . EOL . '<textarea name="text" >' . htmlspecialchars($_REQUEST['text']) .'</textarea>' . EOL;
+       $o .= '<input type="submit" name="submit" value="Submit" /></form>'; 
+
+       $o .= '<br /><br />';
+
+       if(x($_REQUEST,'text')) {
+
+               $text = trim($_REQUEST['text']);
+               $o .= t("Source input: ") . EOL. EOL; 
+               $o .= visible_lf($text) . EOL. EOL; 
+
+               $html = bbcode($text);
+               $o .= t("bb2html: ") . EOL. EOL; 
+               $o .= $html. EOL. EOL; 
+
+               $bbcode = html2bbcode($html);
+               $o .= t("bb2html2bb: ") . EOL. EOL; 
+               $o .= visible_lf($bbcode) . EOL. EOL; 
+
+               $diaspora = bb2diaspora($text);
+               $o .= t("bb2md: ") . EOL. EOL; 
+               $o .= visible_lf($diaspora) . EOL. EOL; 
+
+               $html = Markdown($diaspora);
+               $o .= t("bb2md2html: ") . EOL. EOL; 
+               $o .= $html. EOL. EOL; 
+
+               $bbcode = diaspora2bb($diaspora);
+               $o .= t("bb2dia2bb: ") . EOL. EOL; 
+               $o .= $bbcode . EOL. EOL; 
+
+               $bbcode = html2bbcode($html);
+               $o .= t("bb2md2html2bb: ") . EOL. EOL; 
+               $o .= $bbcode . EOL. EOL; 
+
+
+
+       }
+       return $o;
+}