dsa-check-libs: find nfs files
authorPeter Palfrader <peter@palfrader.org>
Wed, 28 Jan 2015 09:26:41 +0000 (10:26 +0100)
committerPeter Palfrader <peter@palfrader.org>
Wed, 28 Jan 2015 09:26:41 +0000 (10:26 +0100)
dsa-nagios-checks/checks/dsa-check-libs

index 4406413..77707d9 100755 (executable)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# Copyright (C) 2005, 2006, 2007, 2008, 2012 Peter Palfrader <peter@palfrader.org>
+# Copyright (C) 2005, 2006, 2007, 2008, 2012, 2015 Peter Palfrader <peter@palfrader.org>
 #               2012 Uli Martens <uli@youam.net>
 #
 # Permission is hereby granted, free of charge, to any person obtaining
@@ -169,7 +169,7 @@ LINE: for my $line (@lsof)  {
        my $fd    = $fields{f};
        my $inode = $fields{i};
        my $path  = $fields{n};
-       if ($path =~ m/\.dpkg-/ || $path =~ m/\(deleted\)/ || $path =~ /path inode=/ || $fd eq 'DEL') {
+       if ($path =~ m/\.dpkg-/ || $path =~ m/\(deleted\)/ || $path =~ /path inode=/ || $path =~ m#/\.nfs# || $fd eq 'DEL') {
                $path =~ s/^\(deleted\)//; # in some cases "(deleted)" is at the beginning of the string
                for my $i (@{$config->{'ignorelist'}}) {
                        my $ignore = eval($i);