version 1.3, 2025/06/27 16:20:30
|
version 1.4, 2025/06/28 00:33:32
|
Line 9
|
Line 9
|
# Licensed AGPL-3.0 |
# Licensed AGPL-3.0 |
# |
# |
# $Log$ |
# $Log$ |
|
# Revision 1.4 2025/06/28 00:33:32 snw |
|
# Update locking |
|
# |
# Revision 1.3 2025/06/27 16:20:30 snw |
# Revision 1.3 2025/06/27 16:20:30 snw |
# Add blacklist |
# Add blacklist |
# |
# |
Line 37 $| = 1;
|
Line 40 $| = 1;
|
print "pandia indexer v0.0.1\n"; |
print "pandia indexer v0.0.1\n"; |
print " Copyright (C) 2025 Coherent Logic Development LLC\n\n"; |
print " Copyright (C) 2025 Coherent Logic Development LLC\n\n"; |
|
|
open my $file, ">", "pandia_indexer.lock" or die $!; |
open my $file, ">", "/tmp/pandia_indexer.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 $!"; |
|
|
GetOptions("dbhost=s" => \$dbhost, |
GetOptions("dbhost=s" => \$dbhost, |