?  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 / functions_tool_graphs.php
blobba043891cd07b2bcb4e041829d6e40a108ea689d
1 <?php
2
3 $tool_graph_menu = array(array('title' => 'CCU',
4 'key' => 'ccu',
5 'uri' => 'tool_graphs.php?toolmode=ccu',
6 'tpl' => 'tool_graphs_ccu.tpl',
7 'access' => '',
8 ),
9 array('title' => 'Tech Shard',
10 'key' => 'tech',
11 'uri' => 'tool_graphs.php?toolmode=tech',
12 'tpl' => 'tool_graphs_tech.tpl',
13 'access' => '',
14 ),
15 array('title' => 'Hi-Res Shard',
16 'key' => 'hires',
17 'uri' => 'tool_graphs.php?toolmode=hires',
18 'tpl' => 'tool_graphs_hires.tpl',
19 'access' => '',
20 ),
21 array('title' => 'Old',
22 'key' => 'old',
23 'uri' => 'tool_graphs.php?toolmode=old',
24 'tpl' => 'tool_graphs.tpl',
25 'access' => '',
26 ),
27 );
28
29 $tool_hires_frames = array(array('title' => '10 seconds',
30 'value' => 10000,
31 'step' => 0,
32 'default' => false,
33 ),
34 array('title' => '30 seconds',
35 'value' => 30000,
36 'step' => 0,
37 'default' => true,
38 ),
39 array('title' => '90 seconds',
40 'value' => 90000,
41 'step' => 0,
42 'default' => false,
43 ),
44 );
45
46 $tool_lowres_frames = array(array('title' => '20 minutes',
47 'value' => 1200,
48 'default' => false,
49 ),
50 array('title' => '3 hours',
51 'value' => 10800,
52 'default' => false,
53 ),
54 array('title' => '24 hours',
55 'value' => 86400,
56 'default' => true,
57 ),
58 array('title' => '7 days',
59 'value' => 604800,
60 'default' => false,
61 ),
62 array('title' => '30 days',
63 'value' => 2592000,
64 'default' => false,
65 ),
66 array('title' => '90 days',
67 'value' => 7776000,
68 'default' => false,
69 ),
70 );
71
72 function tool_graphs_time_frame_get_default($list)
73 {
74 reset($list);
75 foreach($list as $frame)
76 {
77 if ($frame['default'] == true) return $frame['value'];
78 }
79 }
80
81 function tool_graphs_menu_get_list()
82 {
83 global $tool_graph_menu;
84 global $nel_user;
85
86 $new_menu = array();
87
88 reset($tool_graph_menu);
89 foreach($tool_graph_menu as $menu_item)
90 {
91 if (($menu_item['access'] == '') || tool_admin_applications_check($menu_item['access']))
92 {
93 $new_menu[] = $menu_item;
94 }
95 }
96
97 return $new_menu;
98 }
99
100 function tool_graphs_menu_get_item_from_key($key)
101 {
102 global $tool_graph_menu;
103
104 reset($tool_graph_menu);
105 foreach($tool_graph_menu as $tool_menu)
106 {
107 if ($tool_menu['key'] == $key) return $tool_menu;
108 }
109
110 return null;
111 }
112
113 function tool_graphs_find($needles, $list)
114 {
115 $result = array();
116
117 reset($needles);
118 foreach($needles as $needle)
119 {
120 if (isset($list[$needle['variable']]))
121 {
122 nt_common_add_debug("variable found ". $needle['variable']);
123 reset($list[$needle['variable']]);
124 foreach($list[$needle['variable']] as $var)
125 {
126 nt_common_add_debug("checking '". $needle['service'] ."' in '". $var['service'] ."'");
127 if (ereg("^". $needle['service'] .".*$",$var['service']))
128 {
129 nt_common_add_debug("adding ". $var['service']);
130 $result[] = $var;
131 }
132 }
133 }
134 }
135
136 return $result;
137 }
138
139 function tool_graphs_get_list_v2($dir, $shard_match, $high=false, $domain=false)
140 {
141 $data = array();
142
143 if (!ereg("^[a-zA-Z0-9_]+$",$shard_match) && !$domain) return $data;
144
145 if (substr($dir, -1) != '/') $dir .= '/';
146
147 if (is_dir($dir))
148 {
149 if ($handle = opendir($dir))
150 {
151 while (($file = readdir($handle)) !== false)
152 {
153 if (($file != '.') && ($file != '..'))
154 {
155 $filelist[] = $file;
156 }
157 }
158 closedir($handle);
159
160 sort($filelist);
161 nt_common_add_debug($filelist);
162
163 //fes_arispotle_01.NetSpeedLoop.hrd
164 //egs_arispotle.TickSpeedLoop.hrd
165 //$my_ereg = "^([^_]+_(". $shard_match .")(_[^\ \.])?)\.([^\ ]+)\.([hr])rd$";
166 //$my_ereg = "^([^_]+_(". $shard_match .")(_[^\ \.])?)\.([^\ ]+)\.rrd$";
167 $my_ereg = "^([^_]+(_[^_]+)?_(". $shard_match .")(_[^\ \.])?)\.([^.]+)\.". ($high === true ? 'h':'r') ."rd$";
168 nt_common_add_debug("using regexp: ".$my_ereg);
169
170 // 0: complete file name
171 // 1: service alias (eg. fes_arispotle_01)
172 // 2: n/a
173 // 3: shard (eg. arispotle)
174 // 4: n/a
175 // 5: variable (eg. NetSpeedLoop)
176
177 // this is special, mainly to catch domain wide variables, such as su.* which don't have a shard
178 $my_ereg2 = "^([^_]+(_[^_]+)?(_[^\ \.])?)\.([^.]+)\.". ($high === true ? 'h':'r') ."rd$";
179 nt_common_add_debug("using regexp2: ".$my_ereg2);
180
181 // 0: complete file name
182 // 1: service alias (eg. fes_arispotle_01)
183 // 2: n/a
184 // 3: n/a
185 // 4: variable (eg. NetSpeedLoop)
186
187
188 reset($filelist);
189 foreach($filelist as $file)
190 //while (($file = readdir($handle)) !== false)
191 {
192 //nt_common_add_debug("checking : ". $file);
193 if (ereg($my_ereg, $file, $params))
194 {
195 nt_common_add_debug("ok".$file);
196 //nt_common_add_debug($params);
197 $tmp = array( 'rd_file' => $params[0],
198 'service' => $params[1],
199 'shard' => $params[3],
200 'variable' => $params[5]);
201
202 $data[$params[5]][] = $tmp;
203 }
204 elseif (ereg($my_ereg2, $file, $params))
205 {
206 nt_common_add_debug("ok2".$file);
207 $tmp = array( 'rd_file' => $params[0],
208 'service' => $params[1],
209 'shard' => 'open',
210 'variable' => $params[4]);
211
212 $data[$params[4]][] = $tmp;
213 }
214 }
215
216 }
217 }
218
219 nt_common_add_debug(array(array_keys($data), $data));
220
221 return array('variables' => array_keys($data), 'datas' => $data);
222
223 }
224
225
226 function tool_graphs_get_list($dir, $shard_match)
227 {
228 $data = array();
229
230 if (substr($dir, -1) != '/') $dir .= '/';
231
232 if (is_dir($dir))
233 {
234 if ($handle = opendir($dir))
235 {
236 //fes_arispotle_01.NetSpeedLoop.hrd
237 //egs_arispotle.TickSpeedLoop.hrd
238 $my_ereg = "^([^_]+_(". $shard_match .")(_[^\ \.])?)\.([^\ ]+)\.([hr])rd$";
239 $my_ereg = "^([^_]+_(". $shard_match .")(_[^\ \.])?)\.([^\ ]+)\.rrd$";
240 $my_ereg = "^([^_]+(_[^_]+)?_(". $shard_match .")(_[^\ \.])?)\.([^.]+)\.rrd$";
241 //nt_common_add_debug($my_ereg);
242
243 // 0: complete file name
244 // 1: service alias (eg. fes_arispotle_01)
245 // 2: n/a
246 // 3: shard (eg. arispotle)
247 // 4: n/a
248 // 5: variable (eg. NetSpeedLoop)
249 // 6: graph type, h/r : high/low (removed)
250
251 while (($file = readdir($handle)) !== false)
252 {
253 if (($file != '.') && ($file != '..'))
254 {
255 //nt_common_add_debug("checking : ". $file);
256 if (ereg($my_ereg, $file, $params))
257 {
258 $high_file = str_replace('.rrd','.hrd',$file);
259 if (!file_exists($dir . $high_file)) $high_file = '';
260
261 //nt_common_add_debug($params);
262 $tmp = array( 'low_file' => $params[0],
263 'high_file' => $high_file,
264 'service' => $params[1],
265 'shard' => $params[3],
266 'variable' => $params[5]);
267
268 $data[$params[5]][] = $tmp;
269 }
270 }
271 }
272
273 closedir($handle);
274 }
275 }
276
277 nt_common_add_debug(array(array_keys($data), $data));
278
279 return array('variables' => array_keys($data), 'datas' => $data);
280 }
281
282 function tool_graphs_get_data($data, $variable, $service)
283 {
284 reset($data);
285 foreach($data as $svar => $sdata)
286 {
287 if ($svar == $variable)
288 {
289 reset($sdata);
290 foreach($sdata as $sidata)
291 {
292 if ($sidata['service'] == $service)
293 {
294 return $sidata;
295 }
296 }
297 }
298 }
299
300 return null;
301 }
302
303 function tool_graphs_extract_mean_values($data)
304 {
305 $result = array('ref' => array(), 'val' => array());
306
307 $base = null;
308
309 reset($data);
310 foreach($data as $sdata)
311 {
312 $tmp_data = explode(':', $sdata);
313
314 // get reference as t0
315 if (!$base) $base = trim($tmp_data[1]);
316
317 $val_data = explode(' ', $tmp_data[2]);
318
319 $result['ref'][] = $tmp_data[1] - $base;
320 $result['val'][] = trim($val_data[1]);
321 }
322
323 return $result;
324 }
325
326 function tool_graphs_xaxis_callback($aVal)
327 {
328 return ($aVal / 1000) .'k';
329 }
330
331 // ######################################################################################################################
332 // ######################################################################################################################
333
334 function tool_graphs_rrd_get_list($dir)
335 {
336 $dir_list = array();
337
338 if ($handle = opendir($dir))
339 {
340 while (false !== ($file = readdir($handle)))
341 {
342 if (($file != ".") && ($file != "..") && (substr($file, -4) == '.rrd'))
343 {
344 $dir_list[] = array('name' => $file, 'code' => base64_encode($file));
345 }
346 }
347
348 closedir($handle);
349 }
350
351 return $dir_list;
352 }
353
354 function tool_graphs_build_rrd($fname,$period=0)
355 {
356 $rrdperiod = '-'. $period;
357 $rrdfile = RRD_PATH . $fname;
358 $webimage = GFX_PATH . $fname .'_'. $period .'.gif';
359
360 $opts = array( "--start", $rrdperiod, "DEF:val=". $rrdfile .":var:AVERAGE", "LINE2:val#0000FF");
361 $ret = rrd_graph($webimage, $opts, count($opts));
362
363 if ( is_array($ret) )
364 {
365 return array('status' => true, 'img' => $webimage);
366 }
367
368 $err = rrd_error();
369 return array('status' => false, 'error' => "Error: rrd_graph() -- $err");
370 }
371
372
373
374 ?>