From 087bd45c338342e272c7b86051adcbba671702cc Mon Sep 17 00:00:00 2001
From: Tim Starling <tstarling@users.mediawiki.org>
Date: Sat, 15 May 2004 14:15:25 +0000
Subject: [PATCH 1/1] Originally intended as a driver for testing
 wfUtf8ToHTML(), but also serves nicely as a demo for special page modules, or
 as a toy

---
 extensions/UnicodeConverter.php | 47 +++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 extensions/UnicodeConverter.php

diff --git a/extensions/UnicodeConverter.php b/extensions/UnicodeConverter.php
new file mode 100644
index 0000000000..b146db3a9f
--- /dev/null
+++ b/extensions/UnicodeConverter.php
@@ -0,0 +1,47 @@
+<?php
+
+# This is a simple example of a special page module
+# Given a string in UTF-8, it converts it to HTML entities suitable for 
+# an ISO 8859-1 web page.
+
+$wgExtensionFunctions[] = "wfUnicodeConverter";
+
+function wfUnicodeConverter() {
+class UnicodeConverter extends SpecialPage
+{
+	function UnicodeConverter() {
+		SpecialPage::SpecialPage("UnicodeConverter");
+	}
+
+	function execute( $par ) {
+		global $wgRequest, $wgOut, $wgTitle;
+
+		$this->setHeaders();
+
+		$q = $wgRequest->getText( 'q' );
+		$encQ = htmlspecialchars( $q );
+		$action = $wgTitle->getLocalUrl();
+		$ok = wfMsg( "ok" );
+
+		$wgOut->addHTML( "
+<form name=ucf method=post action=\"$action\">
+<textarea rows=15 cols=80 name=q>
+$encQ
+</textarea><br />
+<input type=submit name=submit value=\"$ok\"><br /><br />
+</form>" );
+
+		if ( !is_null( $q ) ) {
+			$html = wfUtf8ToHTML( $q );
+			$wgOut->addHTML( "\n\n\n" . nl2br( $html ) . "\n<hr>\n" .
+			  nl2br( htmlspecialchars( $html ) ) . "\n\n" );
+		}
+	}
+}
+
+global $wgMessageCache;
+SpecialPage::addPage( new UnicodeConverter );
+$wgMessageCache->addMessage( "unicodeconverter", "Unicode Converter" );
+
+} # End of extension function
+?>
-- 
2.20.1