5 * @subpackage SpecialPage
10 * @param string $par An article name ??
12 function wfSpecialWhatlinkshere($par = NULL) {
13 global $wgUser, $wgOut, $wgRequest;
14 $fname = 'wfSpecialWhatlinkshere';
16 $target = $wgRequest->getVal( 'target' );
17 list( $limit, $offset ) = $wgRequest->getLimitOffset();
21 } else if ( is_null( $target ) ) {
22 $wgOut->errorpage( 'notargettitle', 'notargettext' );
26 $nt = Title
::newFromURL( $target );
28 $wgOut->errorpage( 'notargettitle', 'notargettext' );
31 $wgOut->setPagetitle( $nt->getPrefixedText() );
32 $wgOut->setSubtitle( wfMsg( 'linklistsub' ) );
34 $id = $nt->getArticleID();
35 $sk = $wgUser->getSkin();
36 $isredir = ' (' . wfMsg( 'isredirect' ) . ")\n";
38 $wgOut->addHTML('< '.$sk->makeKnownLinkObj($nt, '', 'redirect=no' )."<br />\n");
40 $specialTitle = Title
::makeTitle( NS_SPECIAL
, 'Whatlinkshere' );
41 $wgOut->addHTML( wfViewPrevNext( $offset, $limit, $specialTitle, 'target=' . urlencode( $target ) ) );
43 $dbr =& wfGetDB( DB_SLAVE
);
44 extract( $dbr->tableNames( 'page', 'brokenlinks', 'links' ) );
47 print $dbr->limitResult( $limit, $offset );
50 $sql = "SELECT page_id,page_namespace,page_title,page_is_redirect FROM $brokenlinks,$page WHERE bl_to='" .
51 $dbr->strencode( $nt->getPrefixedDBkey() ) . "' AND bl_from=page_id " .
52 $dbr->limitResult( $limit, $offset );
53 $res = $dbr->query( $sql, $fname );
55 if ( 0 == $dbr->numRows( $res ) ) {
56 $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
58 $wgOut->addHTML( wfMsg( 'linkshere' ) );
59 $wgOut->addHTML( "\n<ul>" );
61 while ( $row = $dbr->fetchObject( $res ) ) {
62 $nt = Title
::makeTitle( $row->page_namespace
, $row->page_title
);
66 $link = $sk->makeKnownLinkObj( $nt, '', 'redirect=no' );
67 $wgOut->addHTML( "<li>{$link}" );
69 if ( $row->page_is_redirect
) {
70 $wgOut->addHTML( $isredir );
71 wfShowIndirectLinks( 1, $row->page_id
, 500 );
73 $wgOut->addHTML( "</li>\n" );
75 $wgOut->addHTML( "</ul>\n" );
76 $dbr->freeResult( $res );
79 wfShowIndirectLinks( 0, $id, $limit, $offset );
81 $wgOut->addHTML( wfViewPrevNext( $offset, $limit, $specialTitle, 'target=' . urlencode( $target ) ) );
87 function wfShowIndirectLinks( $level, $lid, $limit, $offset = 0 ) {
88 global $wgOut, $wgUser;
89 $fname = 'wfShowIndirectLinks';
91 $dbr =& wfGetDB( DB_READ
);
92 extract( $dbr->tableNames( 'links','page' ) );
95 $limitSql = $dbr->limitResult( $limit, $offset );
97 $limitSql = "LIMIT $limit";
100 $sql = "SELECT page_id,page_namespace,page_title,page_is_redirect FROM $links,$page WHERE l_to={$lid} AND l_from=page_id $limitSql";
101 $res = $dbr->query( $sql, $fname );
103 if ( 0 == $dbr->numRows( $res ) ) {
105 $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
110 $wgOut->addHTML( wfMsg( 'linkshere' ) );
112 $sk = $wgUser->getSkin();
113 $isredir = ' (' . wfMsg( 'isredirect' ) . ")\n";
115 $wgOut->addHTML( '<ul>' );
116 while ( $row = $dbr->fetchObject( $res ) ) {
117 $nt = Title
::makeTitle( $row->page_namespace
, $row->page_title
);
119 $wgOut->addHTML( '<!-- bad backlink: ' . htmlspecialchars( $row->l_from
) . " -->\n" );
123 if ( $row->page_is_redirect
) {
124 $extra = 'redirect=no';
129 $link = $sk->makeKnownLinkObj( $nt, '', $extra );
130 $wgOut->addHTML( '<li>'.$link );
132 if ( $row->page_is_redirect
) {
133 $wgOut->addHTML( $isredir );
135 wfShowIndirectLinks( $level +
1, $row->page_id
, 500 );
138 $wgOut->addHTML( "</li>\n" );
140 $wgOut->addHTML( "</ul>\n" );