[PATCH] TcpRtt support in ragraph

[Tomoyuki Sakurai]

Hi,

This patch adds TcpRtt support in ragraph. I hope I didn't anything
wrong. It took a while to find out what should be needed to add anther
graph.

--- ragraph.orig	Sat Aug 23 10:37:01 2008
+++ ragraph	Sat Aug 23 13:21:36 2008
@@ -683,7 +683,7 @@
                   $ncnt++;
                };
 
-               /Dst|In|DApp|Trans|Dur|Time|dd/  and do {
+               /Dst|In|DApp|Trans|Dur|Time|dd|TcpRtt/  and do {
                   $opts[$ind++]          = "DS:$objectOut$ocnt:GAUGE:$STEP:$minval:U";
                   $line_args[$lineind++] = "DEF:alphaOut$ocnt=$RRD:objectOut$ocnt:AVERAGE";
                   $line_args[$lineind++] = "CDEF:ralphaOut$ocnt=alphaOut$ocnt,$STEP,/";
@@ -746,7 +746,7 @@
                }
             };
 
-            /In|DApp|Trans|Dur|Time/  and do {
+            /In|DApp|Trans|Dur|Time|TcpRtt/  and do {
                $opts[$ind++]          = "DS:$objectOut$ocnt:GAUGE:$STEP:$minval:U";
                $line_args[$lineind++] = "DEF:alphaOut$ocnt=$RRD:objectOut$ocnt:AVERAGE";
                $line_args[$lineind++] = "CDEF:ralphaOut$ocnt=alphaOut$ocnt,$STEP,/";
@@ -1064,7 +1064,7 @@
                }
             };
 
-            /In|DApp|Trans|Dur|Time/   and do {
+            /In|DApp|Trans|Dur|Time|TcpRtt/   and do {
                if (!($col = $outcolors[$ocnt % $colorcnt])) {
                   $col = "#b0b0b0";
                }
@@ -1091,6 +1091,7 @@
          /Jitter/   and do {$power[$x] = 1.0; };
          /Loss/     and do {$power[$x] = 1.0 ; };
          /Trans/    and do {$power[$x] = 1.0 ; };
+         /TcpRtt/    and do {$power[$x] = 1; };
          /AvgDur/   and do {$power[$x] = $STEP ; };
          /Win/      and do {$power[$x] = $STEP ; };
          /dDur/     and do {$power[$x] = $STEP ; };
@@ -1258,7 +1259,7 @@
          for (my $i = 0; $i < (@objects + 0); $i++) {
             for ($objects[$i]) {
                /Host|Tot|Src|Out|SApp|ds/       and do { $label = "src"; };
-               /Dst|In|DApp|Trans|Dur|Time|dd/  and do { $label = "dst"; };
+               /Dst|In|DApp|Trans|Dur|Time|dd|TcpRtt/  and do { $label = "dst"; };
             }
             $objectvals{$thistime, $objects[$i], $label} += $opts[$i + 1] * $power[$i + 1];
          }
@@ -1345,7 +1346,7 @@
                };
 
                /Host|Out|SApp/            and do { $label = "src"; };
-               /In|DApp|Trans|Dur|Time/   and do { $label = "dst"; };
+               /In|DApp|Trans|Dur|Time|TcpRtt/   and do { $label = "dst"; };
             }
 
             if (!($label eq "")) {

-- 
Tomoyuki Sakurai