Changeset 49

Show
Ignore:
Timestamp:
01/30/04 16:04:02 (8 years ago)
Author:
jimmyo
Message:

Code tidying in munin-graph (SF#884625).

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/ChangeLog

    • Property cvs2svn:cvs-rev changed from 1.22 to 1.23
    r48 r49  
    3232  * Added max value to generic/vmstat plugin (Deb#225489). 
    3333  * Bugfix in install-doc Makefile target (SF#884074). 
     34  * Code tidying in munin-graph (SF#884625). 
    3435 
    3536munin (1.0.0pre1) 

  • trunk/server/munin-graph.in

    • Property cvs2svn:cvs-rev changed from 1.3 to 1.4
    r27 r49  
    66# 
    77# $Log$ 
     8# Revision 1.4  2004/01/30 15:04:02  jimmyo 
     9# Code tidying in munin-graph (SF#884625). 
     10# 
    811# Revision 1.3  2004/01/29 17:34:06  jimmyo 
    912# Updated copyright information 
    …… 
    731734    { 
    732735                next unless ($field =~ /^(.+)\.label$/); 
    733                 my $field = $1;                my $rrdname = $field; 
    734                 if (length $field > 15) # Use hash instead. 
    735                 { 
    736                         $rrdname = substr (Digest::MD5::md5_hex ($field), -15);  
    737                 } 
    738                 if (exists $service->{$field.".cdef"} and  
    739                         length $service->{$field.".cdef"} and 
    740                         $cdef =~ /\b$field\b/ and 
    741                         $field ne $cfield) 
    742                 { 
    743                         $max =~ s/([,=])$field([,=]|$)/$1ca$rrdname$2/g; 
    744                         $min =~ s/([,=])$field([,=]|$)/$1ci$rrdname$2/g; 
    745                         $avg =~ s/([,=])$field([,=]|$)/$1cg$rrdname$2/g; 
    746                 } 
    747                 if ($cdef =~ /\b$field\b/) 
    748                 { 
    749                         $max =~ s/([,=])$field([,=]|$)/$1a$rrdname$2/g; 
    750                         $min =~ s/([,=])$field([,=]|$)/$1i$rrdname$2/g; 
    751                         $avg =~ s/([,=])$field([,=]|$)/$1g$rrdname$2/g; 
     736                my $fieldname = $1;            my $rrdname = $fieldname; 
     737                if (length $fieldname > 15) # Use hash instead. 
     738                { 
     739                        $rrdname = substr (Digest::MD5::md5_hex ($fieldname), -15);  
     740                } 
     741                if (exists $service->{$fieldname.".cdef"} and  
     742                        length $service->{$fieldname.".cdef"} and 
     743                        $cdef =~ /\b$fieldname\b/ and 
     744                        $fieldname ne $cfield) 
     745                { 
     746                        $max =~ s/([,=])$fieldname([,=]|$)/$1ca$rrdname$2/g; 
     747                        $min =~ s/([,=])$fieldname([,=]|$)/$1ci$rrdname$2/g; 
     748                        $avg =~ s/([,=])$fieldname([,=]|$)/$1cg$rrdname$2/g; 
     749                } 
     750                if ($cdef =~ /\b$fieldname\b/) 
     751                { 
     752                        $max =~ s/([,=])$fieldname([,=]|$)/$1a$rrdname$2/g; 
     753                        $min =~ s/([,=])$fieldname([,=]|$)/$1i$rrdname$2/g; 
     754                        $avg =~ s/([,=])$fieldname([,=]|$)/$1g$rrdname$2/g; 
    752755                } 
    753756    }