From 95c19fa674d7906a968011f240eda0984ef127a9 Mon Sep 17 00:00:00 2001
From: Isaac Connor <isaac@zoneminder.com>
Date: Mon, 20 Nov 2017 11:55:42 -0500
Subject: [PATCH] Make zmaudit check for a pid file and not running if it
 exists

---
 scripts/zmaudit.pl.in | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/scripts/zmaudit.pl.in b/scripts/zmaudit.pl.in
index cbb68faff..e0ba169ee 100644
--- a/scripts/zmaudit.pl.in
+++ b/scripts/zmaudit.pl.in
@@ -81,6 +81,7 @@ use constant EVENT_PATH => ($Config{ZM_DIR_EVENTS}=~m|/|)
                            ? $Config{ZM_DIR_EVENTS}
                            : ($Config{ZM_PATH_WEB}.'/'.$Config{ZM_DIR_EVENTS})
 ;
+use constant ZM_AUDIT_PID =>  $Config{ZM_RUNDIR}.'/zm.pid'
 
 $| = 1;
 
@@ -118,6 +119,17 @@ if ( ! exists $Config{ZM_AUDIT_MIN_AGE} ) {
   Fatal('ZM_AUDIT_MIN_AGE is not set in config.');
 }
 
+if ( -e ZM_AUDIT_PID ) {
+  Fatal('zmaudit.pl appears to already be running.  If not, please delete ' . ZM_AUDIT_PID );
+} else {
+  if ( open( my $PID, '>', ZM_AUDIT_PID ) ) {
+    print( $PID $$ );
+    close( $PID );
+  } else {
+    Error( "Can't open pid file at " . ZM_PID );
+  }
+}
+
 my $dbh = zmDbConnect();
 
 require ZoneMinder::Monitor;
@@ -598,6 +610,7 @@ Debug("Event $db_event is not in fs.");
   sleep( $Config{ZM_AUDIT_CHECK_INTERVAL} ) if $continuous;
 };
 
+unlink ZM_AUDIT_PID;
 exit( 0 );
 
 sub aud_print {