includes/SpecialLongpages.php

   1 <?
   2
   3 function wfSpecialLongpages()
   4 {
   5         global $wgUser, $wgOut, $wgLang, $wgTitle;
   6         $fname = "wfSpecialLongpages";
   7
   8         # Cache
   9         $vsp = $wgLang->getValidSpecialPages();
  10         $log = new LogPage( $vsp["Longpages"] );
  11         $log->mUpdateRecentChanges = false;
  12
  13         global $wgMiserMode;
  14         if ( $wgMiserMode ) {
  15                 $log->showAsDisabledPage();
  16                 return;
  17         }
  18
  19         list( $limit, $offset ) = wfCheckLimits();
  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) DESC LIMIT {$offset}, {$limit}";
  24         $res = wfQuery( $sql, DB_READ, $fname );
  25
  26         $sk = $wgUser->getSkin();
  27
  28         $top = wfShowingResults( $offset, $limit );
  29         $wgOut->addHTML( "<p>{$top}\n" );
  30
  31         $sl = wfViewPrevNext( $offset, $limit,
  32           $wgLang->specialPage( "Longpages" ) );
  33         $wgOut->addHTML( "<br>{$sl}\n" );
  34
  35         $s = "<ol start=" . ( $offset + 1 ) . ">";
  36         while ( $obj = wfFetchObject( $res ) ) {
  37                 $nb = wfMsg( "nbytes", $obj->len );
  38                 $link = $sk->makeKnownLink( $obj->cur_title, "" );
  39                 $s .= "<li>{$link} ({$nb})</li>\n";
  40         }
  41         wfFreeResult( $res );
  42         $s .= "</ol>";
  43         $wgOut->addHTML( $s );
  44         $wgOut->addHTML( "<p>{$sl}\n" );
  45
  46         # Saving cache
  47         if ( $offset > 0 OR $limit < 50 ) return ; #Not suitable
  48         $log->replaceContent( $s );
  49 }
  50
  51 ?>