Projet

Général

Profil

Révision 0ddf0181

ID0ddf01817f165df71e707ba0e8679209deeeff73
Parent e3e3ca27
Enfant 7090bcd8

Ajouté par Rémi Paulmier il y a presque 12 ans

canonicalize keys with _ instead of dots

Voir les différences:

plugins/bind9/bind9_rr
95 95 

  		




  96
  96
  
    
    open(Q,"> $STATEFILE") or die;


  		




  97
  97
  
    
    foreach $k (@INkeys[0 .. 19]) {


  		




  98
  
  
    
        print "rr_$k.value ",$IN{$k},"\n";


  		




  99
  
  
    
        print Q "$k ",$IN{$k},"\n";


  		




  
  98
  
    
        next if not defined $k;


  		




  
  99
  
    
        my $l = $k; $k =~ tr/\./_/;


  		




  
  100
  
    
        print "rr_$k.value ",$IN{$l},"\n";


  		




  
  101
  
    
        print Q "$l ",$IN{$l},"\n";


  		




  100
  102
  
    
    }


  		




  101
  103
  
    
    close(Q);


  		




  102
  104
  
    
}


  		




  ......




  114
  116
  
    
    my @INkeys = sort { $IN{$b} <=> $IN{$a} } keys %IN;


  		




  115
  117
  
    

  		




  116
  118
  
    
    foreach $k (@INkeys[0 .. 19]) {


  		




  117
  
  
    
        print "rr_$k.label $k


  		




  
  119
  
    
        next if not defined $k;


  		




  
  120
  
    
        my $l = $k; $k =~ tr/\./_/;


  		




  
  121
  
    
        print "rr_$k.label $l


  		




  118
  122
  
    
rr_$k.type DERIVE


  		




  119
  123
  
    
rr_$k.min 0


  		




  120
  124
  
    
rr_$k.draw STACK


  		












Formats disponibles :  Unified diff