rooty/yubikey-val
1
0
Fork 0
mirror of https://github.com/Yubico/yubikey-val.git synced 2025-02-08 03:54:20 +01:00
Code Issues Projects Releases Wiki Activity

change to use variable file handle instead of bare-word

Browse Source
This commit is contained in:
Klas Lindfors 2014-09-25 09:31:39 +02:00
parent e10014c3bf
commit 44d247200d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ykval-munin-responses.pl
View File

@ -2,7 +2,7 @@
#%# family=auto
#%# capabilities=autoconf
# Copyright (c) 2012-2013 Yubico AB
# Copyright (c) 2012-2014 Yubico AB
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
@ -65,12 +65,12 @@ if(@ARGV > 0) {
my %statuses = map { $_ => 0 } @types;
my $reg = qr/status=([A-Z_]+)/;
open (LOGFILE, "grep 'ykval-verify.*Response' $logfile |");
while(<LOGFILE>) {
open (my $file, "-|", "grep 'ykval-verify.*Response' $logfile");
while(<$file>) {
next unless /$reg/;
$statuses{$1}++;
}
close LOGFILE;
close $file;
print "multigraph ykval_responses\n";
foreach my $type (@types) {