reports/queuegraphing/graph.pl

#!/usr/local/bin/perl -w

$| = 1;

use strict;

my(@rrdlist) = `ls *.rrd`;

foreach my $rrd (@rrdlist) {
    chop $rrd;
    if($rrd =~ /^(\d+)_0\.rrd$/) {
        my($baserrd) = $1;
        my($def) = "";
        my($line) = "";
        my($i) = 0;
        while( -f "$baserrd\_$i.rrd" ) {
            print "rrd: $baserrd $i\n";
            $def = $def . "DEF:size$i=$baserrd\_$i.rrd:size:MAX ";
            $line = $line . "LINE2:size$i" . &get_colour($i)  .":\"queue$i size\" ";
            ++$i;
        }
        $def = $def . "DEF:total=$baserrd\_0.rrd:total:AVERAGE";
        $line = $line . "LINE2:total#FF0000:\"packets/sec - currently\"";
        my($comment) = `cat $baserrd.def` if -f "$baserrd.def";
        chop $comment;
        my($info) = "--title \"$comment\" --imgformat PNG";
        my($legend) = "GPRINT:total:LAST:\"%lf %spackets/sec\"";
        my($cmd) = "$info $def $line $legend";
        my($init);
        # 3h graph
        $init = "rrdtool graph $baserrd-3h.png --start -10800 --lower-limit 0";
        print `$init $cmd`;
        # 1d graph
        $init = "rrdtool graph $baserrd-1d.png --start -86400 --lower-limit 0";
        print `$init $cmd`;
        # 1w graph
        $init = "rrdtool graph $baserrd-1w.png --start -604800 --lower-limit 0";
        print `$init $cmd`;
        # 1m graph
        $init = "rrdtool graph $baserrd-1m.png --start -2678400 --lower-limit 0";
        print `$init $cmd`;
    }
}

sub get_colour {
    my($col) = @_;
    if($col == 0) {
        return "#0000FF";
    }
    elsif($col == 1) {
        return "#00FF00";
    }
    elsif($col == 2) {
        return "#FF00FF";
    }
    elsif($col == 3) {
        return "#FFFF00";
    }
    elsif($col == 4) {
        return "#00FFFF";
    }
    else {
        return "#000066";
    }
}
Revision:	1.1
Committed:	Sun Oct 21 16:52:41 2001 UTC (23 years, 1 month ago) by tdb
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Error occurred while calculating annotation data.
Log Message:	An experimental go at using rrdtool to graph i-scream data. Graphing the Queue's seem like a good idea, as this wasn't done anywhere else. The README file gives details on how this works.
#	Content
1	#!/usr/local/bin/perl -w
2
3	$\| = 1;
4
5	use strict;
6
7	my(@rrdlist) = `ls *.rrd`;
8
9	foreach my $rrd (@rrdlist) {
10	chop $rrd;
11	if($rrd =~ /^(\d+)_0\.rrd$/) {
12	my($baserrd) = $1;
13	my($def) = "";
14	my($line) = "";
15	my($i) = 0;
16	while( -f "$baserrd\_$i.rrd" ) {
17	print "rrd: $baserrd $i\n";
18	$def = $def . "DEF:size$i=$baserrd\_$i.rrd:size:MAX ";
19	$line = $line . "LINE2:size$i" . &get_colour($i) .":\"queue$i size\" ";
20	++$i;
21	}
22	$def = $def . "DEF:total=$baserrd\_0.rrd:total:AVERAGE";
23	$line = $line . "LINE2:total#FF0000:\"packets/sec - currently\"";
24	my($comment) = `cat $baserrd.def` if -f "$baserrd.def";
25	chop $comment;
26	my($info) = "--title \"$comment\" --imgformat PNG";
27	my($legend) = "GPRINT:total:LAST:\"%lf %spackets/sec\"";
28	my($cmd) = "$info $def $line $legend";
29	my($init);
30	# 3h graph
31	$init = "rrdtool graph $baserrd-3h.png --start -10800 --lower-limit 0";
32	print `$init $cmd`;
33	# 1d graph
34	$init = "rrdtool graph $baserrd-1d.png --start -86400 --lower-limit 0";
35	print `$init $cmd`;
36	# 1w graph
37	$init = "rrdtool graph $baserrd-1w.png --start -604800 --lower-limit 0";
38	print `$init $cmd`;
39	# 1m graph
40	$init = "rrdtool graph $baserrd-1m.png --start -2678400 --lower-limit 0";
41	print `$init $cmd`;
42	}
43	}
44
45	sub get_colour {
46	my($col) = @_;
47	if($col == 0) {
48	return "#0000FF";
49	}
50	elsif($col == 1) {
51	return "#00FF00";
52	}
53	elsif($col == 2) {
54	return "#FF00FF";
55	}
56	elsif($col == 3) {
57	return "#FFFF00";
58	}
59	elsif($col == 4) {
60	return "#00FFFF";
61	}
62	else {
63	return "#000066";
64	}
65	}