mirror of
https://github.com/pragma-/pbot.git
synced 2025-07-08 06:27:25 +02:00
3d97dc2c33
"Applet" is a much better name for the external command-line scripts and programs that can be loaded as PBot commands. They will no longer be confused with Perl modules. https://en.wikipedia.org/wiki/Applet
73 lines
1.7 KiB
Perl
Executable File
73 lines
1.7 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# SPDX-FileCopyrightText: 2021 Pragmatic Software <pragma78@gmail.com>
|
|
# SPDX-License-Identifier: MIT
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use Fcntl qw(:flock);
|
|
|
|
my $MAX_WORDS = 15;
|
|
|
|
my $CJEOPARDY_DATA = 'data/cjeopardy.dat';
|
|
my $CJEOPARDY_FILTER = 'data/cjeopardy.filter';
|
|
|
|
my $channel = shift @ARGV;
|
|
my $filter = join(' ', @ARGV);
|
|
|
|
if ($channel !~ /^#/) {
|
|
print "Sorry, C Jeopardy must be played in a channel. Feel free to join #cjeopardy.\n";
|
|
exit;
|
|
}
|
|
|
|
if (not length $filter) {
|
|
my $ret = open my $fh, '<', "$CJEOPARDY_FILTER-$channel";
|
|
if (not defined $ret) {
|
|
print "There is no filter active for $channel. Usage: filter <comma separated list of words> or `filter clear` to clear.\n";
|
|
exit;
|
|
}
|
|
|
|
my $words = <$fh>;
|
|
close $fh;
|
|
chomp $words;
|
|
$words =~ s/,/, /g;
|
|
$words =~ s/, ([^,]+)$/ or $1/;
|
|
print "Filter active. Questions containing $words will be skipped. Usage: filter <comma separated list of words> or `filter clear` to clear.\n";
|
|
exit;
|
|
}
|
|
|
|
open my $semaphore, ">", "$CJEOPARDY_DATA-$channel.lock" or die "Couldn't create semaphore lock: $!";
|
|
flock $semaphore, LOCK_EX;
|
|
|
|
$filter = lc $filter;
|
|
|
|
if ($filter eq 'clear') {
|
|
unlink "$CJEOPARDY_FILTER-$channel";
|
|
print "Filter cleared.\n";
|
|
exit;
|
|
}
|
|
|
|
$filter =~ s/(^\s+|\s+$)//g;
|
|
my @words = split /\s*,\s*/, $filter;
|
|
|
|
if (not @words) {
|
|
print "What?\n";
|
|
exit;
|
|
}
|
|
|
|
if (@words > $MAX_WORDS) {
|
|
print "Too many words. You may set up to $MAX_WORDS word" . ($MAX_WORDS == 1 ? '' : 's') . " in the filter.\n";
|
|
exit;
|
|
}
|
|
|
|
open my $fh, '>', "$CJEOPARDY_FILTER-$channel" or die "Couldn't open $CJEOPARDY_FILTER-$channel: $!";
|
|
print $fh join ',', @words;
|
|
print $fh "\n";
|
|
close $fh;
|
|
|
|
my $w = join ', ', @words;
|
|
$w =~ s/, ([^,]+)$/ or $1/;
|
|
print "Questions containing $w will be skipped.\n";
|
|
exit;
|