1 files changed, 56 insertions, 0 deletions
diff --git a/mod/babel.php b/mod/babel.php
new file mode 100644
index 000000000..9d87b47f0
--- /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;
+}