aboutsummaryrefslogtreecommitdiffstats
path: root/bin/spamcat
diff options
context:
space:
mode:
authorBrian Cully <bjc@kublai.com>2017-10-30 15:34:21 -0400
committerBrian Cully <bjc@kublai.com>2017-10-30 15:34:21 -0400
commit0964736afe66c066f8b77a54d77f27bdb8d24cd5 (patch)
tree5a39219a8f745b0a3b374e25d86c00bbde10fc77 /bin/spamcat
parentf887806c5989fc3e5c86107d6ff945a6fc63b05c (diff)
downloadspamcat-0964736afe66c066f8b77a54d77f27bdb8d24cd5.tar.gz
spamcat-0964736afe66c066f8b77a54d77f27bdb8d24cd5.zip
Add get and set commands for tweaking counts.
Introduce 'get' to query a count for a given email address, and 'set' to manually update it.
Diffstat (limited to 'bin/spamcat')
-rwxr-xr-xbin/spamcat18
1 files changed, 18 insertions, 0 deletions
diff --git a/bin/spamcat b/bin/spamcat
index fd37f76..8549d95 100755
--- a/bin/spamcat
+++ b/bin/spamcat
@@ -24,6 +24,14 @@ Print a brief help message and exit.
Load configuration from C<file>
+=item get C<sender>
+
+Show database row for C<sender>.
+
+=item set C<sender> C<count>
+
+Set C<sender>'s remaining message count to C<count>.
+
=item dumpconfig
Dump the current configuration.
@@ -83,6 +91,16 @@ if ($#ARGV >= 0) {
}
print uc($k) . " = " . $v . "\n";
}
+ } elsif ($cmd eq 'get') {
+ my $sender = shift @ARGV;
+ pod2usage(1) unless $sender;
+ my $count = $sch->get_count($sender);
+ print "$sender has $count messages remaining.\n";
+ } elsif ($cmd eq 'set') {
+ my ($sender, $count) = @ARGV;
+ pod2usage(1) unless $count && $count =~ /\d+/;
+ $sch->set_count($sender, $count);
+ print "$sender has $count messages remaining.\n";
} else {
pod2usage(1);
}