* links and brokenlinks tables merged to pagelinks; this will reduce pain
[lhc/web/wiklou.git] / includes / SpecialWhatlinkshere.php
1 <?php
2 /**
3 *
4 * @package MediaWiki
5 * @subpackage SpecialPage
6 */
7
8 /**
9 * Entry point
10 * @param string $par An article name ??
11 */
12 function wfSpecialWhatlinkshere($par = NULL) {
13 global $wgUser, $wgOut, $wgRequest;
14 $fname = 'wfSpecialWhatlinkshere';
15
16 $target = isset($par) ? $par : $wgRequest->getVal( 'target' );
17 list( $limit, $offset ) = $wgRequest->getLimitOffset();
18
19 if (is_null($target)) {
20 $wgOut->errorpage( 'notargettitle', 'notargettext' );
21 return;
22 }
23
24 $nt = Title::newFromURL( $target );
25 if( !$nt ) {
26 $wgOut->errorpage( 'notargettitle', 'notargettext' );
27 return;
28 }
29 $wgOut->setPagetitle( $nt->getPrefixedText() );
30 $wgOut->setSubtitle( wfMsg( 'linklistsub' ) );
31
32 $sk = $wgUser->getSkin();
33 $isredir = ' (' . wfMsg( 'isredirect' ) . ")\n";
34
35 $wgOut->addHTML('&lt; '.$sk->makeKnownLinkObj($nt, '', 'redirect=no' )."<br />\n");
36
37 $specialTitle = Title::makeTitle( NS_SPECIAL, 'Whatlinkshere' );
38 $wgOut->addHTML( wfViewPrevNext( $offset, $limit, $specialTitle, 'target=' . urlencode( $target ) ) );
39
40 wfShowIndirectLinks( 0, $nt, $limit, $offset );
41 $wgOut->addHTML( wfViewPrevNext( $offset, $limit, $specialTitle, 'target=' . urlencode( $target ) ) );
42 }
43
44 /**
45 * @param int $level
46 * @param Title $target
47 * @param int $limit
48 * @param int $offset
49 * @access private
50 */
51 function wfShowIndirectLinks( $level, $target, $limit, $offset = 0 ) {
52 global $wgOut, $wgUser;
53 $fname = 'wfShowIndirectLinks';
54
55 $dbr =& wfGetDB( DB_READ );
56
57 if ( $level == 0 ) {
58 $limitSql = $dbr->limitResult( $limit, $offset );
59 } else {
60 $limitSql = "LIMIT $limit";
61 }
62
63 $res = $dbr->select( array( 'pagelinks', 'page' ),
64 array( 'page_id', 'page_namespace', 'page_title', 'page_is_redirect' ),
65 array(
66 'pl_from=page_id',
67 'pl_namespace' => $target->getNamespace(),
68 'pl_title' => $target->getDbKey() ),
69 $fname,
70 $limitSql );
71
72 if ( 0 == $dbr->numRows( $res ) ) {
73 if ( 0 == $level ) {
74 $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
75 }
76 return;
77 }
78 if ( 0 == $level ) {
79 $wgOut->addHTML( wfMsg( 'linkshere' ) );
80 }
81 $sk = $wgUser->getSkin();
82 $isredir = ' (' . wfMsg( 'isredirect' ) . ")\n";
83
84 $wgOut->addHTML( '<ul>' );
85 while ( $row = $dbr->fetchObject( $res ) ) {
86 $nt = Title::makeTitle( $row->page_namespace, $row->page_title );
87
88 if ( $row->page_is_redirect ) {
89 $extra = 'redirect=no';
90 } else {
91 $extra = '';
92 }
93
94 $link = $sk->makeKnownLinkObj( $nt, '', $extra );
95 $wgOut->addHTML( '<li>'.$link );
96
97 if ( $row->page_is_redirect ) {
98 $wgOut->addHTML( $isredir );
99 if ( $level < 2 ) {
100 wfShowIndirectLinks( $level + 1, $nt, 500 );
101 }
102 }
103 $wgOut->addHTML( "</li>\n" );
104 }
105 $wgOut->addHTML( "</ul>\n" );
106 }
107
108 ?>