|
1
|
|
|
<?php |
|
2
|
|
|
|
|
3
|
|
|
namespace Drupal\qa\Plugin\Qa\Control\Cache; |
|
4
|
|
|
|
|
5
|
|
|
use Drupal\qa\Pass; |
|
6
|
|
|
use Drupal\qa\Plugin\Qa\Control\BaseControl; |
|
7
|
|
|
|
|
8
|
|
|
/** |
|
9
|
|
|
* A QA Plugin for Memcache status over the Memcached (not Memcache) extension. |
|
10
|
|
|
* |
|
11
|
|
|
* @copyright Copyright (C) 2019 Frederic G. MARAND for Ouest Systèmes Informatiques (OSInet) |
|
12
|
|
|
* |
|
13
|
|
|
* @since DRUPAL-7 |
|
14
|
|
|
* |
|
15
|
|
|
* @license Licensed under the disjunction of the CeCILL, version 2 and General Public License version 2 and later |
|
16
|
|
|
*/ |
|
17
|
|
|
class Memcache extends BaseControl { |
|
18
|
|
|
const EXTENSION = 'memcached'; |
|
19
|
|
|
|
|
20
|
|
|
/** |
|
21
|
|
|
* The subset of $conf possibly relevant to Memcache. |
|
22
|
|
|
* |
|
23
|
|
|
* @var array |
|
24
|
|
|
*/ |
|
25
|
|
|
const MEMCACHE_KEYS = [ |
|
26
|
|
|
'cache_backends', |
|
27
|
|
|
'cache_class_cache_form', |
|
28
|
|
|
'cache_default_class', |
|
29
|
|
|
'lock_inc', |
|
30
|
|
|
'memcache_bins', |
|
31
|
|
|
'memcache_extension', |
|
32
|
|
|
'memcache_key_prefix', |
|
33
|
|
|
'memcache_servers', |
|
34
|
|
|
'memcache_stampede_protection', |
|
35
|
|
|
'memcache_stampede_semaphore', |
|
36
|
|
|
'memcache_stampede_wait_limit', |
|
37
|
|
|
'memcache_stampede_wait_time', |
|
38
|
|
|
'page_cache_invoke_hooks', |
|
39
|
|
|
'page_cache_without_database', |
|
40
|
|
|
]; |
|
41
|
|
|
|
|
42
|
|
|
protected $settings; |
|
43
|
|
|
|
|
44
|
|
|
/** |
|
45
|
|
|
* The Memcache plugin constructor. |
|
46
|
|
|
*/ |
|
47
|
|
|
public function __construct() { |
|
48
|
|
|
$this->settings = array_intersect_key($GLOBALS['conf'], |
|
49
|
|
|
array_combine(self::MEMCACHE_KEYS, self::MEMCACHE_KEYS)); |
|
50
|
|
|
|
|
51
|
|
|
// Ancestor constructor invokes init() so call it last. |
|
52
|
|
|
parent::__construct(); |
|
53
|
|
|
} |
|
54
|
|
|
|
|
55
|
|
|
/** |
|
56
|
|
|
* Initializer: must be implemented in concrete classes. |
|
57
|
|
|
* |
|
58
|
|
|
* Assignment to $this->package_name cannot be factored because it uses a |
|
59
|
|
|
* per-class magic constant. |
|
60
|
|
|
*/ |
|
61
|
|
|
public function init() { |
|
62
|
|
|
$this->package_name = __NAMESPACE__; |
|
63
|
|
|
$this->title = t('Check state of Memcached servers'); |
|
64
|
|
|
$this->description = t('Validates actual connectivity and current miss and eviction rates. Assumes a correct settings configuration and the memcache module being installed, although not necessarily enabled.'); |
|
65
|
|
|
} |
|
66
|
|
|
|
|
67
|
|
|
/** |
|
68
|
|
|
* {@inheritdoc} |
|
69
|
|
|
*/ |
|
70
|
|
|
public static function getDependencies() { |
|
71
|
|
|
$ret = parent::getDependencies(); |
|
72
|
|
|
$ret = array_merge($ret, ['memcache']); |
|
73
|
|
|
return $ret; |
|
74
|
|
|
} |
|
75
|
|
|
|
|
76
|
|
|
/** |
|
77
|
|
|
* Check connectivity to a given Drupal cache bin in Memcached. |
|
78
|
|
|
* |
|
79
|
|
|
* @param string $bin |
|
80
|
|
|
* The bin to check. |
|
81
|
|
|
* @param string $cluster |
|
82
|
|
|
* The name of the cluster to which the bin belongs. |
|
83
|
|
|
* |
|
84
|
|
|
* @return array |
|
85
|
|
|
* A "check" array (name, status, result) |
|
86
|
|
|
*/ |
|
87
|
|
|
protected function checkBin(string $bin, string $cluster): array { |
|
|
|
|
|
|
88
|
|
|
$mc = dmemcache_object($bin); |
|
89
|
|
|
if ($mc === FALSE) { |
|
90
|
|
|
return [ |
|
91
|
|
|
'name' => $bin, |
|
92
|
|
|
'status' => 0, |
|
93
|
|
|
'result' => 'Failed obtaining Memcached object', |
|
94
|
|
|
]; |
|
95
|
|
|
} |
|
96
|
|
|
|
|
97
|
|
|
// Contrary to documentation on |
|
98
|
|
|
// https://www.php.net/manual/fr/memcached.getstats.php , this function |
|
99
|
|
|
// returns FALSE if it cannot connect, instead of always returning an array. |
|
100
|
|
|
// @see https://bugs.php.net/bug.php?id=77809 |
|
101
|
|
|
/** @var \Memcache|\Memcached $mc */ |
|
102
|
|
|
$stats = $mc->getStats(); |
|
103
|
|
|
$resultCode = $mc->getResultCode(); |
|
|
|
|
|
|
104
|
|
|
if ($resultCode !== 0 || !is_array($stats)) { |
|
105
|
|
|
return [ |
|
106
|
|
|
'name' => $bin, |
|
107
|
|
|
'status' => 0, |
|
108
|
|
|
'result' => t('Error @code: @message', [ |
|
109
|
|
|
'@code' => $resultCode, |
|
110
|
|
|
'@message' => $mc->getResultMessage(), |
|
|
|
|
|
|
111
|
|
|
]), |
|
112
|
|
|
]; |
|
113
|
|
|
} |
|
114
|
|
|
|
|
115
|
|
|
return [ |
|
116
|
|
|
'name' => $bin, |
|
117
|
|
|
'status' => 0, |
|
118
|
|
|
'result' => "ok", |
|
119
|
|
|
]; |
|
120
|
|
|
} |
|
121
|
|
|
|
|
122
|
|
|
/** |
|
123
|
|
|
* Check the configured bins. |
|
124
|
|
|
* |
|
125
|
|
|
* @param \Drupal\qa\Pass $pass |
|
126
|
|
|
* The current control pass. |
|
127
|
|
|
* |
|
128
|
|
|
* @return \Drupal\qa\Pass |
|
129
|
|
|
* The updated control pass. |
|
130
|
|
|
*/ |
|
131
|
|
|
protected function checkBins(Pass $pass): Pass { |
|
132
|
|
|
module_load_include('inc', 'memcache', 'dmemcache'); |
|
133
|
|
|
|
|
134
|
|
|
foreach ($this->settings['memcache_bins'] as $bin => $cluster) { |
|
135
|
|
|
$pass->record($this->checkBin($bin, $cluster)); |
|
136
|
|
|
} |
|
137
|
|
|
$pass->life->end(); |
|
138
|
|
|
|
|
139
|
|
|
return $pass; |
|
140
|
|
|
} |
|
141
|
|
|
|
|
142
|
|
|
/** |
|
143
|
|
|
* Accumulate and format the results of the control pass. |
|
144
|
|
|
* |
|
145
|
|
|
* @param \Drupal\qa\Pass $pass |
|
146
|
|
|
* The current control pass. |
|
147
|
|
|
* |
|
148
|
|
|
* @return \Drupal\qa\Pass |
|
149
|
|
|
* The updated control pass. |
|
150
|
|
|
* |
|
151
|
|
|
* @throws \Exception |
|
152
|
|
|
*/ |
|
153
|
|
|
protected function finalizeBins(Pass $pass): Pass { |
|
154
|
|
|
$ok = theme('image', [ |
|
155
|
|
|
'path' => 'misc/watchdog-ok.png', |
|
156
|
|
|
'alt' => t('OK'), |
|
157
|
|
|
]); |
|
158
|
|
|
array_walk($pass->result, function (&$res, $bin) use ($ok) { |
|
159
|
|
|
if ($res === 'ok') { |
|
160
|
|
|
$res = $ok; |
|
161
|
|
|
} |
|
162
|
|
|
$res = [$bin, $res]; |
|
163
|
|
|
}); |
|
164
|
|
|
$result = [ |
|
165
|
|
|
'#theme' => 'table', |
|
166
|
|
|
'#header' => [t('Bin'), t('Status')], |
|
167
|
|
|
'#rows' => $pass->result, |
|
168
|
|
|
]; |
|
169
|
|
|
$pass->result = drupal_render($result); |
|
170
|
|
|
return $pass; |
|
171
|
|
|
} |
|
172
|
|
|
|
|
173
|
|
|
/** |
|
174
|
|
|
* Format the results of a pre-control requirements check. |
|
175
|
|
|
* |
|
176
|
|
|
* @param \Drupal\qa\Pass $pass |
|
177
|
|
|
* The current control pass. |
|
178
|
|
|
* |
|
179
|
|
|
* @return \Drupal\qa\Pass |
|
180
|
|
|
* The updated control pass. |
|
181
|
|
|
*/ |
|
182
|
|
|
protected function finalizeRequirements(Pass $pass): Pass { |
|
183
|
|
|
$pass->life->end(); |
|
184
|
|
|
// Now format result. |
|
185
|
|
|
$pass->result = implode($pass->result); |
|
186
|
|
|
return $pass; |
|
187
|
|
|
} |
|
188
|
|
|
|
|
189
|
|
|
/** |
|
190
|
|
|
* {@inheritdoc} |
|
191
|
|
|
*/ |
|
192
|
|
|
public function run(): Pass { |
|
193
|
|
|
$pass = parent::run(); |
|
194
|
|
|
if (!extension_loaded(self::EXTENSION)) { |
|
195
|
|
|
$pass->record([ |
|
196
|
|
|
'name' => 'memcached extension available', |
|
197
|
|
|
'status' => 0, |
|
198
|
|
|
'result' => 'Memcached extension not loaded', |
|
199
|
|
|
]); |
|
200
|
|
|
return $this->finalizeRequirements($pass); |
|
201
|
|
|
} |
|
202
|
|
|
|
|
203
|
|
|
$ext = drupal_strtolower($this->settings['memcache_extension'] ?? self::EXTENSION); |
|
204
|
|
|
if ($ext !== self::EXTENSION) { |
|
205
|
|
|
$pass->record([ |
|
206
|
|
|
'name' => 'memcached extension configured', |
|
207
|
|
|
'status' => 0, |
|
208
|
|
|
'result' => t('@expected extension loaded, but @actual configured instead', [ |
|
209
|
|
|
'@expected' => drupal_strtolower(self::EXTENSION), |
|
210
|
|
|
'@actual' => $ext, |
|
211
|
|
|
]), |
|
212
|
|
|
]); |
|
213
|
|
|
return $this->finalizeRequirements($pass); |
|
214
|
|
|
} |
|
215
|
|
|
|
|
216
|
|
|
$pass = $this->checkBins($pass); |
|
217
|
|
|
return $this->finalizeBins($pass); |
|
218
|
|
|
} |
|
219
|
|
|
|
|
220
|
|
|
} |
|
221
|
|
|
|
This check looks from parameters that have been defined for a function or method, but which are not used in the method body.