Context Navigation

source: branches/0.4/web/addons/job_monarch/graph.php @ 798

Last change on this file since 798 was 798, checked in by ramonb, 11 years ago
rewrote cpu_report to include Now/Min/Avg/Max? values in both current and archive RRDs
Property svn:keywords set to `Id`
File size: 21.8 KB

Line
1	<?php
2	/*
3	*
4	* This file is part of Jobmonarch
5	*
6	* Copyright (C) 2006 Ramon Bastiaans
7	*
8	* Jobmonarch is free software; you can redistribute it and/or modify
9	* it under the terms of the GNU General Public License as published by
10	* the Free Software Foundation; either version 2 of the License, or
11	* (at your option) any later version.
12	*
13	* Jobmonarch is distributed in the hope that it will be useful,
14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16	* GNU General Public License for more details.
17	*
18	* You should have received a copy of the GNU General Public License
19	* along with this program; if not, write to the Free Software
20	* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
21	*
22	* SVN $Id: graph.php 798 2013-04-06 16:09:15Z ramonb $
23	*/
24
25	global $rrds, $start, $r, $conf, $m;
26
27	include "./libtoga.php";
28
29	# Graph specific variables
30	$size = escapeshellcmd( rawurldecode( $_GET["z"] ));
31	$graph = escapeshellcmd( rawurldecode( $_GET["g"] ));
32	$grid = escapeshellcmd( rawurldecode( $_GET["G"] ));
33	$self = escapeshellcmd( rawurldecode( $_GET["me"] ));
34	$max = escapeshellcmd( rawurldecode( $_GET["x"] ));
35	$min = escapeshellcmd( rawurldecode( $_GET["n"] ));
36	$value = escapeshellcmd( rawurldecode( $_GET["v"] ));
37	$load_color = escapeshellcmd( rawurldecode( $_GET["l"] ));
38	$vlabel = escapeshellcmd( rawurldecode( $_GET["vl"] ));
39	$j_title = escapeshellcmd( rawurldecode( $_GET["t"] ));
40	$hostname = escapeshellcmd( rawurldecode( $_GET["h"] ));
41	$range = escapeshellcmd( rawurldecode( $_GET["r"] ));
42
43	if( strpos( $size, 'overview' ) )
44	{
45	$my_dir = getcwd();
46
47	global $context;
48
49	$context = 'host';
50
51	chdir( $GANGLIA_PATH );
52
53	include "./ganglia.php";
54	include "./get_ganglia.php";
55
56	chdir( $my_dir );
57	}
58
59	if ( !empty( $_GET ) )
60	{
61	extract( $_GET );
62	}
63
64	$sourcetime = $st;
65
66
67	$cluster = $c;
68	$metricname = ($g) ? $g : $m;
69
70	# Assumes we have a $start variable (set in get_context.php).
71	if ($size == "small")
72	{
73	$height = 40;
74	$width = 130;
75	}
76	else if ($size == "medium")
77	{
78	$height = 75;
79	$width = 300;
80	}
81	else if ($size == "overview-medium")
82	{
83	$height = 75;
84	$width = 300;
85	}
86	else
87	{
88	$height = 100;
89	$width = 400;
90	}
91
92	// RB: Perform some formatting/spacing magic.. tinkered to fit
93	//
94	if ($size == 'small') {
95	$eol1 = '\\l';
96	$space1 = ' ';
97	$space2 = ' ';
98	} else if ($size == 'medium') {
99	$eol1 = '';
100	$space1 = ' ';
101	$space2 = '';
102	$extras = ' --font LEGEND:7 ';
103	} else if ($size == 'overview-medium') {
104	$eol1 = '';
105	$space1 = '';
106	$space2 = '';
107	$extras = ' --font LEGEND:7 ';
108	} else if ($size == 'large') {
109	$eol1 = '';
110	$space1 = ' ';
111	$space2 = ' ';
112	} else if ($size == 'xlarge') {
113	$eol1 = '';
114	$space1 = ' ';
115	$space2 = ' ';
116	} else if ($size == 'mobile') {
117	$eol1 = '';
118	$space1 = ' ';
119	$space2 = '';
120	}
121
122	$jobstart_color = "3AE302";
123	$jobstop_color = "F5164A";
124
125	if($command)
126	{
127	$command = '';
128	}
129
130	$graph = $metricname;
131
132	$rrd_dirs = Array();
133
134	if (isset($graph))
135	{
136	$series = '';
137	if( $size == 'overview-medium' )
138	{
139	$rrd_dirs[] = $conf['rrds'] . '/' . $cluster .'/'. $hostname;
140	}
141	else
142	{
143	$trd = new TarchRrdGraph( $cluster, $hostname );
144	$rrd_dirs = $trd->getRrdDirs( $period_start, $period_stop );
145
146	}
147
148	if($graph == "cpu_report")
149	{
150
151	$style = "CPU";
152
153	$upper_limit = "--upper-limit 100 --rigid";
154	$lower_limit = "--lower-limit 0";
155
156	$vertical_label = "--vertical-label Percent ";
157
158	$def_nr = 0;
159
160	foreach( $rrd_dirs as $rrd_dir )
161	{
162
163	$series .= "DEF:'cpu_user${def_nr}'='${rrd_dir}/cpu_user.rrd':'sum':AVERAGE "
164	."DEF:'cpu_nice${def_nr}'='${rrd_dir}/cpu_nice.rrd':'sum':AVERAGE "
165	."DEF:'cpu_system${def_nr}'='${rrd_dir}/cpu_system.rrd':'sum':AVERAGE "
166	."DEF:'cpu_idle${def_nr}'='${rrd_dir}/cpu_idle.rrd':'sum':AVERAGE "
167	."DEF:'cpu_wio${def_nr}'='${rrd_dir}/cpu_wio.rrd':'sum':AVERAGE ";
168
169	if( $conf['graphreport_stats'] )
170	{
171	$series .= "CDEF:cpu_user${def_nr}_nonans=cpu_user${def_nr},UN,0,cpu_user${def_nr},IF ";
172	$series .= "CDEF:cpu_nice${def_nr}_nonans=cpu_nice${def_nr},UN,0,cpu_nice${def_nr},IF ";
173	$series .= "CDEF:cpu_system${def_nr}_nonans=cpu_system${def_nr},UN,0,cpu_system${def_nr},IF ";
174	$series .= "CDEF:cpu_wio${def_nr}_nonans=cpu_wio${def_nr},UN,0,cpu_wio${def_nr},IF ";
175	$series .= "CDEF:cpu_idle${def_nr}_nonans=cpu_idle${def_nr},UN,0,cpu_idle${def_nr},IF ";
176	}
177
178	$def_nr++;
179	}
180
181
182	if( $conf['graphreport_stats'] )
183	{
184	$s_last = $def_nr - 1;
185	$user_sum = "CDEF:cpu_user=cpu_user0_nonans";
186	$nice_sum = "CDEF:cpu_nice=cpu_nice0_nonans";
187	$system_sum = "CDEF:cpu_system=cpu_system0_nonans";
188	$wio_sum = "CDEF:cpu_wio=cpu_wio0_nonans";
189	$idle_sum = "CDEF:cpu_idle=cpu_idle0_nonans";
190
191	if( $s_last > 1 )
192	{
193	foreach (range(1, ($s_last)) as $print_nr )
194	{
195	$user_sum .= ",cpu_user{$print_nr}_nonans,+";
196	$nice_sum .= ",cpu_nice{$print_nr}_nonans,+";
197	$system_sum .= ",cpu_system{$print_nr}_nonans,+";
198	$wio_sum .= ",cpu_wio{$print_nr}_nonans,+";
199	$idle_sum .= ",cpu_idle{$print_nr}_nonans,+";
200	}
201	}
202
203	$user_sum .= " ";
204	$nice_sum .= " ";
205	$system_sum .= " ";
206	$wio_sum .= " ";
207	$idle_sum .= " ";
208
209	$series .= $user_sum . $nice_sum . $system_sum . $wio_sum . $idle_sum;
210
211	$report_names = array( "user", "nice", "system", "wio", "idle" );
212
213	$r_count = 0;
214
215	foreach( $report_names as $r )
216	{
217	if( $r_count == 0 )
218	{
219	$graph_str = "AREA";
220	$legend_str = ucfirst( $r );
221	}
222	else
223	{
224	$graph_str = "STACK";
225	}
226	foreach (range(0, ($s_last)) as $print_nr )
227	{
228	$series .= "${graph_str}:'cpu_${r}${print_nr}'#".$conf['cpu_'.${r}.'_color'].":'${legend_str}\g' ";
229	}
230
231	$series .= "VDEF:'${r}_last'=cpu_${r},LAST ";
232	$series .= "VDEF:'${r}_min'=cpu_${r},MINIMUM ";
233	$series .= "VDEF:'${r}_avg'=cpu_${r},AVERAGE ";
234	$series .= "VDEF:'${r}_max'=cpu_${r},MAXIMUM ";
235
236	$spacefill = '';
237
238	$spacesize = 6-strlen($r);
239	foreach ( range( 0, $spacesize ) as $whatever )
240	{
241	$spacefill .= ' ';
242	}
243
244	$series .= "GPRINT:'${r}_last':'${spacefill}Now\:%6.1lf%s' "
245	. "GPRINT:'${r}_min':'${space1}Min\:%6.1lf%s${eol1}' "
246	. "GPRINT:'${r}_avg':'${space2}Avg\:%6.1lf%s' "
247	. "GPRINT:'${r}_max':'${space1}Max\:%6.1lf%s\\l' ";
248	}
249	}
250	else
251	{
252	$series .= "AREA:'cpu_user${def_nr}'#".$conf['cpu_user_color']."${user_str} "
253	."STACK:'cpu_nice${def_nr}'#".$conf['cpu_nice_color']."${nice_str} "
254	."STACK:'cpu_system${def_nr}'#".$conf['cpu_system_color']."${system_str} "
255	."STACK:'cpu_wio${def_nr}'#".$conf['cpu_wio_color']."${wio_str} "
256	."STACK:'cpu_idle${def_nr}'#".$conf['cpu_idle_color']."${idle_str} ";
257	}
258
259	}
260	else if ($graph == "job_report")
261	{
262	$style = "Jobs";
263
264	$lower_limit = "--lower-limit 0 --rigid";
265	$vertical_label = "--vertical-label Jobs";
266
267	$def_nr = 0;
268
269	$rrd_dir = $conf['rrds'] . "/$clustername/$hostname/";
270
271	$rj_rrd = $rrd_dir . "zplugin_monarch_rj.rrd";
272	$qj_rrd = $rrd_dir . "zplugin_monarch_qj.rrd";
273
274	$sorted_hosts = array();
275	$sorted_hosts[] = $rjqj_host;
276
277	$rj_str = ":'Running Jobs'";
278	$qj_str = ":'Queued Jobs'";
279
280	$series .= "DEF:'running_jobs'='${rj_rrd}':'sum':AVERAGE "
281	."DEF:'queued_jobs'='${qj_rrd}':'sum':AVERAGE ";
282
283
284	$series .= "LINE3:'running_jobs'#ff0000${rj_str} ";
285
286	if ( $conf['graphreport_stats'] )
287	{
288	$series .= "CDEF:running_pos=running_jobs,0,INF,LIMIT "
289	. "VDEF:running_last=running_pos,LAST "
290	. "VDEF:running_min=running_pos,MINIMUM "
291	. "VDEF:running_avg=running_pos,AVERAGE "
292	. "VDEF:running_max=running_pos,MAXIMUM "
293	. "GPRINT:'running_last':' ${space1}Now\:%5.0lf' "
294	. "GPRINT:'running_min':'${space1}Min\:%5.0lf${eol1}' "
295	. "GPRINT:'running_avg':'${space2}Avg\:%5.0lf' "
296	. "GPRINT:'running_max':'${space1}Max\:%5.0lf\\l' ";
297	}
298
299	$series .= "LINE3:'queued_jobs'#999999${qj_str} ";
300
301	if ( $conf['graphreport_stats'] )
302	{
303	$series .= "CDEF:queued_pos=queued_jobs,0,INF,LIMIT "
304	. "VDEF:queued_last=queued_pos,LAST "
305	. "VDEF:queued_min=queued_pos,MINIMUM "
306	. "VDEF:queued_avg=queued_pos,AVERAGE "
307	. "VDEF:queued_max=queued_pos,MAXIMUM "
308	. "GPRINT:'queued_last':' ${space1}Now\:%5.0lf' "
309	. "GPRINT:'queued_min':'${space1}Min\:%5.0lf${eol1}' "
310	. "GPRINT:'queued_avg':'${space2}Avg\:%5.0lf' "
311	. "GPRINT:'queued_max':'${space1}Max\:%5.0lf\\l' ";
312	}
313	}
314	else if ($graph == "mem_report")
315	{
316	$style = "Memory";
317
318	$lower_limit = "--lower-limit 0 --rigid";
319	$extras .= "--base 1024";
320	$vertical_label = "--vertical-label Bytes";
321
322	$def_nr = 0;
323
324	foreach( $rrd_dirs as $rrd_dir )
325	{
326
327	if( $def_nr == 0 )
328	{
329
330	$memuse_str = ":'Memory Used'";
331	$memshared_str = ":'Memory Shared'";
332	$memcached_str = ":'Memory Cached'";
333	$membuff_str = ":'Memory Buffered'";
334	$memswap_str = ":'Memory Swapped'";
335	$total_str = ":'Total In-Core Memory'";
336	}
337	else
338	{
339
340	$memuse_str = "";
341	$memshared_str = "";
342	$memcached_str = "";
343	$membuff_str = "";
344	$memswap_str = "";
345	$total_str = "";
346	}
347
348	$series .= "DEF:'mem_total${def_nr}'='${rrd_dir}/mem_total.rrd':'sum':AVERAGE "
349	."CDEF:'bmem_total${def_nr}'=mem_total${def_nr},1024,* "
350	."DEF:'mem_shared${def_nr}'='${rrd_dir}/mem_shared.rrd':'sum':AVERAGE "
351	."CDEF:'bmem_shared${def_nr}'=mem_shared${def_nr},1024,* "
352	."DEF:'mem_free${def_nr}'='${rrd_dir}/mem_free.rrd':'sum':AVERAGE "
353	."CDEF:'bmem_free${def_nr}'=mem_free${def_nr},1024,* "
354	."DEF:'mem_cached${def_nr}'='${rrd_dir}/mem_cached.rrd':'sum':AVERAGE "
355	."CDEF:'bmem_cached${def_nr}'=mem_cached${def_nr},1024,* "
356	."DEF:'mem_buffers${def_nr}'='${rrd_dir}/mem_buffers.rrd':'sum':AVERAGE "
357	."CDEF:'bmem_buffers${def_nr}'=mem_buffers${def_nr},1024,* "
358	."CDEF:'bmem_used${def_nr}'='bmem_total${def_nr}','bmem_shared${def_nr}',-,'bmem_free${def_nr}',-,'bmem_cached${def_nr}',-,'bmem_buffers${def_nr}',- "
359	."AREA:'bmem_used${def_nr}'#".$conf['mem_used_color']."${memuse_str} "
360	."STACK:'bmem_shared${def_nr}'#".$conf['mem_shared_color']."${memshared_str} "
361	."STACK:'bmem_cached${def_nr}'#".$conf['mem_cached_color']."${memcached_str} "
362	."STACK:'bmem_buffers${def_nr}'#".$conf['mem_buffered_color']."${membuff_str} ";
363
364	if (file_exists("$rrd_dir/swap_total.rrd"))
365	{
366	$series .= "DEF:'swap_total${def_nr}'='${rrd_dir}/swap_total.rrd':'sum':AVERAGE "
367	."DEF:'swap_free${def_nr}'='${rrd_dir}/swap_free.rrd':'sum':AVERAGE "
368	."CDEF:'bmem_swapped${def_nr}'='swap_total${def_nr}','swap_free${def_nr}',-,1024,* "
369	."STACK:'bmem_swapped${def_nr}'#".$conf['mem_swapped_color']."${memswap_str} ";
370	}
371
372	$series .= "LINE2:'bmem_total${def_nr}'#".$conf['cpu_num_color']."${total_str} ";
373
374	$def_nr++;
375	}
376
377	}
378	else if ($graph == "load_report")
379	{
380	$style = "Load";
381
382	$lower_limit = "--lower-limit 0 --rigid";
383	$vertical_label = "--vertical-label 'Load/Procs'";
384
385	$def_nr = 0;
386
387	foreach( $rrd_dirs as $rrd_dir )
388	{
389
390	if( $def_nr == 0 )
391	{
392
393	$load_str = ":'1-min Load'";
394	$cpu_str = ":'CPUs'";
395	$run_str = ":'Running Processes'";
396	}
397	else
398	{
399	$load_str = "";
400	$cpu_str = "";
401	$run_str = "";
402	}
403
404	$series .= "DEF:'load_one${def_nr}'='${rrd_dir}/load_one.rrd':'sum':AVERAGE "
405	."DEF:'proc_run${def_nr}'='${rrd_dir}/proc_run.rrd':'sum':AVERAGE "
406	."DEF:'cpu_num${def_nr}'='${rrd_dir}/cpu_num.rrd':'sum':AVERAGE ";
407	$series .="AREA:'load_one${def_nr}'#".$conf['load_one_color']."${load_str} ";
408	$series .="LINE2:'cpu_num${def_nr}'#".$conf['cpu_num_color']."${cpu_str} ";
409	$series .="LINE2:'proc_run${def_nr}'#".$conf['proc_run_color']."${run_str} ";
410
411	$def_nr++;
412	}
413
414	}
415	else if ($graph == "network_report")
416	{
417	$style = "Network";
418
419	$lower_limit = "--lower-limit 0 --rigid";
420	$extras .= "--base 1024";
421	$vertical_label = "--vertical-label 'Bytes/sec'";
422
423	$def_nr = 0;
424
425	foreach( $rrd_dirs as $rrd_dir )
426	{
427
428	if( $def_nr == 0 )
429	{
430
431	$in_str = ":'In'";
432	$out_str = ":'Out'";
433	}
434	else
435	{
436
437	$in_str = "";
438	$out_str = "";
439	}
440
441	$series .= "DEF:'bytes_in${def_nr}'='${rrd_dir}/bytes_in.rrd':'sum':AVERAGE "
442	."DEF:'bytes_out${def_nr}'='${rrd_dir}/bytes_out.rrd':'sum':AVERAGE "
443	."LINE2:'bytes_in${def_nr}'#".$conf['mem_cached_color']."${in_str} "
444	."LINE2:'bytes_out${def_nr}'#".$conf['mem_used_color']."${out_str} ";
445
446	$def_nr++;
447	}
448
449	}
450	else if ($graph == "packet_report")
451	{
452	$style = "Packets";
453
454	$lower_limit = "--lower-limit 0 --rigid";
455	$extras .= "--base 1024";
456	$vertical_label = "--vertical-label 'Packets/sec'";
457
458	$def_nr = 0;
459
460	foreach( $rrd_dirs as $rrd_dir )
461	{
462
463	if( $def_nr == 0 )
464	{
465
466	$in_str = ":'In'";
467	$out_str = ":'Out'";
468	}
469	else
470	{
471
472	$in_str = "";
473	$out_str = "";
474	}
475
476	$series .= "DEF:'bytes_in${def_nr}'='${rrd_dir}/pkts_in.rrd':'sum':AVERAGE "
477	."DEF:'bytes_out${def_nr}'='${rrd_dir}/pkts_out.rrd':'sum':AVERAGE "
478	."LINE2:'bytes_in${def_nr}'#".$conf['mem_cached_color']."${in_str} "
479	."LINE2:'bytes_out${def_nr}'#".$conf['mem_used_color']."${out_str} ";
480
481	$def_nr++;
482	}
483
484	}
485	else
486	{
487	/* Custom graph */
488	$style = "";
489
490	$subtitle = $metricname;
491	if($context == "host")
492	{
493	if ($size == "small")
494	$prefix = $metricname;
495	else
496	$prefix = $hostname;
497
498	$value = $value>1000 ? number_format($value) : number_format($value, 2);
499	}
500
501	if (is_numeric($max))
502	$upper_limit = "--upper-limit '$max' ";
503	if (is_numeric($min))
504	$lower_limit ="--lower-limit '$min' ";
505
506	if ($vlabel)
507	{
508	$vertical_label = "--vertical-label '$vlabel'";
509	}
510	else
511	{
512	if ($upper_limit or $lower_limit)
513	{
514	$max = $max>1000 ? number_format($max) : number_format($max, 2);
515	$min = $min>0 ? number_format($min,2) : $min;
516
517	$vertical_label ="--vertical-label '$min - $max' ";
518	}
519	}
520
521	$def_nr = 0;
522
523
524	foreach( $rrd_dirs as $rrd_dir )
525	{
526
527	if( $def_nr == 0 )
528	{
529	$title_str = ":'${subtitle}'";
530	}
531	else
532	{
533	$title_str = "";
534	}
535
536	$rrd_file = "$rrd_dir/$metricname.rrd";
537	$series .= "DEF:'sum${def_nr}'='$rrd_file':'sum':AVERAGE "
538	."AREA:'sum${def_nr}'#".$conf['default_metric_color']."${title_str} ";
539
540	if( $conf['graphreport_stats'] )
541	{
542	$series .= "CDEF:sum${def_nr}_nonans=sum${def_nr},UN,0,sum${def_nr},IF ";
543	}
544
545	$def_nr++;
546	}
547
548	if( $conf['graphreport_stats'] )
549	{
550	$s_last = $def_nr - 1;
551	$series_sum = "CDEF:sum=sum0_nonans";
552
553	if( $def_nr > 1 )
554	{
555	foreach (range(1, ($s_last)) as $print_nr )
556	{
557	$series_sum .= ",sum{$print_nr}_nonans,+";
558	}
559	}
560
561	$series_sum .= " ";
562
563	$series_last = "VDEF:'sum_last'=sum,LAST ";
564	$series_minimum = "VDEF:'sum_min'=sum,MINIMUM ";
565	$series_average = "VDEF:'sum_avg'=sum,AVERAGE ";
566	$series_maximum = "VDEF:'sum_max'=sum,MAXIMUM ";
567
568	$series .= $series_sum . $series_last . $series_minimum . $series_average . $series_maximum;
569
570	$series .= "COMMENT:\"\\n\" ";
571	$series .= "GPRINT:'sum_last':'${space1}Now\:%6.1lf%s' "
572	. "GPRINT:'sum_min':'${space1}Min\:%6.1lf%s${eol1}' "
573	. "GPRINT:'sum_avg':'${space2}Avg\:%6.1lf%s' "
574	. "GPRINT:'sum_max':'${space1}Max\:%6.1lf%s\\l' ";
575	}
576	}
577	}
578	if( $series != '' )
579	{
580	if ($job_start)
581	{
582	$series .= "VRULE:${job_start}#${jobstart_color}:'job start':dashes=4,2 ";
583	}
584	if ($job_stop)
585	{
586	$series .= "VRULE:${job_stop}#${jobstop_color}:'job stop':dashes=4,2 ";
587	}
588	}
589
590	if($graph == "job_report")
591	{
592	if($range == 'job' )
593	{
594	$title = "Last: $j_title";
595	}
596	else
597	{
598	$title = "Last: $range";
599	}
600	}
601	else
602	{
603	$title = "$hostname";
604	}
605
606	function determineXGrid( $p_start, $p_stop )
607	{
608
609	$period = intval( $p_stop - $p_start );
610
611	// Syntax: <minor_grid_lines_time_declr>:<major_grid_lines_time_declr>:<labels_time_declr>:<offset>:<format>
612	//
613	// Where each <time_declr> = <time_type>:<time_interval>
614
615	//$my_lines1 = intval( $period / 3.0 );
616	//$my_lines2 = intval( $period / 6.0 );
617
618	//$my_grid = "SECOND:$my_lines2:SECOND:$my_lines1:SECOND:$my_lines1:0:%R";
619
620	//return "--x-grid $my_grid";
621
622	// Less than 1 minute
623	if( $period < 60 )
624	{
625
626	$tm_formt = "%X";
627	$my_grid = "SECOND:15:SECOND:30:SECOND:30:0:$tm_formt";
628
629	// Less than 10 minutes
630	}
631	else if( $period < 600 )
632	{
633
634	$tm_formt = "%R";
635	$my_grid = "MINUTE:1:MINUTE:3:MINUTE:3:0:$tm_formt";
636
637	// Less than 1 hour
638	}
639	else if( $period < 3600 )
640	{
641
642	$tm_formt = "%R";
643	$my_grid = "MINUTE:5:MINUTE:15:MINUTE:15:0:$tm_formt";
644
645	// Less than 15 hour
646	}
647	else if( $period < 3600 )
648	{
649
650	$tm_formt = "%R";
651	$my_grid = "HOUR:1:HOUR:2:HOUR:2:0:$tm_formt";
652
653	// Less than 1 day
654	//
655	}
656	else if( $period < 86400 )
657	{
658
659	$tm_formt = "%R";
660	$my_grid = "HOUR:2:HOUR:5:HOUR:5:0:$tm_formt";
661
662	// Less than 15 days
663	//
664	}
665	else if( $period < 1296000 )
666	{
667
668	$tm_formt = "%e-%m";
669	$my_grid = "HOUR:1:DAY:3:DAY:3:0:'$tm_formt'";
670
671	// Less than 30 days (a month)
672	//
673	}
674	else if( $period < 2592000 )
675	{
676
677	$tm_formt = "%e-%m";
678	$my_grid = "DAY:5:DAY:10:DAY:10:0:'$tm_formt'";
679	}
680
681	if( isset( $my_grid ) )
682	{
683
684	$ret_str = "--x-grid $my_grid";
685	return array($ret_str,$tm_formt);
686
687	}
688	else
689	{
690	return array( "", "" );
691	}
692	}
693
694	$lower_limit = "--lower-limit 0";
695
696	if( !isset( $load_color ) or ( $load_color == '') )
697	{
698	$load_color = 'FFFFFF';
699	}
700
701	# Calculate time range.
702	if ( isset($sourcetime) )
703	{
704	$end = $sourcetime;
705	# Get_context makes start negative.
706	$start = $sourcetime + $start;
707
708	# Fix from Phil Radden, but step is not always 15 anymore.
709	if ($range=="month")
710	{
711	$end = floor($end / 672) * 672;
712	}
713	$command = $conf['rrdtool']. " graph - --start $start --end $end ".
714	"--width $width --height $height $lower_limit ".
715	"--title '$title' $extras $background ".
716	$series;
717	}
718	else
719	{
720	$command = $conf['rrdtool'] . " graph - --start $period_start --end $period_stop ".
721	"--width $width --height $height $lower_limit --color BACK#$load_color ".
722	"--title '$title' $extras $background ".
723	$series;
724	}
725
726	$debug=0;
727
728
729	# Did we generate a command? Run it.
730	if($command)
731	{
732	/Make sure the image is not cached/
733	header ("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the past
734	header ("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT"); // always modified
735	header ("Cache-Control: no-cache, must-revalidate"); // HTTP/1.1
736	header ("Pragma: no-cache"); // HTTP/1.0
737	if ($debug)
738	{
739	header ("Content-type: text/html");
740	print "$command\n\n\n\n\n";
741	}
742	else
743	{
744	header ("Content-type: image/gif");
745	passthru($command);
746	}
747	}
748	?>

Note: See TracBrowser for help on using the repository browser.

Download in other formats: