forked from elijaa/phpmemcachedadmin
-
Notifications
You must be signed in to change notification settings - Fork 0
/
commands.php
255 lines (239 loc) · 14.5 KB
/
commands.php
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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
<?php
/**
* Copyright 2010 Cyrille Mahieux
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and limitations
* under the License.
*
* ><)))°> ><)))°> ><)))°> ><)))°> ><)))°> ><)))°> ><)))°> ><)))°> ><)))°>
*
* Executing commands
*
* @author [email protected]
* @since 06/04/2010
*/
# Require
require_once 'Library/Bootstrap.php';
# Initializing requests & response
$request = (isset($_REQUEST['request_command'])) ? $_REQUEST['request_command'] : null;
# Starting
ob_start();
# Display by request rype
switch ($request) {
# Memcache::get command
case 'get' :
# Ask for get on a cluster
if (isset($_REQUEST['request_server']) && ($cluster = $_ini->cluster($_REQUEST['request_server']))) {
foreach ($cluster as $server) {
# Dumping server get command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->get($server['hostname'], $server['port'], $_REQUEST['request_key']));
}
} # Ask for get on one server
elseif (isset($_REQUEST['request_server']) && ($server = $_ini->server($_REQUEST['request_server']))) {
# Dumping server get command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->get($server['hostname'], $server['port'], $_REQUEST['request_key']));
} # Ask for get on all servers
else {
foreach ($_ini->get('servers') as $cluster => $servers) {
# Asking for each server stats
foreach ($servers as $server) {
# Dumping server get command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->get($server['hostname'], $server['port'], $_REQUEST['request_key']));
}
}
}
break;
# Memcache::set command
case 'set' :
# Ask for set on a cluster
if (isset($_REQUEST['request_server']) && ($cluster = $_ini->cluster($_REQUEST['request_server']))) {
foreach ($cluster as $server) {
# Dumping server get command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->set($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_data'], $_REQUEST['request_duration']));
}
} # Ask for set on one server
elseif (isset($_REQUEST['request_server']) && ($server = $_ini->server($_REQUEST['request_server']))) {
# Dumping server set command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->set($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_data'], $_REQUEST['request_duration']));
} # Ask for set on all servers
else {
foreach ($_ini->get('servers') as $cluster => $servers) {
# Asking for each server stats
foreach ($servers as $server) {
# Dumping server set command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->set($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_data'], $_REQUEST['request_duration']));
}
}
}
break;
# Memcache::delete command
case 'delete' :
# Ask for delete on a cluster
if (isset($_REQUEST['request_server']) && ($cluster = $_ini->cluster($_REQUEST['request_server']))) {
foreach ($cluster as $server) {
# Dumping server get command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->delete($server['hostname'], $server['port'], $_REQUEST['request_key']));
}
} # Ask for delete on one server
elseif (isset($_REQUEST['request_server']) && ($server = $_ini->server($_REQUEST['request_server']))) {
# Dumping server delete command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->delete($server['hostname'], $server['port'], $_REQUEST['request_key']));
} # Ask for delete on all servers
else {
foreach ($_ini->get('servers') as $cluster => $servers) {
# Asking for each server stats
foreach ($servers as $server) {
# Dumping server delete command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->delete($server['hostname'], $server['port'], $_REQUEST['request_key']));
}
}
}
break;
# Memcache::increment command
case 'increment' :
# Checking value
if (! isset($_REQUEST['request_value']) || ! is_numeric($_REQUEST['request_value'])) {
$_REQUEST['request_value'] = 1;
}
# Ask for increment on a cluster
if (isset($_REQUEST['request_server']) && ($cluster = $_ini->cluster($_REQUEST['request_server']))) {
foreach ($cluster as $server) {
# Dumping server increment command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->increment($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_value']));
}
} # Ask for increment on one server
elseif (isset($_REQUEST['request_server']) && ($server = $_ini->server($_REQUEST['request_server']))) {
# Dumping server increment command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->increment($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_value']));
} # Ask for increment on all servers
else {
foreach ($_ini->get('servers') as $cluster => $servers) {
# Asking for each server stats
foreach ($servers as $server) {
# Dumping server increment command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->increment($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_value']));
}
}
}
break;
# Memcache::decrement command
case 'decrement' :
# Checking value
if (! isset($_REQUEST['request_value']) || ! is_numeric($_REQUEST['request_value'])) {
$_REQUEST['request_value'] = 1;
}
# Ask for decrement on a cluster
if (isset($_REQUEST['request_server']) && ($cluster = $_ini->cluster($_REQUEST['request_server']))) {
foreach ($cluster as $server) {
# Dumping server decrement command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->decrement($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_value']));
}
} # Ask for decrement on one server
elseif (isset($_REQUEST['request_server']) && ($server = $_ini->server($_REQUEST['request_server']))) {
# Dumping server decrement command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->decrement($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_value']));
} # Ask for decrement on all servers
else {
foreach ($_ini->get('servers') as $cluster => $servers) {
# Asking for each server stats
foreach ($servers as $server) {
# Dumping server decrement command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->decrement($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_value']));
}
}
}
break;
# Memcache::flush_all command
case 'flush_all' :
# Checking delay
if (! isset($_REQUEST['request_delay']) || ! is_numeric($_REQUEST['request_delay'])) {
$_REQUEST['request_delay'] = 0;
}
# Ask for flush_all on a cluster
if (isset($_REQUEST['request_server']) && ($cluster = $_ini->cluster($_REQUEST['request_server']))) {
foreach ($cluster as $server) {
# Dumping server get command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->flush_all($server['hostname'], $server['port'], $_REQUEST['request_delay']));
}
} # Ask for flush_all on one server
elseif (isset($_REQUEST['request_server']) && ($server = $_ini->server($_REQUEST['request_server']))) {
# Dumping server flush_all command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->flush_all($server['hostname'], $server['port'], $_REQUEST['request_delay']));
} # Ask for flush_all on all servers
else {
foreach ($_ini->get('servers') as $cluster => $servers) {
# Asking for each server stats
foreach ($servers as $server) {
# Dumping server flush_all command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api($_REQUEST['request_api'])->flush_all($server['hostname'], $server['port'], $_REQUEST['request_delay']));
}
}
}
break;
# Memcache::search command
case 'search' :
# Ask for search on a cluster
if (isset($_REQUEST['request_server']) && ($cluster = $_ini->cluster($_REQUEST['request_server']))) {
foreach ($cluster as $server) {
# Dumping server get command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api('Server')->search($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_level'], $_REQUEST['request_more']));
}
} # Ask for search on one server
elseif (isset($_REQUEST['request_server']) && ($server = $_ini->server($_REQUEST['request_server']))) {
# Dumping server search command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api('Server')->search($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_level'], $_REQUEST['request_more']));
} # Ask for search on all servers
else {
# Looking into each cluster
foreach ($_ini->get('servers') as $cluster => $servers) {
# Asking for each server stats
foreach ($servers as $server) {
# Dumping server search command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api('Server')->search($server['hostname'], $server['port'], $_REQUEST['request_key'], $_REQUEST['request_level'], $_REQUEST['request_more']));
}
}
}
break;
# Memcache::telnet command
case 'telnet' :
# Ask for a telnet command on a cluster
if (isset($_REQUEST['request_server']) && ($cluster = $_ini->cluster($_REQUEST['request_server']))) {
foreach ($cluster as $server) {
# Dumping server telnet command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api('Server')->telnet($server['hostname'], $server['port'], $_REQUEST['request_telnet']));
}
} # Ask for a telnet command on one server
elseif (isset($_REQUEST['request_server']) && ($server = $_ini->server($_REQUEST['request_server']))) {
# Dumping server telnet command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api('Server')->telnet($server['hostname'], $server['port'], $_REQUEST['request_telnet']));
} # Ask for a telnet command on all servers
else {
# Looking into each cluster
foreach ($_ini->get('servers') as $cluster => $servers) {
# Asking for each server stats
foreach ($servers as $server) {
# Dumping server telnet command response
echo Library_HTML_Components::serverResponse($server['hostname'], $server['port'], Library_Command_Factory::api('Server')->telnet($server['hostname'], $server['port'], $_REQUEST['request_telnet']));
}
}
}
break;
# Default : No command
default :
# Showing header
include 'View/Header.phtml';
# Showing formulary
include 'View/Commands/Commands.phtml';
# Showing footer
include 'View/Footer.phtml';
break;
}
ob_end_flush();