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