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 $sql = "SELECT page_id,page_namespace,page_title,page_is_redirect FROM $brokenlinks,$page WHERE bl_to='" .
48 $dbr->strencode( $nt->getPrefixedDBkey() ) . "' AND bl_from=page_id " .
49 $dbr->limitResult( $limit, $offset );
50 $res = $dbr->query( $sql, $fname );
52 if ( 0 == $dbr->numRows( $res ) ) {
53 $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
55 $wgOut->addHTML( wfMsg( 'linkshere' ) );
56 $wgOut->addHTML( "\n<ul>" );
58 while ( $row = $dbr->fetchObject( $res ) ) {
59 $nt = Title
::makeTitle( $row->page_namespace
, $row->page_title
);
63 $link = $sk->makeKnownLinkObj( $nt, '', 'redirect=no' );
64 $wgOut->addHTML( "<li>{$link}" );
66 if ( $row->page_is_redirect
) {
67 $wgOut->addHTML( $isredir );
68 wfShowIndirectLinks( 1, $row->page_id
, 500 );
70 $wgOut->addHTML( "</li>\n" );
72 $wgOut->addHTML( "</ul>\n" );
73 $dbr->freeResult( $res );
76 wfShowIndirectLinks( 0, $id, $limit, $offset );
78 $wgOut->addHTML( wfViewPrevNext( $offset, $limit, $specialTitle, 'target=' . urlencode( $target ) ) );
84 function wfShowIndirectLinks( $level, $lid, $limit, $offset = 0 ) {
85 global $wgOut, $wgUser;
86 $fname = 'wfShowIndirectLinks';
88 $dbr =& wfGetDB( DB_READ
);
89 extract( $dbr->tableNames( 'links','page' ) );
92 $limitSql = $dbr->limitResult( $limit, $offset );
94 $limitSql = "LIMIT $limit";
97 $sql = "SELECT page_id,page_namespace,page_title,page_is_redirect FROM $links,$page WHERE l_to={$lid} AND l_from=page_id $limitSql";
98 $res = $dbr->query( $sql, $fname );
100 if ( 0 == $dbr->numRows( $res ) ) {
102 $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
107 $wgOut->addHTML( wfMsg( 'linkshere' ) );
109 $sk = $wgUser->getSkin();
110 $isredir = ' (' . wfMsg( 'isredirect' ) . ")\n";
112 $wgOut->addHTML( '<ul>' );
113 while ( $row = $dbr->fetchObject( $res ) ) {
114 $nt = Title
::makeTitle( $row->page_namespace
, $row->page_title
);
116 $wgOut->addHTML( '<!-- bad backlink: ' . htmlspecialchars( $row->l_from
) . " -->\n" );
120 if ( $row->page_is_redirect
) {
121 $extra = 'redirect=no';
126 $link = $sk->makeKnownLinkObj( $nt, '', $extra );
127 $wgOut->addHTML( '<li>'.$link );
129 if ( $row->page_is_redirect
) {
130 $wgOut->addHTML( $isredir );
132 wfShowIndirectLinks( $level +
1, $row->page_id
, 500 );
135 $wgOut->addHTML( "</li>\n" );
137 $wgOut->addHTML( "</ul>\n" );