/[sysadmin-cookbook]/recepies/netpipe-tcp/np2graphviz.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /recepies/netpipe-tcp/np2graphviz.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 100 by dpavlin, Mon May 25 22:11:20 2009 UTC revision 165 by dpavlin, Sat Feb 20 16:32:01 2010 UTC
# Line 45  join("\n", map { Line 45  join("\n", map {
45          my $node = $_;          my $node = $_;
46          my $speed = $graph->{$_}->{speed};          my $speed = $graph->{$_}->{speed};
47          my $c = 'ff0000';          my $c = 'ff0000';
48          $c = '00ff00' if ( $speed /  100 ) > 1;          $c = '00ff00' if ( $speed /  100 ) > 1.5;
49          $c = '0000ff' if ( $speed / 1000 ) > 1;          $c = '0000ff' if ( $speed / 1000 ) > 1;
50          $c = '8888ff' if ( $speed / 1000 ) > 2;          $c = '8888ff' if ( $speed / 1000 ) > 2;
51          my $label = $speed;          my $label = $speed;
Legend:
Removed from v.100  
changed lines
  Added in v.165
  ViewVC Help
Powered by ViewVC 1.1.26