Projet

Général

Profil

Révision 17f78427

ID17f784270ae966ee9a13e9f5104a5b8f925b639e
Parent ef851f0c
Enfant d4320aea, 5b2396a9

Ajouté par Lars Kruse il y a plus de 7 ans

Whitespace cleanup

  • remove trailing whitespace
  • remove empty lines at the end of files

Voir les différences:

plugins/ntp/ntp_peers_ipv6
29 29 
#
30 30 
# Change log
31 31 
# v1.0.0    2008-07-21        Chris Hastie
32 
# initial release
32 
# initial release
33 33 
# v1.0.1    2009-06-05	      Tony Hoyle
34 34 
# ipv6 support.  Remove dns lookups.
35 35 
#
......
75 75 
while (<SERVICE>) {
76 76 
    if(/^\s*\d+\s+(\d+)\s+/) {
77 77 
      my ($name, $offset) = &lookupip($1);
78 
      $peers{$name} = $offset;
78 
      $peers{$name} = $offset;
79 79 
    }
80 80 
}
81 81 
close(SERVICE);
......
106 106 
# create a valid munin field name from the hostname
107 107 
sub sanitize_field () {
108 108 
  my $field = shift;
109
109 

  		




  110
  110
  
    
  # replace illegal characters with an underscore


  		




  111
  111
  
    
  $field =~ s/[^A-Za-z0-9_]/_/g;


  		




  112
  112
  
    
  # prepend an underscore if name starts with a number


  		




  113
  113
  
    
  $field =~ s/^([^A-Za-z_])/_$1/;


  		




  114
  
  
    
  


  		




  
  114
  
    

  		




  115
  115
  
    
  # truncate to 19 characters


  		




  116
  116
  
    
  if (length($field) > 19) {


  		




  117
  117
  
    
    $field = substr($field, 0, 19);


  		












Formats disponibles :  Unified diff