--- projects/cms/source/reports/rrdgraphing/graph.pl	2005/03/31 20:49:33	1.16
+++ projects/cms/source/reports/rrdgraphing/graph.pl	2005/06/15 10:41:25	1.17
@@ -27,7 +27,7 @@
 # Generates graphs from rrd databases for i-scream data.
 #
 # $Author: tdb $
-# $Id: graph.pl,v 1.16 2005/03/31 20:49:33 tdb Exp $
+# $Id: graph.pl,v 1.17 2005/06/15 10:41:25 tdb Exp $
 #------------------------------------------------------------
 
 ## TODO
@@ -35,7 +35,7 @@
 #  -- allow configurable periods of graphs
 #  -- comments, types, etc
 
-my($version) = '$Id: graph.pl,v 1.16 2005/03/31 20:49:33 tdb Exp $';
+my($version) = '$Id: graph.pl,v 1.17 2005/06/15 10:41:25 tdb Exp $';
 
 $| = 1;
 
@@ -48,7 +48,8 @@ use RRDs;
 use vars qw{
     $imgdir $rrddir
     $maxrrdage $maximgage $deleterrds $deleteimgs
-    $hex_slash $hex_underscore $hex_space $hex_colon $hex_bslash
+    $hex_slash $hex_underscore $hex_space $hex_colon $hex_bslash $hex_rbracket
+    $hex_lbracket $hex_plus
     $rrdstep $retry_wait
     $verbose $quiet
 };
@@ -257,7 +258,7 @@ foreach my $machine (@rrddirlist) {
             push @data, "AREA:$1-$2:rbytes:rbytes#00FF00:OK:read bytes ";
             push @data, "LINE2:$1-$2:wbytes:wbytes#0000FF:OK:write bytes";
             push @rawdata, "--base=1024";
-            # some name tidting
+            # some name tidying
             my($type) = $1;
             my($name) = $2;
             my($nicename) = $2;
@@ -274,7 +275,7 @@ foreach my $machine (@rrddirlist) {
             push @data, "AREA:$1-$2:rx:rx#00FF00:OK:received bytes  ";
             push @data, "LINE2:$1-$2:tx:tx#0000FF:OK:transfered bytes";
             push @rawdata, "--base=1024";
-            # some name tidting
+            # some name tidying
             my($type) = $1;
             my($name) = $2;
             my($nicename) = $2;
@@ -283,6 +284,9 @@ foreach my $machine (@rrddirlist) {
             $nicename =~ s/$hex_bslash/\\/g;
             $nicename =~ s/$hex_space/ /g;
             $nicename =~ s/$hex_colon/:/g;
+            $nicename =~ s/$hex_rbracket/(/g;
+            $nicename =~ s/$hex_lbracket/)/g;
+            $nicename =~ s/$hex_plus/+/g;
             &makegraph($machine, "$type-$name", "Network IO for $machine on $nicename", "bytes per second", \@data, \@rawdata);
         }
         if($rrd =~ /^(mailq)-(\S+)\.rrd$/) {