From 7568f63d1a9af35916c9526114116266d9b95be1 Mon Sep 17 00:00:00 2001
From: Tim Starling <tstarling@users.mediawiki.org>
Date: Sun, 26 Sep 2004 06:45:30 +0000
Subject: [PATCH] Extensions for testing and debugging

---
 extensions/MakeDBError.php      | 25 +++++++++++++++++++
 extensions/ShowProcesslist.php  | 44 +++++++++++++++++++++++++++++++++
 extensions/UnicodeConverter.php |  3 +++
 3 files changed, 72 insertions(+)
 create mode 100644 extensions/MakeDBError.php
 create mode 100644 extensions/ShowProcesslist.php

diff --git a/extensions/MakeDBError.php b/extensions/MakeDBError.php
new file mode 100644
index 0000000000..b6bb589c73
--- /dev/null
+++ b/extensions/MakeDBError.php
@@ -0,0 +1,25 @@
+<?php
+
+$wgExtensionFunctions[] = "wfMakeDBErrorExt";
+
+function wfMakeDBErrorExt() {
+
+require_once( "SpecialPage.php" );
+
+class MakeDBErrorPage extends UnlistedSpecialPage
+{
+	function MakeDBErrorPage() {
+		UnlistedSpecialPage::UnlistedSpecialPage("MakeDBError");
+	}
+
+	function execute( $par ) {
+		$this->setHeaders();
+		wfQuery( "test", DB_READ );
+	}
+}
+
+SpecialPage::addPage( new MakeDBErrorPage );
+
+} # End of extension function
+
+?>
diff --git a/extensions/ShowProcesslist.php b/extensions/ShowProcesslist.php
new file mode 100644
index 0000000000..14f7d6e0da
--- /dev/null
+++ b/extensions/ShowProcesslist.php
@@ -0,0 +1,44 @@
+<?php
+
+$wgExtensionFunctions[] = "wfShowProcesslist";
+
+function wfShowProcesslist() {
+
+require_once( 'SpecialPage.php' );
+
+class ShowProcesslistPage extends UnlistedSpecialPage
+{
+	function ShowProcesslistPage() {
+		UnlistedSpecialPage::UnlistedSpecialPage("ShowProcesslist");
+	}
+
+	function execute( $par ) {
+		global $wgRequest, $wgOut, $wgTitle, $wgUser;
+		
+		$this->setHeaders();
+		if ( !$wgUser->isDeveloper() ) {
+			$wgOut->addWikiText( "You're not allowed, go away" );
+			return;
+		}
+
+		$res=wfQuery("SHOW FULL PROCESSLIST",DB_READ);
+		$output=array();
+		$output = "<table border=1>";
+		while ( $row=wfFetchObject($res)){
+			$output .= "<tr>";
+			$fields = get_object_vars($row);
+			foreach ($fields as $name => $value ) {
+				$output .= "<td>" . htmlspecialchars( $value ) . "</td>";
+			}
+			$output .= "</tr>";
+		}
+		$output .= "</table>";
+		$wgOut->addHTML( $output );
+
+	}
+}
+
+SpecialPage::addPage( new ShowProcesslistPage );
+
+} # End of extension function
+?>
diff --git a/extensions/UnicodeConverter.php b/extensions/UnicodeConverter.php
index b146db3a9f..44cc70609e 100644
--- a/extensions/UnicodeConverter.php
+++ b/extensions/UnicodeConverter.php
@@ -7,6 +7,9 @@
 $wgExtensionFunctions[] = "wfUnicodeConverter";
 
 function wfUnicodeConverter() {
+
+require_once( "SpecialPage.php" );
+
 class UnicodeConverter extends SpecialPage
 {
 	function UnicodeConverter() {
-- 
2.20.1