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 $limit = $wgRequest->getInt( 'limit', 500 );
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");
39 $dbr =& wfGetDB( DB_SLAVE
);
40 extract( $dbr->tableNames( 'page', 'brokenlinks', 'links' ) );
43 $sql = "SELECT page_id,page_namespace,page_title,page_is_redirect FROM $brokenlinks,$page WHERE bl_to='" .
44 $dbr->strencode( $nt->getPrefixedDBkey() ) . "' AND bl_from=page_id LIMIT $limit";
45 $res = $dbr->query( $sql, $fname );
47 if ( 0 == $dbr->numRows( $res ) ) {
48 $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
50 $wgOut->addHTML( wfMsg( 'linkshere' ) );
51 $wgOut->addHTML( "\n<ul>" );
53 while ( $row = $dbr->fetchObject( $res ) ) {
54 $nt = Title
::makeTitle( $row->page_namespace
, $row->page_title
);
58 $link = $sk->makeKnownLinkObj( $nt, '', 'redirect=no' );
59 $wgOut->addHTML( "<li>{$link}" );
61 if ( $row->page_is_redirect
) {
62 $wgOut->addHTML( $isredir );
63 wfShowIndirectLinks( 1, $row->page_id
, $limit );
65 $wgOut->addHTML( "</li>\n" );
67 $wgOut->addHTML( "</ul>\n" );
68 $dbr->freeResult( $res );
71 wfShowIndirectLinks( 0, $id, $limit );
78 function wfShowIndirectLinks( $level, $lid, $limit ) {
79 global $wgOut, $wgUser;
80 $fname = 'wfShowIndirectLinks';
82 $dbr =& wfGetDB( DB_READ
);
83 extract( $dbr->tableNames( 'links','page' ) );
85 $sql = "SELECT page_id,page_namespace,page_title,page_is_redirect FROM $links,$page WHERE l_to={$lid} AND l_from=page_id LIMIT $limit";
86 $res = $dbr->query( $sql, $fname );
88 if ( 0 == $dbr->numRows( $res ) ) {
90 $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
95 $wgOut->addHTML( wfMsg( 'linkshere' ) );
97 $sk = $wgUser->getSkin();
98 $isredir = ' (' . wfMsg( 'isredirect' ) . ")\n";
100 $wgOut->addHTML( '<ul>' );
101 while ( $row = $dbr->fetchObject( $res ) ) {
102 $nt = Title
::makeTitle( $row->page_namespace
, $row->page_title
);
104 $wgOut->addHTML( '<!-- bad backlink: ' . htmlspecialchars( $row->l_from
) . " -->\n" );
108 if ( $row->page_is_redirect
) {
109 $extra = 'redirect=no';
114 $link = $sk->makeKnownLinkObj( $nt, '', $extra );
115 $wgOut->addHTML( '<li>'.$link );
117 if ( $row->page_is_redirect
) {
118 $wgOut->addHTML( $isredir );
120 wfShowIndirectLinks( $level +
1, $row->page_id
, $limit );
123 $wgOut->addHTML( "</li>\n" );
125 $wgOut->addHTML( "</ul>\n" );