3 * memcached diagnostic tool
7 * @subpackage Maintenance
11 require_once( 'commandLine.inc' );
12 require_once( 'memcached-client.php' );
14 $mcc = new memcached( array('persistant' => true, 'debug' => true) );
15 $mcc->set_servers( $wgMemCachedServers );
16 $mcc->set_debug( true );
22 $line = readconsole( '> ' );
23 if ($line === false) exit;
25 $args = explode( ' ', $line );
26 $command = array_shift( $args );
31 print "Getting {$args[0]}[{$args[1]}]\n";
32 $res = $mcc->get( $args[0] );
33 if ( array_key_exists( 1, $args ) ) {
34 $res = $res[$args[1]];
36 if ( $res === false ) {
37 #print 'Error: ' . $mcc->error_string() . "\n";
38 print "MemCached error\n";
39 } elseif ( is_string( $res ) ) {
47 $res = $mcc->get( $args[0] );
48 $sock = $mcc->get_sock( $args[0] );
53 $key = array_shift( $args );
54 if ( $args[0] == "#" && is_numeric( $args[1] ) ) {
55 $value = str_repeat( '*', $args[1] );
57 $value = implode( ' ', $args );
59 if ( !$mcc->set( $key, $value, 0 ) ) {
60 #print 'Error: ' . $mcc->error_string() . "\n";
61 print "MemCached error\n";
66 $key = implode( ' ', $args );
67 if ( !$mcc->delete( $key ) ) {
68 #print 'Error: ' . $mcc->error_string() . "\n";
69 print "MemCached error\n";
87 print "Bad command\n";
90 if ( function_exists( 'readline_add_history' ) ) {
91 readline_add_history( $line );