blob: feb3e237620d64fb0fec06c2c3747b8c3ea36c81 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- a/check_nfsmounts/check_nfsmounts
+++ b/check_nfsmounts/check_nfsmounts
_æ_ _æ_ -45,6 +45,7 _æ_ _æ_
}
use Time::HiRes qw{time alarm};
+use Sys::Hostname;
use Getopt::Long;
use strict;
_æ_ _æ_ -129,7 +130,8 _æ_ _æ_
if($pid==0) {
chdir $dir or &bad_mount($dir,$!);
if($writemode and exists($mountmodes{$dir}->{"rw"})) {
- open X,"> $dir/.nfscheck" or exit $?;
+ my $check_filename="$dir/.nfscheck_" . hostname;
+ open X,"> $check_filename" or exit $?;
print X $ENV{HOSTNAME}."\n".localtime()."\n"; # XXX Full disk may fail..
close X or exit $?;
}
|