Projet

Général

Profil

Révision a836f07d

IDa836f07d56e35d230cdd9586bd35aae6343e9771
Parent 74b58a59
Enfant c01fb0a9, 3706fe00

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

nginx_byprojects: use more compatible perl expression

"%ENV{foo}" does not work with older perl versions (e.g. v5.14).

Voir les différences:

plugins/nginx/nginx_byprojects/byprojects_access
38 38 
my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail';
39 39 

  		




  40
  40
  
    
my @loglist = grep {$_ =~ /site\./} keys(%ENV);


  		




  41
  
  
    
my %envLogs = %ENV{@loglist};


  		




  
  41
  
    
my %envLogs = $ENV{@loglist};


  		




  42
  42
  
    
my %logs;


  		




  43
  43
  
    
while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); }


  		




  44
  44
  
    

  		












  

    
      plugins/nginx/nginx_byprojects/byprojects_bandwidth
    
  





  44
  44
  
    
my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail';


  		




  45
  45
  
    

  		




  46
  46
  
    
my @loglist = grep {$_ =~ /site\./} keys(%ENV);


  		




  47
  
  
    
my %envLogs = %ENV{@loglist};


  		




  
  47
  
    
my %envLogs = $ENV{@loglist};


  		




  48
  48
  
    
my %logs;


  		




  49
  49
  
    
while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); }


  		




  50
  50
  
    

  		












  

    
      plugins/nginx/nginx_byprojects/byprojects_inout_bandwidth
    
  





  44
  44
  
    
my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail';


  		




  45
  45
  
    

  		




  46
  46
  
    
my @loglist = grep {$_ =~ /site\./} keys(%ENV);


  		




  47
  
  
    
my %envLogs = %ENV{@loglist};


  		




  
  47
  
    
my %envLogs = $ENV{@loglist};


  		




  48
  48
  
    
my %logs;


  		




  49
  49
  
    
while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); }


  		




  50
  50
  
    

  		












Formats disponibles :  Unified diff