Merge "Further tweaks to pipe trick documentation (follow-up Iaf365e31)"
[lhc/web/wiklou.git] / 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->mDescription = "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->addArg( 'server[:port]', 'Memcached server to test, with optional port', false );
40 }
41
42 public function execute() {
43 global $wgMainCacheType, $wgMemCachedTimeout, $wgObjectCaches;
44
45 $iterations = $this->getOption( 'i', 100 );
46 if ( $this->hasArg() ) {
47 $servers = array( $this->getArg() );
48 } elseif ( $wgMainCacheType === CACHE_MEMCACHED ) {
49 global $wgMemCachedServers;
50 $servers = $wgMemCachedServers ;
51 } elseif( isset( $wgObjectCaches[$wgMainCacheType] ) ) {
52 $servers = $wgObjectCaches[$wgMainCacheType]['servers'];
53 } else {
54 $this->error( "MediaWiki isn't configured for Memcached usage", 1 );
55 }
56
57 foreach ( $servers as $server ) {
58 $this->output( $server . " ", $server );
59 $mcc = new MemCachedClientforWiki( array(
60 'persistant' => true,
61 'timeout' => $wgMemCachedTimeout
62 ) );
63 $mcc->set_servers( array( $server ) );
64 $set = 0;
65 $incr = 0;
66 $get = 0;
67 $time_start = $this->microtime_float();
68 for ( $i = 1; $i <= $iterations; $i++ ) {
69 if ( !is_null( $mcc->set( "test$i", $i ) ) ) {
70 $set++;
71 }
72 }
73 for ( $i = 1; $i <= $iterations; $i++ ) {
74 if ( !is_null( $mcc->incr( "test$i", $i ) ) ) {
75 $incr++;
76 }
77 }
78 for ( $i = 1; $i <= $iterations; $i++ ) {
79 $value = $mcc->get( "test$i" );
80 if ( $value == $i * 2 ) {
81 $get++;
82 }
83 }
84 $exectime = $this->microtime_float() - $time_start;
85
86 $this->output( "set: $set incr: $incr get: $get time: $exectime", $server );
87 }
88 }
89
90 /**
91 * Return microtime() as a float
92 * @return float
93 */
94 private function microtime_float() {
95 list( $usec, $sec ) = explode( " ", microtime() );
96 return ( (float)$usec + (float)$sec );
97 }
98 }
99
100 $maintClass = "mcTest";
101 require_once( RUN_MAINTENANCE_IF_MAIN );