--- pandia/crawler 2025/06/27 16:20:30 1.4 +++ pandia/crawler 2025/06/28 00:33:32 1.5 @@ -1,7 +1,7 @@ #!/usr/bin/env perl # -# $Id: crawler,v 1.4 2025/06/27 16:20:30 snw Exp $ +# $Id: crawler,v 1.5 2025/06/28 00:33:32 snw Exp $ # Copyright (C) 2025 Coherent Logic Development LLC # # Author: Serena Willis @@ -9,6 +9,9 @@ # Licensed AGPL-3.0 # # $Log: crawler,v $ +# Revision 1.5 2025/06/28 00:33:32 snw +# Update locking +# # Revision 1.4 2025/06/27 16:20:30 snw # Add blacklist # @@ -182,7 +185,7 @@ if($seed ne "") { print "[OK]\n"; } else { - open my $file, ">", "pandia_crawler.lock" or die $!; + open my $file, ">", "/tmp/pandia_crawler.lock" or die $!; flock $file, LOCK_EX|LOCK_NB or die "Unable to lock file $!"; my $sth = $dbh->prepare("SELECT url FROM crawl_queue");