/**
* memcached diagnostic tool
*
+ * 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
* @todo document
- * @package MediaWiki
- * @subpackage Maintenance
+ * @ingroup Maintenance
+ */
+
+$optionsWithArgs = [ 'cache' ];
+$optionsWithoutArgs = [
+ 'debug', 'help'
+];
+require_once __DIR__ . '/commandLine.inc';
+
+$debug = isset( $options['debug'] );
+$help = isset( $options['help'] );
+$cache = isset( $options['cache'] ) ? $options['cache'] : null;
+
+if ( $help ) {
+ mccShowUsage();
+ exit( 0 );
+}
+$mcc = new MemcachedClient( [
+ 'persistent' => true,
+ 'debug' => $debug,
+] );
+
+if ( $cache ) {
+ if ( !isset( $wgObjectCaches[$cache] ) ) {
+ print "MediaWiki isn't configured with a cache named '$cache'";
+ exit( 1 );
+ }
+ $servers = $wgObjectCaches[$cache]['servers'];
+} elseif ( $wgMainCacheType === CACHE_MEMCACHED ) {
+ $mcc->set_servers( $wgMemCachedServers );
+} elseif ( isset( $wgObjectCaches[$wgMainCacheType]['servers'] ) ) {
+ $mcc->set_servers( $wgObjectCaches[$wgMainCacheType]['servers'] );
+} else {
+ print "MediaWiki isn't configured for Memcached usage\n";
+ exit( 1 );
+}
+
+/**
+ * Show this command line tool usage.
*/
+function mccShowUsage() {
+ echo <<<EOF
+Usage:
+ mcc.php [--debug]
+ mcc.php --help
+
+MemCached Command (mcc) is an interactive command tool that let you interact
+with the MediaWiki memcached cache.
-/** */
-require_once( "commandLine.inc" );
-require_once("memcached-client.php");
+Options:
+ --debug Set debug mode on the memcached connection.
+ --help This help screen.
-$mcc = new memcached( array('persistant' => true, 'debug' => true) );
-$mcc->set_servers( $wgMemCachedServers );
-$mcc->set_debug( true );
+Interactive commands:
+
+EOF;
+ print "\t";
+ print str_replace( "\n", "\n\t", mccGetHelp( false ) );
+ print "\n";
+}
+
+function mccGetHelp( $command ) {
+ $output = '';
+ $commandList = [
+ 'get' => 'grabs something',
+ 'getsock' => 'lists sockets',
+ 'set' => 'changes something',
+ 'delete' => 'deletes something',
+ 'history' => 'show command line history',
+ 'server' => 'show current memcached server',
+ 'dumpmcc' => 'shows the whole thing',
+ 'exit' => 'exit mcc',
+ 'quit' => 'exit mcc',
+ 'help' => 'help about a command',
+ ];
+ if ( !$command ) {
+ $command = 'fullhelp';
+ }
+ if ( $command === 'fullhelp' ) {
+ $max_cmd_len = max( array_map( 'strlen', array_keys( $commandList ) ) );
+ foreach ( $commandList as $cmd => $desc ) {
+ $output .= sprintf( "%-{$max_cmd_len}s: %s\n", $cmd, $desc );
+ }
+ } elseif ( isset( $commandList[$command] ) ) {
+ $output .= "$command: $commandList[$command]\n";
+ } else {
+ $output .= "$command: command does not exist or no help for it\n";
+ }
+
+ return $output;
+}
do {
$bad = false;
+ $showhelp = false;
$quit = false;
- $line = readconsole( "> " );
- if ($line === false) exit;
- $args = explode( " ", $line );
+
+ $line = Maintenance::readconsole();
+ if ( $line === false ) {
+ exit;
+ }
+
+ $args = explode( ' ', $line );
$command = array_shift( $args );
+
+ // process command
switch ( $command ) {
- case "get":
- print "Getting {$args[0]}[{$args[1]}]\n";
+ case 'help':
+ // show an help message
+ print mccGetHelp( array_shift( $args ) );
+ break;
+
+ case 'get':
+ $sub = '';
+ if ( array_key_exists( 1, $args ) ) {
+ $sub = $args[1];
+ }
+ print "Getting {$args[0]}[$sub]\n";
$res = $mcc->get( $args[0] );
if ( array_key_exists( 1, $args ) ) {
$res = $res[$args[1]];
}
if ( $res === false ) {
- #print 'Error: ' . $mcc->error_string() . "\n";
+ # print 'Error: ' . $mcc->error_string() . "\n";
print "MemCached error\n";
} elseif ( is_string( $res ) ) {
print "$res\n";
var_dump( $res );
}
break;
- case "getsock":
+
+ case 'getsock':
$res = $mcc->get( $args[0] );
$sock = $mcc->get_sock( $args[0] );
var_dump( $sock );
break;
- case "set":
+
+ case 'server':
+ if ( $mcc->_single_sock !== null ) {
+ print $mcc->_single_sock . "\n";
+ break;
+ }
+ $res = $mcc->get( $args[0] );
+ $hv = $mcc->_hashfunc( $args[0] );
+ for ( $i = 0; $i < 3; $i++ ) {
+ print $mcc->_buckets[$hv % $mcc->_bucketcount] . "\n";
+ $hv += $mcc->_hashfunc( $i . $args[0] );
+ }
+ break;
+
+ case 'set':
$key = array_shift( $args );
if ( $args[0] == "#" && is_numeric( $args[1] ) ) {
- $value = str_repeat( "*", $args[1] );
+ $value = str_repeat( '*', $args[1] );
} else {
- $value = implode( " ", $args );
+ $value = implode( ' ', $args );
}
if ( !$mcc->set( $key, $value, 0 ) ) {
- #print 'Error: ' . $mcc->error_string() . "\n";
+ # print 'Error: ' . $mcc->error_string() . "\n";
print "MemCached error\n";
}
break;
- case "delete":
- $key = implode( " ", $args );
+
+ case 'delete':
+ $key = implode( ' ', $args );
if ( !$mcc->delete( $key ) ) {
- #print 'Error: ' . $mcc->error_string() . "\n";
+ # print 'Error: ' . $mcc->error_string() . "\n";
print "MemCached error\n";
}
- break;
- case "dumpmcc":
+ break;
+
+ case 'history':
+ if ( function_exists( 'readline_list_history' ) ) {
+ foreach ( readline_list_history() as $num => $line ) {
+ print "$num: $line\n";
+ }
+ } else {
+ print "readline_list_history() not available\n";
+ }
+ break;
+
+ case 'dumpmcc':
var_dump( $mcc );
break;
- case "quit":
- case "exit":
+
+ case 'quit':
+ case 'exit':
$quit = true;
break;
+
default:
$bad = true;
- }
+ } // switch() end
+
if ( $bad ) {
if ( $command ) {
print "Bad command\n";
}
} else {
- if ( function_exists( "readline_add_history" ) ) {
+ if ( function_exists( 'readline_add_history' ) ) {
readline_add_history( $line );
}
}
} while ( !$quit );
-
-?>
scripts.mit.edu / autoinstalls / mediawiki.git / blobdiff