includes/SpecialShortpages.php

   1 <?
   2
   3 function wfSpecialShortpages()
   4 {
   5         global $wgUser, $wgOut, $wgLang, $wgTitle;
   6         global $limit, $offset; # From query string
   7         $fname = "wfSpecialShortpages";
   8
   9         global $wgMiserMode;
  10         if ( $wgMiserMode ) {
  11                 $wgOut->addWikiText( wfMsg( "perfdisabled" ) );
  12                 return;
  13         }
  14
  15         if ( ! $limit ) {
  16                 $limit = $wgUser->getOption( "rclimit" );
  17                 if ( ! $limit ) { $limit = 50; }
  18         }
  19         if ( ! $offset ) { $offset = 0; }
  20
  21         $sql = "SELECT cur_title, LENGTH(cur_text) AS len FROM cur " .
  22           "WHERE cur_namespace=0 AND cur_is_redirect=0 ORDER BY " .
  23           "LENGTH(cur_text) LIMIT {$offset}, {$limit}";
  24         $res = wfQuery( $sql, $fname );
  25
  26         $top = wfShowingResults( $offset, $limit );
  27         $wgOut->addHTML( "<p>{$top}\n" );
  28
  29         $sl = wfViewPrevNext( $offset, $limit,
  30           $wgLang->specialPage( "Shortpages" ) );
  31         $wgOut->addHTML( "<br>{$sl}\n" );
  32
  33         $sk = $wgUser->getSkin();
  34         $s = "<ol start=" . ( $offset + 1 ) . ">";
  35         while ( $obj = wfFetchObject( $res ) ) {
  36                 $nb = str_replace( "$1", $obj->len, wfMsg( "nbytes" ) );
  37                 $link = $sk->makeKnownLink( $obj->cur_title, "" );
  38                 $s .= "<li>{$link} ({$nb})</li>\n";
  39         }
  40         wfFreeResult( $res );
  41         $s .= "</ol>";
  42         $wgOut->addHTML( $s );
  43         $wgOut->addHTML( "<p>{$sl}\n" );
  44 }
  45
  46 ?>