Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

nginx_byprojects: use more compatible perl expression

Browse Source 
"%ENV{foo}" does not work with older perl versions (e.g. v5.14).
This commit is contained in:
Lars Kruse 2018-03-08 23:08:25 +01:00
parent 74b58a592a
commit a836f07d56
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plugins/nginx/nginx_byprojects/byprojects_access
View File

@ -38,7 +38,7 @@ my $statepath = $ENV{MUNIN_PLUGSTATE};
my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail'; my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail';
my @loglist = grep {$_ =~ /site\./} keys(%ENV); my @loglist = grep {$_ =~ /site\./} keys(%ENV);
my %envLogs = %ENV{@loglist}; my %envLogs = $ENV{@loglist};
my %logs; my %logs;
while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); } while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); }

2
plugins/nginx/nginx_byprojects/byprojects_bandwidth
View File

@ -44,7 +44,7 @@ my $statepath = $ENV{MUNIN_PLUGSTATE};
my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail'; my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail';
my @loglist = grep {$_ =~ /site\./} keys(%ENV); my @loglist = grep {$_ =~ /site\./} keys(%ENV);
my %envLogs = %ENV{@loglist}; my %envLogs = $ENV{@loglist};
my %logs; my %logs;
while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); } while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); }

2
plugins/nginx/nginx_byprojects/byprojects_inout_bandwidth
View File

@ -44,7 +44,7 @@ my $statepath = $ENV{MUNIN_PLUGSTATE};
my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail'; my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail';
my @loglist = grep {$_ =~ /site\./} keys(%ENV); my @loglist = grep {$_ =~ /site\./} keys(%ENV);
my %envLogs = %ENV{@loglist}; my %envLogs = $ENV{@loglist};
my %logs; my %logs;
while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); } while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); }