MediaWiki 1.30.2

[autoinstalls/mediawiki.git] / maintenance / mctest.php

diff --git a/maintenance/mctest.php b/maintenance/mctest.php
index 3ceda8e1c1d935cd8489a0bd9711e74b1dfd9d51..60f94a5fa639a6fe3c3a6c2aff7fbe5f7e81918c 100644 (file)
--- a/maintenance/mctest.php
+++ b/maintenance/mctest.php
@@ -1,58 +1,106 @@
 <?php
-/* $Id: mctest.php 23531 2007-06-29 01:19:14Z simetrical $ */
+/**
+ * Makes several 'set', 'incr' and 'get' requests on every memcached
+ * server and shows a report.
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ * http://www.gnu.org/copyleft/gpl.html
+ *
+ * @file
+ * @ingroup Maintenance
+ */
 
-$optionsWithArgs = array( 'i' );
+require_once __DIR__ . '/Maintenance.php';
 
-require_once('commandLine.inc');
+/**
+ * Maintenance script that  makes several 'set', 'incr' and 'get' requests
+ * on every memcached server and shows a report.
+ *
+ * @ingroup Maintenance
+ */
+class McTest extends Maintenance {
+       public function __construct() {
+               parent::__construct();
+               $this->addDescription( "Makes several 'set', 'incr' and 'get' requests on every"
+                       . " memcached server and shows a report" );
+               $this->addOption( 'i', 'Number of iterations', false, true );
+               $this->addOption( 'cache', 'Use servers from this $wgObjectCaches store', false, true );
+               $this->addArg( 'server[:port]', 'Memcached server to test, with optional port', false );
+       }
 
-function microtime_float()
-{
-   list($usec, $sec) = explode(" ", microtime());
-   return ((float)$usec + (float)$sec);
-}
+       public function execute() {
+               global $wgMainCacheType, $wgMemCachedTimeout, $wgObjectCaches;
 
+               $cache = $this->getOption( 'cache' );
+               $iterations = $this->getOption( 'i', 100 );
+               if ( $cache ) {
+                       if ( !isset( $wgObjectCaches[$cache] ) ) {
+                               $this->error( "MediaWiki isn't configured with a cache named '$cache'", 1 );
+                       }
+                       $servers = $wgObjectCaches[$cache]['servers'];
+               } elseif ( $this->hasArg() ) {
+                       $servers = [ $this->getArg() ];
+               } elseif ( $wgMainCacheType === CACHE_MEMCACHED ) {
+                       global $wgMemCachedServers;
+                       $servers = $wgMemCachedServers;
+               } elseif ( isset( $wgObjectCaches[$wgMainCacheType]['servers'] ) ) {
+                       $servers = $wgObjectCaches[$wgMainCacheType]['servers'];
+               } else {
+                       $this->error( "MediaWiki isn't configured for Memcached usage", 1 );
+               }
 
-#$wgDebugLogFile = '/dev/stdout';
+               # find out the longest server string to nicely align output later on
+               $maxSrvLen = $servers ? max( array_map( 'strlen', $servers ) ) : 0;
 
-if ( isset( $args[0] ) ) {
-       $wgMemCachedServers = array( $args[0] );
-}
-if ( isset( $options['i'] ) ) {
-       $iterations = $options['i'];
-} else {
-       $iterations = 100;
-}
+               foreach ( $servers as $server ) {
+                       $this->output(
+                               str_pad( $server, $maxSrvLen ),
+                               $server # output channel
+                       );
 
-foreach ( $wgMemCachedServers as $server ) {
-        print "$server ";
-       $mcc = new MemCachedClientforWiki( array('persistant' => true) );
-       $mcc->set_servers( array( $server ) );
-       $set = 0;
-       $incr = 0;
-       $get = 0;
-        $time_start=microtime_float();
-       for ( $i=1; $i<=$iterations; $i++ ) {
-               if ( !is_null( $mcc->set( "test$i", $i ) ) ) {
-                       $set++;
-               }
-       }
+                       $mcc = new MemcachedClient( [
+                               'persistant' => true,
+                               'timeout' => $wgMemCachedTimeout
+                       ] );
+                       $mcc->set_servers( [ $server ] );
+                       $set = 0;
+                       $incr = 0;
+                       $get = 0;
+                       $time_start = microtime( true );
+                       for ( $i = 1; $i <= $iterations; $i++ ) {
+                               if ( $mcc->set( "test$i", $i ) ) {
+                                       $set++;
+                               }
+                       }
+                       for ( $i = 1; $i <= $iterations; $i++ ) {
+                               if ( !is_null( $mcc->incr( "test$i", $i ) ) ) {
+                                       $incr++;
+                               }
+                       }
+                       for ( $i = 1; $i <= $iterations; $i++ ) {
+                               $value = $mcc->get( "test$i" );
+                               if ( $value == $i * 2 ) {
+                                       $get++;
+                               }
+                       }
+                       $exectime = microtime( true ) - $time_start;
 
-       for ( $i=1; $i<=$iterations; $i++ ) {
-               if ( !is_null( $mcc->incr( "test$i", $i ) ) ) {
-                       $incr++;
+                       $this->output( " set: $set   incr: $incr   get: $get time: $exectime", $server );
                }
        }
-
-       for ( $i=1; $i<=$iterations; $i++ ) {
-               $value = $mcc->get( "test$i" );
-               if ( $value == $i*2 ) {
-                       $get++;
-               }
-       }
-        $exectime=microtime_float()-$time_start;
-
-       print "set: $set   incr: $incr   get: $get time: $exectime\n";
 }
 
-
-
+$maintClass = "McTest";
+require_once RUN_MAINTENANCE_IF_MAIN;