From ff7953295deedc32965b0f39f0b99a65197efb80 Mon Sep 17 00:00:00 2001
From: "cls%seawood.org" <cls%seawood.org>
Date: Sun, 13 May 2001 00:25:19 +0000
Subject: [PATCH] Initial version.  Since flock() doesn't work on all platforms
 or with all filesystems, implement locking using lck files.

---
 config/mozLock.pm | 61 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 config/mozLock.pm

diff --git a/config/mozLock.pm b/config/mozLock.pm
new file mode 100644
index 00000000000..05773cab795
--- /dev/null
+++ b/config/mozLock.pm
@@ -0,0 +1,61 @@
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is mozilla.org code.
+#
+# The Initial Developer of the Original Code is Netscape
+# Communications Corporation.  Portions created by Netscape are
+# Copyright (C) 2001 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): 
+#	Christopher Seawood <cls@seawood.org>
+
+package mozLock;
+
+use strict;
+
+BEGIN {
+    use Exporter ();
+    use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+
+    $VERSION = 1.00;
+    @ISA = qw(Exporter);
+    @EXPORT = qw(&mozLock &mozUnlock);
+    %EXPORT_TAGS = ( );
+    @EXPORT_OK = qw();
+}
+
+my $lockcounter = 0;
+my $locklimit = 60;
+my $locksleep = 1;
+
+sub mozLock($) {
+    my ($lockfile) = @_;
+    $lockcounter = 0;
+    while ( -e $lockfile && $lockcounter < $locklimit) {
+	$lockcounter++;
+	sleep(1);
+    }
+    die "$0: Could not get lockfile $lockfile.\nRemove $lockfile to clear up\n" if ($lockcounter >= $locklimit);
+    #print "LOCK: $lockfile\n";
+    open(LOCK, ">$lockfile") || die "$lockfile: $!\n";
+}
+
+sub mozUnlock($) {
+    my ($lockfile) = @_;
+    #print "UNLOCK: $lockfile\n";
+    unlink($lockfile);
+}
+
+END {};
+
+1;