?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Merge branch '138-toggle-free-look-with-hotkey' into 'main/atys-live'
[ryzomcore.git] / web / public_php / admin / tool_graphs.php
bloba628f45b230c8792a5d6fb11f63b91a53a1ad47b
1 <?php
2
3 require_once('common.php');
4 require_once('functions_tool_main.php');
5 require_once('functions_tool_graphs.php');
6
7 require_once("jpgraph/jpgraph.php");
8 require_once("jpgraph/jpgraph_line.php");
9 require_once("jpgraph/jpgraph_log.php");
10
11
12 if (!tool_admin_applications_check('tool_graph')) nt_common_redirect('index.php');
13
14 nt_common_add_debug('-- Starting on \'tool_graphs.php\'');
15
16 if (!isset($NELTOOL['GET_VARS']['toolmode']))
17 {
18 $NELTOOL['GET_VARS']['toolmode'] = 'ccu';
19 nt_auth_unset_session_var('view_shard_id');
20 nt_auth_unset_session_var('view_time_highframe');
21 nt_auth_unset_session_var('view_time_lowframe');
22 }
23
24 $tool_menu_item = tool_graphs_menu_get_item_from_key($NELTOOL['GET_VARS']['toolmode']);
25 $tpl->assign('toolmode', $NELTOOL['GET_VARS']['toolmode']);
26
27 $tpl->assign('tool_title', 'Graphs&nbsp;/&nbsp;'. $tool_menu_item['title']);
28 $tpl->assign('tool_menu', tool_graphs_menu_get_list());
29
30 $view_domain_id = nt_auth_get_session_var('view_domain_id');
31 $view_shard_id = nt_auth_get_session_var('view_shard_id');
32 $view_time_highframe = nt_auth_get_session_var('view_time_highframe');
33 $view_time_lowframe = nt_auth_get_session_var('view_time_lowframe');
34
35 if (!$view_domain_id)
36 {
37 $view_domain_id = $nel_user['group_default_domain_id'];
38 $view_shard_id = $nel_user['group_default_shard_id'];
39 nt_auth_set_session_var('view_domain_id', $view_domain_id);
40 nt_auth_set_session_var('view_shard_id', $view_shard_id);
41 }
42
43 if (isset($NELTOOL['GET_VARS']['domain']))
44 {
45 if ($view_domain_id != $NELTOOL['GET_VARS']['domain'])
46 {
47 $view_domain_id = $NELTOOL['GET_VARS']['domain'];
48 nt_auth_set_session_var('view_domain_id', $view_domain_id);
49
50 $view_shard_id = null;
51 nt_auth_unset_session_var('view_shard_id');
52 }
53 }
54
55 if (isset($NELTOOL['GET_VARS']['shard']))
56 {
57 $view_shard_id = $NELTOOL['GET_VARS']['shard'];
58 nt_auth_set_session_var('view_shard_id', $view_shard_id);
59 }
60
61 if (isset($NELTOOL['GET_VARS']['highframe']))
62 {
63 $view_time_highframe = $NELTOOL['GET_VARS']['highframe'];
64 nt_auth_set_session_var('view_time_highframe', $view_time_highframe);
65 }
66
67 if (isset($NELTOOL['GET_VARS']['lowframe']))
68 {
69 $view_time_lowframe = $NELTOOL['GET_VARS']['lowframe'];
70 nt_auth_set_session_var('view_time_lowframe', $view_time_lowframe);
71 }
72
73 if ($view_time_highframe == null)
74 {
75 $view_time_highframe = tool_graphs_time_frame_get_default($tool_hires_frames);
76 }
77
78 if ($view_time_lowframe == null)
79 {
80 $view_time_lowframe = tool_graphs_time_frame_get_default($tool_lowres_frames);
81 }
82
83
84 $current_refresh_rate = nt_auth_get_session_var('current_refresh_rate');
85 if (isset($_POST['services_refresh']))
86 {
87 if ($current_refresh_rate != $_POST['services_refresh'])
88 {
89 $current_refresh_rate = $_POST['services_refresh'];
90 nt_auth_set_session_var('current_refresh_rate',$current_refresh_rate);
91 }
92 }
93
94 if ($current_refresh_rate == null)
95 {
96 $current_refresh_rate = 0;
97 }
98 elseif ($current_refresh_rate > 0)
99 {
100 $tpl->assign('nel_tool_refresh', '<meta http-equiv=refresh content="'. $current_refresh_rate .'">');
101 }
102
103 $tpl->assign('tool_refresh_list', $refresh_rates);
104 $tpl->assign('tool_refresh_rate', $current_refresh_rate);
105
106 $tpl->assign('tool_domain_list', $nel_user['access']['domains']);
107 $tpl->assign('tool_domain_selected', $view_domain_id);
108
109 $tpl->assign('tool_shard_list', $nel_user['access']['shards']);
110 $tpl->assign('tool_shard_selected', $view_shard_id);
111
112 $tool_shard_filters = tool_main_get_shard_ids($view_shard_id);
113 $tpl->assign('tool_shard_filters', $tool_shard_filters);
114
115 if ($view_domain_id)
116 {
117 $tool_as_error = null;
118
119 $AS_Name = tool_main_get_domain_name($view_domain_id);
120 $AS_Host = tool_main_get_domain_host($view_domain_id);
121 $AS_Port = tool_main_get_domain_port($view_domain_id);
122 $AS_ShardName = tool_main_get_shard_name($view_shard_id);
123 $AS_InternalName = tool_main_get_shard_as_id($view_shard_id);
124 $AS_RRDPath = tool_main_get_domain_rrd_path($view_domain_id);
125
126
127 if ($AS_RRDPath != "")
128 {
129 // lets make sure there is a trailing /
130 if (substr($AS_RRDPath, -1) != '/') $AS_RRDPath .= '/';
131
132 $tpl->assign('tool_page_title', 'Graphs - '. $AS_Name . ($AS_ShardName != '' ? ' / '. $AS_ShardName : ''));
133
134 switch($NELTOOL['GET_VARS']['toolmode'])
135 {
136 case 'ccu':
137 /*
138 * ###################################################################################################
139 * CCU Pages
140 * ###################################################################################################
141 */
142
143 $tpl->assign('tool_frame_list', $tool_lowres_frames);
144 $tpl->assign('tool_frame_selected', $view_time_lowframe);
145
146 if ($view_time_lowframe)
147 {
148 $graph_data_tmp = tool_graphs_get_list_v2($AS_RRDPath, strtolower($AS_InternalName), false, true);
149
150 $tool_tech_graph_list = array( array('service' => 'su', 'variable' => 'TotalConcurentUser'),
151 array('service' => 'egs', 'variable' => 'NbPlayers'),
152 );
153
154 $graph_list = tool_graphs_find($tool_tech_graph_list, $graph_data_tmp['datas']);
155 nt_common_add_debug($graph_list);
156
157 $rrd_webs = array();
158 reset($graph_list);
159 foreach($graph_list as $graph_item)
160 {
161 $rrd_path = $AS_RRDPath . $graph_item['rd_file'];
162 $rrd_def = "DEF:val=". $rrd_path .":var:AVERAGE";
163 $rrd_draw = "LINE2:val#0000FF --no-legend";
164 $rrd_output = NELTOOL_RRDSYSBASE . $graph_item['rd_file'] ."-". $view_time_lowframe .".gif";
165 $rrd_web = NELTOOL_RRDWEBBASE . $graph_item['rd_file'] ."-". $view_time_lowframe .".gif";
166 $rrd_exec = NELTOOL_RRDTOOL ." graph ". $rrd_output ." --width 916 --height 110 --start -". $view_time_lowframe ." ". $rrd_def ." ". $rrd_draw;
167
168 nt_common_add_debug($rrd_exec);
169 exec($rrd_exec, $rrd_result, $rrd_code);
170
171 $file_description = str_replace(array('.rrd','.hrd','.'),
172 array('', '', '&nbsp;-&nbsp;'),
173 $graph_item['rd_file']);
174
175 $time_string = '';
176 tool_main_get_elapsed_time_string($view_time_lowframe, $time_string);
177
178 $rrd_webs[] = array('desc' => $file_description .' over '. $time_string,
179 'img' => $rrd_web);
180 }
181 }
182
183 $tpl->assign('tool_rrd_output', $rrd_webs);
184
185 break;
186
187 case 'tech':
188 /*
189 * ###################################################################################################
190 * Tech Shard Pages (Low Res)
191 // ts_mainland01.TotalSpeedLoop.rrd
192 // egs_mainland01.NbPlayers.rrd
193 // egs_mainland01.ProcessUsedMemory.rrd
194 // egs_mainland01.TickSpeedLoop.rrd
195 * ###################################################################################################
196 */
197
198 $tpl->assign('tool_frame_list', $tool_lowres_frames);
199 $tpl->assign('tool_frame_selected', $view_time_lowframe);
200
201 if ($view_shard_id && $view_time_lowframe)
202 {
203 $graph_data_tmp = tool_graphs_get_list_v2($AS_RRDPath, strtolower($AS_InternalName), false);
204
205 $tool_tech_graph_list = array( array('service' => 'ts', 'variable' => 'TotalSpeedLoop'),
206 array('service' => 'egs', 'variable' => 'NbPlayers'),
207 array('service' => 'egs', 'variable' => 'ProcessUsedMemory'),
208 array('service' => 'egs', 'variable' => 'TickSpeedLoop'),
209 );
210
211 $graph_list = tool_graphs_find($tool_tech_graph_list, $graph_data_tmp['datas']);
212 nt_common_add_debug($graph_list);
213
214 $rrd_webs = array();
215 reset($graph_list);
216 foreach($graph_list as $graph_item)
217 {
218 $rrd_path = $AS_RRDPath . $graph_item['rd_file'];
219 $rrd_def = "DEF:val=". $rrd_path .":var:AVERAGE";
220 $rrd_draw = "LINE2:val#0000FF --no-legend";
221 $rrd_output = NELTOOL_RRDSYSBASE . $graph_item['rd_file'] ."-". $view_time_lowframe .".gif";
222 $rrd_web = NELTOOL_RRDWEBBASE . $graph_item['rd_file'] ."-". $view_time_lowframe .".gif";
223 $rrd_exec = NELTOOL_RRDTOOL ." graph ". $rrd_output ." --width 916 --height 110 --start -". $view_time_lowframe ." ". $rrd_def ." ". $rrd_draw;
224
225 nt_common_add_debug($rrd_exec);
226 exec($rrd_exec, $rrd_result, $rrd_code);
227
228 $file_description = str_replace(array('.rrd','.hrd','.'),
229 array('', '', '&nbsp;-&nbsp;'),
230 $graph_item['rd_file']);
231
232 $time_string = '';
233 tool_main_get_elapsed_time_string($view_time_lowframe, $time_string);
234
235 $rrd_webs[] = array('desc' => $file_description .' over '. $time_string,
236 'img' => $rrd_web);
237 }
238 }
239
240 $tpl->assign('tool_rrd_output', $rrd_webs);
241
242 break;
243
244 case 'hires':
245 /*
246 * ###################################################################################################
247 * Hi-Res Shard Pages
248 // ts_mainland01.TotalSpeedLoop.hrd
249 // egs_mainland01.TickSpeedLoop.hrd
250 // ais_fyros_mainland01.ProcessUsedMemory.hrd
251 // ais_matis_mainland01.ProcessUsedMemory.hrd
252 // ais_zorai_mainland01.ProcessUsedMemory.hrd
253 // ais_tryker_mainland01.ProcessUsedMemory.hrd
254 // ais_pr_mainland01.ProcessUsedMemory.hrd
255 // ais_newbyland_mainland01.ProcessUsedMemory.hrd
256 // gpms_mainland01.ProcessUsedMemory.hrd
257 // fes_mainland01.ProcessUsedMemory.hrd
258 * ###################################################################################################
259 */
260
261 $tpl->assign('tool_frame_list', $tool_hires_frames);
262 $tpl->assign('tool_frame_selected', $view_time_highframe);
263
264 if ($view_shard_id && $view_time_highframe)
265 {
266 $graph_data_tmp = tool_graphs_get_list_v2($AS_RRDPath, strtolower($AS_InternalName), true);
267
268 $tool_tech_graph_list = array( array('service' => 'ts', 'variable' => 'TotalSpeedLoop'),
269 array('service' => 'egs', 'variable' => 'TickSpeedLoop'),
270 array('service' => 'ais', 'variable' => 'TickSpeedLoop'),
271 array('service' => 'gpms', 'variable' => 'TickSpeedLoop'),
272 array('service' => 'fes', 'variable' => 'TickSpeedLoop'),
273 );
274
275 $graph_list = tool_graphs_find($tool_tech_graph_list, $graph_data_tmp['datas']);
276 nt_common_add_debug($graph_list);
277
278 $adminService = new MyAdminService;
279 if (@$adminService->connect($AS_Host, $AS_Port, $res) === false)
280 {
281 nt_common_add_debug($res);
282 $tpl->assign('tool_domain_error', $res );
283 }
284 else
285 {
286 $now = time();
287 $rrd_webs = array();
288
289 reset($graph_list);
290 foreach($graph_list as $graph_item)
291 {
292 nt_common_add_debug(" getHighRezGraph : ". $graph_item['service'] .".". $graph_item['variable'] ." , ". ($now - ($view_time_highframe / 1000)) ." , ". $now ." , 0");
293 $tmp = $adminService->getHighRezGraph($graph_item['service'] .'.'. $graph_item['variable'], $now - ($view_time_highframe / 1000), $now, 0);
294
295 //nt_common_add_debug($tmp);
296
297 $mean_values = tool_graphs_extract_mean_values($tmp);
298 //nt_common_add_debug($mean_values);
299
300 if (sizeof($mean_values['val']))
301 {
302 $graph = new Graph(1000,150);
303 $graph->SetMargin(35,10,5,25); // left - right - top - bottom
304 $graph->SetScale("intlin");
305 $graph->xgrid->Show(true,true);
306 $graph->ygrid->Show(true,true);
307 $graph->xaxis->SetLabelFormatCallback('tool_graphs_xaxis_callback');
308
309 $line = new LinePlot($mean_values['val'], $mean_values['ref']);
310 $line->SetColor('blue');
311 $line->SetFillColor('lightblue');
312 $graph->Add($line);
313
314 $high_sys_name = NELTOOL_RRDSYSBASE . $graph_item['rd_file'] ."-". $view_time_highframe .'_0.png';
315 $high_web_name = NELTOOL_RRDWEBBASE . $graph_item['rd_file'] ."-". $view_time_highframe .'_0.png';
316
317 $graph->Stroke($high_sys_name);
318
319 $file_description = str_replace(array('.rrd','.hrd','.'),
320 array('', '', '&nbsp;-&nbsp;'),
321 $graph_item['rd_file']);
322
323 $time_string = '';
324 tool_main_get_elapsed_time_string($view_time_highframe / 1000, $time_string);
325
326 $rrd_webs[] = array('desc' => $file_description .' over '. $time_string .' - ('. sizeof($mean_values['val']) .' values)',
327 'img' => $high_web_name);
328 }
329 else
330 {
331 $rrd_webs[] = array('desc' => 'Not enough values to render plot for '. $graph_item['rd_file'] .' over '. ($view_time_highframe / 1000) .'s.',
332 'img' => '');
333 }
334 }
335 }
336 }
337
338 $tpl->assign('tool_rrd_high_output', $rrd_webs);
339
340
341 break;
342
343 case 'old':
344 /*
345 * ###################################################################################################
346 * Old Page
347 * ###################################################################################################
348 */
349
350 $tool_as_error = null;
351
352 if ($AS_Host && $AS_Port)
353 {
354 $graph_data_tmp = tool_graphs_get_list($AS_RRDPath, strtolower($AS_InternalName));
355 $graph_variables = $graph_data_tmp['variables'];
356 $graph_datas = $graph_data_tmp['datas'];
357
358 if (sizeof($graph_datas))
359 {
360 $tpl->assign('tool_graph_list', true);
361 $tpl->assign('tool_graph_variables', $graph_variables);
362 $tpl->assign('tool_graph_datas', $graph_datas);
363
364 $tool_variable_selected = $_GET['variable'];
365 $tool_service_selected = $_GET['service'];
366
367 $tpl->assign('tool_graph_variable_selected', $tool_variable_selected);
368 $tpl->assign('tool_graph_service_selected', $tool_service_selected);
369
370 $tool_selected_variable_data = tool_graphs_get_data($graph_datas, $tool_variable_selected, $tool_service_selected);
371
372 if ($tool_selected_variable_data['low_file'] != '')
373 {
374 $rrd_values = array(1200, 10800, 86400, 604800, 2592000, 7776000); // 20mins, 3h, 24h, 7days, 30 days, 90 days (unit is 1 second)
375 $rrd_path = $AS_RRDPath . $tool_selected_variable_data['low_file'];
376 $rrd_def = "DEF:val=". $rrd_path .":var:AVERAGE";
377 $rrd_draw = "LINE2:val#0000FF";
378
379 $rrd_webs = array();
380
381 reset($rrd_values);
382 foreach($rrd_values as $rrd_value)
383 {
384 $rrd_output = NELTOOL_RRDSYSBASE . $tool_selected_variable_data['low_file'] ."-". $rrd_value .".gif";
385 $rrd_web = NELTOOL_RRDWEBBASE . $tool_selected_variable_data['low_file'] ."-". $rrd_value .".gif";
386 $rrd_exec = NELTOOL_RRDTOOL ." graph ". $rrd_output ." --start -". $rrd_value ." ". $rrd_def ." ". $rrd_draw;
387 nt_common_add_debug($rrd_exec);
388 exec($rrd_exec, $rrd_result, $rrd_code);
389 $rrd_webs[] = array('desc' => $tool_selected_variable_data['low_file'] .' over '. $rrd_value .'s.',
390 'img' => $rrd_web);
391 }
392
393 $tpl->assign('tool_rrd_output', $rrd_webs);
394 }
395
396 if ($tool_selected_variable_data['high_file'] != '')
397 {
398 $rrd_webs = array();
399 $rrd_values = array(array(10000,10), array(30000,10), array(90000,10)); // 10s, 30s, 90s (unit is 1 ms)
400
401 $adminService = new MyAdminService;
402 if (@$adminService->connect($AS_Host, $AS_Port, $res) === false)
403 {
404 nt_common_add_debug($res);
405 $tpl->assign('tool_domain_error', $res );
406 }
407 else
408 {
409 $now = time();
410 $rrd_webs = array();
411
412 reset($rrd_values);
413 foreach($rrd_values as $rrd_value)
414 {
415 nt_common_add_debug(" getHighRezGraph : ". $tool_selected_variable_data['service'] .".". $tool_selected_variable_data['variable'] ." , ". ($now - ($rrd_value[0] / 1000)) ." , ". $now ." , ". $rrd_value[1]);
416 $tmp = $adminService->getHighRezGraph($tool_selected_variable_data['service'] .'.'. $tool_selected_variable_data['variable'], $now - ($rrd_value[0] / 1000), $now, $rrd_value[1]);
417
418 //nt_common_add_debug(" getHighRezGraph : ". $tool_selected_variable_data['service'] .".". $tool_selected_variable_data['variable'] ." , ". ($rrd_value[0] / 1000) ." , 0 , 0");
419 //$tmp = $adminService->getHighRezGraph($tool_selected_variable_data['service'] .'.'. $tool_selected_variable_data['variable'], ($rrd_value[0] / 1000), 0, 0);
420
421 nt_common_add_debug($tmp);
422
423 $mean_values = tool_graphs_extract_mean_values($tmp);
424 nt_common_add_debug($mean_values);
425
426 if (sizeof($mean_values['val']))
427 {
428 $graph = new Graph(480,160);
429 $graph->SetMargin(35,10,5,25); // left - right - top - bottom
430
431 // Now specify the X-scale explicit but let the Y-scale be auto-scaled
432 //$graph->SetScale("intlin",0,0,$adjstart,$adjend);
433 $graph->SetScale("intlin");
434
435 // display grids
436 $graph->xgrid->Show(true,true);
437 $graph->ygrid->Show(true,true);
438 //$graph->SetGridDepth(DEPTH_FRONT);
439
440 // Setup the callback and adjust the angle of the labels
441 $graph->xaxis->SetLabelFormatCallback('tool_graphs_xaxis_callback');
442 //$graph->xaxis->title->Set("ms.");
443 //$graph->xaxis->SetLabelAngle(90);
444
445 // Set the labels every 5min (i.e. 300seconds) and minor ticks every minute
446 //$graph->xaxis->scale->ticks->Set(1000);
447 //$graph->yscale->SetAutoTicks();
448
449 $line = new LinePlot($mean_values['val'], $mean_values['ref']);
450 $line->SetColor('blue');
451 $line->SetFillColor('lightblue');
452 $graph->Add($line);
453
454 $high_sys_name = NELTOOL_RRDSYSBASE . $tool_selected_variable_data['high_file'] ."-". $rrd_value[0] .'_'. $rrd_value[1] .".png";
455 $high_web_name = NELTOOL_RRDWEBBASE . $tool_selected_variable_data['high_file'] ."-". $rrd_value[0] .'_'. $rrd_value[1] .".png";
456
457 $graph->Stroke($high_sys_name);
458
459 $rrd_webs[] = array('desc' => $tool_selected_variable_data['high_file'] .' over '. ($rrd_value[0] / 1000) .'s. ('. sizeof($mean_values['val']) .' values)',
460 'img' => $high_web_name);
461 }
462 else
463 {
464 $rrd_webs[] = array('desc' => 'Not enough values to render plot for '. $tool_selected_variable_data['high_file'] .' over '. ($rrd_value[0] / 1000) .'s.',
465 'img' => '');
466 }
467 }
468
469 $tpl->assign('tool_rrd_high_output', $rrd_webs);
470 }
471
472 }
473
474 }
475 }
476
477 break;
478 }
479 }
480 else
481 {
482 $tpl->assign('tool_domain_error', "This domain has not been configured to handle graphs!");
483 }
484 }
485 else
486 {
487 }
488
489 $tpl->display($tool_menu_item['tpl']);
490
491 ?>