From: octo Date: Sat, 25 Feb 2006 16:45:21 +0000 (+0000) Subject: Cleaned up contrib/: Removed old scripts, museum, etc.. X-Git-Tag: collectd-3.8.0~7 X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=2fcf2fb063a4bf6cae4dcb45f4e47600afb916bf;p=collectd.git Cleaned up contrib/: Removed old scripts, museum, etc.. --- diff --git a/contrib/collection.cgi b/contrib/collection.cgi new file mode 100755 index 00000000..5684475e --- /dev/null +++ b/contrib/collection.cgi @@ -0,0 +1,1496 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +no warnings ('qw'); + +use CGI; +use RRDs; +use Fcntl (qw(:flock)); +use Carp (qw(carp cluck confess croak)); + +our $Config = read_config (); + +our $AbsDir; +our $RelDir; +our $Type; +our $Inst; +our $TimeSpan; + +for (qw(Red Green Blue Yellow Cyan Magenta)) +{ + $Config->{'Colors'}{"Half$_"} = color_calculate_transparent ($Config->{'Colors'}{'Alpha'}, + $Config->{'Colors'}{'Canvas'}, $Config->{'Colors'}{"Full$_"}); +} + +$Config->{'Colors'}{'HalfBlueGreen'} = color_calculate_transparent ($Config->{'Colors'}{'Alpha'}, + $Config->{'Colors'}{'Canvas'}, $Config->{'Colors'}{'FullGreen'}, $Config->{'Colors'}{'FullBlue'}); +$Config->{'Colors'}{'HalfRedBlue'} = color_calculate_transparent ($Config->{'Colors'}{'Alpha'}, + $Config->{'Colors'}{'Canvas'}, $Config->{'Colors'}{'FullBlue'}, $Config->{'Colors'}{'FullRed'}); + +our $GraphDefs; +{ + my $Alpha = $Config->{'Colors'}{'Alpha'}; + my $Canvas = $Config->{'Colors'}{'Canvas'}; + + my $FullRed = $Config->{'Colors'}{'FullRed'}; + my $FullGreen = $Config->{'Colors'}{'FullGreen'}; + my $FullBlue = $Config->{'Colors'}{'FullBlue'}; + my $FullYellow = $Config->{'Colors'}{'FullYellow'}; + my $FullCyan = $Config->{'Colors'}{'FullCyan'}; + my $FullMagenta= $Config->{'Colors'}{'FullMagenta'}; + + my $HalfRed = $Config->{'Colors'}{'HalfRed'}; + my $HalfGreen = $Config->{'Colors'}{'HalfGreen'}; + my $HalfBlue = $Config->{'Colors'}{'HalfBlue'}; + my $HalfYellow = $Config->{'Colors'}{'HalfYellow'}; + my $HalfCyan = $Config->{'Colors'}{'HalfCyan'}; + my $HalfMagenta= $Config->{'Colors'}{'HalfMagenta'}; + + my $HalfBlueGreen = $Config->{'Colors'}{'HalfBlueGreen'}; + my $HalfRedBlue = $Config->{'Colors'}{'HalfRedBlue'}; + + $GraphDefs = + { + charge => [ + 'DEF:avg={file}:charge:AVERAGE', + 'DEF:min={file}:charge:MIN', + 'DEF:max={file}:charge:MAX', + "AREA:max#$HalfBlue", + "AREA:min#$Canvas", + "LINE1:avg#$FullBlue:Charge", + 'GPRINT:min:MIN:%5.1lf%sAh Min,', + 'GPRINT:avg:AVERAGE:%5.1lf%sAh Avg,', + 'GPRINT:max:MAX:%5.1lf%sAh Max,', + 'GPRINT:avg:LAST:%5.1lf%sAh Last\l' + ], + cpu => ['DEF:user_avg={file}:user:AVERAGE', + 'DEF:user_min={file}:user:MIN', + 'DEF:user_max={file}:user:MAX', + 'DEF:nice_avg={file}:nice:AVERAGE', + 'DEF:nice_min={file}:nice:MIN', + 'DEF:nice_max={file}:nice:MAX', + 'DEF:syst_avg={file}:syst:AVERAGE', + 'DEF:syst_min={file}:syst:MIN', + 'DEF:syst_max={file}:syst:MAX', + 'DEF:idle_avg={file}:idle:AVERAGE', + 'DEF:idle_min={file}:idle:MIN', + 'DEF:idle_max={file}:idle:MAX', + 'DEF:wait_avg={file}:wait:AVERAGE', + 'DEF:wait_min={file}:wait:MIN', + 'DEF:wait_max={file}:wait:MAX', + 'CDEF:user_avg_notnull=user_avg,UN,0,user_avg,IF', + 'CDEF:nice_avg_notnull=nice_avg,UN,0,nice_avg,IF', + 'CDEF:syst_avg_notnull=syst_avg,UN,0,syst_avg,IF', + 'CDEF:idle_avg_notnull=idle_avg,UN,0,idle_avg,IF', + 'CDEF:wait_avg_notnull=wait_avg,UN,0,wait_avg,IF', + 'CDEF:totl_avg_notnull=user_avg_notnull,nice_avg_notnull,+,syst_avg_notnull,+,idle_avg_notnull,+,wait_avg_notnull,+', + 'CDEF:user_avg_pct=user_avg_notnull,100,*,totl_avg_notnull,/', + 'CDEF:nice_avg_pct=nice_avg_notnull,100,*,totl_avg_notnull,/', + 'CDEF:syst_avg_pct=syst_avg_notnull,100,*,totl_avg_notnull,/', + 'CDEF:wait_avg_pct=wait_avg_notnull,100,*,totl_avg_notnull,/', + 'CDEF:nice_acc=syst_avg_pct,wait_avg_pct,user_avg_pct,nice_avg_pct,+,+,+', + 'CDEF:user_acc=syst_avg_pct,wait_avg_pct,user_avg_pct,+,+', + 'CDEF:wait_acc=syst_avg_pct,wait_avg_pct,+', + 'CDEF:syst_acc=syst_avg_pct', +# 'CDEF:nice_acc=syst_avg_notnull,wait_avg_notnull,user_avg_notnull,nice_avg_notnull,+,+,+', +# 'CDEF:user_acc=syst_avg_notnull,wait_avg_notnull,user_avg_notnull,+,+', +# 'CDEF:wait_acc=syst_avg_notnull,wait_avg_notnull,+', +# 'CDEF:syst_acc=syst_avg_notnull', + "AREA:nice_acc#$HalfGreen", + "AREA:user_acc#$HalfBlue", + "AREA:wait_acc#$HalfYellow", + "AREA:syst_acc#$HalfRed", + "LINE1:nice_acc#$FullGreen:Nice ", + 'GPRINT:nice_min:MIN:%5.1lf%% Min,', + 'GPRINT:nice_avg:AVERAGE:%5.1lf%% Avg,', + 'GPRINT:nice_max:MAX:%5.1lf%% Max,', + 'GPRINT:nice_avg:LAST:%5.1lf%% Last\l', + "LINE1:user_acc#$FullBlue:User ", + 'GPRINT:user_min:MIN:%5.1lf%% Min,', + 'GPRINT:user_avg:AVERAGE:%5.1lf%% Avg,', + 'GPRINT:user_max:MAX:%5.1lf%% Max,', + 'GPRINT:user_avg:LAST:%5.1lf%% Last\l', + "LINE1:wait_acc#$FullYellow:Wait-IO", + 'GPRINT:wait_min:MIN:%5.1lf%% Min,', + 'GPRINT:wait_avg:AVERAGE:%5.1lf%% Avg,', + 'GPRINT:wait_max:MAX:%5.1lf%% Max,', + 'GPRINT:wait_avg:LAST:%5.1lf%% Last\l', + "LINE1:syst_acc#$FullRed:System ", + 'GPRINT:syst_min:MIN:%5.1lf%% Min,', + 'GPRINT:syst_avg:AVERAGE:%5.1lf%% Avg,', + 'GPRINT:syst_max:MAX:%5.1lf%% Max,', + 'GPRINT:syst_avg:LAST:%5.1lf%% Last\l' + ], + current => [ + 'DEF:avg={file}:current:AVERAGE', + 'DEF:min={file}:current:MIN', + 'DEF:max={file}:current:MAX', + "AREA:max#$HalfBlue", + "AREA:min#$Canvas", + "LINE1:avg#$FullBlue:Current", + 'GPRINT:min:MIN:%5.1lf%sA Min,', + 'GPRINT:avg:AVERAGE:%5.1lf%sA Avg,', + 'GPRINT:max:MAX:%5.1lf%sA Max,', + 'GPRINT:avg:LAST:%5.1lf%sA Last\l' + ], + df => [ + 'DEF:free_avg={file}:free:AVERAGE', + 'DEF:free_min={file}:free:MIN', + 'DEF:free_max={file}:free:MAX', + 'DEF:used_avg={file}:used:AVERAGE', + 'DEF:used_min={file}:used:MIN', + 'DEF:used_max={file}:used:MAX', + 'CDEF:total=free_avg,used_avg,+', + 'CDEF:free_pct=100,free_avg,*,total,/', + 'CDEF:used_pct=100,used_avg,*,total,/', + 'CDEF:free_acc=free_pct,used_pct,+', + 'CDEF:used_acc=used_pct', + "AREA:free_acc#$HalfGreen", + "AREA:used_acc#$HalfRed", + "LINE1:free_acc#$FullGreen:Free", + 'GPRINT:free_min:MIN:%5.1lf%sB Min,', + 'GPRINT:free_avg:AVERAGE:%5.1lf%sB Avg,', + 'GPRINT:free_max:MAX:%5.1lf%sB Max,', + 'GPRINT:free_avg:LAST:%5.1lf%sB Last\l', + "LINE1:used_acc#$FullRed:Used", + 'GPRINT:used_min:MIN:%5.1lf%sB Min,', + 'GPRINT:used_avg:AVERAGE:%5.1lf%sB Avg,', + 'GPRINT:used_max:MAX:%5.1lf%sB Max,', + 'GPRINT:used_avg:LAST:%5.1lf%sB Last\l' + ], + disk => [ + 'DEF:rtime_avg={file}:rtime:AVERAGE', + 'DEF:rtime_min={file}:rtime:MIN', + 'DEF:rtime_max={file}:rtime:MAX', + 'DEF:wtime_avg={file}:wtime:AVERAGE', + 'DEF:wtime_min={file}:wtime:MIN', + 'DEF:wtime_max={file}:wtime:MAX', + 'CDEF:rtime_avg_ms=rtime_avg,1000,/', + 'CDEF:rtime_min_ms=rtime_min,1000,/', + 'CDEF:rtime_max_ms=rtime_max,1000,/', + 'CDEF:wtime_avg_ms=wtime_avg,1000,/', + 'CDEF:wtime_min_ms=wtime_min,1000,/', + 'CDEF:wtime_max_ms=wtime_max,1000,/', + 'CDEF:total_avg_ms=rtime_avg_ms,wtime_avg_ms,+', + 'CDEF:total_min_ms=rtime_min_ms,wtime_min_ms,+', + 'CDEF:total_max_ms=rtime_max_ms,wtime_max_ms,+', + "AREA:total_max_ms#$HalfRed", + "AREA:total_min_ms#$Canvas", + "LINE1:wtime_avg_ms#$FullGreen:Write", + 'GPRINT:wtime_min_ms:MIN:%5.1lf%s Min,', + 'GPRINT:wtime_avg_ms:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:wtime_max_ms:MAX:%5.1lf%s Max,', + 'GPRINT:wtime_avg_ms:LAST:%5.1lf%s Last\n', + "LINE1:rtime_avg_ms#$FullBlue:Read ", + 'GPRINT:rtime_min_ms:MIN:%5.1lf%s Min,', + 'GPRINT:rtime_avg_ms:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:rtime_max_ms:MAX:%5.1lf%s Max,', + 'GPRINT:rtime_avg_ms:LAST:%5.1lf%s Last\n', + "LINE1:total_avg_ms#$FullRed:Total", + 'GPRINT:total_min_ms:MIN:%5.1lf%s Min,', + 'GPRINT:total_avg_ms:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:total_max_ms:MAX:%5.1lf%s Max,', + 'GPRINT:total_avg_ms:LAST:%5.1lf%s Last' + ], + hddtemp => [ + 'DEF:temp_avg={file}:value:AVERAGE', + 'DEF:temp_min={file}:value:MIN', + 'DEF:temp_max={file}:value:MAX', + "AREA:temp_max#$HalfBlue", + "AREA:temp_min#$Canvas", + "LINE1:temp_avg#$FullBlue:Temperature", + 'GPRINT:temp_min:MIN:%4.1lf Min,', + 'GPRINT:temp_avg:AVERAGE:%4.1lf Avg,', + 'GPRINT:temp_max:MAX:%4.1lf Max,', + 'GPRINT:temp_avg:LAST:%4.1lf Last\l' + ], + load => ['DEF:s_avg={file}:shortterm:AVERAGE', + 'DEF:s_min={file}:shortterm:MIN', + 'DEF:s_max={file}:shortterm:MAX', + 'DEF:m_avg={file}:midterm:AVERAGE', + 'DEF:m_min={file}:midterm:MIN', + 'DEF:m_max={file}:midterm:MAX', + 'DEF:l_avg={file}:longterm:AVERAGE', + 'DEF:l_min={file}:longterm:MIN', + 'DEF:l_max={file}:longterm:MAX', + "AREA:s_max#$HalfGreen", + "AREA:s_min#$Canvas", + "LINE1:s_avg#$FullGreen: 1m average", + 'GPRINT:s_min:MIN:%4.2lf Min,', + 'GPRINT:s_avg:AVERAGE:%4.2lf Avg,', + 'GPRINT:s_max:MAX:%4.2lf Max,', + 'GPRINT:s_avg:LAST:%4.2lf Last\n', + "LINE1:m_avg#$FullBlue: 5m average", + 'GPRINT:m_min:MIN:%4.2lf Min,', + 'GPRINT:m_avg:AVERAGE:%4.2lf Avg,', + 'GPRINT:m_max:MAX:%4.2lf Max,', + 'GPRINT:m_avg:LAST:%4.2lf Last\n', + "LINE1:l_avg#$FullRed:15m average", + 'GPRINT:l_min:MIN:%4.2lf Min,', + 'GPRINT:l_avg:AVERAGE:%4.2lf Avg,', + 'GPRINT:l_max:MAX:%4.2lf Max,', + 'GPRINT:l_avg:LAST:%4.2lf Last' + ], + mails => ['DEF:rawgood={file}:good:AVERAGE', + 'DEF:rawspam={file}:spam:AVERAGE', + 'CDEF:good=rawgood,UN,0,rawgood,IF', + 'CDEF:spam=rawspam,UN,0,rawspam,IF', + 'CDEF:negspam=spam,-1,*', + "AREA:good#$HalfGreen", + "LINE1:good#$FullGreen:Good mails", + 'GPRINT:good:AVERAGE:%4.1lf Avg,', + 'GPRINT:good:MAX:%4.1lf Max,', + 'GPRINT:good:LAST:%4.1lf Last\n', + "AREA:negspam#$HalfRed", + "LINE1:negspam#$FullRed:Spam mails", + 'GPRINT:spam:AVERAGE:%4.1lf Avg,', + 'GPRINT:spam:MAX:%4.1lf Max,', + 'GPRINT:spam:LAST:%4.1lf Last', + 'HRULE:0#000000'], + memory => [ + 'DEF:used_avg={file}:used:AVERAGE', + 'DEF:free_avg={file}:free:AVERAGE', + 'DEF:buffers_avg={file}:buffers:AVERAGE', + 'DEF:cached_avg={file}:cached:AVERAGE', + 'DEF:used_min={file}:used:MIN', + 'DEF:free_min={file}:free:MIN', + 'DEF:buffers_min={file}:buffers:MIN', + 'DEF:cached_min={file}:cached:MIN', + 'DEF:used_max={file}:used:MAX', + 'DEF:free_max={file}:free:MAX', + 'DEF:buffers_max={file}:buffers:MAX', + 'DEF:cached_max={file}:cached:MAX', + 'CDEF:free_cached_buffers_used=free_avg,cached_avg,+,buffers_avg,+,used_avg,+', + 'CDEF:cached_buffers_used=cached_avg,buffers_avg,+,used_avg,+', + 'CDEF:buffers_used=buffers_avg,used_avg,+', + "AREA:free_cached_buffers_used#$HalfGreen", + "AREA:cached_buffers_used#$HalfBlue", + "AREA:buffers_used#$HalfYellow", + "AREA:used_avg#$HalfRed", + "LINE1:free_cached_buffers_used#$FullGreen:Free ", + 'GPRINT:free_min:MIN:%5.1lf%s Min,', + 'GPRINT:free_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:free_max:MAX:%5.1lf%s Max,', + 'GPRINT:free_avg:LAST:%5.1lf%s Last\n', + "LINE1:cached_buffers_used#$FullBlue:Page cache ", + 'GPRINT:cached_min:MIN:%5.1lf%s Min,', + 'GPRINT:cached_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:cached_max:MAX:%5.1lf%s Max,', + 'GPRINT:cached_avg:LAST:%5.1lf%s Last\n', + "LINE1:buffers_used#$FullYellow:Buffer cache", + 'GPRINT:buffers_min:MIN:%5.1lf%s Min,', + 'GPRINT:buffers_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:buffers_max:MAX:%5.1lf%s Max,', + 'GPRINT:buffers_avg:LAST:%5.1lf%s Last\n', + "LINE1:used_avg#$FullRed:Used ", + 'GPRINT:used_min:MIN:%5.1lf%s Min,', + 'GPRINT:used_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:used_max:MAX:%5.1lf%s Max,', + 'GPRINT:used_avg:LAST:%5.1lf%s Last' + ], + mysql_commands => [ + "DEF:val_avg={file}:value:AVERAGE", + "DEF:val_min={file}:value:MIN", + "DEF:val_max={file}:value:MAX", + "AREA:val_max#$HalfBlue", + "AREA:val_min#$Canvas", + "LINE1:val_avg#$FullBlue:{inst}", + 'GPRINT:val_min:MIN:%5.2lf Min,', + 'GPRINT:val_avg:AVERAGE:%5.2lf Avg,', + 'GPRINT:val_max:MAX:%5.2lf Max,', + 'GPRINT:val_avg:LAST:%5.2lf Last' + ], + mysql_handler => [ + "DEF:val_avg={file}:value:AVERAGE", + "DEF:val_min={file}:value:MIN", + "DEF:val_max={file}:value:MAX", + "AREA:val_max#$HalfBlue", + "AREA:val_min#$Canvas", + "LINE1:val_avg#$FullBlue:{inst}", + 'GPRINT:val_min:MIN:%5.2lf Min,', + 'GPRINT:val_avg:AVERAGE:%5.2lf Avg,', + 'GPRINT:val_max:MAX:%5.2lf Max,', + 'GPRINT:val_avg:LAST:%5.2lf Last' + ], + mysql_qcache => [ + "DEF:hits_min={file}:hits:MIN", + "DEF:hits_avg={file}:hits:AVERAGE", + "DEF:hits_max={file}:hits:MAX", + "DEF:inserts_min={file}:inserts:MIN", + "DEF:inserts_avg={file}:inserts:AVERAGE", + "DEF:inserts_max={file}:inserts:MAX", + "DEF:not_cached_min={file}:not_cached:MIN", + "DEF:not_cached_avg={file}:not_cached:AVERAGE", + "DEF:not_cached_max={file}:not_cached:MAX", + "DEF:lowmem_prunes_min={file}:lowmem_prunes:MIN", + "DEF:lowmem_prunes_avg={file}:lowmem_prunes:AVERAGE", + "DEF:lowmem_prunes_max={file}:lowmem_prunes:MAX", + "DEF:queries_min={file}:queries_in_cache:MIN", + "DEF:queries_avg={file}:queries_in_cache:AVERAGE", + "DEF:queries_max={file}:queries_in_cache:MAX", + "CDEF:unknown=queries_avg,UNKN,+", + "CDEF:not_cached_agg=hits_avg,inserts_avg,+,not_cached_avg,+", + "CDEF:inserts_agg=hits_avg,inserts_avg,+", + "CDEF:hits_agg=hits_avg", + "AREA:not_cached_agg#$HalfYellow", + "AREA:inserts_agg#$HalfBlue", + "AREA:hits_agg#$HalfGreen", + "LINE1:not_cached_agg#$FullYellow:Not Cached ", + 'GPRINT:not_cached_min:MIN:%5.2lf Min,', + 'GPRINT:not_cached_avg:AVERAGE:%5.2lf Avg,', + 'GPRINT:not_cached_max:MAX:%5.2lf Max,', + 'GPRINT:not_cached_avg:LAST:%5.2lf Last\l', + "LINE1:inserts_agg#$FullBlue:Inserts ", + 'GPRINT:inserts_min:MIN:%5.2lf Min,', + 'GPRINT:inserts_avg:AVERAGE:%5.2lf Avg,', + 'GPRINT:inserts_max:MAX:%5.2lf Max,', + 'GPRINT:inserts_avg:LAST:%5.2lf Last\l', + "LINE1:hits_agg#$FullGreen:Hits ", + 'GPRINT:hits_min:MIN:%5.2lf Min,', + 'GPRINT:hits_avg:AVERAGE:%5.2lf Avg,', + 'GPRINT:hits_max:MAX:%5.2lf Max,', + 'GPRINT:hits_avg:LAST:%5.2lf Last\l', + "LINE1:lowmem_prunes_avg#$FullRed:Lowmem Prunes ", + 'GPRINT:lowmem_prunes_min:MIN:%5.2lf Min,', + 'GPRINT:lowmem_prunes_avg:AVERAGE:%5.2lf Avg,', + 'GPRINT:lowmem_prunes_max:MAX:%5.2lf Max,', + 'GPRINT:lowmem_prunes_avg:LAST:%5.2lf Last\l', + "LINE1:unknown#$Canvas:Queries in cache", + 'GPRINT:queries_min:MIN:%5.0lf Min,', + 'GPRINT:queries_avg:AVERAGE:%5.0lf Avg,', + 'GPRINT:queries_max:MAX:%5.0lf Max,', + 'GPRINT:queries_avg:LAST:%5.0lf Last\l' + ], + mysql_threads => [ + "DEF:running_min={file}:running:MIN", + "DEF:running_avg={file}:running:AVERAGE", + "DEF:running_max={file}:running:MAX", + "DEF:connected_min={file}:connected:MIN", + "DEF:connected_avg={file}:connected:AVERAGE", + "DEF:connected_max={file}:connected:MAX", + "DEF:cached_min={file}:cached:MIN", + "DEF:cached_avg={file}:cached:AVERAGE", + "DEF:cached_max={file}:cached:MAX", + "DEF:created_min={file}:created:MIN", + "DEF:created_avg={file}:created:AVERAGE", + "DEF:created_max={file}:created:MAX", + "CDEF:unknown=created_avg,UNKN,+", + "CDEF:cached_agg=connected_avg,cached_avg,+", + "AREA:cached_agg#$HalfGreen", + "AREA:connected_avg#$HalfBlue", + "AREA:running_avg#$HalfRed", + "LINE1:cached_agg#$FullGreen:Cached ", + 'GPRINT:cached_min:MIN:%5.1lf Min,', + 'GPRINT:cached_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:cached_max:MAX:%5.1lf Max,', + 'GPRINT:cached_avg:LAST:%5.1lf Last\l', + "LINE1:connected_avg#$FullBlue:Connected", + 'GPRINT:connected_min:MIN:%5.1lf Min,', + 'GPRINT:connected_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:connected_max:MAX:%5.1lf Max,', + 'GPRINT:connected_avg:LAST:%5.1lf Last\l', + "LINE1:running_avg#$FullRed:Running ", + 'GPRINT:running_min:MIN:%5.1lf Min,', + 'GPRINT:running_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:running_max:MAX:%5.1lf Max,', + 'GPRINT:running_avg:LAST:%5.1lf Last\l', + "LINE1:unknown#$Canvas:Created ", + 'GPRINT:created_min:MIN:%5.0lf Min,', + 'GPRINT:created_avg:AVERAGE:%5.0lf Avg,', + 'GPRINT:created_max:MAX:%5.0lf Max,', + 'GPRINT:created_avg:LAST:%5.0lf Last\l' + ], + nfs3_procedures => [ + "DEF:null_avg={file}:null:AVERAGE", + "DEF:getattr_avg={file}:getattr:AVERAGE", + "DEF:setattr_avg={file}:setattr:AVERAGE", + "DEF:lookup_avg={file}:lookup:AVERAGE", + "DEF:access_avg={file}:access:AVERAGE", + "DEF:readlink_avg={file}:readlink:AVERAGE", + "DEF:read_avg={file}:read:AVERAGE", + "DEF:write_avg={file}:write:AVERAGE", + "DEF:create_avg={file}:create:AVERAGE", + "DEF:mkdir_avg={file}:mkdir:AVERAGE", + "DEF:symlink_avg={file}:symlink:AVERAGE", + "DEF:mknod_avg={file}:mknod:AVERAGE", + "DEF:remove_avg={file}:remove:AVERAGE", + "DEF:rmdir_avg={file}:rmdir:AVERAGE", + "DEF:rename_avg={file}:rename:AVERAGE", + "DEF:link_avg={file}:link:AVERAGE", + "DEF:readdir_avg={file}:readdir:AVERAGE", + "DEF:readdirplus_avg={file}:readdirplus:AVERAGE", + "DEF:fsstat_avg={file}:fsstat:AVERAGE", + "DEF:fsinfo_avg={file}:fsinfo:AVERAGE", + "DEF:pathconf_avg={file}:pathconf:AVERAGE", + "DEF:commit_avg={file}:commit:AVERAGE", + "DEF:null_max={file}:null:MAX", + "DEF:getattr_max={file}:getattr:MAX", + "DEF:setattr_max={file}:setattr:MAX", + "DEF:lookup_max={file}:lookup:MAX", + "DEF:access_max={file}:access:MAX", + "DEF:readlink_max={file}:readlink:MAX", + "DEF:read_max={file}:read:MAX", + "DEF:write_max={file}:write:MAX", + "DEF:create_max={file}:create:MAX", + "DEF:mkdir_max={file}:mkdir:MAX", + "DEF:symlink_max={file}:symlink:MAX", + "DEF:mknod_max={file}:mknod:MAX", + "DEF:remove_max={file}:remove:MAX", + "DEF:rmdir_max={file}:rmdir:MAX", + "DEF:rename_max={file}:rename:MAX", + "DEF:link_max={file}:link:MAX", + "DEF:readdir_max={file}:readdir:MAX", + "DEF:readdirplus_max={file}:readdirplus:MAX", + "DEF:fsstat_max={file}:fsstat:MAX", + "DEF:fsinfo_max={file}:fsinfo:MAX", + "DEF:pathconf_max={file}:pathconf:MAX", + "DEF:commit_max={file}:commit:MAX", + "CDEF:other_avg=null_avg,readlink_avg,create_avg,mkdir_avg,symlink_avg,mknod_avg,remove_avg,rmdir_avg,rename_avg,link_avg,readdir_avg,readdirplus_avg,fsstat_avg,fsinfo_avg,pathconf_avg,+,+,+,+,+,+,+,+,+,+,+,+,+,+", + "CDEF:other_max=null_max,readlink_max,create_max,mkdir_max,symlink_max,mknod_max,remove_max,rmdir_max,rename_max,link_max,readdir_max,readdirplus_max,fsstat_max,fsinfo_max,pathconf_max,+,+,+,+,+,+,+,+,+,+,+,+,+,+", + "CDEF:stack_read=read_avg", + "CDEF:stack_getattr=stack_read,getattr_avg,+", + "CDEF:stack_access=stack_getattr,access_avg,+", + "CDEF:stack_lookup=stack_access,lookup_avg,+", + "CDEF:stack_write=stack_lookup,write_avg,+", + "CDEF:stack_commit=stack_write,commit_avg,+", + "CDEF:stack_setattr=stack_commit,setattr_avg,+", + "CDEF:stack_other=stack_setattr,other_avg,+", + "AREA:stack_other#$HalfRed", + "AREA:stack_setattr#$HalfGreen", + "AREA:stack_commit#$HalfYellow", + "AREA:stack_write#$HalfGreen", + "AREA:stack_lookup#$HalfBlue", + "AREA:stack_access#$HalfMagenta", + "AREA:stack_getattr#$HalfCyan", + "AREA:stack_read#$HalfBlue", + "LINE1:stack_other#$FullRed:Other ", + 'GPRINT:other_max:MAX:%5.1lf Max,', + 'GPRINT:other_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:other_avg:LAST:%5.1lf Last\l', + "LINE1:stack_setattr#$FullGreen:setattr", + 'GPRINT:setattr_max:MAX:%5.1lf Max,', + 'GPRINT:setattr_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:setattr_avg:LAST:%5.1lf Last\l', + "LINE1:stack_commit#$FullYellow:commit ", + 'GPRINT:commit_max:MAX:%5.1lf Max,', + 'GPRINT:commit_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:commit_avg:LAST:%5.1lf Last\l', + "LINE1:stack_write#$FullGreen:write ", + 'GPRINT:write_max:MAX:%5.1lf Max,', + 'GPRINT:write_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:write_avg:LAST:%5.1lf Last\l', + "LINE1:stack_lookup#$FullBlue:lookup ", + 'GPRINT:lookup_max:MAX:%5.1lf Max,', + 'GPRINT:lookup_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:lookup_avg:LAST:%5.1lf Last\l', + "LINE1:stack_access#$FullMagenta:access ", + 'GPRINT:access_max:MAX:%5.1lf Max,', + 'GPRINT:access_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:access_avg:LAST:%5.1lf Last\l', + "LINE1:stack_getattr#$FullCyan:getattr", + 'GPRINT:getattr_max:MAX:%5.1lf Max,', + 'GPRINT:getattr_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:getattr_avg:LAST:%5.1lf Last\l', + "LINE1:stack_read#$FullBlue:read ", + 'GPRINT:read_max:MAX:%5.1lf Max,', + 'GPRINT:read_avg:AVERAGE:%5.1lf Avg,', + 'GPRINT:read_avg:LAST:%5.1lf Last\l' + ], + partition => [ + "DEF:rbyte_avg={file}:rbytes:AVERAGE", + "DEF:rbyte_min={file}:rbytes:MIN", + "DEF:rbyte_max={file}:rbytes:MAX", + "DEF:wbyte_avg={file}:wbytes:AVERAGE", + "DEF:wbyte_min={file}:wbytes:MIN", + "DEF:wbyte_max={file}:wbytes:MAX", + 'CDEF:overlap=wbyte_avg,rbyte_avg,GT,rbyte_avg,wbyte_avg,IF', + "AREA:wbyte_avg#$HalfGreen", + "AREA:rbyte_avg#$HalfBlue", + "AREA:overlap#$HalfBlueGreen", + "LINE1:wbyte_avg#$FullGreen:Write", + 'GPRINT:wbyte_min:MIN:%5.1lf%s Min,', + 'GPRINT:wbyte_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:wbyte_max:MAX:%5.1lf%s Max,', + 'GPRINT:wbyte_avg:LAST:%5.1lf%s Last\l', + "LINE1:rbyte_avg#$FullBlue:Read ", + 'GPRINT:rbyte_min:MIN:%5.1lf%s Min,', + 'GPRINT:rbyte_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:rbyte_max:MAX:%5.1lf%s Max,', + 'GPRINT:rbyte_avg:LAST:%5.1lf%s Last\l' + ], + ping => ['DEF:ping_avg={file}:ping:AVERAGE', + 'DEF:ping_min={file}:ping:MIN', + 'DEF:ping_max={file}:ping:MAX', + "AREA:ping_max#$HalfBlue", + "AREA:ping_min#$Canvas", + "LINE1:ping_avg#$FullBlue:Ping", + 'GPRINT:ping_min:MIN:%4.1lf ms Min,', + 'GPRINT:ping_avg:AVERAGE:%4.1lf ms Avg,', + 'GPRINT:ping_max:MAX:%4.1lf ms Max,', + 'GPRINT:ping_avg:LAST:%4.1lf ms Last'], + processes => [ + "DEF:running_avg={file}:running:AVERAGE", + "DEF:running_min={file}:running:MIN", + "DEF:running_max={file}:running:MAX", + "DEF:sleeping_avg={file}:sleeping:AVERAGE", + "DEF:sleeping_min={file}:sleeping:MIN", + "DEF:sleeping_max={file}:sleeping:MAX", + "DEF:zombies_avg={file}:zombies:AVERAGE", + "DEF:zombies_min={file}:zombies:MIN", + "DEF:zombies_max={file}:zombies:MAX", + "DEF:stopped_avg={file}:stopped:AVERAGE", + "DEF:stopped_min={file}:stopped:MIN", + "DEF:stopped_max={file}:stopped:MAX", + "DEF:paging_avg={file}:paging:AVERAGE", + "DEF:paging_min={file}:paging:MIN", + "DEF:paging_max={file}:paging:MAX", + "DEF:blocked_avg={file}:blocked:AVERAGE", + "DEF:blocked_min={file}:blocked:MIN", + "DEF:blocked_max={file}:blocked:MAX", + 'CDEF:paging_acc=sleeping_avg,running_avg,stopped_avg,zombies_avg,blocked_avg,paging_avg,+,+,+,+,+', + 'CDEF:blocked_acc=sleeping_avg,running_avg,stopped_avg,zombies_avg,blocked_avg,+,+,+,+', + 'CDEF:zombies_acc=sleeping_avg,running_avg,stopped_avg,zombies_avg,+,+,+', + 'CDEF:stopped_acc=sleeping_avg,running_avg,stopped_avg,+,+', + 'CDEF:running_acc=sleeping_avg,running_avg,+', + 'CDEF:sleeping_acc=sleeping_avg', + "AREA:paging_acc#$HalfYellow", + "AREA:blocked_acc#$HalfCyan", + "AREA:zombies_acc#$HalfRed", + "AREA:stopped_acc#$HalfMagenta", + "AREA:running_acc#$HalfGreen", + "AREA:sleeping_acc#$HalfBlue", + "LINE1:paging_acc#$FullYellow:Paging ", + 'GPRINT:paging_min:MIN:%5.1lf Min,', + 'GPRINT:paging_avg:AVERAGE:%5.1lf Average,', + 'GPRINT:paging_max:MAX:%5.1lf Max,', + 'GPRINT:paging_avg:LAST:%5.1lf Last\l', + "LINE1:blocked_acc#$FullCyan:Blocked ", + 'GPRINT:blocked_min:MIN:%5.1lf Min,', + 'GPRINT:blocked_avg:AVERAGE:%5.1lf Average,', + 'GPRINT:blocked_max:MAX:%5.1lf Max,', + 'GPRINT:blocked_avg:LAST:%5.1lf Last\l', + "LINE1:zombies_acc#$FullRed:Zombies ", + 'GPRINT:zombies_min:MIN:%5.1lf Min,', + 'GPRINT:zombies_avg:AVERAGE:%5.1lf Average,', + 'GPRINT:zombies_max:MAX:%5.1lf Max,', + 'GPRINT:zombies_avg:LAST:%5.1lf Last\l', + "LINE1:stopped_acc#$FullMagenta:Stopped ", + 'GPRINT:stopped_min:MIN:%5.1lf Min,', + 'GPRINT:stopped_avg:AVERAGE:%5.1lf Average,', + 'GPRINT:stopped_max:MAX:%5.1lf Max,', + 'GPRINT:stopped_avg:LAST:%5.1lf Last\l', + "LINE1:running_acc#$FullGreen:Running ", + 'GPRINT:running_min:MIN:%5.1lf Min,', + 'GPRINT:running_avg:AVERAGE:%5.1lf Average,', + 'GPRINT:running_max:MAX:%5.1lf Max,', + 'GPRINT:running_avg:LAST:%5.1lf Last\l', + "LINE1:sleeping_acc#$FullBlue:Sleeping", + 'GPRINT:sleeping_min:MIN:%5.1lf Min,', + 'GPRINT:sleeping_avg:AVERAGE:%5.1lf Average,', + 'GPRINT:sleeping_max:MAX:%5.1lf Max,', + 'GPRINT:sleeping_avg:LAST:%5.1lf Last\l' + ], + sensors => [ + 'DEF:temp_avg={file}:value:AVERAGE', + 'DEF:temp_min={file}:value:MIN', + 'DEF:temp_max={file}:value:MAX', + "AREA:temp_max#$HalfBlue", + "AREA:temp_min#$Canvas", + "LINE1:temp_avg#$FullBlue:Value", + 'GPRINT:temp_min:MIN:%4.1lf Min,', + 'GPRINT:temp_avg:AVERAGE:%4.1lf Avg,', + 'GPRINT:temp_max:MAX:%4.1lf Max,', + 'GPRINT:temp_avg:LAST:%4.1lf Last\l' + ], + swap => [ + 'DEF:used_avg={file}:used:AVERAGE', + 'DEF:used_min={file}:used:MIN', + 'DEF:used_max={file}:used:MAX', + 'DEF:free_avg={file}:free:AVERAGE', + 'DEF:free_min={file}:free:MIN', + 'DEF:free_max={file}:free:MAX', + 'DEF:cach_avg={file}:cached:AVERAGE', + 'DEF:cach_min={file}:cached:MIN', + 'DEF:cach_max={file}:cached:MAX', + 'DEF:resv_avg={file}:resv:AVERAGE', + 'DEF:resv_min={file}:resv:MIN', + 'DEF:resv_max={file}:resv:MAX', + 'CDEF:cach_avg_notnull=cach_avg,UN,0,cach_avg,IF', + 'CDEF:resv_avg_notnull=resv_avg,UN,0,resv_avg,IF', + 'CDEF:used_acc=used_avg', + 'CDEF:resv_acc=used_acc,resv_avg_notnull,+', + 'CDEF:cach_acc=resv_acc,cach_avg_notnull,+', + 'CDEF:free_acc=cach_acc,free_avg,+', + "AREA:free_acc#$HalfGreen", + "AREA:cach_acc#$HalfBlue", + "AREA:resv_acc#$HalfYellow", + "AREA:used_acc#$HalfRed", + "LINE1:free_acc#$FullGreen:Free ", + 'GPRINT:free_min:MIN:%5.1lf%s Min,', + 'GPRINT:free_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:free_max:MAX:%5.1lf%s Max,', + 'GPRINT:free_avg:LAST:%5.1lf%s Last\n', + "LINE1:cach_acc#$FullBlue:Cached ", + 'GPRINT:cach_min:MIN:%5.1lf%s Min,', + 'GPRINT:cach_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:cach_max:MAX:%5.1lf%s Max,', + 'GPRINT:cach_avg:LAST:%5.1lf%s Last\l', + "LINE1:resv_acc#$FullYellow:Reserved", + 'GPRINT:resv_min:MIN:%5.1lf%s Min,', + 'GPRINT:resv_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:resv_max:MAX:%5.1lf%s Max,', + 'GPRINT:resv_avg:LAST:%5.1lf%s Last\n', + "LINE1:used_acc#$FullRed:Used ", + 'GPRINT:used_min:MIN:%5.1lf%s Min,', + 'GPRINT:used_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:used_max:MAX:%5.1lf%s Max,', + 'GPRINT:used_avg:LAST:%5.1lf%s Last\l' + ], + traffic => ['DEF:out_min_raw={file}:outgoing:MIN', + 'DEF:out_avg_raw={file}:outgoing:AVERAGE', + 'DEF:out_max_raw={file}:outgoing:MAX', + 'DEF:inc_min_raw={file}:incoming:MIN', + 'DEF:inc_avg_raw={file}:incoming:AVERAGE', + 'DEF:inc_max_raw={file}:incoming:MAX', + 'CDEF:out_min=out_min_raw,8,*', + 'CDEF:out_avg=out_avg_raw,8,*', + 'CDEF:out_max=out_max_raw,8,*', + 'CDEF:inc_min=inc_min_raw,8,*', + 'CDEF:inc_avg=inc_avg_raw,8,*', + 'CDEF:inc_max=inc_max_raw,8,*', + 'CDEF:overlap=out_avg,inc_avg,GT,inc_avg,out_avg,IF', + 'CDEF:mytime=out_avg_raw,TIME,TIME,IF', + 'CDEF:sample_len_raw=mytime,PREV(mytime),-', + 'CDEF:sample_len=sample_len_raw,UN,0,sample_len_raw,IF', + 'CDEF:out_avg_sample=out_avg_raw,UN,0,out_avg_raw,IF,sample_len,*', + 'CDEF:out_avg_sum=PREV,UN,0,PREV,IF,out_avg_sample,+', + 'CDEF:inc_avg_sample=inc_avg_raw,UN,0,inc_avg_raw,IF,sample_len,*', + 'CDEF:inc_avg_sum=PREV,UN,0,PREV,IF,inc_avg_sample,+', + "AREA:out_avg#$HalfGreen", + "AREA:inc_avg#$HalfBlue", + "AREA:overlap#$HalfBlueGreen", + "LINE1:out_avg#$FullGreen:Outgoing", + 'GPRINT:out_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:out_max:MAX:%5.1lf%s Max,', + 'GPRINT:out_avg:LAST:%5.1lf%s Last', + 'GPRINT:out_avg_sum:LAST:(ca. %5.1lf%sB Total)\l', + "LINE1:inc_avg#$FullBlue:Incoming", + #'GPRINT:inc_min:MIN:%5.1lf %s Min,', + 'GPRINT:inc_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:inc_max:MAX:%5.1lf%s Max,', + 'GPRINT:inc_avg:LAST:%5.1lf%s Last', + 'GPRINT:inc_avg_sum:LAST:(ca. %5.1lf%sB Total)\l' + ], + cpufreq => [ + 'DEF:cpufreq_avg={file}:value:AVERAGE', + 'DEF:cpufreq_min={file}:value:MIN', + 'DEF:cpufreq_max={file}:value:MAX', + "AREA:cpufreq_max#$HalfBlue", + "AREA:cpufreq_min#$Canvas", + "LINE1:cpufreq_avg#$FullBlue:Frequency", + 'GPRINT:cpufreq_min:MIN:%5.1lf%s Min,', + 'GPRINT:cpufreq_avg:AVERAGE:%5.1lf%s Avg,', + 'GPRINT:cpufreq_max:MAX:%5.1lf%s Max,', + 'GPRINT:cpufreq_avg:LAST:%5.1lf%s Last\l' + ], + users => [ + 'DEF:users_avg={file}:users:AVERAGE', + 'DEF:users_min={file}:users:MIN', + 'DEF:users_max={file}:users:MAX', + "AREA:users_max#$HalfBlue", + "AREA:users_min#$Canvas", + "LINE1:users_avg#$FullBlue:Users", + 'GPRINT:users_min:MIN:%4.1lf Min,', + 'GPRINT:users_avg:AVERAGE:%4.1lf Average,', + 'GPRINT:users_max:MAX:%4.1lf Max,', + 'GPRINT:users_avg:LAST:%4.1lf Last\l' + ], + voltage => [ + 'DEF:avg={file}:voltage:AVERAGE', + 'DEF:min={file}:voltage:MIN', + 'DEF:max={file}:voltage:MAX', + "AREA:max#$HalfBlue", + "AREA:min#$Canvas", + "LINE1:avg#$FullBlue:Voltage", + 'GPRINT:min:MIN:%5.1lf%sV Min,', + 'GPRINT:avg:AVERAGE:%5.1lf%sV Avg,', + 'GPRINT:max:MAX:%5.1lf%sV Max,', + 'GPRINT:avg:LAST:%5.1lf%sV Last\l' + ] + }; + $GraphDefs->{'disk'} = $GraphDefs->{'partition'}; + $GraphDefs->{'meminfo'} = $GraphDefs->{'memory'}; +} + +our $GraphArgs = +{ + charge => ['-t', '{host} charge', '-v', 'Ampere hours'], + cpu => ['-t', '{host} cpu{inst} usage', '-v', 'Percent', '-l', '0'], + cpufreq => ['-t', '{host} cpu{inst} usage', '-v', 'Mhz'], + current => ['-t', '{host} current', '-v', 'Ampere'], + #disk => ['-t', '{host} disk {inst} IO wait', '-v', 'Seconds'], + df => ['-t', '{host}:{inst} usage', '-v', 'Percent', '-l', '0'], + disk => ['-t', '{host} disk {inst} usage', '-v', 'Byte/s'], + hddtemp => ['-t', '{host} hdd temperature {inst}', '-v', '°Celsius'], + load => ['-t', '{host} load average', '-v', 'System load', '-X', '0'], + mails => ['-t', '{host} mail count', '-v', 'Amount', '-X', '0'], + memory => ['-t', '{host} memory usage', '-v', 'Bytes', '-b', '1024', '-l', '0'], + mysql_commands => ['-t', 'mysql command {inst}', '-v', 'Issues/s' ], + mysql_handler => ['-t', 'mysql handler {inst}', '-v', 'Issues/s' ], + mysql_qcache => ['-t', 'mysql query cache', '-v', 'Queries/s' ], + mysql_threads => ['-t', 'mysql threads', '-v', 'Threads' ], + nfs3_procedures => ['-t', '{host} NFSv3 {inst} procedures', '-v', 'Procedures/s' ], + partition => ['-t', '{host} partition {inst} usage', '-v', 'Byte/s'], + ping => ['-t', '{host} ping to {inst}', '-v', 'ms'], + processes => ['-t', '{host} processes', '-v', 'Processes'], + sensors => ['-t', '{host} sensor {inst}', '-v', '°Celsius'], + swap => ['-t', '{host} swap usage', '-v', 'Bytes', '-b', '1024', '-l', '0'], + traffic => ['-t', '{host} {inst} traffic', '-v', 'Bit/s'], + users => ['-t', '{host} users', '-v', 'Users'], + voltage => ['-t', '{host} voltage', '-v', 'Volts'] +}; + +our $GraphMulti = +{ + cpu => \&output_graph_cpu, + cpufreq => 1, + disk => 1, + load => 0, + mails => 0, + memory => 0, + mysql_commands => \&output_graph_mysql_commands, + mysql_handler => \&output_graph_mysql_handler, + partition => 1, + ping => \&output_graph_ping, + sensors => 1, + traffic => 1, + users => 1 +}; + +our @Info; +if (defined ($ENV{'GATEWAY_INTERFACE'})) +{ + @Info = ($ENV{'PATH_INFO'} || '') =~ m#([\w\-\.]+)#g; +} +else +{ + @Info = @ARGV; +} + +parse_pathinfo (@Info); + +if ($TimeSpan) +{ + output_graph (); +} +else +{ + output_page (); +} + +exit (0); + +sub output_graph_cpu +{ + my @inst = @_; + my @ret = (); + + die if (@inst < 2); + + for (@inst) + { + push (@ret, + "DEF:user_avg_$_=$AbsDir/cpu-$_.rrd:user:AVERAGE", + "DEF:user_min_$_=$AbsDir/cpu-$_.rrd:user:MIN", + "DEF:user_max_$_=$AbsDir/cpu-$_.rrd:user:MAX", + "DEF:nice_avg_$_=$AbsDir/cpu-$_.rrd:nice:AVERAGE", + "DEF:nice_min_$_=$AbsDir/cpu-$_.rrd:nice:MIN", + "DEF:nice_max_$_=$AbsDir/cpu-$_.rrd:nice:MAX", + "DEF:syst_avg_$_=$AbsDir/cpu-$_.rrd:syst:AVERAGE", + "DEF:syst_min_$_=$AbsDir/cpu-$_.rrd:syst:MIN", + "DEF:syst_max_$_=$AbsDir/cpu-$_.rrd:syst:MAX", + "DEF:wait_avg_$_=$AbsDir/cpu-$_.rrd:wait:AVERAGE", + "DEF:wait_min_$_=$AbsDir/cpu-$_.rrd:wait:MIN", + "DEF:wait_max_$_=$AbsDir/cpu-$_.rrd:wait:MAX"); + } + + for (qw(user nice syst wait)) + { + my $def = $_; + my $cdef; + + my $default_value = ($def eq 'user' or $def eq 'syst') ? 'UNKN' : '0'; + + for (qw(avg min max)) + { + my $cf = $_; + + for (@inst) + { + push (@ret, "CDEF:${def}_${cf}_notnull_${_}=${def}_${cf}_${_},UN,0,${def}_${cf}_${_},IF"); + push (@ret, "CDEF:${def}_${cf}_defined_${_}=${def}_${cf}_${_},UN,0,1,IF"); + } + + $cdef = "CDEF:${def}_${cf}_num=" . join (',', map { "${def}_${cf}_defined_${_}" } (@inst)); + $cdef .= ',+' x (scalar (@inst) - 1); + push (@ret, $cdef); + + $cdef = "CDEF:${def}_${cf}=${def}_${cf}_num," . join (',', map { "${def}_${cf}_notnull_${_}" } (@inst)); + $cdef .= ',+' x (scalar (@inst) - 1); + $cdef .= ",${def}_${cf}_num,${def}_${cf}_num,1,IF,/,$default_value,IF"; + push (@ret, $cdef); + push (@ret, "CDEF:${def}_${cf}_notnull=${def}_${cf},UN,0,${def}_${cf},IF"); + } + } + + push (@ret, + "CDEF:nice_acc=syst_avg_notnull,wait_avg_notnull,user_avg_notnull,nice_avg_notnull,+,+,+", + "CDEF:user_acc=syst_avg_notnull,wait_avg_notnull,user_avg_notnull,+,+", + "CDEF:wait_acc=syst_avg_notnull,wait_avg_notnull,+", + "CDEF:syst_acc=syst_avg_notnull"); + + push (@ret, grep { $_ !~ m/^C?DEF/ } (@{$GraphDefs->{'cpu'}})); + + return (@ret); +} + +sub output_graph_ping +{ + my @inst = @_; + my @ret = (); + + die if (@inst < 2); + + my @colors = get_n_colors (scalar (@inst)); + + for (my $i = 0; $i < scalar (@inst); $i++) + { + my $inst = $inst[$i]; + push (@ret, + "DEF:avg_$i=$AbsDir/ping-$inst.rrd:ping:AVERAGE", + "DEF:min_$i=$AbsDir/ping-$inst.rrd:ping:MIN", + "DEF:max_$i=$AbsDir/ping-$inst.rrd:ping:MAX"); + } + + for (my $i = 0; $i < scalar (@inst); $i++) + { + my $inst = $inst[$i]; + my $color = $colors[$i]; + + if (length ($inst) > 15) + { + $inst = substr ($inst, 0, 12) . '...'; + } + else + { + $inst = sprintf ('%-15s', $inst); + } + + push (@ret, + "LINE1:avg_$i#$color:$inst", + "GPRINT:min_$i:MIN:%4.1lf ms Min,", + "GPRINT:avg_$i:AVERAGE:%4.1lf ms Avg,", + "GPRINT:max_$i:MAX:%4.1lf ms Max,", + "GPRINT:avg_$i:LAST:%4.1lf ms Last\\l"); + } + + return (@ret); +} + +sub output_graph_mysql_commands +{ + my @inst = @_; + my @ret = (); + + die if (@inst < 2); + + my @colors = get_n_colors (scalar (@inst)); + + for (my $i = 0; $i < scalar (@inst); $i++) + { + my $inst = $inst[$i]; + push (@ret, + "DEF:avg_$i=$AbsDir/mysql_commands-$inst.rrd:value:AVERAGE", + "DEF:min_$i=$AbsDir/mysql_commands-$inst.rrd:value:MIN", + "DEF:max_$i=$AbsDir/mysql_commands-$inst.rrd:value:MAX"); + } + + for (my $i = 0; $i < scalar (@inst); $i++) + { + my $inst = $inst[$i]; + my $color = $colors[$i]; + + if (length ($inst) > 18) + { + $inst = substr ($inst, 0, 15) . '...'; + } + else + { + $inst = sprintf ('%-18s', $inst); + } + + push (@ret, + "LINE1:avg_$i#$color:$inst", + "GPRINT:min_$i:MIN:%6.1lf Min,", + "GPRINT:avg_$i:AVERAGE:%6.1lf Avg,", + "GPRINT:max_$i:MAX:%6.1lf Max,", + "GPRINT:avg_$i:LAST:%6.1lf Last\\l"); + } + + return (@ret); +} + +sub output_graph_mysql_handler +{ + my @inst = @_; + my @ret = (); + + die if (@inst < 2); + + my @colors = get_n_colors (scalar (@inst)); + + for (my $i = 0; $i < scalar (@inst); $i++) + { + my $inst = $inst[$i]; + push (@ret, + "DEF:avg_$i=$AbsDir/mysql_handler-$inst.rrd:value:AVERAGE", + "DEF:min_$i=$AbsDir/mysql_handler-$inst.rrd:value:MIN", + "DEF:max_$i=$AbsDir/mysql_handler-$inst.rrd:value:MAX"); + } + + for (my $i = 0; $i < scalar (@inst); $i++) + { + my $inst = $inst[$i]; + my $color = $colors[$i]; + + if (length ($inst) > 18) + { + $inst = substr ($inst, 0, 15) . '...'; + } + else + { + $inst = sprintf ('%-18s', $inst); + } + + push (@ret, + "LINE1:avg_$i#$color:$inst", + "GPRINT:min_$i:MIN:%6.1lf Min,", + "GPRINT:avg_$i:AVERAGE:%6.1lf Avg,", + "GPRINT:max_$i:MAX:%6.1lf Max,", + "GPRINT:avg_$i:LAST:%6.1lf Last\\l"); + } + + return (@ret); +} + +sub output_graph +{ + die unless (defined ($GraphDefs->{$Type})); + + my $host; + my @cmd = (); + my $file = $AbsDir . '/'; + my $files = get_all_files ($AbsDir); + + # + # get hostname + # + if ($RelDir =~ m#([^/]+)$#) + { + $host = $1; + } + else + { + $host = $Config->{'HostName'}; + } + + # + # get timespan + # + if ($TimeSpan =~ m/(\d+)/) + { + $TimeSpan = -1 * int ($1); + } + else + { + my %t = (hour => -3600, day => -86400, week => -604800, month => -2678400, year => -31622400); + die unless (defined ($t{$TimeSpan})); + $TimeSpan = $t{$TimeSpan}; + } + + if (scalar (@{$files->{$Type}}) == 1) + { + $Inst = $files->{$Type}[0]; + } + + push (@cmd, '-', '-a', 'PNG', '-s', $TimeSpan); + push (@cmd, @{$GraphArgs->{$Type}}) if (defined ($GraphArgs->{$Type})); + + for (qw(Back ShadeA ShadeB Font Canvas Grid MGrid Frame Arrow)) + { + push (@cmd, '-c', uc ($_) . '#' . $Config->{'Colors'}{$_}); + } + + if ((length ($Inst) == 0) and (ref ($GraphMulti->{$Type}) eq 'CODE')) + { + push (@cmd, $GraphMulti->{$Type}->(@{$files->{$Type}})); + } + else + { + if (length ("$Inst")) + { + $file .= "$Type-$Inst.rrd"; + } + else + { + $file .= "$Type.rrd"; + } + + die ("File not found: $file") unless (-e $file); + + push (@cmd, @{$GraphDefs->{$Type}}); + } + + for (@cmd) + { + $_ =~ s/{file}/$file/g; + $_ =~ s/{host}/$host/g; + $_ =~ s/{inst}/$Inst/g; + $_ =~ s/{type}/$Type/g; + } + + $| = 1; + + print STDOUT <
/tmp/collection.log") or die ("open: $!"); + flock ($fh, LOCK_EX) or die ("flock: $!"); + + print $fh join ("\n\t", @cmd) . "\n"; + + close ($fh); + } + + RRDs::graph (@cmd); + + die ('RRDs::error: ' . RRDs::error ()) if (RRDs::error ()); +} + +sub output_page +{ + my $files = get_all_files ($AbsDir); + my $dirs = get_all_dirs ($AbsDir); + + print STDOUT <
+ + Collection: $RelDir + + + + +HEADER + + my $MySelf = defined ($ENV{'GATEWAY_INTERFACE'}) ? $ENV{'SCRIPT_NAME'} : $0; + + if ((length ($Type) != 0) and (length ($Inst) == 0) and (ref ($GraphMulti->{$Type}) eq 'CODE') and (scalar (@{$files->{$Type}}) > 1)) + { + print qq(\t\t
Go up
\n); + + print "\t\t
    \n"; + for (@{$files->{$Type}}) + { + print qq(\t\t\t
  • $_
  • \n); + } + print < + +

    Daily

    +
    +

    Weekly

    +
    +

    Monthly

    +
    +

    Yearly

    +
    +HTML + } + elsif (length ($Type) != 0) + { + my $ext = length ($Inst) ? "$Type/$Inst" : $Type; + + if ((ref ($GraphMulti->{$Type}) eq 'CODE') and (scalar (@{$files->{$Type}}) > 1)) + { + print qq(\n); + } + else + { + print qq(\n); + } + + print <Daily +
    +

    Weekly

    +
    +

    Monthly

    +
    +

    Yearly

    +
    +HTML + } + else + { + if ($RelDir) + { + my ($up) = $RelDir =~ m#(.*)/[^/]+$#; + print qq(\t\t\n); + } + + if (@$dirs) + { + print "
      \n"; + for (@$dirs) + { + print qq(
    • $AbsDir/$_
    • \n); + } + print "
    \n"; + } + + for (sort (keys %$files)) + { + my $type = $_; + + if (ref ($GraphMulti->{$type}) eq 'CODE') + { + print qq(\t\t), + qq(\n); + next; + } + + for (@{$files->{$type}}) + { + my $inst = "$_"; + + if (length ($inst)) + { + print qq(\t\t), + qq(\n); + } + else + { + print qq(\t\t), + qq(\n); + } + } + } + } + + print STDOUT <