Block additional scans script if one is already running

diff --git a/scripts/scans.pl b/scripts/scans.pl
index e44dc081f53c70076377f924b03457e2dd9e786b..b54cb54f81fbc83eb5efca351cb83e3ccc78ee92 100755 (executable)
--- a/scripts/scans.pl
+++ b/scripts/scans.pl
@@ -23,6 +23,7 @@ use strict;
 use warnings;
 no warnings 'exiting';
 use local::lib;
+use Sys::RunAlone;
 use CGI;
 use DBI;
 use DBD::Pg qw(:pg_types);
@@ -306,3 +307,5 @@ sub addintel {
                ,$target,$tick, $eta, $back, $amount,$ingal);
        return $id;
 }
+
+__END__