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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
<?php
/**
* @file
* @ingroup SpecialPage
*/
/**
* A special page to show pages ordered by the number of pages linking to them.
* Implements Special:Mostlinked
*
* @ingroup SpecialPage
*
* @author Ævar Arnfjörð Bjarmason <avarab@gmail.com>
* @author Rob Church <robchur@gmail.com>
* @copyright Copyright © 2005, Ævar Arnfjörð Bjarmason
* @copyright © 2006 Rob Church
* @license http://www.gnu.org/copyleft/gpl.html GNU General Public License 2.0 or later
*/
class MostlinkedPage extends QueryPage {
function getName() { return 'Mostlinked'; }
function isExpensive() { return true; }
function isSyndicated() { return false; }
function getSQL() {
global $wgMiserMode;
$dbr = wfGetDB( DB_SLAVE );
# In miser mode, reduce the query cost by adding a threshold for large wikis
if ( $wgMiserMode ) {
$numPages = SiteStats::pages();
if ( $numPages > 10000 ) {
$cutoff = 100;
} elseif ( $numPages > 100 ) {
$cutoff = intval( sqrt( $numPages ) );
} else {
$cutoff = 1;
}
} else {
$cutoff = 1;
}
list( $pagelinks, $page ) = $dbr->tableNamesN( 'pagelinks', 'page' );
return
"SELECT 'Mostlinked' AS type,
pl_namespace AS namespace,
pl_title AS title,
COUNT(*) AS value
FROM $pagelinks
LEFT JOIN $page ON pl_namespace=page_namespace AND pl_title=page_title
GROUP BY pl_namespace, pl_title
HAVING COUNT(*) > $cutoff";
}
/**
* Pre-fill the link cache
*/
function preprocessResults( $db, $res ) {
if( $db->numRows( $res ) > 0 ) {
$linkBatch = new LinkBatch();
while( $row = $db->fetchObject( $res ) )
$linkBatch->add( $row->namespace, $row->title );
$db->dataSeek( $res, 0 );
$linkBatch->execute();
}
}
/**
* Make a link to "what links here" for the specified title
*
* @param $title Title being queried
* @param $caption String: text to display on the link
* @param $skin Skin to use
* @return String
*/
function makeWlhLink( &$title, $caption, &$skin ) {
$wlh = SpecialPage::getTitleFor( 'Whatlinkshere', $title->getPrefixedDBkey() );
return $skin->linkKnown( $wlh, $caption );
}
/**
* Make links to the page corresponding to the item, and the "what links here" page for it
*
* @param $skin Skin to be used
* @param $result Result row
* @return string
*/
function formatResult( $skin, $result ) {
global $wgLang;
$title = Title::makeTitleSafe( $result->namespace, $result->title );
if ( !$title ) {
return '<!-- ' . htmlspecialchars( "Invalid title: [[$title]]" ) . ' -->';
}
$link = $skin->link( $title );
$wlh = $this->makeWlhLink( $title,
wfMsgExt( 'nlinks', array( 'parsemag', 'escape'),
$wgLang->formatNum( $result->value ) ), $skin );
return wfSpecialList( $link, $wlh );
}
}
/**
* constructor
*/
function wfSpecialMostlinked() {
list( $limit, $offset ) = wfCheckLimits();
$wpp = new MostlinkedPage();
$wpp->doQuery( $offset, $limit );
}
|
