[PATCH] TcpRtt support in ragraph

[Carter Bullard]

Hi!!
Thanks for the patch!!!  I'lve added the changes to the argus- 
clients-3.0.1 code
base which I'll put up on the server later today.

Did you get interesting graphs for your TcpRtt metrics?  Do they  
appear to be
reasonable for your experiments/observations?

Carter


On Aug 23, 2008, at 1:15 AM, Tomoyuki Sakurai wrote:

> 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
>