127 lines
3.1 KiB
PHP
127 lines
3.1 KiB
PHP
<?php
|
|
/**
|
|
*
|
|
* @package MediaWiki
|
|
* @subpackage SpecialPage
|
|
*/
|
|
|
|
/**
|
|
*
|
|
*/
|
|
function wfSpecialWhatlinkshere($par = NULL) {
|
|
global $wgUser, $wgOut, $wgRequest;
|
|
$fname = "wfSpecialWhatlinkshere";
|
|
|
|
$target = $wgRequest->getVal( 'target' );
|
|
$limit = $wgRequest->getInt( 'limit', 500 );
|
|
|
|
if(!empty($par)) {
|
|
$target = $par;
|
|
} else if ( is_null( $target ) ) {
|
|
$wgOut->errorpage( "notargettitle", "notargettext" );
|
|
return;
|
|
}
|
|
|
|
$nt = Title::newFromURL( $target );
|
|
if( !$nt ) {
|
|
$wgOut->errorpage( "notargettitle", "notargettext" );
|
|
return;
|
|
}
|
|
$wgOut->setPagetitle( $nt->getPrefixedText() );
|
|
$wgOut->setSubtitle( wfMsg( "linklistsub" ) );
|
|
|
|
$id = $nt->getArticleID();
|
|
$sk = $wgUser->getSkin();
|
|
$isredir = " (" . wfMsg( "isredirect" ) . ")\n";
|
|
|
|
$wgOut->addHTML("< ".$sk->makeKnownLinkObj($nt, "", "redirect=no" )."<br />\n");
|
|
$dbr =& wfGetDB( DB_SLAVE );
|
|
extract( $dbr->tableNames( 'cur', 'brokenlinks', 'links' ) );
|
|
|
|
if ( 0 == $id ) {
|
|
$sql = "SELECT cur_id,cur_namespace,cur_title,cur_is_redirect FROM $brokenlinks,$cur WHERE bl_to='" .
|
|
$dbr->strencode( $nt->getPrefixedDBkey() ) . "' AND bl_from=cur_id LIMIT $limit";
|
|
$res = $dbr->query( $sql, $fname );
|
|
|
|
if ( 0 == $dbr->numRows( $res ) ) {
|
|
$wgOut->addHTML( wfMsg( "nolinkshere" ) );
|
|
} else {
|
|
$wgOut->addHTML( wfMsg( "linkshere" ) );
|
|
$wgOut->addHTML( "\n<ul>" );
|
|
|
|
while ( $row = $dbr->fetchObject( $res ) ) {
|
|
$nt = Title::makeTitle( $row->cur_namespace, $row->cur_title );
|
|
if( !$nt ) {
|
|
continue;
|
|
}
|
|
$link = $sk->makeKnownLinkObj( $nt, "", "redirect=no" );
|
|
$wgOut->addHTML( "<li>{$link}" );
|
|
|
|
if ( $row->cur_is_redirect ) {
|
|
$wgOut->addHTML( $isredir );
|
|
wfShowIndirectLinks( 1, $row->cur_id, $limit );
|
|
}
|
|
$wgOut->addHTML( "</li>\n" );
|
|
}
|
|
$wgOut->addHTML( "</ul>\n" );
|
|
$dbr->freeResult( $res );
|
|
}
|
|
} else {
|
|
wfShowIndirectLinks( 0, $id, $limit );
|
|
}
|
|
}
|
|
|
|
/**
|
|
*
|
|
*/
|
|
function wfShowIndirectLinks( $level, $lid, $limit ) {
|
|
global $wgOut, $wgUser;
|
|
$fname = "wfShowIndirectLinks";
|
|
|
|
$dbr =& wfGetDB( DB_READ );
|
|
extract( $dbr->tableNames( 'links','cur' ) );
|
|
|
|
$sql = "SELECT cur_id,cur_namespace,cur_title,cur_is_redirect FROM $links,$cur WHERE l_to={$lid} AND l_from=cur_id LIMIT $limit";
|
|
$res = $dbr->query( $sql, $fname );
|
|
|
|
if ( 0 == $dbr->numRows( $res ) ) {
|
|
if ( 0 == $level ) {
|
|
$wgOut->addHTML( wfMsg( "nolinkshere" ) );
|
|
}
|
|
return;
|
|
}
|
|
if ( 0 == $level ) {
|
|
$wgOut->addHTML( wfMsg( "linkshere" ) );
|
|
}
|
|
$sk = $wgUser->getSkin();
|
|
$isredir = " (" . wfMsg( "isredirect" ) . ")\n";
|
|
|
|
$wgOut->addHTML( "<ul>" );
|
|
while ( $row = $dbr->fetchObject( $res ) ) {
|
|
$nt = Title::makeTitle( $row->cur_namespace, $row->cur_title );
|
|
if( !$nt ) {
|
|
$wgOut->addHTML( "<!-- bad backlink: " . htmlspecialchars( $row->l_from ) . " -->\n" );
|
|
continue;
|
|
}
|
|
|
|
if ( $row->cur_is_redirect ) {
|
|
$extra = "redirect=no";
|
|
} else {
|
|
$extra = "";
|
|
}
|
|
|
|
$link = $sk->makeKnownLinkObj( $nt, "", $extra );
|
|
$wgOut->addHTML( "<li>{$link}" );
|
|
|
|
if ( $row->cur_is_redirect ) {
|
|
$wgOut->addHTML( $isredir );
|
|
if ( $level < 2 ) {
|
|
wfShowIndirectLinks( $level + 1, $row->cur_id, $limit );
|
|
}
|
|
}
|
|
$wgOut->addHTML( "</li>\n" );
|
|
}
|
|
$wgOut->addHTML( "</ul>\n" );
|
|
}
|
|
|
|
?>
|