]> scripts.mit.edu Git - autoinstallsdev/mediawiki.git/blobdiff - maintenance/getLagTimes.php
MediaWiki 1.16.0
[autoinstallsdev/mediawiki.git] / maintenance / getLagTimes.php
index 0f750caf5991509e7b3aaa7900431a129c13dde1..bc14ae718ee5d23706931c101d93ad727304cf1a 100644 (file)
@@ -1,29 +1,54 @@
 <?php
 /**
- * @file
+ * 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
+ *
  * @ingroup Maintenance
  */
 
-require 'commandLine.inc';
+require_once( dirname(__FILE__) . '/Maintenance.php' );
 
-$lb = wfGetLB();
+class GetLagTimes extends Maintenance {
+       public function __construct() {
+               parent::__construct();
+               $this->mDescription = "Dump replication lag times";
+       }
+
+       public function execute() {
+               $lb = wfGetLB();
 
-if( $lb->getServerCount() == 1 ) {
-       echo "This script dumps replication lag times, but you don't seem to have\n";
-       echo "a multi-host db server configuration.\n";
-} else {
-       $lags = $lb->getLagTimes();
-       foreach( $lags as $n => $lag ) {
-               $host = $lb->getServerName( $n );
-               if( IP::isValid( $host ) ) {
-                       $ip = $host;
-                       $host = gethostbyaddr( $host );
+               if( $lb->getServerCount() == 1 ) {
+                       $this->error( "This script dumps replication lag times, but you don't seem to have\n"
+                                                 . "a multi-host db server configuration." );
                } else {
-                       $ip = gethostbyname( $host );
+                       $lags = $lb->getLagTimes();
+                       foreach( $lags as $n => $lag ) {
+                               $host = $lb->getServerName( $n );
+                               if( IP::isValid( $host ) ) {
+                                       $ip = $host;
+                                       $host = gethostbyaddr( $host );
+                               } else {
+                                       $ip = gethostbyname( $host );
+                               }
+                               $starLen = min( intval( $lag ), 40 );
+                               $stars = str_repeat( '*', $starLen );
+                               $this->output( sprintf( "%10s %20s %3d %s\n", $ip, $host, $lag, $stars ) );
+                       }
                }
-               $starLen = min( intval( $lag ), 40 );
-               $stars = str_repeat( '*', $starLen );
-               printf( "%10s %20s %3d %s\n", $ip, $host, $lag, $stars );
        }
 }
 
+$maintClass = "GetLagTimes";
+require_once( DO_MAINTENANCE );