OSSP CVS Repository

ossp - Check-in [4937]
Not logged in
[Honeypot]  [Browse]  [Home]  [Login]  [Reports
[Search]  [Ticket]  [Timeline
  [Patchset]  [Tagging/Branching

Check-in Number: 4937
Date: 2004-Dec-29 16:45:56 (local)
2004-Dec-29 15:45:56 (UTC)
User:rse
Branch:
Comment: further improve legend by adding total average traffic
Tickets:
Inspections:
Files:
ossp-pkg/flow2rrd/flow2rrd.pl      1.17 -> 1.18     29 inserted, 3 deleted

ossp-pkg/flow2rrd/flow2rrd.pl 1.17 -> 1.18

--- flow2rrd.pl  2004/12/29 15:21:19     1.17
+++ flow2rrd.pl  2004/12/29 15:45:56     1.18
@@ -597,6 +597,8 @@
             $cols = 4 if ($graph->{-img_width} >= 600);
             $cols = 5 if ($graph->{-img_width} >= 800);
             #   FIXME: UNKNOWN data?
+            my $data_i = '';
+            my $data_o = '';
             foreach my $target (@{$host->{-target}->{-order}}) {
                 my $cdef_i = '';
                 my $cdef_o = '';
@@ -617,12 +619,23 @@
                 push(@draw_o, sprintf("GPRINT:data%d_o:AVERAGE:%%4.0lf%%S", $i));
                 push(@draw_o, sprintf("%s:data%d_o#%06x:out %s", ($i == 0 ? "AREA" : "STACK"), $i, $color_o, sprintf("%-8s", substr($target, 0, 8))));
                 push(@draw_o, 'COMMENT:\n') if ($i % $cols == ($cols-1));
-                push(@draw_i, sprintf("GPRINT:data%d_o:AVERAGE:%%4.0lf%%S", $i));
+                push(@draw_i, sprintf("GPRINT:data%d_i:AVERAGE:%%4.0lf%%S", $i));
                 push(@draw_i, sprintf("%s:data%d_i#%06x:in  %s", ($i == 0 ? "AREA" : "STACK"), $i, $color_i, sprintf("%-8s", substr($target, 0, 8))));
                 push(@draw_i, 'COMMENT:\n') if ($i % $cols == ($cols-1));
+                $data_o = ($data_o eq '' ? sprintf("data%d_o", $i) : sprintf("data%d_o,%s,+", $i, $data_o));
+                $data_i = ($data_i eq '' ? sprintf("data%d_i", $i) : sprintf("data%d_i,%s,+", $i, $data_i));
                 $i++;
             }
+            push(@cdef, sprintf("CDEF:data_o=%s", $data_o));
+            push(@cdef, sprintf("CDEF:data_i=%s", $data_i));
+
             my @draw = (@draw_o, 'COMMENT:\n', @draw_i);
+
+            push(@draw, 'COMMENT:\n');
+            push(@draw, 'COMMENT:\n');
+            push(@draw, sprintf("GPRINT:data_o:AVERAGE:Total Average Traffic\\:  %%.0lf%%S out /"));
+            push(@draw, sprintf("GPRINT:data_i:AVERAGE:%%.0lf%%S in"));
+
             push(@draw, "HRULE:0#000000");
             my $now = time();
             my $tzoffset = $now - timelocal(gmtime($now));
@@ -703,6 +716,8 @@
             $cols = 3 if ($graph->{-img_width} >= 400);
             $cols = 4 if ($graph->{-img_width} >= 600);
             $cols = 5 if ($graph->{-img_width} >= 800);
+            my $data_i = '';
+            my $data_o = '';
             foreach my $service (@{$host->{-target}->{$target}->{-service}}) {
                 my $ds_name = &make_rrd_ds_name($host->{-name}, $target, $service);
                 push(@def,    sprintf("DEF:%s_o=%s:%s_o:LAST", $ds_name, $cfg->{'Database'}->{-file}, $ds_name));
@@ -711,15 +726,26 @@
                 push(@cdef,   sprintf("CDEF:data%d_i=%s_i,8,*,-1,*", $i, $ds_name));
                 my $color_o; eval "\$color_o = 0x".$colors->[$i];
                 my $color_i; eval "\$color_i = \$color_o - 0x101010";
-                push(@draw_o, sprintf("GPRINT:data%d_o:AVERAGE:%%4.0lf%%S", $i));
+                push(@draw_o, sprintf("GPRINT:data%d_o:AVERAGE:%%4.0lf%%s", $i));
                 push(@draw_o, sprintf("%s:data%d_o#%06x:out %s", ($i == 0 ? "AREA" : "STACK"), $i, $color_o, sprintf("%-8s", substr($service, 0, 8))));
                 push(@draw_o, 'COMMENT:\n') if ($i % $cols == ($cols-1));
-                push(@draw_i, sprintf("GPRINT:data%d_o:AVERAGE:%%4.0lf%%S", $i));
+                push(@draw_i, sprintf("GPRINT:data%d_i:AVERAGE:%%4.0lf%%s", $i));
                 push(@draw_i, sprintf("%s:data%d_i#%06x:in  %s", ($i == 0 ? "AREA" : "STACK"), $i, $color_i, sprintf("%-8s", substr($service, 0, 8))));
                 push(@draw_i, 'COMMENT:\n') if ($i % $cols == ($cols-1));
+                $data_o = ($data_o eq '' ? sprintf("data%d_o", $i) : sprintf("data%d_o,%s,+", $i, $data_o));
+                $data_i = ($data_i eq '' ? sprintf("data%d_i", $i) : sprintf("data%d_i,%s,+", $i, $data_i));
                 $i++;
             }
+            push(@cdef, sprintf("CDEF:data_o=%s", $data_o));
+            push(@cdef, sprintf("CDEF:data_i=%s", $data_i));
+
             my @draw = (@draw_o, 'COMMENT:\n', @draw_i);
+
+            push(@draw, 'COMMENT:\n');
+            push(@draw, 'COMMENT:\n');
+            push(@draw, sprintf("GPRINT:data_o:AVERAGE:Total Average Traffic\\:  %%.0lf%%S out /"));
+            push(@draw, sprintf("GPRINT:data_i:AVERAGE:%%.0lf%%S in"));
+
             push(@draw, "HRULE:0#000000");
             my $now = time();
             my $tzoffset = $now - timelocal(gmtime($now));

CVSTrac 2.0.1