Add a missing '/'.

[netatalk.git] / bin / cnid / cnid_maint.in

diff --git a/bin/cnid/cnid_maint.in b/bin/cnid/cnid_maint.in
index 2a84f75840a80cef25867bb0c11dc543d8a32d8b..584664251ba6ca4265033c6da5e3df9fa6a7a6c6 100755 (executable)
--- a/bin/cnid/cnid_maint.in
+++ b/bin/cnid/cnid_maint.in
@@ -3,7 +3,7 @@
 #
 # cnid_maint: A script to maintain the consistency of CNID databases.
 #
-# $Id: cnid_maint.in,v 1.3 2002-02-07 16:10:29 jmarcus Exp $
+# $Id: cnid_maint.in,v 1.5 2002-02-09 20:29:40 jmarcus Exp $
 #
 
 use strict;
@@ -41,7 +41,7 @@ $APPLE_VOLUMES_FILE = '@PKGCONFDIR@/AppleVolumes.default';
 $VERSION = '1.0';
 $GREP           = '@GREP@';
 $START_NETATALK = 0;
-$LOCK_FILE      = '/tmp/cnid_maint.LOCK';
+$LOCK_FILE      = tmpdir() . '/cnid_maint.LOCK';
 $HOLDING_LOCK   = 0;
 
 sub LOCK_SH { 1 }
@@ -257,6 +257,18 @@ foreach $path (@paths) {
 
 end();
 
+sub tmpdir {
+    my $tmpdir;
+
+    foreach ( $ENV{TMPDIR}, "/tmp" ) {
+        next unless defined && -d && -w _;
+        $tmpdir = $_;
+        last;
+    }
+    $tmpdir = '' unless defined $tmpdir;
+    return $tmpdir;
+}
+
 sub error {
     my ( $code, $msg ) = @_;