maintenance/mctest.php

   1 <?php
   2 /**
   3  * Makes several 'set', 'incr' and 'get' requests on every memcached
   4  * server and shows a report.
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License along
  17  * with this program; if not, write to the Free Software Foundation, Inc.,
  18  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  19  * http://www.gnu.org/copyleft/gpl.html
  20  *
  21  * @file
  22  * @ingroup Maintenance
  23  */
  24
  25 require_once __DIR__ . '/Maintenance.php';
  26
  27 /**
  28  * Maintenance script that  makes several 'set', 'incr' and 'get' requests
  29  * on every memcached server and shows a report.
  30  *
  31  * @ingroup Maintenance
  32  */
  33 class McTest extends Maintenance {
  34         public function __construct() {
  35                 parent::__construct();
  36                 $this->addDescription( "Makes several 'set', 'incr' and 'get' requests on every"
  37                         . " memcached server and shows a report" );
  38                 $this->addOption( 'i', 'Number of iterations', false, true );
  39                 $this->addOption( 'cache', 'Use servers from this $wgObjectCaches store', false, true );
  40                 $this->addArg( 'server[:port]', 'Memcached server to test, with optional port', false );
  41         }
  42
  43         public function execute() {
  44                 global $wgMainCacheType, $wgMemCachedTimeout, $wgObjectCaches;
  45
  46                 $memcachedTypes = [ CACHE_MEMCACHED, 'memcached-php', 'memcached-pecl' ];
  47
  48                 $cache = $this->getOption( 'cache' );
  49                 $iterations = $this->getOption( 'i', 100 );
  50                 if ( $cache ) {
  51                         if ( !isset( $wgObjectCaches[$cache] ) ) {
  52                                 $this->fatalError( "MediaWiki isn't configured with a cache named '$cache'" );
  53                         }
  54                         $servers = $wgObjectCaches[$cache]['servers'];
  55                 } elseif ( $this->hasArg( 0 ) ) {
  56                         $servers = [ $this->getArg( 0 ) ];
  57                 } elseif ( in_array( $wgMainCacheType, $memcachedTypes, true ) ) {
  58                         global $wgMemCachedServers;
  59                         $servers = $wgMemCachedServers;
  60                 } elseif ( isset( $wgObjectCaches[$wgMainCacheType]['servers'] ) ) {
  61                         $servers = $wgObjectCaches[$wgMainCacheType]['servers'];
  62                 } else {
  63                         $this->fatalError( "MediaWiki isn't configured for Memcached usage" );
  64                 }
  65
  66                 # find out the longest server string to nicely align output later on
  67                 $maxSrvLen = $servers ? max( array_map( 'strlen', $servers ) ) : 0;
  68
  69                 foreach ( $servers as $server ) {
  70                         $this->output(
  71                                 str_pad( $server, $maxSrvLen ),
  72                                 $server # output channel
  73                         );
  74
  75                         $mcc = new MemcachedClient( [
  76                                 'persistant' => true,
  77                                 'timeout' => $wgMemCachedTimeout
  78                         ] );
  79                         $mcc->set_servers( [ $server ] );
  80                         $set = 0;
  81                         $incr = 0;
  82                         $get = 0;
  83                         $time_start = microtime( true );
  84                         for ( $i = 1; $i <= $iterations; $i++ ) {
  85                                 if ( $mcc->set( "test$i", $i ) ) {
  86                                         $set++;
  87                                 }
  88                         }
  89                         for ( $i = 1; $i <= $iterations; $i++ ) {
  90                                 if ( !is_null( $mcc->incr( "test$i", $i ) ) ) {
  91                                         $incr++;
  92                                 }
  93                         }
  94                         for ( $i = 1; $i <= $iterations; $i++ ) {
  95                                 $value = $mcc->get( "test$i" );
  96                                 if ( $value == $i * 2 ) {
  97                                         $get++;
  98                                 }
  99                         }
 100                         $exectime = microtime( true ) - $time_start;
 101
 102                         $this->output( " set: $set   incr: $incr   get: $get time: $exectime", $server );
 103                 }
 104         }
 105 }
 106
 107 $maintClass = McTest::class;
 108 require_once RUN_MAINTENANCE_IF_MAIN;