Prevent concurrent collectinfo.pl runs

PitWenkin · Jun 7, 2007 · 5590580 · 5590580
1 parent 1d7dc71
commit 5590580
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/collectinfo.pl b/collectinfo.pl
@@ -6,8 +6,15 @@ package virtual_server;
 $main::no_acl_check++;
 require './virtual-server-lib.pl';
 
+# Make sure we are not already running
+if (&test_lock($collected_info_file)) {
+	print "Already running\n";
+	exit(0);
+	}
+&lock_file($collected_info_file);
+
 $info = &collect_system_info();
 if ($info) {
 	&save_collected_info($info);
 	}
-
+&unlock_file($collected_info_file);