From 140e3035a72c81bdd538c07ec48cd614fb793984 Mon Sep 17 00:00:00 2001
From: mar <mar>
Date: Wed, 28 Jun 1989 13:41:15 +0000
Subject: [PATCH] do better database locking

---
 gen/nfs.qc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gen/nfs.qc b/gen/nfs.qc
index 01e639bf..7f10feb9 100644
--- a/gen/nfs.qc
+++ b/gen/nfs.qc
@@ -395,7 +395,6 @@ struct save_queue *machs;
 
     fprintf(stderr, "Building machine files\n");
 
-##  begin transaction
 ##  range of s is serverhosts
 ##  range of m is machine
 ##  range of n is nfsphys
@@ -403,6 +402,14 @@ struct save_queue *machs;
 ##  range of f is filesys
 ##  range of u is users
 ##  range of l is list
+
+/* acquire locks on users, lists, machines & filesystems */
+##  begin transaction
+##  retrieve (listname = u.modtime) where u.users_id = 0
+##  retrieve (listname = l.modtime) where l.list_id = 0
+##  retrieve (listname = m.modtime) where m.mach_id = 0
+##  retrieve (listname = f.modtime) where f.filsys_id = 0
+
     while (sq_get_data(machs, &machname)) {
 ##	repeat retrieve (listname = trim(s.value3))
 ##	    where s.mach_id = m.mach_id and m.name = @machname
-- 
2.45.2