]> scripts.mit.edu Git - autoinstalls/mediawiki.git/blob - includes/debug/MWDebug.php
MediaWiki 1.30.2-scripts2
[autoinstalls/mediawiki.git] / includes / debug / MWDebug.php
1 <?php
2 /**
3  * Debug toolbar related code.
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 2 of the License, or
8  * (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License along
16  * with this program; if not, write to the Free Software Foundation, Inc.,
17  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18  * http://www.gnu.org/copyleft/gpl.html
19  *
20  * @file
21  */
22
23 use MediaWiki\Logger\LegacyLogger;
24
25 /**
26  * New debugger system that outputs a toolbar on page view.
27  *
28  * By default, most methods do nothing ( self::$enabled = false ). You have
29  * to explicitly call MWDebug::init() to enabled them.
30  *
31  * @since 1.19
32  */
33 class MWDebug {
34         /**
35          * Log lines
36          *
37          * @var array $log
38          */
39         protected static $log = [];
40
41         /**
42          * Debug messages from wfDebug().
43          *
44          * @var array $debug
45          */
46         protected static $debug = [];
47
48         /**
49          * SQL statements of the database queries.
50          *
51          * @var array $query
52          */
53         protected static $query = [];
54
55         /**
56          * Is the debugger enabled?
57          *
58          * @var bool $enabled
59          */
60         protected static $enabled = false;
61
62         /**
63          * Array of functions that have already been warned, formatted
64          * function-caller to prevent a buttload of warnings
65          *
66          * @var array $deprecationWarnings
67          */
68         protected static $deprecationWarnings = [];
69
70         /**
71          * Enabled the debugger and load resource module.
72          * This is called by Setup.php when $wgDebugToolbar is true.
73          *
74          * @since 1.19
75          */
76         public static function init() {
77                 self::$enabled = true;
78         }
79
80         /**
81          * Disable the debugger.
82          *
83          * @since 1.28
84          */
85         public static function deinit() {
86                 self::$enabled = false;
87         }
88
89         /**
90          * Add ResourceLoader modules to the OutputPage object if debugging is
91          * enabled.
92          *
93          * @since 1.19
94          * @param OutputPage $out
95          */
96         public static function addModules( OutputPage $out ) {
97                 if ( self::$enabled ) {
98                         $out->addModules( 'mediawiki.debug' );
99                 }
100         }
101
102         /**
103          * Adds a line to the log
104          *
105          * @since 1.19
106          * @param mixed $str
107          */
108         public static function log( $str ) {
109                 if ( !self::$enabled ) {
110                         return;
111                 }
112                 if ( !is_string( $str ) ) {
113                         $str = print_r( $str, true );
114                 }
115                 self::$log[] = [
116                         'msg' => htmlspecialchars( $str ),
117                         'type' => 'log',
118                         'caller' => wfGetCaller(),
119                 ];
120         }
121
122         /**
123          * Returns internal log array
124          * @since 1.19
125          * @return array
126          */
127         public static function getLog() {
128                 return self::$log;
129         }
130
131         /**
132          * Clears internal log array and deprecation tracking
133          * @since 1.19
134          */
135         public static function clearLog() {
136                 self::$log = [];
137                 self::$deprecationWarnings = [];
138         }
139
140         /**
141          * Adds a warning entry to the log
142          *
143          * @since 1.19
144          * @param string $msg
145          * @param int $callerOffset
146          * @param int $level A PHP error level. See sendMessage()
147          * @param string $log 'production' will always trigger a php error, 'auto'
148          *    will trigger an error if $wgDevelopmentWarnings is true, and 'debug'
149          *    will only write to the debug log(s).
150          */
151         public static function warning( $msg, $callerOffset = 1, $level = E_USER_NOTICE, $log = 'auto' ) {
152                 global $wgDevelopmentWarnings;
153
154                 if ( $log === 'auto' && !$wgDevelopmentWarnings ) {
155                         $log = 'debug';
156                 }
157
158                 if ( $log === 'debug' ) {
159                         $level = false;
160                 }
161
162                 $callerDescription = self::getCallerDescription( $callerOffset );
163
164                 self::sendMessage( $msg, $callerDescription, 'warning', $level );
165
166                 if ( self::$enabled ) {
167                         self::$log[] = [
168                                 'msg' => htmlspecialchars( $msg ),
169                                 'type' => 'warn',
170                                 'caller' => $callerDescription['func'],
171                         ];
172                 }
173         }
174
175         /**
176          * Show a warning that $function is deprecated.
177          * This will send it to the following locations:
178          * - Debug toolbar, with one item per function and caller, if $wgDebugToolbar
179          *   is set to true.
180          * - PHP's error log, with level E_USER_DEPRECATED, if $wgDevelopmentWarnings
181          *   is set to true.
182          * - MediaWiki's debug log, if $wgDevelopmentWarnings is set to false.
183          *
184          * @since 1.19
185          * @param string $function Function that is deprecated.
186          * @param string|bool $version Version in which the function was deprecated.
187          * @param string|bool $component Component to which the function belongs.
188          *    If false, it is assumbed the function is in MediaWiki core.
189          * @param int $callerOffset How far up the callstack is the original
190          *    caller. 2 = function that called the function that called
191          *    MWDebug::deprecated() (Added in 1.20).
192          */
193         public static function deprecated( $function, $version = false,
194                 $component = false, $callerOffset = 2
195         ) {
196                 $callerDescription = self::getCallerDescription( $callerOffset );
197                 $callerFunc = $callerDescription['func'];
198
199                 $sendToLog = true;
200
201                 // Check to see if there already was a warning about this function
202                 if ( isset( self::$deprecationWarnings[$function][$callerFunc] ) ) {
203                         return;
204                 } elseif ( isset( self::$deprecationWarnings[$function] ) ) {
205                         if ( self::$enabled ) {
206                                 $sendToLog = false;
207                         } else {
208                                 return;
209                         }
210                 }
211
212                 self::$deprecationWarnings[$function][$callerFunc] = true;
213
214                 if ( $version ) {
215                         global $wgDeprecationReleaseLimit;
216                         if ( $wgDeprecationReleaseLimit && $component === false ) {
217                                 # Strip -* off the end of $version so that branches can use the
218                                 # format #.##-branchname to avoid issues if the branch is merged into
219                                 # a version of MediaWiki later than what it was branched from
220                                 $comparableVersion = preg_replace( '/-.*$/', '', $version );
221
222                                 # If the comparableVersion is larger than our release limit then
223                                 # skip the warning message for the deprecation
224                                 if ( version_compare( $wgDeprecationReleaseLimit, $comparableVersion, '<' ) ) {
225                                         $sendToLog = false;
226                                 }
227                         }
228
229                         $component = $component === false ? 'MediaWiki' : $component;
230                         $msg = "Use of $function was deprecated in $component $version.";
231                 } else {
232                         $msg = "Use of $function is deprecated.";
233                 }
234
235                 if ( $sendToLog ) {
236                         global $wgDevelopmentWarnings; // we could have a more specific $wgDeprecationWarnings setting.
237                         self::sendMessage(
238                                 $msg,
239                                 $callerDescription,
240                                 'deprecated',
241                                 $wgDevelopmentWarnings ? E_USER_DEPRECATED : false
242                         );
243                 }
244
245                 if ( self::$enabled ) {
246                         $logMsg = htmlspecialchars( $msg ) .
247                                 Html::rawElement( 'div', [ 'class' => 'mw-debug-backtrace' ],
248                                         Html::element( 'span', [], 'Backtrace:' ) . wfBacktrace()
249                                 );
250
251                         self::$log[] = [
252                                 'msg' => $logMsg,
253                                 'type' => 'deprecated',
254                                 'caller' => $callerFunc,
255                         ];
256                 }
257         }
258
259         /**
260          * Get an array describing the calling function at a specified offset.
261          *
262          * @param int $callerOffset How far up the callstack is the original
263          *    caller. 0 = function that called getCallerDescription()
264          * @return array Array with two keys: 'file' and 'func'
265          */
266         private static function getCallerDescription( $callerOffset ) {
267                 $callers = wfDebugBacktrace();
268
269                 if ( isset( $callers[$callerOffset] ) ) {
270                         $callerfile = $callers[$callerOffset];
271                         if ( isset( $callerfile['file'] ) && isset( $callerfile['line'] ) ) {
272                                 $file = $callerfile['file'] . ' at line ' . $callerfile['line'];
273                         } else {
274                                 $file = '(internal function)';
275                         }
276                 } else {
277                         $file = '(unknown location)';
278                 }
279
280                 if ( isset( $callers[$callerOffset + 1] ) ) {
281                         $callerfunc = $callers[$callerOffset + 1];
282                         $func = '';
283                         if ( isset( $callerfunc['class'] ) ) {
284                                 $func .= $callerfunc['class'] . '::';
285                         }
286                         if ( isset( $callerfunc['function'] ) ) {
287                                 $func .= $callerfunc['function'];
288                         }
289                 } else {
290                         $func = 'unknown';
291                 }
292
293                 return [ 'file' => $file, 'func' => $func ];
294         }
295
296         /**
297          * Send a message to the debug log and optionally also trigger a PHP
298          * error, depending on the $level argument.
299          *
300          * @param string $msg Message to send
301          * @param array $caller Caller description get from getCallerDescription()
302          * @param string $group Log group on which to send the message
303          * @param int|bool $level Error level to use; set to false to not trigger an error
304          */
305         private static function sendMessage( $msg, $caller, $group, $level ) {
306                 $msg .= ' [Called from ' . $caller['func'] . ' in ' . $caller['file'] . ']';
307
308                 if ( $level !== false ) {
309                         trigger_error( $msg, $level );
310                 }
311
312                 wfDebugLog( $group, $msg, 'private' );
313         }
314
315         /**
316          * This is a method to pass messages from wfDebug to the pretty debugger.
317          * Do NOT use this method, use MWDebug::log or wfDebug()
318          *
319          * @since 1.19
320          * @param string $str
321          * @param array $context
322          */
323         public static function debugMsg( $str, $context = [] ) {
324                 global $wgDebugComments, $wgShowDebug;
325
326                 if ( self::$enabled || $wgDebugComments || $wgShowDebug ) {
327                         if ( $context ) {
328                                 $prefix = '';
329                                 if ( isset( $context['prefix'] ) ) {
330                                         $prefix = $context['prefix'];
331                                 } elseif ( isset( $context['channel'] ) && $context['channel'] !== 'wfDebug' ) {
332                                         $prefix = "[{$context['channel']}] ";
333                                 }
334                                 if ( isset( $context['seconds_elapsed'] ) && isset( $context['memory_used'] ) ) {
335                                         $prefix .= "{$context['seconds_elapsed']} {$context['memory_used']}  ";
336                                 }
337                                 $str = LegacyLogger::interpolate( $str, $context );
338                                 $str = $prefix . $str;
339                         }
340                         self::$debug[] = rtrim( UtfNormal\Validator::cleanUp( $str ) );
341                 }
342         }
343
344         /**
345          * Begins profiling on a database query
346          *
347          * @since 1.19
348          * @param string $sql
349          * @param string $function
350          * @param bool $isMaster
351          * @param float $runTime Query run time
352          * @return int ID number of the query to pass to queryTime or -1 if the
353          *  debugger is disabled
354          */
355         public static function query( $sql, $function, $isMaster, $runTime ) {
356                 if ( !self::$enabled ) {
357                         return -1;
358                 }
359
360                 // Replace invalid UTF-8 chars with a square UTF-8 character
361                 // This prevents json_encode from erroring out due to binary SQL data
362                 $sql = preg_replace(
363                         '/(
364                                 [\xC0-\xC1] # Invalid UTF-8 Bytes
365                                 | [\xF5-\xFF] # Invalid UTF-8 Bytes
366                                 | \xE0[\x80-\x9F] # Overlong encoding of prior code point
367                                 | \xF0[\x80-\x8F] # Overlong encoding of prior code point
368                                 | [\xC2-\xDF](?![\x80-\xBF]) # Invalid UTF-8 Sequence Start
369                                 | [\xE0-\xEF](?![\x80-\xBF]{2}) # Invalid UTF-8 Sequence Start
370                                 | [\xF0-\xF4](?![\x80-\xBF]{3}) # Invalid UTF-8 Sequence Start
371                                 | (?<=[\x0-\x7F\xF5-\xFF])[\x80-\xBF] # Invalid UTF-8 Sequence Middle
372                                 | (?<![\xC2-\xDF]|[\xE0-\xEF]|[\xE0-\xEF][\x80-\xBF]|[\xF0-\xF4]
373                                         | [\xF0-\xF4][\x80-\xBF]|[\xF0-\xF4][\x80-\xBF]{2})[\x80-\xBF] # Overlong Sequence
374                                 | (?<=[\xE0-\xEF])[\x80-\xBF](?![\x80-\xBF]) # Short 3 byte sequence
375                                 | (?<=[\xF0-\xF4])[\x80-\xBF](?![\x80-\xBF]{2}) # Short 4 byte sequence
376                                 | (?<=[\xF0-\xF4][\x80-\xBF])[\x80-\xBF](?![\x80-\xBF]) # Short 4 byte sequence (2)
377                         )/x',
378                         '■',
379                         $sql
380                 );
381
382                 // last check for invalid utf8
383                 $sql = UtfNormal\Validator::cleanUp( $sql );
384
385                 self::$query[] = [
386                         'sql' => $sql,
387                         'function' => $function,
388                         'master' => (bool)$isMaster,
389                         'time' => $runTime,
390                 ];
391
392                 return count( self::$query ) - 1;
393         }
394
395         /**
396          * Returns a list of files included, along with their size
397          *
398          * @param IContextSource $context
399          * @return array
400          */
401         protected static function getFilesIncluded( IContextSource $context ) {
402                 $files = get_included_files();
403                 $fileList = [];
404                 foreach ( $files as $file ) {
405                         $size = filesize( $file );
406                         $fileList[] = [
407                                 'name' => $file,
408                                 'size' => $context->getLanguage()->formatSize( $size ),
409                         ];
410                 }
411
412                 return $fileList;
413         }
414
415         /**
416          * Returns the HTML to add to the page for the toolbar
417          *
418          * @since 1.19
419          * @param IContextSource $context
420          * @return string
421          */
422         public static function getDebugHTML( IContextSource $context ) {
423                 global $wgDebugComments;
424
425                 $html = '';
426
427                 if ( self::$enabled ) {
428                         self::log( 'MWDebug output complete' );
429                         $debugInfo = self::getDebugInfo( $context );
430
431                         // Cannot use OutputPage::addJsConfigVars because those are already outputted
432                         // by the time this method is called.
433                         $html = ResourceLoader::makeInlineScript(
434                                 ResourceLoader::makeConfigSetScript( [ 'debugInfo' => $debugInfo ] )
435                         );
436                 }
437
438                 if ( $wgDebugComments ) {
439                         $html .= "<!-- Debug output:\n" .
440                                 htmlspecialchars( implode( "\n", self::$debug ), ENT_NOQUOTES ) .
441                                 "\n\n-->";
442                 }
443
444                 return $html;
445         }
446
447         /**
448          * Generate debug log in HTML for displaying at the bottom of the main
449          * content area.
450          * If $wgShowDebug is false, an empty string is always returned.
451          *
452          * @since 1.20
453          * @return string HTML fragment
454          */
455         public static function getHTMLDebugLog() {
456                 global $wgShowDebug;
457
458                 if ( !$wgShowDebug ) {
459                         return '';
460                 }
461
462                 $ret = "\n<hr />\n<strong>Debug data:</strong><ul id=\"mw-debug-html\">\n";
463
464                 foreach ( self::$debug as $line ) {
465                         $display = nl2br( htmlspecialchars( trim( $line ) ) );
466
467                         $ret .= "<li><code>$display</code></li>\n";
468                 }
469
470                 $ret .= '</ul>' . "\n";
471
472                 return $ret;
473         }
474
475         /**
476          * Append the debug info to given ApiResult
477          *
478          * @param IContextSource $context
479          * @param ApiResult $result
480          */
481         public static function appendDebugInfoToApiResult( IContextSource $context, ApiResult $result ) {
482                 if ( !self::$enabled ) {
483                         return;
484                 }
485
486                 // output errors as debug info, when display_errors is on
487                 // this is necessary for all non html output of the api, because that clears all errors first
488                 $obContents = ob_get_contents();
489                 if ( $obContents ) {
490                         $obContentArray = explode( '<br />', $obContents );
491                         foreach ( $obContentArray as $obContent ) {
492                                 if ( trim( $obContent ) ) {
493                                         self::debugMsg( Sanitizer::stripAllTags( $obContent ) );
494                                 }
495                         }
496                 }
497
498                 self::log( 'MWDebug output complete' );
499                 $debugInfo = self::getDebugInfo( $context );
500
501                 ApiResult::setIndexedTagName( $debugInfo, 'debuginfo' );
502                 ApiResult::setIndexedTagName( $debugInfo['log'], 'line' );
503                 ApiResult::setIndexedTagName( $debugInfo['debugLog'], 'msg' );
504                 ApiResult::setIndexedTagName( $debugInfo['queries'], 'query' );
505                 ApiResult::setIndexedTagName( $debugInfo['includes'], 'queries' );
506                 $result->addValue( null, 'debuginfo', $debugInfo );
507         }
508
509         /**
510          * Returns the HTML to add to the page for the toolbar
511          *
512          * @param IContextSource $context
513          * @return array
514          */
515         public static function getDebugInfo( IContextSource $context ) {
516                 if ( !self::$enabled ) {
517                         return [];
518                 }
519
520                 global $wgVersion, $wgRequestTime;
521                 $request = $context->getRequest();
522
523                 // HHVM's reported memory usage from memory_get_peak_usage()
524                 // is not useful when passing false, but we continue passing
525                 // false for consistency of historical data in zend.
526                 // see: https://github.com/facebook/hhvm/issues/2257#issuecomment-39362246
527                 $realMemoryUsage = wfIsHHVM();
528
529                 $branch = GitInfo::currentBranch();
530                 if ( GitInfo::isSHA1( $branch ) ) {
531                         // If it's a detached HEAD, the SHA1 will already be
532                         // included in the MW version, so don't show it.
533                         $branch = false;
534                 }
535
536                 return [
537                         'mwVersion' => $wgVersion,
538                         'phpEngine' => wfIsHHVM() ? 'HHVM' : 'PHP',
539                         'phpVersion' => wfIsHHVM() ? HHVM_VERSION : PHP_VERSION,
540                         'gitRevision' => GitInfo::headSHA1(),
541                         'gitBranch' => $branch,
542                         'gitViewUrl' => GitInfo::headViewUrl(),
543                         'time' => microtime( true ) - $wgRequestTime,
544                         'log' => self::$log,
545                         'debugLog' => self::$debug,
546                         'queries' => self::$query,
547                         'request' => [
548                                 'method' => $request->getMethod(),
549                                 'url' => $request->getRequestURL(),
550                                 'headers' => $request->getAllHeaders(),
551                                 'params' => $request->getValues(),
552                         ],
553                         'memory' => $context->getLanguage()->formatSize( memory_get_usage( $realMemoryUsage ) ),
554                         'memoryPeak' => $context->getLanguage()->formatSize( memory_get_peak_usage( $realMemoryUsage ) ),
555                         'includes' => self::getFilesIncluded( $context ),
556                 ];
557         }
558 }