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         list( $limit, $offset ) = $wgRequest->getLimitOffset();
  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
  40         $specialTitle = Title::makeTitle( NS_SPECIAL, 'Whatlinkshere' );
  41         $wgOut->addHTML( wfViewPrevNext( $offset, $limit, $specialTitle, 'target=' . urlencode( $target ) ) );
  42
  43         $dbr =& wfGetDB( DB_SLAVE );
  44         extract( $dbr->tableNames( 'page', 'brokenlinks', 'links' ) );
  45
  46         if ( 0 == $id ) {
  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 );
  51
  52                 if ( 0 == $dbr->numRows( $res ) ) {
  53                         $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
  54                 } else {
  55                         $wgOut->addHTML( wfMsg( 'linkshere' ) );
  56                         $wgOut->addHTML( "\n<ul>" );
  57
  58                         while ( $row = $dbr->fetchObject( $res ) ) {
  59                                 $nt = Title::makeTitle( $row->page_namespace, $row->page_title );
  60                                 if( !$nt ) {
  61                                         continue;
  62                                 }
  63                                 $link = $sk->makeKnownLinkObj( $nt, '', 'redirect=no' );
  64                                 $wgOut->addHTML( "<li>{$link}" );
  65
  66                                 if ( $row->page_is_redirect ) {
  67                                         $wgOut->addHTML( $isredir );
  68                                         wfShowIndirectLinks( 1, $row->page_id, 500 );
  69                                 }
  70                                 $wgOut->addHTML( "</li>\n" );
  71                         }
  72                         $wgOut->addHTML( "</ul>\n" );
  73                         $dbr->freeResult( $res );
  74                 }
  75         } else {
  76                 wfShowIndirectLinks( 0, $id, $limit, $offset );
  77         }
  78         $wgOut->addHTML( wfViewPrevNext( $offset, $limit, $specialTitle, 'target=' . urlencode( $target ) ) );
  79 }
  80
  81 /**
  82  *
  83  */
  84 function wfShowIndirectLinks( $level, $lid, $limit, $offset = 0 ) {
  85         global $wgOut, $wgUser;
  86         $fname = 'wfShowIndirectLinks';
  87
  88         $dbr =& wfGetDB( DB_READ );
  89         extract( $dbr->tableNames( 'links','page' ) );
  90
  91         if ( $level == 0 ) {
  92                 $limitSql = $dbr->limitResult( $limit, $offset );
  93         } else {
  94                 $limitSql = "LIMIT $limit";
  95         }
  96
  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 );
  99
 100         if ( 0 == $dbr->numRows( $res ) ) {
 101                 if ( 0 == $level ) {
 102                         $wgOut->addHTML( wfMsg( 'nolinkshere' ) );
 103                 }
 104                 return;
 105         }
 106         if ( 0 == $level ) {
 107                 $wgOut->addHTML( wfMsg( 'linkshere' ) );
 108         }
 109         $sk = $wgUser->getSkin();
 110         $isredir = ' (' . wfMsg( 'isredirect' ) . ")\n";
 111
 112         $wgOut->addHTML( '<ul>' );
 113         while ( $row = $dbr->fetchObject( $res ) ) {
 114                 $nt = Title::makeTitle( $row->page_namespace, $row->page_title );
 115                 if( !$nt ) {
 116                         $wgOut->addHTML( '<!-- bad backlink: ' . htmlspecialchars( $row->l_from ) . " -->\n" );
 117                         continue;
 118                 }
 119
 120                 if ( $row->page_is_redirect ) {
 121                         $extra = 'redirect=no';
 122                 } else {
 123                         $extra = '';
 124                 }
 125
 126                 $link = $sk->makeKnownLinkObj( $nt, '', $extra );
 127                 $wgOut->addHTML( '<li>'.$link );
 128
 129                 if ( $row->page_is_redirect ) {
 130                         $wgOut->addHTML( $isredir );
 131                         if ( $level < 2 ) {
 132                                 wfShowIndirectLinks( $level + 1, $row->page_id, 500 );
 133                         }
 134                 }
 135                 $wgOut->addHTML( "</li>\n" );
 136         }
 137         $wgOut->addHTML( "</ul>\n" );
 138 }
 139
 140 ?>