* (bug 27595) sha1 search of list=filearchive does not work
[lhc/web/wiklou.git] / maintenance / mcc.php
index 5a618a2..0244527 100644 (file)
@@ -2,20 +2,35 @@
 /**
  * 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
  * @ingroup Maintenance
  */
 
 /** */
-require_once( dirname(__FILE__) . '/commandLine.inc' );
+require_once( dirname( __FILE__ ) . '/commandLine.inc' );
 
-$mcc = new MWMemcached( array('persistant' => true/*, 'debug' => true*/) );
+$mcc = new MWMemcached( array( 'persistent' => true/*, 'debug' => true*/ ) );
 $mcc->set_servers( $wgMemCachedServers );
-#$mcc->set_debug( true );
+# $mcc->set_debug( true );
 
-function mccShowHelp($command) {
-       $commandList = array( 
+function mccShowHelp( $command ) {
+       $commandList = array(
                'get' => 'grabs something',
                'getsock' => 'lists sockets',
                'set' => 'changes something',
@@ -27,15 +42,16 @@ function mccShowHelp($command) {
                'quit' => 'exit mcc',
                'help' => 'help about a command',
        );
-       if( !$command ) { 
+       if ( !$command ) {
                $command = 'fullhelp';
        }
-       if( $command === 'fullhelp' ) {
-               foreach( $commandList as $cmd => $desc ) {
-                       print "$cmd: $desc\n";
+       if ( $command === 'fullhelp' ) {
+               $max_cmd_len = max( array_map( 'strlen', array_keys( $commandList ) ) );
+               foreach ( $commandList as $cmd => $desc ) {
+                       printf( "%-{$max_cmd_len}s: %s\n", $cmd, $desc );
                }
-       } elseif( isset( $commandList[$command] ) ) {
-               print "$cmd: $desc\n";
+       } elseif ( isset( $commandList[$command] ) ) {
+               print "$command: $commandList[$command]\n";
        } else {
                print "$command: command does not exist or no help for it\n";
        }
@@ -46,8 +62,8 @@ do {
        $showhelp = false;
        $quit = false;
 
-       $line = readconsole( '> ' );
-       if ($line === false) exit;
+       $line = Maintenance::readconsole();
+       if ( $line === false ) exit;
 
        $args = explode( ' ', $line );
        $command = array_shift( $args );
@@ -56,7 +72,7 @@ do {
        switch ( $command ) {
                case 'help':
                        // show an help message
-                       mccShowHelp(array_shift($args));
+                       mccShowHelp( array_shift( $args ) );
                break;
 
                case 'get':
@@ -70,7 +86,7 @@ do {
                                $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";
@@ -86,6 +102,10 @@ do {
                        break;
 
                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++ ) {
@@ -102,7 +122,7 @@ do {
                                $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;
@@ -110,14 +130,14 @@ do {
                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 'history':
                        if ( function_exists( 'readline_list_history' ) ) {
-                               foreach( readline_list_history() as $num => $line) {
+                               foreach ( readline_list_history() as $num => $line ) {
                                        print "$num: $line\n";
                                }
                        } else {