blob: 2cd31eb57bba13031af73bc315dc44a3f5c68540 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
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;
$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::newMainPage();
}
$wgOut->reportTime(); # for logfile
$wgOut->redirect( $title->getFullUrl() );
}
?>
|
