1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
<?php
/**
* Profiler storing information in the DB.
*
* 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
* @ingroup Profiler
*/
use Wikimedia\Rdbms\DBError;
/**
* Logs profiling data into the local DB
*
* @ingroup Profiler
* @since 1.25
*/
class ProfilerOutputDb extends ProfilerOutput {
/** @var bool Whether to store host data with profiling calls */
private $perHost = false;
public function __construct( Profiler $collector, array $params ) {
parent::__construct( $collector, $params );
// Initialize per-host profiling from config, back-compat if available
if ( isset( $this->params['perHost'] ) ) {
$this->perHost = $this->params['perHost'];
}
}
public function canUse() {
# Do not log anything if database is readonly (T7375)
return !wfReadOnly();
}
public function log( array $stats ) {
try {
$dbw = wfGetDB( DB_MASTER );
} catch ( DBError $e ) {
return; // ignore
}
$fname = __METHOD__;
$dbw->onTransactionIdle( function () use ( $stats, $dbw, $fname ) {
$pfhost = $this->perHost ? wfHostname() : '';
// Sqlite: avoid excess b-tree rebuilds (mostly for non-WAL mode)
// non-Sqlite: lower contention with small transactions
$useTrx = ( $dbw->getType() === 'sqlite' );
try {
$useTrx ? $dbw->startAtomic( $fname ) : null;
foreach ( $stats as $data ) {
$name = $data['name'];
$eventCount = $data['calls'];
$timeSum = (float)$data['real'];
$memorySum = (float)$data['memory'];
$name = substr( $name, 0, 255 );
// Kludge
$timeSum = $timeSum >= 0 ? $timeSum : 0;
$memorySum = $memorySum >= 0 ? $memorySum : 0;
$dbw->upsert( 'profiling',
[
'pf_name' => $name,
'pf_count' => $eventCount,
'pf_time' => $timeSum,
'pf_memory' => $memorySum,
'pf_server' => $pfhost
],
[ [ 'pf_name', 'pf_server' ] ],
[
"pf_count=pf_count+{$eventCount}",
"pf_time=pf_time+{$timeSum}",
"pf_memory=pf_memory+{$memorySum}",
],
$fname
);
}
} catch ( DBError $e ) {
// ignore
}
try {
$useTrx ? $dbw->endAtomic( $fname ) : null;
} catch ( DBError $e ) {
// ignore
}
} );
}
}
|