Lock incoming-spamscan before creating an instance of SpamAssassin.
#! /usr/bin/perl -T
-# $Id: spamscan.in,v 1.6 2004/01/14 01:39:01 cjwatson Exp $
+# $Id: spamscan.in,v 1.7 2004/01/14 19:41:18 cjwatson Exp $
#
# Usage: spamscan
#
umask 002;
+eval {
+ &filelock('incoming-spamscan');
+};
+exit if $@;
+
my $user_prefs = "$ENV{HOME}/.spamassassin/user_prefs";
my $user_prefs_time;
if (-e $user_prefs) {
return '';
}
-eval {
- &filelock('incoming-spamscan');
-};
-exit if $@;
-
for (;;) {
if (-f 'spamscan-stop') {
print "spamscan-stop file created\n";