From 183851b06bd6c52f3cae5375f433da720d410447 Mon Sep 17 00:00:00 2001
From: Pierre Schmitz <pierre@archlinux.de>
Date: Wed, 11 Oct 2006 18:12:39 +0000
Subject: MediaWiki 1.7.1 wiederhergestellt

---
 includes/SpecialRandompage.php | 58 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 includes/SpecialRandompage.php

(limited to 'includes/SpecialRandompage.php')

diff --git a/includes/SpecialRandompage.php b/includes/SpecialRandompage.php
new file mode 100644
index 00000000..9d38abcb
--- /dev/null
+++ b/includes/SpecialRandompage.php
@@ -0,0 +1,58 @@
+<?php
+/**
+ * @package MediaWiki
+ * @subpackage SpecialPage
+ */
+
+/**
+ * Constructor
+ *
+ * @param $par The namespace to get a random page from (default NS_MAIN),
+ *               used as e.g. Special:Randompage/Category
+ */
+function wfSpecialRandompage( $par = NS_MAIN ) {
+	global $wgOut, $wgExtraRandompageSQL, $wgContLang, $wgLang;
+	$fname = 'wfSpecialRandompage';
+
+	# Determine namespace
+	$t = Title::newFromText ( $par . ":Dummy" ) ;
+	$namespace = $t->getNamespace () ;
+
+	# NOTE! We use a literal constant in the SQL instead of the RAND()
+	# function because RAND() will return a different value for every row
+	# in the table. That's both very slow and returns results heavily
+	# biased towards low values, as rows later in the table will likely
+	# never be reached for comparison.
+	#
+	# Using a literal constant means the whole thing gets optimized on
+	# the index, and the comparison is both fast and fair.
+
+	# interpolation and sprintf() can muck up with locale-specific decimal separator
+	$randstr = wfRandom();
+
+	$db =& wfGetDB( DB_SLAVE );
+	$use_index = $db->useIndexClause( 'page_random' );
+	$page = $db->tableName( 'page' );
+
+	$extra = $wgExtraRandompageSQL ? "AND ($wgExtraRandompageSQL)" : '';
+	$sql = "SELECT page_id,page_title
+		FROM $page $use_index
+		WHERE page_namespace=$namespace AND page_is_redirect=0 $extra
+		AND page_random>$randstr
+		ORDER BY page_random";
+	$sql = $db->limitResult($sql, 1, 0);
+	$res = $db->query( $sql, $fname );
+
+	$title = null;
+	if( $s = $db->fetchObject( $res ) ) {
+		$title =& Title::makeTitle( $namespace, $s->page_title );
+	}
+	if( is_null( $title ) ) {
+		# That's not supposed to happen :)
+		$title = Title::newFromText( wfMsg( 'mainpage' ) );
+	}
+	$wgOut->reportTime(); # for logfile
+	$wgOut->redirect( $title->getFullUrl() );
+}
+
+?>
-- 
cgit v1.2.3-54-g00ecf