3 * memcached diagnostic tool
11 require_once( dirname(__FILE__
) . '/commandLine.inc' );
13 $mcc = new MWMemcached( array('persistant' => true/*, 'debug' => true*/) );
14 $mcc->set_servers( $wgMemCachedServers );
15 #$mcc->set_debug( true );
17 function mccShowHelp($command) {
19 if(! $command ) { $command = 'fullhelp'; }
25 // will show help for all commands
29 print "get: grabs something\n";
30 if($onlyone) { break; }
33 print "getsock: lists sockets\n";
34 if($onlyone) { break; }
37 print "set: changes something\n";
38 if($onlyone) { break; }
41 print "delete: deletes something\n";
42 if($onlyone) { break; }
45 print "history: show command line history\n";
46 if($onlyone) { break; }
49 print "server: show current memcached server\n";
50 if($onlyone) { break; }
53 print "dumpmcc: shows the whole thing\n";
54 if($onlyone) { break; }
58 print "exit or quit: exit mcc\n";
59 if($onlyone) { break; }
62 print "help: help about a command\n";
63 if($onlyone) { break; }
67 print "$command: command does not exist or no help for it\n";
77 $line = readconsole( '> ' );
78 if ($line === false) exit;
80 $args = explode( ' ', $line );
81 $command = array_shift( $args );
86 // show an help message
87 mccShowHelp(array_shift($args));
92 if ( array_key_exists( 1, $args ) ) {
95 print "Getting {$args[0]}[$sub]\n";
96 $res = $mcc->get( $args[0] );
97 if ( array_key_exists( 1, $args ) ) {
98 $res = $res[$args[1]];
100 if ( $res === false ) {
101 #print 'Error: ' . $mcc->error_string() . "\n";
102 print "MemCached error\n";
103 } elseif ( is_string( $res ) ) {
111 $res = $mcc->get( $args[0] );
112 $sock = $mcc->get_sock( $args[0] );
117 $res = $mcc->get( $args[0] );
118 $hv = $mcc->_hashfunc( $args[0] );
119 for ( $i = 0; $i < 3; $i++
) {
120 print $mcc->_buckets
[$hv %
$mcc->_bucketcount
] . "\n";
121 $hv +
= $mcc->_hashfunc( $i . $args[0] );
126 $key = array_shift( $args );
127 if ( $args[0] == "#" && is_numeric( $args[1] ) ) {
128 $value = str_repeat( '*', $args[1] );
130 $value = implode( ' ', $args );
132 if ( !$mcc->set( $key, $value, 0 ) ) {
133 #print 'Error: ' . $mcc->error_string() . "\n";
134 print "MemCached error\n";
139 $key = implode( ' ', $args );
140 if ( !$mcc->delete( $key ) ) {
141 #print 'Error: ' . $mcc->error_string() . "\n";
142 print "MemCached error\n";
147 if ( function_exists( 'readline_list_history' ) ) {
148 foreach( readline_list_history() as $num => $line) {
149 print "$num: $line\n";
152 print "readline_list_history() not available\n";
171 print "Bad command\n";
174 if ( function_exists( 'readline_add_history' ) ) {
175 readline_add_history( $line );