version 1.4, 2025/06/27 16:20:30
|
version 1.5, 2025/06/28 00:33:32
|
Line 9
|
Line 9
|
# Licensed AGPL-3.0 |
# Licensed AGPL-3.0 |
# |
# |
# $Log$ |
# $Log$ |
|
# Revision 1.5 2025/06/28 00:33:32 snw |
|
# Update locking |
|
# |
# Revision 1.4 2025/06/27 16:20:30 snw |
# Revision 1.4 2025/06/27 16:20:30 snw |
# Add blacklist |
# Add blacklist |
# |
# |
Line 182 if($seed ne "") {
|
Line 185 if($seed ne "") {
|
print "[OK]\n"; |
print "[OK]\n"; |
} |
} |
else { |
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 $!"; |
flock $file, LOCK_EX|LOCK_NB or die "Unable to lock file $!"; |
|
|
my $sth = $dbh->prepare("SELECT url FROM crawl_queue"); |
my $sth = $dbh->prepare("SELECT url FROM crawl_queue"); |