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 = $wgRequest->getVal( 'target' );
  17         $limit = $wgRequest->getInt( 'limit', 500 );
  18
  19         if(!empty($par)) {
  20                 $target = $par;
  21         } else if ( is_null( $target ) ) {
  22                 $wgOut->errorpage( 'notargettitle', 'notargettext' );
  23                 return;
  24         }
  25
  26         $nt = Title::newFromURL( $target );
  27         if( !$nt ) {
  28                 $wgOut->errorpage( 'notargettitle', 'notargettext' );
  29                 return;
  30         }
  31         $wgOut->setPagetitle( $nt->getPrefixedText() );
  32         $wgOut->setSubtitle( wfMsg( 'linklistsub' ) );
  33
  34         $id = $nt->getArticleID();
  35         $sk = $wgUser->getSkin();
  36         $isredir = ' (' . wfMsg( 'isredirect' ) . ")\n";
  37
  38         $wgOut->addHTML('&lt; '.$sk->makeKnownLinkObj($nt, '', 'redirect=no' )."<br />\n");
  39         $dbr =& wfGetDB( DB_SLAVE );
  40         extract( $dbr->tableNames( 'page', 'brokenlinks', 'links' ) );
  41
  42         if ( 0 == $id ) {
  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 );
  46
  47                 if ( 0 == $dbr->numRows( $res ) ) {
  48                         $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
  49                 } else {
  50                         $wgOut->addHTML( wfMsg( 'linkshere' ) );
  51                         $wgOut->addHTML( "\n<ul>" );
  52
  53                         while ( $row = $dbr->fetchObject( $res ) ) {
  54                                 $nt = Title::makeTitle( $row->page_namespace, $row->page_title );
  55                                 if( !$nt ) {
  56                                         continue;
  57                                 }
  58                                 $link = $sk->makeKnownLinkObj( $nt, '', 'redirect=no' );
  59                                 $wgOut->addHTML( "<li>{$link}" );
  60
  61                                 if ( $row->page_is_redirect ) {
  62                                         $wgOut->addHTML( $isredir );
  63                                         wfShowIndirectLinks( 1, $row->page_id, $limit );
  64                                 }
  65                                 $wgOut->addHTML( "</li>\n" );
  66                         }
  67                         $wgOut->addHTML( "</ul>\n" );
  68                         $dbr->freeResult( $res );
  69                 }
  70         } else {
  71                 wfShowIndirectLinks( 0, $id, $limit );
  72         }
  73 }
  74
  75 /**
  76  *
  77  */
  78 function wfShowIndirectLinks( $level, $lid, $limit ) {
  79         global $wgOut, $wgUser;
  80         $fname = 'wfShowIndirectLinks';
  81
  82         $dbr =& wfGetDB( DB_READ );
  83         extract( $dbr->tableNames( 'links','page' ) );
  84
  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 );
  87
  88         if ( 0 == $dbr->numRows( $res ) ) {
  89                 if ( 0 == $level ) {
  90                         $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
  91                 }
  92                 return;
  93         }
  94         if ( 0 == $level ) {
  95                 $wgOut->addHTML( wfMsg( 'linkshere' ) );
  96         }
  97         $sk = $wgUser->getSkin();
  98         $isredir = ' (' . wfMsg( 'isredirect' ) . ")\n";
  99
 100         $wgOut->addHTML( '<ul>' );
 101         while ( $row = $dbr->fetchObject( $res ) ) {
 102                 $nt = Title::makeTitle( $row->page_namespace, $row->page_title );
 103                 if( !$nt ) {
 104                         $wgOut->addHTML( '<!-- bad backlink: ' . htmlspecialchars( $row->l_from ) . " -->\n" );
 105                         continue;
 106                 }
 107
 108                 if ( $row->page_is_redirect ) {
 109                         $extra = 'redirect=no';
 110                 } else {
 111                         $extra = '';
 112                 }
 113
 114                 $link = $sk->makeKnownLinkObj( $nt, '', $extra );
 115                 $wgOut->addHTML( '<li>'.$link );
 116
 117                 if ( $row->page_is_redirect ) {
 118                         $wgOut->addHTML( $isredir );
 119                         if ( $level < 2 ) {
 120                                 wfShowIndirectLinks( $level + 1, $row->page_id, $limit );
 121                         }
 122                 }
 123                 $wgOut->addHTML( "</li>\n" );
 124         }
 125         $wgOut->addHTML( "</ul>\n" );
 126 }
 127
 128 ?>