I was adding a special page (dead-end pages), and I realized that almost all
[lhc/web/wiklou.git] / includes / SpecialShortpages.php
index bca5e8e..c74158f 100644 (file)
@@ -1,51 +1,37 @@
 <?
 
-function wfSpecialShortpages()
-{
-       global $wgUser, $wgOut, $wgLang, $wgTitle;
-       $fname = "wfSpecialShortpages";
-
-       # Cache
-       $vsp = $wgLang->getValidSpecialPages();
-       $log = new LogPage( $vsp["Shortpages"] );
-       $log->mUpdateRecentChanges = false;
-
-       global $wgMiserMode;
-       if ( $wgMiserMode ) {
-               $log->showAsDisabledPage();
-               return;
-       }
-
-       list( $limit, $offset ) = wfCheckLimits();
-
-       $sql = "SELECT cur_title, LENGTH(cur_text) AS len FROM cur " .
+include_once("QueryPage.php");
+
+class ShortPagesPage extends QueryPage {
+    
+    function getName() {
+       return "Shortpages";
+    }
+    
+    function isExpensive() {
+       return 1;
+    }
+    
+    function getSQL( $offset, $limit ) {
+       return "SELECT cur_title, LENGTH(cur_text) AS len FROM cur " .
          "WHERE cur_namespace=0 AND cur_is_redirect=0 ORDER BY " .
          "LENGTH(cur_text) LIMIT {$offset}, {$limit}";
-       $res = wfQuery( $sql, DB_READ, $fname );
-
-       $top = wfShowingResults( $offset, $limit );
-       $wgOut->addHTML( "<p>{$top}\n" );
-
-       $sl = wfViewPrevNext( $offset, $limit,
-         $wgLang->specialPage( "Shortpages" ) );
-       $wgOut->addHTML( "<br>{$sl}\n" );
-
-       $sk = $wgUser->getSkin();
-       $s = "<ol start=" . ( $offset + 1 ) . ">";
-       while ( $obj = wfFetchObject( $res ) ) {
-               $nb = wfMsg( "nbytes", $obj->len );
-               $link = $sk->makeKnownLink( $obj->cur_title, "" );
-               $s .= "<li>{$link} ({$nb})</li>\n";
-       }
-       wfFreeResult( $res );
-       $s .= "</ol>";
-       $wgOut->addHTML( $s );
-       $wgOut->addHTML( "<p>{$sl}\n" );
-
+    }
+    
+    function formatResult( $skin, $result ) {
+       $nb = wfMsg( "nbytes", $result->len );
+       $link = $skin->makeKnownLink( $result->cur_title, "" );
+       return "{$link} ({$nb})";
+    }
+}
 
-       # Saving cache
-       if ( $offset > 0 OR $limit < 50 ) return ; #Not suitable
-       $log->replaceContent( $s );
+function wfSpecialShortpages()
+{
+    list( $limit, $offset ) = wfCheckLimits();
+    
+    $spp = new ShortPagesPage();
+    
+    return $spp->doQuery( $offset, $limit );
 }
 
 ?>